1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| Public Function Genere_Password() As Variant
Dim t As Variant
Dim i As Integer
Dim index As Integer
Dim Pwd As String
'Initialiser le générateur de nombres aléatoires
'=> Randomize : à ajouter avant d'utiliser Rnd pour obtenir des valeurs complètement aléatoires
Randomize
'# Calcul avec prise en charge des minuscule seulement
t = ("abcdefghijklmnopqrstuvwxz")
Pwd = "" '# Initialise la chaine
For i = 1 To 12 '# 12 caractères
index = Int(Len(t) * Rnd) + 1 '# Randomize sur le nombre de caractères defini par la condition "For" sur la déclaration "t" + 1
Pwd = Pwd & Mid(t, index, 1) '# Mid(string,start[,length]) " Mid(character, starting at position
Next i
Genere_Password = Pwd
Pwd = "" '# Initialise la chaine
End Function |
Partager