Verschlüssel sollte per, ala
Delphi-Quellcode:
for i := 1 to Length(Input) do
Result := Result + GetTrans(Input[i])
kein Problem sein, bei der Umkehr tust Du Dir durch unterschiedlich langen Tokens etwas schwerer.
Allerdings ist der Algorithmus wegen der fehlenden Sicherheit ohnehin zu zum üben geeignet
EDIT:
wenn Dir DeddyH bisher nie helfen konnte, schätze ich dürfte es auch an Dir liegen.
Seine Geduld bringt hier kaum jemand auf ...