Générateur de mot de passe

[goldenboy]

Bonjour à tous,

J'ai créé une routine pour générer des mots passe, mais j'ai l'impression que cette routine ressort régulièrement les même mots de passe.

Sur 13817 générations, je ressors 2225 mots de passe différents (uniques). (tri sur doublons)

Qu'en pensez-vous ? Est-ce normal? Puis-je avoir plus de probabilité de générer des mots de passe différents ?

Les mots de passe générés sont volontairement composés de 6 lettres minuscules et 2 chiffres.

Dim TabCarNum, TabCarMin, mdp, Lettre As String
Dim NbAleat, NbAleat2, i, NbChoix, Passage_En_Chiffre, Passage_En_Lettre As Integer

TabCarNum = "1234567890"
TabCarMin = "abcdefghijklmnopqrstuvwxyz"

mdp = ""
Passage_En_Chiffre = 0
Passage_En_Lettre = 0


Do While Len(mdp) < 8
    Randomize
    NbChoix = Int(2 * Rnd) + 1
     If NbChoix = 1 Then 'lettre
      If Passage_En_Lettre < 6 Then
       Passage_En_Lettre = Passage_En_Lettre + 1
       Randomize
       NbAleat = Int(26 * Rnd) + 1
       Lettre = Mid(TabCarMin, NbAleat, 1)
       mdp = mdp & Lettre
      Else
       Passage_En_Chiffre = Passage_En_Chiffre + 1
       Randomize
       NbAleat = Int(9 * Rnd) + 1
       mdp = mdp & NbAleat
      End If
     ElseIf NbChoix = 2 Then 'chiffre
       If Passage_En_Chiffre < 2 Then
        Passage_En_Chiffre = Passage_En_Chiffre + 1
        Randomize
        NbAleat = Int(9 * Rnd) + 1
        mdp = mdp & NbAleat
       Else
        Passage_En_Lettre = Passage_En_Lettre + 1
        Randomize
        NbAleat = Int(26 * Rnd) + 1
        Lettre = Mid(TabCarMin, NbAleat, 1)
        mdp = mdp & Lettre
       End If
     End If
Loop

debug.print mdp

Par avance, je vous remercie.

 

[Modeste geedee]

Re : Générateur de mot de passe

Bonsour®

Décidément, vous ne lâchez rien, vous !
Ca tombe bien : j'aime beaucoup qu'on ne lâche rien.

😀 😀
simplement n'abusons pas des maux ... heu... des mots 🙄
quand on dit Timer est une fonction, il s'agit d'une fonction au sens procédure informatique... et non d'une fonction au sens des mathématiques.

et même avec cette restriction , c'est une fonction sans argument qui se contente de renvoyer l'état d'un compteur .
Ce compteur est incrémenté à une fréquence qui m'est inconnue, je ne sais pas non plus la valeur de l'incrément (IRQ system ?),
ce compteur est remis à zéro à minuit,

Selon la documentation MSDN, la valeur retournée est une valeur exprimée en secondes,
valeur décimale représentative du temps écoulé depuis minuit.(précision ms, ns ??)

et toujours en tant que mouche du côche, 😉
la capacité de ce compteur va de 0 (?) à 86399,99(????) en ordre croissant et non

dans tout intervalle [86400*n ; 86400*(n+1)[ avec n entier.

Mes connaissances scientifiques ne m'autorise pas à affirmer si le temps est une fonction continue, croissante, cyclique ou ondulatoire.
(Os bien rongé par Mr Eddington)Flèche du temps

🙄 je ne connaissais pas ce Mr Fields
ni de Mr Meadows nj Gardens...
ça existe une médaille Lawn ???
😀 😱

😎