DIM Archivo AS File
DIM a AS Integer = 0
DIM sLine AS String
DIM Contenido AS String = ""
    
OPEN User.Home & "/MiArchivo.txt" FOR CREATE AS #Archivo
     PRINT #Archivo, Crypt.MD5("gambas")
CLOSE #Archivo

'Abrir el archivo y leer su contenido

Archivo = OPEN User.Home & "/MiArchivo.txt" FOR INPUT

  WHILE NOT Eof(Archivo)
     LINE INPUT #Archivo, sLine
     IF sLine <> "" THEN
        Contenido = Crypt.DES(sLine)
     ENDIF    
  WEND
  IF Crypt.Check("Gambas2", Contenido) = TRUE
     Message("Si")
  ELSE
     Message("NO")
  ENDIF    
 

Hola compañero me gustaría saber porque dice que Si es correcta la contraseña si no lo es, he probado eliminado espacio al iniciar y al final y nada también .

Gracias por las luces que me puedan dar.

Hola.

El problema es que estas encriptando 2 veces la cadena, una vez con MD5 y luego con DES. Tienes que elegir una de las 2.
El código quedaría así:



Saludos

Ok gracias compañero, lo probare...

probé el ejemplo y si hace correcta la validación, pero lo que no entiendo porque en comparación de variables me sale que si es verdadero cuando no lo es.

Que es lo que tengo:

Tengo un campo en una tabla donde guardo la clave encriptada, esto lo hago con  Crypt.MD5("dddd")
Cuando carga el programa se va al registro donde esta la clave y la almaceno en una variable publica para tenerla disponible.

Luego cuando deseo compararla sólo digo ejemplo:

IF Crypt.Check(TextBox1.text, FMain.ClaveAcceso) = TRUE THEN

.....


y allí siempre lo digitado  es verdadera aunque sea solo un espacio en blanco, que sucede, es que sólo hace comparaciones correctas cuando se almacena en archivos que no creo que sea así.


Gracias por alguna ayuda recibida nuevamente.


1.