salut,
'mot de passe ag52vg9n5h
'Voila c'est un bout de code très simple
'Pour quoi couper ' psw1, psw2, psw3 c'est pour que olly ou autre logiciel de cracking ne voient pas le mot passe en entier
Dim psw, psw1, psw2, psw3, pswNb
Private Sub Command1_Click()
MsgBox Text1 & " " & psw
If Text1 = psw Then
pswNb = 0
form2.Show ' le password ok en ouvre la fenetre secrete
Else
MsgBox "Erreur"
pswNb = pswNb + 1
If pswNb > 3 Then MsgBox "buy": End 'Si 3 fois erreur on ferme le prog
End If
End Sub
Private Sub Form_Load()
pswNb = 0
psw1 = "ag52vg"
psw2 = "9"
psw3 = "n5h"
psw = psw1 + psw2 + psw3
End Sub