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

ClrScr;

writeln('Программа шифровки и дешифровки текста!!!');

writeln;

writeln('1. Шифровать текст');

writeln('2. Дешифровать текст');

writeln('3. Выход');

writeln;

write('Выберите пункт меню: ');

readln(men);

case men of

1 : CryptP;

2 : DecryptP;

end;

end;

until men=3;

END;

При выборе первого пункта меню вызывается процедура шифрования текста (PROCEDURE CryptP; ). Данная процедура создает интерфейс для ввода имени файла, который необходимо зашифровать и ключа. После ввода имени файла и ключа данный файл открывается (при помощи команды Assign ) и весь текст из него записывается в переменную Line .Также создаем второй файл в который будет записан результат работы (этот файл будет иметь имя crypter.txt). Затем вызывается функция Crypt и ей передается значение переменной Line . После завершения работы функции зашифрованный текст сохраняется во вновь созданном файле. Закрываем оба открытых файла при помощи оператора Close .

PROCEDURE CryptP;

BEGIN

writeln;

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

readln(FileName);

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

readln(PassW);

Assign(F,FileName);

Assign(F1,'crypter.txt');

Rewrite(F1);

Reset(F);

while not EOF(F) do