Вредительские программы

Одним из основных источников угроз безопасности информации в КС является использование специальных программ, получивших общее название " вредительские программы".

В зависимости от механизма действия вредительские программы делятся на четыре класса:

" логические бомбы";

" черви";

" троянские кони";

" компьютерные вирусы".

" Логические бомбы " - это программы или их части, постоянно находящиеся в ЭВМ или вычислительных системах (ВС) и выполняемые только при соблюдении определенных условий. Примерами таких условий могут быть: наступление заданной даты, переход КС в определенный режим работы, наступление некоторых событий установленное число раз и т.п.

" Червями " называются программы, которые выполняются каждый раз при загрузке системы, обладают способностью перемещаться в ВС или сети и самовоспроизводить копии. Лавинообразное размножение программ приводит к перегрузке каналов связи, памяти и, в конечном итоге, к блокировке системы.

" Троянские кони " - это программы, полученные путем явного изменения или добавления команд в пользовательские программы. При последующем выполнении пользовательских программ наряду с заданными функциями выполняются несанкционированные, измененные или какие-то новые функции.

" Компьютерные вирусы " - это небольшие программы, которые после внедрения в ЭВМ самостоятельно распространяются путем создания своих копий, а при выполнении определенных условий оказывают негативное воздействие на КС.

Поскольку вирусам присущи свойства всех классов вредительских программ, то в последнее время любые вредительские программы часто называют вирусами.

Var k, n: integer; x, s: real;

Begin

Write('Vvedite n i x');

Read(n, x);

s: =0;

for k: =1 to n do

Begin

s: =s+((exp((4*k+1)*ln(x)))/(4*k+1));

end;

writeln('s=', s: 0: 3);

End.

Var c, n: string;

Begin

writeln('Vvedite imya: ');

readln(n);

writeln('Hotite prodoljit rabotu: ');

readln(c);

if

c='da'

then

writeln('Ia gotov k rabote')

else if

c='net'

then

writeln('Do svidaniya, ', n)

else

writeln('Povtorite popitku vvoda');

end.

Var x: integer; y: real;

begin

for x: =0 to 10 do

begin

y: =(1+cos(x/10))/(2+sqr(x/10));

writeln('S=', y: 10: 3);

end;

readln;

end.

Var n, i: integer; x, s: real;

Begin

Write('Vvedite n i x');

Read(n, x);

s: =0;

for i: =1 to n do

Begin

s: =s+((exp(i*ln(x)))/i);

end;

writeln('s=', s: 0: 3);

End.

Label m1;

Var n, i: integer; x, w, a: real;

Begin

Write('Vvedite n');

Read(n);

i: =1;

m1: Write('Vvedite x i a');

Read(x, a);

If x> a

then w: =(x*x*x)*(sqrt(x-a))

else

If x=a

then w: =x*sin(a*x)

else w: =exp(-a*x)*a*x;

write('w=', w: 0: 3);

i: =i+1;

If i< =n then goto m1

End.

https://lib2.podelise.ru/docs/6230/index-2246-19.html