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
38.018 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
38.019 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)

Guillermo Mendoza
30 de Julio del 2002
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.
Responder
Héctor Hugo Chaparro Salazar
10 de Diciembre del 2002
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
Responder
upliftmofopartyplan
25 de Marzo del 2003
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.
Responder
Albeiro A. González B.
23 de Mayo del 2003
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.
Responder
Orlando Garcia
02 de Julio del 2004
estrellaestrellaestrellaestrellaestrella
Esta muy bien yo ya lo modifique para implementarlo en mi aplicación muchas gracias.
Responder
Javier Dillon
28 de Septiembre del 2004
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.
Responder
CLAUDIA RIVERA
28 de Marzo del 2006
estrellaestrellaestrellaestrellaestrella
MUCHAS GRACIAS, ESTABA TRATANDO DE ENCRIPTAR UNA CLAVE Y TU RUTINA FUE UNA BENDICION PARA MI. SALUDES
Responder
Ramiro
16 de Mayo del 2008
estrellaestrellaestrellaestrellaestrella
Gracias, me ha sido muy útil. Valor mucho el aporte
Responder
DANILO SILIEZAR
26 de Marzo del 2015
estrellaestrellaestrellaestrellaestrella
gracias
Responder
lorena ferrai
18 de Junio del 2015
estrellaestrellaestrellaestrellaestrella
como encriptar o desencriptar con ese codigo un texbox
Responder
Pedro Hidalgo
18 de Julio del 2015
estrellaestrellaestrellaestrellaestrella
Gracias amigo excelente me fue de mucha utilidad , Bendiciones
Responder

Comentar la versión: Versión 1

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

http://lwp-l.com/s233