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

k_slovo:='';

// Кодирование

for i:= 1 to length (Edit1. Text) do

begin

full:='';

for j:= 1 to length(st) do

begin

if Edit1. Text[i] = st[j] then

begin

full:= full + DEC2BIN(j);

while length(full) < 8 do full:='0' + full;

kod:=kod + full;

end;

end;

end;

ShowMessage ('Слово в 2 виде'+kod);

a:= length(kod) div 64;

for i:= 1 to length (Edit2. Text) do

begin

full1:='';

for j:= 1 to length(st) do

begin

if Edit2. Text[i] = st[j] then

begin

full1:= full1 + DEC2BIN(j);

while length(full1) < 8 do full1:='0' + full1;

kod1:=kod1 + full1;

end;

end;