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

Begin

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

j:=0;

End;

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

End;

end;

procedure TForm1.Button10Click(Sender: TObject);

begin

Memo1.Text:=Memo3.Text;

Memo2.Text:='';

Memo3.Text:='';

end;

procedure TForm1.Button11Click(Sender: TObject);//Новые параметры

begin

s:='';

Memo1.Text:='';

Memo2.Text:='';

Memo3.Text:='';

Label3.Visible:=False;

Label1.Visible:=False;

Button4.Visible:=False;

Button1.Visible:=False;

Button9.Visible:=False;

Button8.Visible:=False;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

Label3.Visible:=False;