Tester le niveau de sécurité d'un mot de passe

Soyez le premier à donner votre avis sur cette source.

Vue 12 028 fois - Téléchargée 939 fois


Description

Bonjour à toutes et tous,

Présentation :

Dans une partie de mon TFE, lorsqu'un utilisateur crée son compte, je voulais que celui-ci soit informé sur le niveau de sécurité de son mot de passe.

Recherches :

Après avoir effectués quelques recherches sur le forum, je n'ai rien trouvé de concluant, sauf quelques idées de certains membres que je remercie beaucoup. grâce à eux, je suis arrivé à ce ceci...

Source / Exemple :


Option Explicit

Private Sub Form_Activate()

'Placement du Setfocus dans la TextBox
txt_mot_de_passe.SetFocus

'Affiche l'image du niveau de sécurité
img_niveau_securite_vide.Visible = True

End Sub

Private Sub txt_mot_de_passe_Change()

'Déclarations de variables
Dim str_mot_passe As String 'Variable qui va reccueillir le mot de passe
Dim int_niveau As Integer      'Variable qui va reccueillir le niveau de sécurité
  
'Affectation de la boîte de texte à la variable
str_mot_passe = txt_mot_de_passe.Text

'Initialisation de la variable
int_niveau = 0

'Test s'il y a des chiffres dans le mot de passe
If str_mot_passe Like "*#*" Then int_niveau = int_niveau + 1

'Test s'il y a des majuscules dans le mot de passe
If str_mot_passe Like "*[A-Z]*" Then int_niveau = int_niveau + 1

'Test s'il y a des minuscules dans le mot de passe
If str_mot_passe Like "*[a-z]*" Then int_niveau = int_niveau + 1

'Test pour savoir si la boîte de texte est vide si oui on affiche l'image du niveau
'de sécurité vide
If txt_mot_de_passe.Text = "" Then

            'MsgBox "Attention la sécurité de votre mot de passe est élevé !"
            img_niveau_securite_vide.Visible = True
            img_niveau_securite_faible.Visible = False
            img_niveau_securite_moyen.Visible = False
            img_niveau_securite_fort.Visible = False

End If

If Mid(str_mot_passe, 1) > 0 Then
      
        If int_niveau = 1 Then
        
            'MsgBox "Attention la sécurité de votre mot de passe est faible !"
            img_niveau_securite_faible.Visible = True
            img_niveau_securite_vide.Visible = False
            img_niveau_securite_moyen.Visible = False
            img_niveau_securite_fort.Visible = False
            
        ElseIf int_niveau = 2 Then
        
            'MsgBox "Attention la sécurité de votre mot de passe est moyen !"
            img_niveau_securite_moyen.Visible = True
            img_niveau_securite_vide.Visible = False
            img_niveau_securite_faible.Visible = False
            img_niveau_securite_fort.Visible = False
            
        ElseIf int_niveau = 3 Then
        
            'MsgBox "Attention la sécurité de votre mot de passe est élevé !"
            img_niveau_securite_fort.Visible = True
            img_niveau_securite_vide.Visible = False
            img_niveau_securite_faible.Visible = False
            img_niveau_securite_moyen.Visible = False
        
        End If
    
End If

End Sub

Conclusion :


Je pense qu'il est possible d'améliorer ce petit projet. D'ailleurs dans cette version, les accentuations ne sont pas prise en compte.

Si vous avez des idées d'améliorations soit du code ou d'autres idées, je suis ouvert à toute proposition.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
1
Date d'inscription
vendredi 1 août 2008
Statut
Membre
Dernière intervention
12 septembre 2008

slt a tt moi j besoin le code des msn pour entré dans n'importe boite émail si vs avez se code vs pouvez me le passé svp
Messages postés
109
Date d'inscription
mardi 27 mars 2007
Statut
Membre
Dernière intervention
9 septembre 2008

Bonjour et merci à tous pour vos commentaire...

Titpeanut, pourrais-tu me donner le lien de ta source car la recherche ne fonctionne pas bien à mon avis !!!!

Merci
Messages postés
7
Date d'inscription
samedi 25 février 2006
Statut
Membre
Dernière intervention
25 septembre 2015

salut, j'ai repris ton code. regarde ce que j'ai fait, peut-être ça va te donner des idées nouvelles. tape "tester niveau securite mote de passe 2" dans la recherche. j'espère que ça peut t'aider.
Messages postés
1
Date d'inscription
samedi 2 août 2008
Statut
Membre
Dernière intervention
8 septembre 2008

Quelques suggestions de modifications orthographiques pour faire de ce code un produit très pro.

1. Option Explicit
2.
3.
4. Private Sub Form_Activate()
5.
6.
7. 'Placement du Setfocus dans la TextBox
8.
9. txt_mot_de_passe.SetFocus
10.
11.
12. 'Affiche l'image du niveau de sécurité
13.
14. img_niveau_securite_vide.Visible = True
15.
16.
17. End Sub
18.
19.
20.
21. Private Sub txt_mot_de_passe_Change()
22.
23.
24. 'Déclarations de variables
25.
26. Dim str_mot_passe As String 'Variable qui va recueillir le mot de passe
27.
28. Dim int_niveau As Integer 'Variable qui va recueillir le niveau de sécurité
29.
30.
31.
32. 'Affectation de la boîte de texte à la variable
33.
34. str_mot_passe = txt_mot_de_passe.Text
35.
36.
37. 'Initialisation de la variable
38.
39. int_niveau = 0
40.
41.
42. 'Test s'il y a des chiffres dans le mot de passe
43.
44. If str_mot_passe Like "*#*" Then int_niveau = int_niveau + 1
45.
46.
47. 'Test s'il y a des majuscules dans le mot de passe
48.
49. If str_mot_passe Like "*[A-Z]*" Then int_niveau = int_niveau + 1
50.
51.
52. 'Test s'il y a des minuscules dans le mot de passe
53.
54. If str_mot_passe Like "*[a-z]*" Then int_niveau = int_niveau + 1
55.
56.
57. 'Test pour savoir si la boîte de texte est vide si oui on affiche l'image du niveau
58.
59. 'de sécurité vide
60.
61. If txt_mot_de_passe.Text = "" Then
62.
63.
64. 'MsgBox "Attention la sécurité de votre mot de passe est élevée !"
65.
66. img_niveau_securite_vide.Visible = True
67.
68. img_niveau_securite_faible.Visible = False
69.
70. img_niveau_securite_moyen.Visible = False
71.
72. img_niveau_securite_fort.Visible = False
73.
74.
75. End If
76.
77.
78.
79. If Mid(str_mot_passe, 1) > 0 Then
80.
81.
82.
83. If int_niveau = 1 Then
84.
85.
86.
87. 'MsgBox "Attention la sécurité de votre mot de passe est faible !"
88.
89. img_niveau_securite_faible.Visible = True
90.
91. img_niveau_securite_vide.Visible = False
92.
93. img_niveau_securite_moyen.Visible = False
94.
95. img_niveau_securite_fort.Visible = False
96.
97.
98.
99. ElseIf int_niveau = 2 Then
100.
101.
102.
103. 'MsgBox "Attention la sécurité de votre mot de passe est moyenne "
104.
105. img_niveau_securite_moyen.Visible = True
106.
107. img_niveau_securite_vide.Visible = False
108.
109. img_niveau_securite_faible.Visible = False
110.
111. img_niveau_securite_fort.Visible = False
112.
113.
114.
115. ElseIf int_niveau = 3 Then
116.
117.
118.
119. 'MsgBox "Attention la sécurité de votre mot de passe est élevée !"
120.
121. img_niveau_securite_fort.Visible = True
122.
123. img_niveau_securite_vide.Visible = False
124.
125. img_niveau_securite_faible.Visible = False
126.
127. img_niveau_securite_moyen.Visible = False
128.
129.
130.
131. End If
132.
133.
134.
135. End If
136.
137.
138. End Sub
Messages postés
2814
Date d'inscription
mardi 15 avril 2003
Statut
Membre
Dernière intervention
2 juin 2020
28
Salut,

J'avais fait un code de ce type en vb6, mais j'avais inclus les caractères plus spéciaux comme les '@' ou les '#^%' etc...

Par contre une chose...
'MsgBox "Attention la sécurité de votre mot de passe est élevé !" ==> ?

ca fait peur non ? ^^

bonne continuation !
Afficher les 6 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.