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

While M[j][1]<>s[k] do

j:=j+1;

l:=pos(Memo1.Text[i],M[j]);

Memo2.Text:=Memo2.Text+M[0][l];

k:=k+1;

i:=i+1;

End;

End;

//Дешифрование V

procedure TForm1.Button4Click(Sender: TObject);

begin

Button12.Visible:=True;

LabeledEdit1.Visible:=True;

end;

//Шифрование V

procedure TForm1.Button1Click(Sender: TObject);

Var u:Integer;

begin

LabeledEdit1.Visible:=True;

BitBtn4.Visible:=True;

end;

procedure TForm1.FormCreate(Sender: TObject);

var i:byte;

begin

Memo1.Text:='';

Button12.Visible:=False;

LabeledEdit1.Visible:=False;

BitBtn4.Visible:=False;

For i:=0 to 255 Do