Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Iniciar sesión Cerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Crear cuenta

Encriptar/Desencriptar

Titulo:localEncriptar/Desencriptar
Autor:Tito Araya (gcag2001@yahoo.com)
Lenguaje:FoxPro/Visual FoxPro
2 funciones para encriptar y desencriptar un string o valor de un campo de una tabla el cual no podra ser leido en forma directa a no ser que se utilice la segunda funcion que desencripta.

Function Codi *Encripta Parameters string_x entrega_x = "" DIMENSION CRIP(LEN(string_x)) FOR i = 1 TO LEN(string_x) crip(i) = ASC(SUBSTR(string_x,i,1)) && entrega numero ENDFOR * FOR i = 1 TO LEN(string_x) crip(i) = crip(i) + 2 && al ASC le suma dos ENDFOR * j = LEN(string_x) FOR i = 1 TO LEN(string_x) entrega_x = entrega_x + CHR(crip(j)) j=j-1 ENDFOR Return entrega_x **************************** FUNCTION DECOD *desencripta Parameters string_x DIMENSION CRIP(LEN(string_x)) entrega_x = "" string_x = ALLTRIM(string_x) FOR i = 1 TO len(string_x) crip(i) = ASC(SUBSTR(string_x,i,1)) && entrega numero NEXT * FOR i = 1 TO len(string_x) crip(i) = crip(i) - 2 NEXT * j = len(string_x) FOR i = 1 TO len(string_x) entrega_x = entrega_x + CHR(crip(j)) j=j-1 NEXT Return entrega_x