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

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

Close(F);

Close(F1);

writeln;

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

ReadKey;

END;

{Процедура дешифровки текста}

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);

end;

writeln;

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

Close(F);

Close(F1);