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

n:=14;

NachC(conf,c0,n);

Posl;

Setlength(T,8);

j:=0;

Memo1.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

Else

Begin

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

j:=0;

End;

Memo1.Text:=Memo1.Text+char(CodeToSymv);

End;

end;

procedure TForm1.Button2Click(Sender: TObject); //2s

begin

FName:='Полиалфиват';

SaveDialog1.FileName:=Fname;

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

Memo2.Lines.SaveToFile(FName);

End;