desencriptar e incriptar contraseña en php y sqlserver?

Hola amigos, estoy realizando un el inicio de sesión de una aplicación web, en php y sql server 2008, conexión con odbc, en sqlserver 2008 esta la base de datos que utiliza una aplicación desarrollada en foxProx, donde existen usuarios ya registrados para el inicio de sesión, he probado varios códigos y no me funciona, y me pasaron la función que se utiliza en foxpro para encriptar y desencriptar, y me gustaria que me ayuden como adaptarlo en php esta funcion y sql server:

FUNCTION Encrip

LPARAMETERS tccodigo, tnclave

PRIVATE lnlong AS INTEGER, ;

lnii AS INTEGER, ;

lcvalor AS STRING, ;

lcletra AS CHARACTER, ;

lnnumero AS INTEGER


tnclave = IIF(TYPE("tnclave")="N",IIF(tnclave>=128 AND tnclave <=255,tnclave,255),255)

lnlong = LEN(tccodigo)

lcvalor = ""



FOR lnii=1 TO lnlong

lnnumero = ASC(SUBS(tccodigo,lnii,1))

lnnumero = tnclave - lnnumero + 1

lnnumero = IIF(lnnumero<0,lnnumero*-1,lnnumero)

lcletra = CHR(lnnumero)

lcvalor = lcvalor + lcletra

NEXT lnii



RETURN lcvalor

ENDFUNC


les agradezco sus comentarios

movido a php

Así es movido a php...

josuego escribió:

lo movi al post al foro de php, porque en tutoriales no se publican preguntas técnicas. en este foro recibiras mejores respuestas. saludos

Gracias

No suelo hacer esto pero me pareció un buen ejercicio mental. Hace 20 años que vi mi última línea de código en FoxPro así que cualquier error es exclusivamente mío (y ni ganas de saber cuál fue jaja)

La traducción es:

Código PHP :

<?php

function Ecrip($tccodigo, $tnclave) {
   if (is_int($tnclave)) {
      if (($tnclave < 128) or ($tnclave > 255)) {
         $tnclave = 255;
      }
   } else {
      $tnclave = 255;
   }
   
   $lnlong = strlen($tccodigo);
   
   $lcvalor = '';
   
   for($i = 1; $i < $lnlong; $i++) {
      $lnnumero = ord($tccodigo[$i]);
   
      $lnnumero = abs($tnclave - $lnnumero +1);
   
      $lcvalor .= chr($lnnumero);
   }
   
   return $lcvalor;
}

?>

Te advierto que esta forma de cifrar (que decir "encriptar" está mal) es muy débil. Usa un desplazamiento de caracteres que es muy obvio de ver.

Gracias DriverOp en este momento lo aplicare a mi código, te agradezco el tiempo de dedicación a responder a mi duda. Cualquier cosa que pase te comunico.

DriverOp escribió:

Gracias DriverOp en este momento lo aplicare a mi código, te agradezco el tiempo de dedicación a responder a mi duda. Cualquier cosa que pase te comunico.

DriverOp me funciono para desencroptar, te agradezco, para encriptar no lo he probado, no mas en había un problema en el for que esta = 1 y me faltaba un dígito cuando desencriptaba solo lo cambie a = 0 y listo, gracias amigo

Pues me alegro haberte sido útil. Y ahora que lo mencionas, tienes razón, los strings en PHP comienzan en cero (confusión debida a tener muchos lenguajes en la cabeza).

DriverOp escribió:

Amigo me puede decir si este código que me brindaste puede encriptar, es que solo puedo desencriptar me puedes ayudar porfavor.

Gracias amigo

No, no puede. Y se dice "cifrar", no "encriptar" (que es meter algo en una cripta).

DriverOp escribió:

Ok gracias amigo, pero ya logre con ese mismo código que me brindaste cifrar.

Excelente...