Жүзеге асыру мысалы

Begin program

Сұраныс және парольді еңгізу;

If еңгізу 0 then программадан

If пароль дұрыс then программаның озудағы көшірмесі;

If парольі дұрыс емес then ПЗУ-дағы программаның өшірілуі;

End program.

Бұл программа аппаратураны қорғауды ұйымдастырады.

Program demo;

Uses crt;

Const st=’ қараша, желтоқсан мен сол бір екі ай,’;

St1=’қыстың басы бірі ерте біреуі жай,’;

St2=’ерте барсам жерімді жеп қоямын деп,’;

St3=’қыстамамен күзеуде отырар бай.’;

St4=’кедейдің өзі жүрер малын бағып,’;

St5=’отыруға отын жоқ үзбей жағып,’;

St6=’тонған үйін жібітіп, тонын илеп, шекпен тігер қатыны бүрсең қағып’;

Parol=’бұл пароль’;

Var parol1:string;

Procedure border (x,y:integer;head:string);

Var i: integer;

Begin

For i:=x to length(st)+x+1 do

Begin

Gotoxy(I,y);write(chr(196));

Gotoxy( x, y + 8); write(chr(196));

End;

For i:=y to y+7 do

Begin

Gotoxy(x,i);write(chr(179));

Gotoxy(length(st)+x+1,i);write(chr(179));

End;

Gotoxy(x,y);write(chr(218));

Gotoxy(length(st)+x+1,y+8);write(chr(217));

Gotoxy(length(st)+x+1,y);write(chr(191));

Gotoxy(x,y+8);write(chr(192));

Gotoxy(x+length(st) div 2, y-1);write(head);

End;

Procedure text(x,y:integer);

Begin

Gotoxy(x+1, y+1); write(st);

Gotoxy(x+1, y+2); write(st1);

Gotoxy(x+1, y+3); write(st2);

Gotoxy(x+1, y+4); write(st3);

Gotoxy(x+1, y+5); write(st4);

Gotoxy(x+1, y+6); write(st5);

Gotoxy(x+1, y+7); write(st6);

End;

Begin

Clrscr;

Border(5,3,’ПЗУ’);

Text(5,3);

Border(75-length(st),3,’ОЗУ’);

Gotoxy(1,12);

Writeln(‘егер программаны ПЗУ-дан ОЗУ-ға көшіргіңіз келсе парольді

еңгізіңіз’);

Write(‘(шығу үшін 0-ді енгізіңіз ):’);

Readln(parol1);

If parol1=’0’ then halt;

If parol1=parol then

Begin

Text(75-length(st),3);

Gotoxy(1,12);

Clreol;

Gotoxy(1,13);

Clreol;

Write(‘Құттықтаймыз!!! Программа ОЗУ-ға көшірілді’);

End;

If parol<>parol then

Begin

Textcolor(black);

Text(5,3);

Gotoxy(1,13)

Clreol;

Textcolor(white);

Writeln(‘Пароль дұрыс еңгізілмеді! Программа өшірілді!’);

Writeln(‘Абайдың өлеңін білмеу ұят!!!’);

End;

Readln;

End.

Зертханалық жұмыс 3 сағатқа арналған. Зертханалық жұмысты тапсыру үшін бақылау сұрақтарына жауап беру қажет.

Жұмысты орындау реті

1. Теориялық материалды оқу

2. Бақылау мысалын жасау

3. Өзіндік жұмысқа сәйкес программа құру

Бақылау сұрақтары

1. Ақпараттық сұраныспен қорғау дегеніміз не?

2. Парольдер мен шифрлер

3. Сигнатура қорғанысы туралы не білесіз?

4. Әртүрлі аппаратураны қорғау

5. Аппараттық қорғауды қолданумен программаны қорғау принципі

6. Ақпаратты шығаруды жүзеге асыру мүмкідіктері

7. Электрондық қорғау құрылымы.

8. Интеллект элементімен қорғау құрылғысы

9. Альтернативті қорғау құрылымы

10. Қайталанбас қорғаудың құрылғысы

11. Трояндық программалар

12. Қорғаудың арнайы архитектуралық платасы

Өзіндік жұмыс

1. Парольдік қорғау

2. Персоналды мәліметтермен қорғау

3. Арнайы сөздермен қорғау құрылғысы

4. Қорғану үшін сигнатураны қолдану

№ 6 – Зертханалық жұмыс

Тақырыбы: Қорғаудың сенімділігін анықтау программасын құру. Есептеу жүйесі құрамында қорғау.

Жұмыстың мақсаты: Есептеу жүйесі құрамында қорғау әдісін меңгеру.