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

sin imagen de perfil

Encriptar/Desencriptargráfica de visualizaciones


FoxPro/Visual FoxPro

Publicado el 26 de Junio del 2002 por Gabriel Araya (2 códigos)
54.660 visualizaciones desde el 26 de Junio del 2002
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(14)

Publicado el 26 de Junio del 2002gráfica de visualizaciones de la versión: Versión 1
54.661 visualizaciones desde el 26 de Junio del 2002
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 (14)

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
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
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
Coder-A-4
5 de Enero del 2017
estrellaestrellaestrellaestrellaestrella
Dime una palabra que contenga el valor 254 entre sus caracteres o un dígito numérico que su valor asci sea 254/5 o quizas 1 o 2...
La idea es buena, es cuestion de tomarla como punto de partida y recrear a nuestro estilo lo que querramos.
Que ganas tienes de tirar abajo las ideas de los demas.
Responder
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
2 de Julio del 2004
estrellaestrellaestrellaestrellaestrella
Esta muy bien yo ya lo modifique para implementarlo en mi aplicación muchas gracias.
Responder
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
28 de Marzo del 2006
estrellaestrellaestrellaestrellaestrella
MUCHAS GRACIAS, ESTABA TRATANDO DE ENCRIPTAR UNA CLAVE Y TU RUTINA FUE UNA BENDICION PARA MI. SALUDES
Responder
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
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
Oscar
22 de Septiembre del 2021
estrellaestrellaestrellaestrellaestrella
No ha dejado ningún comentario
Responder
Abrl
22 de Septiembre del 2021
estrellaestrellaestrellaestrellaestrella
[code]wƒ{š /code]
Responder

Comentar la versión: Versión 1

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

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s233