Реферат: Защита информации в ПЭВМ. Шифр Плейфера

{$I+}

{Определение файла вывода}

REPEAT

Write ('Сохранить как: ');

ReadLn (Name2);

UNTIL (Length(Name2) <> 0);

Assign (Var_file2, Name2);

Rewrite(Var_file2);

{Обращение к ПП SHIFR_PLEYFER}

SHIFR_PLEYFER (ALFAVIT, INDEX);

{Цикл перебора строк открытого текста}

WHILE NOT EOF(Var_file1) DO

begin

ReadLn (Var_file1, Str);

{Обращение к ПФ SHIFR_TXT либо ПФ DESHIFR_TXT}

IF UpCase(K) = 'S' THEN Str:= SHIFR_TXT (Str, Alfavit, INDEX) ELSE Str:= DESHIFR_TXT (Str, Alfavit, INDEX);

WriteLn (Var_file2, Str);

end;

Close (Var_file2); {Закрытие файла Name2}

Close (Var_file1); {Закрытие файла Name1}

END . {Конец основного блока программы}

Результаты

{test.txt} - исходный открытый текст.

ШИФР ПЛЭЙФЕРА

МАЛЬЧИК НА КУХНЕ УКСУС НАШЕЛ.

С ЧАЙНОЙ ЧАШКОЙ К ДЕДУ ПРИШЕЛ.

ДЕДУШКА, МИЛЕНЬКИЙ, СДЕЛАЙ ГЛОТОК...

СТАРЕНЬКИЙ ДЕДУШКА НА ПОЛ ПОТЕК.

{test.plf} - зашифрованный файл (test.txt)

РДИЫ,-СТ-И.ХЮВ