[Reasen]

Buenas, tengo el siguiente problema: hice un algoritmo apartir de XOR en delphi y php pero por alguna razon los datos me llegan corruptos y no veo ninguna falla, soy un poco nuevo en PHP, cualquier ayuda me serviria.

Aqui el codigo delphi:

Código Delphi [-]
Function xorPHP(Text: AnsiString; Pass: AnsiString): AnsiString;
var
  i, p: integer;
  Res: AnsiString;
begin
  p := 1;

  for i := 1 to length(Text) do
  begin
    Res := Res + ansichar(ord(Text[i]) XOR ord(Pass[p]));
    Inc(p);
    if p > length(Pass) then
      p := 1;
  end;
  setlength(result, length(Res));
  result := EncodeBase64(BytesOf(result), length(BytesOf(result)));
end;

PHP:

Código PHP:

function DecryptStr2($str,$key)
  {
$p=1;

$key_length = strlen($key);
$encoded_data = base64_decode($str);

$length = strlen($encoded_data);
for ($i = 0; $i < $length; $i++) {

$result .= chr(ord($encoded_data[i]) ^ ord($key[$p]));
$p++;
if (p > $key_length){$p=1;} 

}
 return $result;
}

    }