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

q:=q+4;

end;

ShowMessage ('Замена по таблице'+plus1);

for y:=1 to 11 do

begin

plus2:='';

sdv:=plus1 [1];

for j:=2 to 32 do

plus2:=plus2+plus1 [j];

plus2:=plus2+sdv;

plus1:=plus2;

end;

ShowMessage ('сдвиг на 11 бит влево-'+plus1);

plus3:='';

for y:=1 to 32 do

begin

if (plus1 [y]='1') and (kod_64_2 [y]='1') then h:=0;

if (plus1 [y]='1') and (kod_64_2 [y]='0') then h:=1;

if (plus1 [y]='0') and (kod_64_2 [y]='1') then h:=1;

if (plus1 [y]='0') and (kod_64_2 [y]='0') then h:=0;

plus3:= plus3+ IntToStr(h);

end;

ShowMessage ('Побитное сложение N2 и S-'+plus3);

kod_64_2:=kod_64_1;

kod_64_1:= plus3;

k_slovo:=k_slovo+ kod_64_1+ kod_64_2;

ShowMessage ('Шифр – '+k_slovo);

m:=m+64;

l:=l+32;