Ola, es una pregunta muy tonta, pero llevo ya mucho tiempo sin utilizar el Visual Basic y apenas me acuerdo de nada.
Estoy trabajando con un pekeño programa al cual me gustaria ponerle una contraseña, tengo un boton de comando y un texto para escribir "la contraseña"
me podriais facilitar el codigo ese. Por mas que lo busco, no lo encuentro :'( :'(
if text1 = "lacontraseña" then
call Msgbox("Contraseña introducida con exito",VB_OK)
else
Call Msgbox("Contraseña correcta",VB_OK)
end if
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.