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