Générateur de mot de passe

Télécharger le projet
Commenter

Description

Un simple générateur de mot de passe pouvant générer des mots de passe de 4 à 15 caractères avec la possibilité de mélanger majuscules et minuscules.

Source / Exemple : 


Dim PasswdGen As String 'Contient le mot de passe générer
Dim cur_char As String 'Caractère courant
Dim caracter As Variant 'Tableau des caractères

Private Sub cmdGen_Click()
    'On vérifie si l'utilisateur a décidé la longueur souhaiter pour le mot de passe
    If cboNbrchar.Text = "" Then 'Si l'utilisateur n'a pas choisi dans la liste on affiche un message
        MsgBox "Veuillez choisir le nombre de caractère que vous désirez.", vbExclamation, "Erreur!"
        Exit Sub 'On sort du sub
    End If
        
    txtPasswd.Text = "" 'On efface le txt d'affichage du pass
    
    'Définition de la table des caractères
    caracter = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", _
    "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", _
    "v", "w", "x", "y", "z")
    
    PasswdGen = "" 'On efface le pass en mémoire
    
    Dim i As Byte
    
    For i = 0 To cboNbrchar.ListIndex + 3 'On boucle selon le nombre de caractere voulu pour former le passwd
        Randomize 'Initialisation du moteur de hasard
        cur_char = caracter(Int(Rnd * 36))

        If chkMinmaj.Value = 1 Then 'Si l'utilisateur a décidé de mélanger les lettres MAJ et Min
            If (Int(Rnd * 2) + 1) = 2 Then
                cur_char = UCase(cur_char)
            End If
        End If
        PasswdGen = PasswdGen & cur_char 'On ajoute le caractère au mot de passe
    Next i
    txtPasswd.Text = PasswdGen 'On affiche le mot de passe
End Sub
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.