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

writeln;

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

Close(F);

Close(F1);

writeln;

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

ReadKey;

END;

При выборе третьего пункта меню программа завершает свою работу.

Описание входных и выходных данных.

При шифровании текста входными данными является файл, содержащий любой текст. А выходными данными будет файл, содержащий зашифрованный текст, который создается в папке в которой расположена данная программа, этот файл будет иметь имя «crypter.txt».

При дешифровке текста входными данными является файл, содержащий зашифрованный текст. А выходными данными будет файл, содержащий расшифрованный текст, который будет создан в папке в которой расположена данная программа, этот файл будет иметь имя «crypter.txt».

Заключение.

Данная программа продемонстрировала хорошую работоспособность. Имеет высокую степень защиты зашифрованного текста, без ключя такой текст расшифровать достаточно сложно, даже зная алгоритм шифрования. У данной программы есть один значительный недостаток – размер зашифрованного файла увеличивается по сравнению с исходным примерно в 3 раза.

Список литературы.

1. «Основы алгоритмизации и программирование», Е. Н. Сафьянова, учебное пособие, Томск, 2000 г.

Приложение 1. Листинг программы.

PROGRAM Crypter;

USES crt;

VAR f,f1: Text;

FileName,PassW,Line: string;

men: integer;

{Преобразуем пароль в числовое значение}

FUNCTION Password(Psw: string): integer;

VAR i,res: integer;

BEGIN

res:=0;

for i:=1 to length(psw) do res:=res+ord(psw[i]);

Password:=res;