Simpel delphi funktion til PHP

Hej jeg har denne delphi funktion, som kan kryptere ret simpelt både kryptere and dekryptere....

Jeg mener der er sådan noget xor osv. funktioner i PHP så det burde ikke være VILDT svært for en erfaren...

function Crypt(Str: string; Code1: integer; Code2: integer): String;
var
blah : PString;
i : Integer;
begin
New(blah);
try
blah^ := Str;
for i := 1 to Length(blah^) do
begin
blah^[i] := Char(Code1 * i div Code2 xor ord(blah^[i]));
end;
Result := blah^;
finally
if blah <> nil then
blah := nil;
end;
end;