Einfach ein Formular erstellen mit einem Edit-Feld für die Eingabe, einem Label für die Ausgabe und evtl. ein Optionsfeld um zw. Codieren und Decodieren zu wählen. Dann Funktionen erstellen, die das hin und her Übersetzen erledigen. Mal der Versuch eines Anfangs:
Delphi-Quellcode:
function TextToChiffre(InputText:String):String;
var i:integer;
temp:String;
begin
temp:='';
for i:=1 to Length(InputText) do
temp:=temp+CharToChiffre(InputText[i])+' ';
Result:=Trim(temp);
end;
function CharToChiffre(InputChar:Char):String;
begin
//Hier was elegantes finden (schau mal was der Klaus gesagt hat) oder Fleißarbeit:
if InputChar='A' then
Result:='11'
else if InputChar='B' then
Result:='12'
//usw.
end;
function ChiffreToText(InputChiffre:String):String;
begin
//analog, wobei hier definitiv Klaus Tipp helfen könnte
end;