Contraseña para entrar

[Creative]

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 :'( :'(

[programatrix]

if text1 = "lacontraseña" then
call Msgbox("Contraseña introducida con exito",VB_OK)
else
Call Msgbox("Contraseña correcta",VB_OK)
end if

[Slasher-K]

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:

Código [Seleccionar] Expandir


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.