Защита данных от несанкционированного доступа
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: изложение на тему, контрольная работа 6
| Добавил(а) на сайт: Vonifat.
Предыдущая страница реферата | 15 16 17 18 19 20 21 22 23 24 25 | Следующая страница реферата
{Изменение пароля на вход в систему} procedure Passwords; var
Ps, Ps1: string;
I : byte; tmp : char; begin
Ps := '';
Ps1 := '';
InputBox('П А Р О Л Ь', 'Введите пароль:', Ps, 255); for i:= 1 to length(Ps) do Ps[i] :=chr(ord(Ps[i]) xor 27); if Ps Pass then begin
MyMessageBox(' Неверный пароль!!!', nil, mfError+mfOkButton);
ClrScr; writeln('Несанкционированный доступ!');
Halt; end;
InputBox('И З М Е Н Е Н И Е П А Р О Л Я',
'Введите новый пароль:', Ps, 255);
InputBox('И З М Е Н Е Н И Е П А Р О Л Я',
' Повторите ввод:', Ps1, 255); if (Ps = Ps1) and (Ps '') then begin
Assign(FilePass, 'system.res');
Rewrite(FilePass); for i := 1 to length(PS) do begin tmp := chr(ord(Ps[i]) xor 27);
Write(FilePass, tmp); end;
Close(FilePass); end else MyMessageBox(' Ошибка ввода пароля!!!', nil, mfError+mfOkButton);
end;
{Обработка ошибок} procedure CheckExec; var
St: string; begin
Str(DOSError, St); case DOSError of
2: MyMessageBox(' Ошибка DOS № ' +
St + ' "Файл не найден"', nil, mfError + mfOkButton);
3: MyMessageBox(' Ошибка DOS № ' +
St + ' "Путь не найден"', nil, mfError + mfOkButton);
Рекомендуем скачать другие рефераты по теме: конспект урока 5 класс, оформление доклада.
Категории:
Предыдущая страница реферата | 15 16 17 18 19 20 21 22 23 24 25 | Следующая страница реферата
Главная