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
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta

Código de FoxPro/Visual FoxPro - Encriptar/Desencriptar

Encriptar/Desencriptargráfica de visualizaciones


FoxPro/Visual FoxPro

estrellaestrellaestrellaestrellaestrella(8)
Publicado el 26 de Junio del 2002 por Gabriel Araya
33.431 visualizaciones desde el 26 de Junio del 2002. Una media de 56 por semana
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.

Versión 1
estrellaestrellaestrellaestrellaestrella(8)

Publicado el 26 de Junio del 2002gráfica de visualizaciones de la versión: Versión 1
33.432 visualizaciones desde el 26 de Junio del 2002. Una media de 56 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella
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

Comentarios sobre la versión: Versión 1 (8)

30/07/2002Guillermo Mendoza
estrellaestrellaestrellaestrellaestrella
Bastante útil si se desea utilizar un valor almacenado en una tabla para después validar algún dato en específico relativo a la caducidad o cualquier otra cosa que se quiera.

Mejor aún si la tabla se incluye en el ejecutable y se utiliza para verificar una llave privada.
10/12/2002Héctor Hugo Chaparro Salazar
estrellaestrellaestrellaestrellaestrella
Interesante y muy comodo este código, me funciono perfectamente para un aplicativo en salud en el cual manejo al rededor de 25 millones de registros que son de información reservada. Muchas gracias
25/03/2003upliftmofopartyplan
estrellaestrellaestrellaestrellaestrella
Si la idea es mostrar una base de encriptacion, está bien.
pero realmente es muy sencilla y facil de descifrar.
además, no la he probado, pero me parece que tiene errores. Si el ASC()
es por ejemplo 254, al sumarle 2 dará un error.
23/05/2003Albeiro A. González B.
estrellaestrellaestrellaestrellaestrella
Es un código muy fácil de usar. Se pueden hacer muchas cosas a partir de él. Solo es cuestión de buena imaginación para aprovecharlo de múltiples formas.
02/07/2004Orlando Garcia
estrellaestrellaestrellaestrellaestrella
Esta muy bien yo ya lo modifique para implementarlo en mi aplicación muchas gracias.
28/09/2004Javier Dillon
estrellaestrellaestrellaestrellaestrella
Para iniciarse, está muy bien. El que desee hacerlo más complejo puede incluir una tabla de desfase diferente para cada posición de los caracteres, o hacer un desfase inverso de las letras y números donde la "z" ae convierta en "a", la "b" en "y", etc.
28/03/2006CLAUDIA RIVERA
estrellaestrellaestrellaestrellaestrella
MUCHAS GRACIAS, ESTABA TRATANDO DE ENCRIPTAR UNA CLAVE Y TU RUTINA FUE UNA BENDICION PARA MI. SALUDES
16/05/2008Ramiro
estrellaestrellaestrellaestrellaestrella
Gracias, me ha sido muy útil. Valor mucho el aporte

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración del curso
Comentarios