В компьютерной безопасности в целом «уязвимостью» называется слабое место, которое позволяет злоумышленнику снизить уровень достоверности информации системы. Сочетаются три элемента: восприимчивость или недостаток системы, доступ злоумышленника к бреши и возможность злоумышленника ей воспользоваться. Что касается программного обеспечения, то «ошибка» в нем есть неисправность, заставляющая его выдавать неверный или неожиданный результат либо провоцирующая на непреднамеренное поведение (для своих разработчиков и пользователей). Другими словами, уязвимое программное обеспечение обычно работает исправно, но когда к нему подступают «иным образом» (т.е. со злым умыслом и соответствующими инструментами), может случиться всякое.
// PascalABC.NET 3.2, сборка 1338 от 16.11.2016 uses GraphABC; begin var s:=ReadlnString('Укажите время MM:CC'); var m:=s.Left(2).ToInteger; var c:=s.Right(2).ToInteger; var i:=m; var j:=c; Font.Size:=60; Font.Color:=clBlue; repeat while i<60 do begin while j<60 do begin if i<10 then s:='0'+i+':' else s:=i+':'; if j<10 then s+='0'+j else s+=j; FillRect(50,100,350,400); DrawTextCentered(50,100,350,400,s); Inc(j); Sleep(1000) end; j:=0; Writeln; Inc(i) end; i:=0 until False end.
В компьютерной безопасности в целом «уязвимостью» называется слабое место, которое позволяет злоумышленнику снизить уровень достоверности информации системы. Сочетаются три элемента: восприимчивость или недостаток системы, доступ злоумышленника к бреши и возможность злоумышленника ей воспользоваться. Что касается программного обеспечения, то «ошибка» в нем есть неисправность, заставляющая его выдавать неверный или неожиданный результат либо провоцирующая на непреднамеренное поведение (для своих разработчиков и пользователей). Другими словами, уязвимое программное обеспечение обычно работает исправно, но когда к нему подступают «иным образом» (т.е. со злым умыслом и соответствующими инструментами), может случиться всякое.
uses GraphABC;
begin
var s:=ReadlnString('Укажите время MM:CC');
var m:=s.Left(2).ToInteger;
var c:=s.Right(2).ToInteger;
var i:=m;
var j:=c;
Font.Size:=60;
Font.Color:=clBlue;
repeat
while i<60 do begin
while j<60 do begin
if i<10 then s:='0'+i+':' else s:=i+':';
if j<10 then s+='0'+j else s+=j;
FillRect(50,100,350,400);
DrawTextCentered(50,100,350,400,s);
Inc(j);
Sleep(1000)
end;
j:=0;
Writeln;
Inc(i)
end;
i:=0
until False
end.