Курсовая работа: Шифровка и дешифровка текста

readln(F,Line);

line:=crypt(line);

writeln(F1,line);

end;

writeln;

writeln('Файл успешно зашифрован!!!');

Close(F);

Close(F1);

writeln;

write('Нажмите любую клавишу...');

ReadKey;

END;

При выборе второго пункта меню вызывается процедура дешифровки текста (PROCEDURE DecryptP; ). Работа этой процедуры аналогична работе процедуры CryptP , за одним лишь исключением, мы вызываем функцию Decrypt вместо функции Crypt .

PROCEDURE DecryptP;

BEGIN

writeln;

write(' Введите путь и имя файла : ');

readln(FileName);

write(' Введите ключ : ');

readln(PassW);

Assign(F,FileName);

Assign(F1,'crypter.txt');

Rewrite(F1);

Reset(F);

while not EOF(F) do

begin

readln(F,Line);

line:=decrypt(line);

writeln(F1,Line);