Предыдущая страница реферата | 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 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки