Ver Mensaje Individual
  #9 (permalink)  
Antiguo 21/03/2011, 05:43
reynierpm
 
Fecha de Ingreso: marzo-2011
Ubicación: Caracas
Mensajes: 140
Antigüedad: 15 años, 8 meses
Puntos: 1
Respuesta: Llevar función de VB6 a PHP

Me ha quedado de esta forma:
Código PHP:
function EncryptDecrypt($str, $mode = "E") {
    
$UserKey = "IRONMAN";
    
$n = strlen($UserKey);

    
$UserKeyASCIIS = array();
    for (
$i = 0; $i < $n; $i++) {
        
$UserKeyASCIIS[] = ord(substr($UserKey, $i, 1));
    }

    
$TextASCIIS = array();
    for (
$l = 0; $l < strlen($str); $l++) {
        
$TextASCIIS[] = ord(substr($str, $l, 1));
    }

    if (
$mode == "E") {
        for (
$j = 0; $j < strlen($str); $j++) {
            
$k = ($k + 1 >= $n) ? 1 : $k + 1;
            
$temp = $TextASCIIS[$j] + $UserKeyASCIIS[$k];
            if (
$temp > 255) {
                
$temp = $temp - 255;
            }
            
$var.= chr($temp);
        }
    }

    if (
$mode == "D") {
        for (
$j = 0; $j < strlen($str); $j++) {
            
$k = ($k + 1 >= $n) ? 1 : $k + 1;
            
$temp = $TextASCIIS[$j] - $UserKeyASCIIS[$k];
            
//echo $temp."-";
            
if ($temp < 0) {
                
$temp = $temp + 255;
            }
            
$var.=  chr($temp);
        }
    }
    
    return 
$var;
} 
Pero me funciona solo para encriptar el desencriptar no me funciona :(