ESTE ES EL CÓDIGO ORIGINAL EN VISUAL FOX PRO
EL INGRESO DE VALOR ES "PROFIT1001 " 13 CARACTERES QUE INCLUYEN ESPACIOS EN BLANCO CUANDO SE GUARDAN EN LA BASE DE DATOS DEL SERVIDOR SQL, LA CLAVE SIGUE LA SIGUIENTE FORMA //E$Àá[ØÍÍØ
NECESITO PASAR LAS FUNCIONES A PHP PERO NO SÉ LO QUE SUCEDE QUE EL RESULTADO NO ME MUESTRA, ¿ALGUIEN PUEDE VER EL CÓDIGO PHP Y VER LA PARTE MAL? ¡¡¡¡¡¡POR FAVOR!!!!!!
codigo visual fox pro
Código:
Function encript
Parameter pkey
key_encript = " "
For i = 1 To Len(pkey)
key_encript = key_encript+fun(Substr(pkey, i, 1))
Next
Return (Substr(key_encript, 2, Len(key_encript)-1))
Endfunc
**
Function fun
Parameter car
Return (Chr((((Asc(car)+17)*11)%255)))
ENDFUNC
clear
Código PHP:
$datos = "PROFIT1001 ";
echo rand_string($datos);
function rand_string($data) {
$key_encript="";
$length = strlen($data);
for( $i = 0; $i < $length; $i++ ) {
$key_encript = $key_encript + fun(substr($data, $i, 1));
}
Return (Substr($key_encript, 2, strlen($key_encript)-1));
}
Function fun ($car){
Return (((((home($car)+17)*11)%255)));
}
function home($u) {
return mb_convert_encoding('&#'.intval($u).';','UTF-8','HTML-ENTITIES');
}