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

{Пара символов находятся в одном столбце матрицы}

New:= New + INDEX[(((ALFAVIT[Ord(SIM1)].STROK + 4) mod 6) + 1), (ALFAVIT[Ord(SIM1)].STOLB)]

+ INDEX[(((ALFAVIT[Ord(SIM2)].STROK + 4) mod 6) + 1), (ALFAVIT[Ord(SIM2)].STOLB)]

ELSE

{Пара символов находятся в разных строках и столбцах матрицы}

New:= New + INDEX[(ALFAVIT[Ord(SIM2)].STROK), (ALFAVIT[Ord(SIM1)].STOLB)]

+ INDEX[(ALFAVIT[Ord(SIM1)].STROK), (ALFAVIT[Ord(SIM2)].STOLB)];

end;

{В открытом тексте убирается спец. знак “-”}

Str:= '';

Dlina_new:= Length(New);

FOR I:= 1 TO Dlina_new DO IF (New[I] <> '-') THEN Str:= (Str + New[I]);

DESHIFR_TXT:= Str;

END ; {Конец основного блока ПФ DESHIFR_TXT}

{Начало основного блока программы}

BEGIN

ClrScr;

{Выбор шифрование или дешифрование файла}

WriteLn ('Выбери: (S)ШИФРОВАТЬ или (D)ДЕШИФРОВАТЬ ?');

REPEAT

K:= ReadKey;

UNTIL (UpCase(K) = 'S') OR (UpCase(K) = 'D');

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

{$I-}

REPEAT

Write ('Путь к файлу: ');

ReadLn (Name1);

Assign (Var_file1, Name1);

Reset (Var_file1);