Geheimsprache

[HAF4ever]

das ist ja das prinzip der XOR Verschlüsselung wenn ich das richtig verstehe.

dann würde die Funktion ungefähr so aussehen:

Delphi-Quellcode:

function umwandeln(s: String):String;
var
  i: Integer;
begin
  for i:=1 to length(s) do
      s[i]:=Chr(Ord(s[i]) XOR Ord(254));
  umwandeln:=s;
end;