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

end

else u:=u+1;

end;

BitBtn4.Visible:=False;

LabeledEdit1.Visible:=False;

Zashifr;

end;

procedure TForm1.Button12Click(Sender: TObject);

Var u:Integer;

begin

u:=0;

s :=LabeledEdit1.Text;

while u=0 do

begin

if Length(s)<>8 then

begin

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

s := InputBox('Метод полиалфавитной замены','Попробуйте еще раз','');

end

else u:=u+1;

end;

LabeledEdit1.Visible:=False;

button12.Visible:=False;

Rashifr;

end;

end.

3. РЕЗУЛЬТАТЫ ТЕСТИРОВАНИЯ ГСШ-1 1

Результат шифрования с использованием гибридной системы шифрования (ГСШ-11):

Результат расшифрования с использованием гибридной системы шифрования (ГСШ-11):