(Delphi) Polybios-Chiffre entschlüsseln

[Klaus01]

Anwendung:

polybios in die uses mit aufnehmen.

Delphi-Quellcode:

// encode Button
procedure TForm1.Button1Click(Sender: TObject);
var
  polybios: TPolybios;
begin
  polybios := TPolybios.create;
  try
    polybios.Key:='ABCDEFGHIKLMNOPQRSTUVWXYZ';
    edit2.Text := polybios.encode(edit1.text);
  finally
    polybios.Free;
  end;
end;


// decode Button
procedure TForm1.Button2Click(Sender: TObject);
var
  polybios: TPolybios;
begin
  polybios := TPolybios.create;
  try
    polybios.Key:='ABCDEFGHIKLMNOPQRSTUVWXYZ';
    edit3.Text := polybios.decode(edit2.Text);
  finally
    polybios.Free;
  end;
end;

was noch zu tun ist,
- einen zu kurzen Schlüssel auf 25 Zeichen anfüllen
- sicherstellen das jeder Buchstabe nur einmal im Schlüssel vorkommt.

(Ist nicht perfekt ..)
Grüße
Klaus