c un petit générateur de mot de passe vraiment très simple.
avec une petite fonction pour génerer qui tient en quelques lignes.
laissez vos commentaires...
source de la fonction ci-dessous
Source / Exemple :
Const strMaj As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Const strMin As String = "abcdefghijklmnopqrstuvwxyz"
Const strChiffre As String = "0123456789"
Dim strChaineN As String
Dim strLongueur As String 'longeur des chaines à generer
Private Function GenerePassword(strListe As ListBox, lngLongeur As Long) As String
'Générer un mot de passe
'Initialise le générateur de nombre aléatoire
Randomize
'boucle qui tourne jusqu'à ce que lngLongueur soit atteint
Do Until Len(GenerePassword) >= lngLongeur
'résultat
GenerePassword = GenerePassword & Mid$(strChaineN, Int((Len(strChaineN) * Rnd) + 1), 1)
Loop
'ajout des résultats dans la liste
strListe.AddItem GenerePassword
End Function
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.