TESTER LE NIVEAU DE SÉCURITÉ D'UN MOT DE PASSE
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
5 sept. 2008 à 14:40
caty16 Messages postés 1 Date d'inscription vendredi 1 août 2008 Statut Membre Dernière intervention 12 septembre 2008 - 12 sept. 2008 à 14:39
caty16 Messages postés 1 Date d'inscription vendredi 1 août 2008 Statut Membre Dernière intervention 12 septembre 2008 - 12 sept. 2008 à 14:39
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/47877-tester-le-niveau-de-securite-d-un-mot-de-passe
https://codes-sources.commentcamarche.net/source/47877-tester-le-niveau-de-securite-d-un-mot-de-passe
12 sept. 2008 à 14:39
9 sept. 2008 à 14:41
Titpeanut, pourrais-tu me donner le lien de ta source car la recherche ne fonctionne pas bien à mon avis !!!!
Merci
9 sept. 2008 à 14:22
8 sept. 2008 à 22:09
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
8 sept. 2008 à 07:19
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 !
5 sept. 2008 à 14:40
For int_i = 1 To Len(txt_mot_de_passe.Text)
If Mid(txt_mot_de_passe.Text, int_i, 1) > 0 Then