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

SHIFR_PLEYFER(ALFAVIT, INDEX)

нет

NOT EOF(Var_file1)

Ввод из файла Var_file1: Str

нет да

UpCase(K) = ‘S’

Str = DESHIFR_TXT(Str, ALFAVIT, INDEX) Str = SHIFR_TXT(Str, ALFAVIT, INDEX)

Вывод в файл Var_file2: Str

Close (Var_file1)

Close (Var_file2)

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

Обозначения

1. Описание массивов Alfavit, INDEX.

2 .. 5 Выбор шифрование или расшифрация файла.

6 .. 9 Определение файла ввода данных.

10 .. 13 Определение файла вывода полученных результатов.

14. Обращение к ПП SHIFR_PLEYFER(ALFAVIT, INDEX).

15 .. 16 Перебор строк из файла Var_file1.

17. Выбор действий шифрование либо расшифрация строки .

18. Обращение к ПФ DESHIFR_TXT(Str, ALFAVIT, INDEX).