TESTER LE NIVEAU DE SÉCURITÉ D'UN MOT DE PASSE

Commentaire de Renfield le 05/09/2008 14:40:47 administrateur CS

pas compris l'utilité de ta boucle

For int_i = 1 To Len(txt_mot_de_passe.Text)
    If Mid(txt_mot_de_passe.Text, int_i, 1) > 0 Then

Commentaire de JHGROSSARD le 08/09/2008 22:09:22

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

Commentaire de J_il le 09/09/2008 14:41:43

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