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ñeros 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.

No recuerdo muy bien el por qué de todo el código que te adjunto, que lo hice hace dos años y no he tenido que volver a tocarle.
Es el que usamos en la empresa y funciona perfectamente. La única diferencia es que almacenamos las contraseñas en una base de datos, pero no creo que te sea problema adaptarla al fichero de texto que tú usas.

Para comparar si la clave es buena o no