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

ShowMessage ('Ключ в 2 виде'+kod1);

m:=1;

l:=1;

for i:=1 to a do

begin

kod_64_1:='';

kod_64_2:='';

kluch:='';

plus:='';

for j:=1 to 32 do

begin

kod_64_1:=kod_64_1 + kod [m+j-1];

kluch:=kluch + kod1 [l+j-1];

end;

for j:=33 to 64 do

kod_64_2:=kod_64_2 + kod [m+j-1];

ShowMessage ('N1-'+kod_64_1);

ShowMessage ('N2-'+kod_64_2);

plus:=DEC2BIN((BIN2DEC (kod_64_1) + BIN2DEC(kluch)) mod step);

while length(plus) < 32 do plus:='0' + plus;

ShowMessage ('32-х битный блок ключа'+kluch);

ShowMessage('Результат 1-го шага-'+plus);

q:=1; plus1:='';

for y:=0 to 7 do

begin

blok:='';

for j:=1 to 4 do

blok:=blok+ plus [q+j-1];

stolbec:=BIN2DEC(blok);