Ir al contenido



Foto

Convertir función de C# -> Delphi -> PHP


  • Por favor identifícate para responder
1 respuesta en este tema

#1 FerCastro

FerCastro

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 627 mensajes
  • LocationCiudad de México

Escrito 17 noviembre 2019 - 03:15

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 .

  • 0

#2 FerCastro

FerCastro

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 627 mensajes
  • LocationCiudad de México

Escrito 17 noviembre 2019 - 04:00

Pues ya está.

 

Solo eran dos detalles, y quedó lista y trabajando.

 

 

Gracias!!


  • 1