reydelmundo11 eso se puede ver con el bloc de notas cuando se compile el programa.
Lo mejor es crear una función que genere un hash a partir de la contraseña, y luego cuando se ingresa la contraseña es generar el hash correspondiente al pass ingresado y compararlo con el guardado.
Te dejo un código de ejemplo:
Function GetChecksum(Data As String) As Currency
On Error Resume Next
Dim iChar%, iPrevChar%
Dim lLen&, i&
Dim cChecksum@
lLen = Len(Data)
If lLen > 46000 Then Exit Function
For i = 1 To lLen
iChar = Asc(Mid$(Data, i, 1))
cChecksum = (cChecksum + ((iChar Xor (i * lLen)) * ((iPrevChar * i) Xor ((lLen Mod i) ^ 2))))
iPrevChar = iChar + (i Xor lLen)
Next
GetChecksum = cChecksum
End Function
Entonces primero haces que establezca la contraseña, le pasas la cadena a la función GetChecksum y guardas el número que te generó en un archivo, luego cuando la quieras verificar llamas a la función GetChecksum pasandole la contrasña que ingresó el usuario, y si el número que generó es igual al que está guardado en el archivo significa que es la misma contraseña.
Saludos.
Autor
En línea
