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

20. Вывод результата в файл Var_file2.

21. Закрытие файлов ввода и вывода.

Программа

PROGRAM SHIFR_PLEYFERA ;

USES Crt;

TYPE

path = STRING[14];

Stroca = STRING[255];

Simvol = array [1..6, 1..6] of CHAR;

MATR = array [1..255] of RECORD

STROK, STOLB: Byte;

END;

CONST INDEX: Simvol = (('А', 'Ж', 'Б', 'М', 'Ц', 'В'), {типизированные константы для матрицы Плэйфера}

('Ч', 'Г', 'Н', 'Ш', 'Д', 'О'),

('Е', 'Щ', ' , ', 'Х', 'У', 'П'),

(' . ', 'З', 'Ъ', 'Р', 'И', 'Й'),

('С', 'Ь', 'К', 'Э', 'Т', 'Л'),

('Ю', 'Я', ' ', 'Ы', 'Ф', '-'));

VAR

Var_file1 ,Var_file2: Text;

Name1, Name2: path;

ALFAVIT: MATR;

Str: Stroca;

K: Char;

{Определение координат символов матрицы Плэйфера}

PROCEDURE SHIFR_PLEYFER(Var ALFAVIT: MATR; INDEX: Simvol);

VAR I, J: Byte; {I, J - счетчики циклов}

BEGIN {Начало основного блока ПП SHIFR_PLEYFER}

FOR I:= 1 TO 6 DO for J:= 1 to 6 do

WITH ALFAVIT[Ord(INDEX[I, J])] DO