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;
}
}