Во время ВОВ сложные технические и криптографические средства зашиты информации стали во многом ключевыми, ведь ценность информации возросла кратно. К июню 1941, когда немецкие армии вторглись на территорию СССР, наша система защиты государственной тайны была практически полностью сформирована. Она успешно выполняла целый ряд поставленных перед ней задач. От любых иностранных разведок надежно защищались все информационные ресурсы: мобилизационные, технические, военные, политические, идеологические и природные.
var x, y: word;
i: byte;
begin
SetBrushStyle(bsclear);
SetWindowWidth(590);
SetWindowHeight(390);
Rectangle(5, 5, 585, 385);
x := 25;
y := 25;
Circle(565, 25, 20);
Circle(565, 365, 20);
Circle(25, 365, 20);
repeat
Circle(x, y, 20);
if (x < 565) and (y = 25) then x := x + 20;
if (x = 565) and (y < 365) then y := y + 20;
if (y = 365) and (x > 25) then x := x - 20;
if (x = 25) and (y > 25) then y := y - 20;
until (x = 25) and (y = 25);
Rectangle(50, 50, 540, 340);
x := 115;
for i := 1 to 8 do begin
Circle(x, 210, 6);
Circle(x, 210, 40);
Circle(x, 210, 45);
x := x + 51;
end;
x := 95;
for i := 1 to 11 do begin
y := 130;
Line(x, y, x, y - 30);
y := y - 30;
Line(x, y, x + 30, y);
x := x + 30;
Line(x, y, x, y + 25);
y := y + 25;
Line(x, y, x - 20, y);
x := x - 20;
Line(x, y, x, y - 15);
y := y - 15;
Line(x, y, x + 10, y);
x := x + 10;
Line(x, y, x, y + 8);
y := y + 8;
Line(x, y, x - 3, y);
x := x - 3;
Line(x, y, x, y - 4);
y := y - 4;
Line(x, y, x - 3, y);
x := x - 3;
Line(x, y, x, y + 7);
y := y + 7;
Line(x, y, x + 10, y);
x := x + 10;
Line(x, y, x, y - 15);
y := y - 15;
Line(x, y, x - 18, y);
x := x - 18;
Line(x, y, x, y + 24);
y := y + 24;
Line(x, y, x + 30, y);
x := x + 30;
end;
end.