Реферат: Гибридная система шифрования ГСШ-11

end;

Procedure TForm1.NachC(var j,k:longint;n:Byte);//Формир-ние битовых послед-ностей:

Var i:Byte; // конфигурация и начальное состояние

Begin

SetLength(Z,n);

SetLength(key,n);

For i:=n-1 downto 0 do

Begin

If j>1 then Begin

Z[i]:=j mod 2;

j:=j div 2;

End

Else if j=1 then

Begin

Z[i]:=1;

j:=0;

End

Else Z[i]:=0;

If k>1 then Begin

key[i]:=k mod 2;

k:=k div 2;

End

Else if k=1 then

Begin

key[i]:=1;

k:=0;

End

Else key[i]:=0;

End;