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

Button4.Visible:=False;

Button1.Visible:=True ;

Button9.Visible:=False;

Button8.Visible:=True ;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

Label1.Visible:=False;

Label3.Visible:=True;

Button1.Visible:=False;

Button4.Visible:=True;

Button8.Visible:=False;

Button9.Visible:=True ;

end;

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

close

end;

procedure TForm1.BitBtn4Click(Sender: TObject);

Var u:Integer;

begin

LabeledEdit1.Visible:=True;

u:=0;

s :=LabeledEdit1.Text;

while u=0 do

begin

if Length(s)<>8 then

begin

MessageDlg('Длина ключа должна равняться 8! ', mtWarning, [mbOK], 0);