Si quieres guardar esa contraseña encriptada dentro del ejecutable y después contrastarla con la que el usuario escriba:
Utiliza la función XOR, que es bastante buena. Siempre teniendo en cuenta que si alguien se lo propone puede comprometer la seguridad del software.
Un ejemplo:
Dim contrasenya as String
Dim cadena as String
Sub Encriptar(contrasenya, cadena)
' cadena = es la cadena que nos ayudará a encriptar/desencriptar la contraseña
intL = Len(cadena)
For i = 1 To Len(contrasenya)
Char = Asc(Mid(cadena, (i Mod intL) - intL * ((i Mod intL) = 0), 1))
Mid(contrasenya, i, 1) = Chr(Asc(Mid(contrasenya, i, 1)) Xor Char)
Next
End Sub
Así,
Call Encriptar (contrasenya, cadena)
encriptará contrasenya o, si ya estaba encriptado, lo desencriptará.
La variable cadena es una cadena que tengas declarada, puedes poner lo que más te guste, pero deberías guardarla de manera que no se viese como cadena al abrir el .exe en editor de texto, por ejemplo. Esto se consigue, haciéndola una suma de funciones Chr(), y siendo así de "lento" no debería ser muy larga:
cadena = Chr(69) + Chr(115) + Chr(112) + Chr(97) + Chr(241) + Chr(97) + Chr(46) + Chr(85) + Chr(69)
Un saludo.
