Buenas tardes, estoy con el siguiente tema:
Hace unos años SEOANE me ayudó a convertir una función de C# a Delphi (este es el link http://delphiaccess....ión-c-a-delphi/)
Y todo perfecto, la función trabaja de maravilla. Ahora la estoy convirtiendo a PHP, pero tengo algunos problemas con el manejo del Byte de delphi, no tengo ni idea del equivalente (creo que es pack)
Esta es la función que tengo:
-----
function DecryptC300($Str): String {
$len = strlen($Str);
if($len%2>0 ){
return -1;
}
$Result= "";
// Si no es de una longitud par no hacemos nada
$i = 1;
while ($i < strlen($Str) ){
if ($Str[$i] < 'x'){
$b= 0;
}else
$b = ord($Str[$i]) - ord("x");
$b = $b << 4;
if ($Str[$i+1] > 'z'){
$b = $b + ord($Str[$i+1]) - ord("z");
}
$Result = $Result.chr($b);
$i = $i + 2;
}
return $Result;
Alguien que me pueda echar un cable con este tema, lo voy a agradecer
Fernando Castro
Editado por FerCastro, 17 noviembre 2019 - 03:41 .
