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.

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

Encriptar/Desencriptargráfica de visualizaciones


FoxPro/Visual FoxPro

estrellaestrellaestrellaestrellaestrella(11)
Publicado el 26 de Junio del 2002 por Gabriel Araya
35.382 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(11)

Publicado el 26 de Junio del 2002gráfica de visualizaciones de la versión: Versión 1
35.383 visualizaciones desde el 26 de Junio del 2002. Una media de 56 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
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 (11)

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
26/03/2015DANILO SILIEZAR
estrellaestrellaestrellaestrellaestrella
gracias
18/06/2015lorena ferrai
estrellaestrellaestrellaestrellaestrella
como encriptar o desencriptar con ese codigo un texbox
18/07/2015Pedro Hidalgo
estrellaestrellaestrellaestrellaestrella
Gracias amigo excelente me fue de mucha utilidad , Bendiciones

Comentar la versión: Versión 1

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

http://lwp-l.com/s233