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

else j:=j+1;

End;

Label2.Caption:='Длина последовательности='+IntToStr(p);

End;

Procedure TForm1.SymvToBit(cq:char);//Преобразования символа в бит.посл-ть

Var k,j:Byte;

Begin

j:=ord(cq);//символ переводится в его порядковый № в таблице символов

For k:=7 downto 0 do

Begin

If j>1 then Begin

T[k]:=j mod 2;

j:=j div 2;

End

Else if j=1 then

Begin

T[k]:=1;

j:=0;

End

Else T[k]:=0;

End;

End;

Function TForm1.CodeToSymv: integer; //Преобразование кода в символ

Var k:Byte;

Z,i:Integer;

Begin

Z:=0;

For k:=0 to 7 do

Z:=Z+T[k]*Trunc(IntPower(2,7-k));