[Resolvido] Conversão para PHP

Estou tentando converter essa função em delphi para php, já fazem mais de 5 horas e nada.

alguém saberia fazer isso?

function Cript(mStr, mChave: String): String;
var
i, TamanhoString, pos, PosLetra, TamanhoChave: Integer;
begin

 Result := mStr;
 TamanhoString := Length(mStr);
 TamanhoChave := Length(mChave);
 for i := 1 to TamanhoString do
	begin
 pos := (i mod TamanhoChave);
 if pos = 0 then
 pos := TamanhoChave;
 posLetra := ord(Result[i]) xor ord(mChave[pos]);
 if posLetra = 0 then
 posLetra := ord(Result[i]);
 Result[i] := chr(posLetra);
	end;
end;

achei isso na internet, foi o mais próxino que cheguei.

function Cript($mStr, $mChave){
 $Result = $mStr;
 $TamanhoString = strlen($mStr);
 $TamanhoChave = strlen($mChave);
 for ($i = 1; $i < $TamanhoString; $i++) {
 $pos = fmod($i,$TamanhoChave);
 if ($pos == 0) {
 $pos = $TamanhoChave;
 }
 $posLetra = ord($Result[$i]) xor ord($mChave[$pos]);
 if ($posLetra == 0){
 $posLetra = ord($Result[$i]);
 }
 $Result[$i] = chr($posLetra);
 }
 return $Result;
}

Sei que é feio ficar pedindo esse tipo de coisa, más estou desesperado!

Obrigado desde já