Лабораторная работа: Алгоритм криптографического преобразования в режиме простой замены

procedure TForm1. Button1Click (Sender: TObject);

begin

randomize;

st:='абвгдежзиклмнопрстуфхцчшщьыъэюя1234567890_., ';

ShowMessage('Алфавит: ' + st);

// Проверка длины фразы

if (length (Edit1. Text) > 100) or (length (Edit1. Text) < 1) then

begin

ShowMessage ('Превышаетзаданноезначение');

exit;

end;

StringGrid1. ColCount:=16;

StringGrid1. RowCount:=8;

// генерацияматрицы

for b:= 0 to 7 do

for c:= 0 to 15 do

begin

repeat

f:=0;

hr:=DEC2BIN (random(16));

while length(hr) < 4 do hr:='0' + hr;

for g:=0 to c-1 do

if hr=StringGrid1. Cells [g, b] then f:=1;

until f=0;

StringGrid1. Cells [c, b]:=hr;

end;

// 32 степень 2

step:=1;

for i:=1 to 32 do