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
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.