Eine Art CD-Key, die zurückführbar ist...?

[Master_RC]

also aus

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender:TObject);
var 
  s: String;
  i: Integer;
begin
  // Kodieren
  s:=Edit1.Text;
  for i:=1 to length(s) do
    s[i]:=char(23 Xor Ord(s[i]));
end;

mach:

Code:

<?
function XOR($s){
 for($i=0,$i++,length($s)){
  $s[$i] = char(23 XOR Ord($s[$i]));
 }
}
?>

Oder?
Sieht mir nicht wirklich nach einwandfreiem PHP aus