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

ALFAVIT[Ord(SIM1)].STOLB = ALFAVIT[Ord(SIM2)].STOLB

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)]

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

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

Str = “, Dlina_new = Length(New), I = 1

нет

I <= Dlina_new

нет

New[I] № ‘-’

Str = Str + New[I]

I = I + 1

DESHIFR_TXT = Str

Конец ПФ DESHIFR_TXT

ОСНОВНАЯ ПРОГРАММА

Алгоритм

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