https://foro.gambas-es.org/viewtopic.php?f=5&t=741&p=4095#p4095
-----------------------------------
aristicol
Martes, 29 Junio 2010, 05:17

Verificar Encriptación
-----------------------------------
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.


