Chiffre-Problem

[Marcel Hans]

Hi!
ich will ein Verschlüssungsprogramm schreiben. Ich hab es schon angefangen. Ich habe folgende Chiffre:

Wechsel in beiden Richtungen:
t-d
b-p
k-g
t-d
s-z
w - v
i - y

(Also wenn normal 'dauert', in der Chiffre 'tauerd'). Mein zurzeitiges Programm gibt aber 'dauerd' raus.
Ich bitte um Hilfe!

Code:

procedure TForm1.Button2Click(Sender: TObject);
var eingabe:string;
begin
eingabe:= memoanfang.lines.GetText;
eingabe := StringReplace(eingabe ,'d','t',[rfReplaceAll]);
eingabe := StringReplace(eingabe ,'g','k',[rfReplaceAll]);
eingabe:= StringReplace(eingabe ,'b','p',[rfReplaceAll]);
eingabe := StringReplace(eingabe ,'p','b',[rfReplaceAll]);
eingabe := StringReplace(eingabe ,'v','w',[rfReplaceAll]);
eingabe := StringReplace(eingabe ,'y','i',[rfReplaceAll]);
eingabe := StringReplace(eingabe ,'z','s',[rfReplaceAll]);
eingabe := StringReplace(eingabe ,'s','z',[rfReplaceAll]);
eingabe := StringReplace(eingabe ,'t','d',[rfReplaceAll]);
eingabe := StringReplace(eingabe ,'k','g',[rfReplaceAll]);
eingabe := StringReplace(eingabe ,'w','v',[rfReplaceAll]);
eingabe := StringReplace(eingabe ,'i','y',[rfReplaceAll]);
eingabe := StringReplace(eingabe ,'ę','yn',[rfReplaceAll]);
memoergebnis.lines.add(eingabe);
end;

end.