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


Télécharger le projet
Commenter

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.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (J_il)