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

begin

FName:='шифр-текст';

SaveDialog1.FileName:=Fname;

If SaveDialog1.Execute then Fname:=SaveDialog1.FileName;

Memo3.Lines.SaveToFile(FName);

end;

procedure TForm1.Button9Click(Sender: TObject); //Дешифрование S

Var conf,c0:LongInt;

n:Byte;

k:Longword;

j,l:Word;

i:byte;

begin

conf:=1362;

c0:=834;

n:=14;

NachC(conf,c0,n);

Posl;

Setlength(T,8);

j:=0;

Memo3.Text:='';

For k:=1 to Length(Memo2.Text) do

Begin

SymvToBit(Memo2.Text[k]);

If j<p-1 then For l:=0 to 7 do

Begin

T[l]:=C[j] xor T[l];

j:=j+1;

End