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

Вывод: “Выберите (S)ШИФРОВАТЬ или (D)ДЕШИФРОВАТЬ”

нет Ввод: K

нет

UpCase(K) = ‘S’ UpCase(K) = ‘D’

Вывод: “Путь к файлу: ”

Ввод: Name1

Assign (Var_file1, Name1)

Reset (Var_file1)

нет

IOResult = 0

Вывод: “Сохранить как: ”

Ввод: Name2

нет

Length(Name2) № 0

Assign (Var_file2, Name2)