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...
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.
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
- Tester son mot de passe
- Tester sécurité d'un mot de passe ✓ - Forum - Javascript / DHTML
- Teste sécurité d'un mot de passe ✓ - Forum - PHP
- Javascript : Contrôler l'indice de sécurité d'un mot de passe - CodeS SourceS - Guide
- Je voudrais tester l existence d'une email et mot de passe ✓ - Forum - ASP / ASP3
- Indice de sécurité d'un mot de passe ✓ - Forum - PHP
Commentaires
Titpeanut, pourrais-tu me donner le lien de ta source car la recherche ne fonctionne pas bien à mon avis !!!!
Merci
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
28J'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 !
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.