Générateur de mots de passe

rem ============================================================================
rem                    Générateur de mots de passe
rem ============================================================================
dim minuscules$   : ' Les caractères minuscules autorisés
dim majuscules$   : ' Les caractères majuscules autorisés
dim chiffres$     : ' Les chiffres autorisés
dim speciaux$     : ' Les caractères spéciaux autorisés
dim mini,maxi     : ' nombre de caractères du mot de passe entre mini et maxi
' ------------------------------------------------------------------------------
caption 0,"Générateur de mots de passe"
Generer()
terminate
end
rem ============================================================================
SUB Init()
    minuscules$ = "abcdefghijklmnopqrstuvwxyz"
    majuscules$ = upper$(minuscules$)
    chiffres$   = "0123456789"
    speciaux$   = "²&é(-è_çà)~#{[|\^@]}=^$ù*,;:!<>?£%µ./§"
    mini = 8 : maxi = 64 : ' vous pouvez modifier ces valeurs
END_SUB
rem ============================================================================
' Fonction qui permet de générer un mot de passe de nbChar caractères
FNC GenererMp$(nbChar)
    Dim_local i      : ' compteur de boucle
    Dim_local pMin   : ' la probabilité d'avoir une minuscule
    Dim_local pMaj   : ' la probabilité d'avoir une majuscule
    Dim_local pNum   : ' la probabilité d'avoir un chiffre
    Dim_local pSpe   : ' la probabilité d'avoir un caractère spécial
    Dim_local total  : ' le nombre total de caractéres
    dim_local r      : ' un nombre aléatoire
    Dim_local res$   : ' le resultat de la fonction
    ' --------------------------------------------------------------------------
    res$  = ""
    total = Len(minuscules$) + Len(majuscules$) + Len(chiffres$) + Len(speciaux$)
    pMaj  = Len(majuscules$) / total
    pMin  = Len(minuscules$) / total
    pNum  = Len(chiffres$)   / total
    pSpe  = Len(speciaux$)   / total
    
    For i = 1 To nbChar
        r = rnd(1)
        If r < pMin
           res$ = res$ + SelectRandomChar$(minuscules$)
        Else
           If r < pMin + pMaj
              res$ = res$ + SelectRandomChar$(majuscules$)
           Else
              If r < pMin + pMaj + pNum
                 res$ = res$ + SelectRandomChar$(chiffres$)
              Else
                 res$ = res$ + SelectRandomChar$(speciaux$)
              End_If
           end_if
        end_if
    Next i
    result res$
END_FNC
rem ============================================================================
' Fonction qui permet de retourner un caractère au hasard parmi les entrées
FNC SelectRandomChar$(caracteres$)
    dim_local alea  : ' nombre aléatoire compris entre 0 et la taille de caractères
    alea = int(rnd(Len(caracteres$))+1)
    result Mid$(caracteres$, alea, 1)
END_FNC
rem ============================================================================
' Procédure qui permet de lancer le programme
SUB Generer()
    Dim_local nbChar : ' Nombre de caractères voulus par l'utilisateur
    Dim_local fin    : ' Choix final du l'utilisateur
    dim_local passe$
    
    init()
    repeat
       nbChar = message_input$("Quelle est la taille du mot de passe souhaitée ?", "Entrez une valeur entre " + str$(mini) + " et " + str$(maxi)  , str$(mini))
       if nbChar < mini or nbChar > maxi
          message "Entrer une taille comprise entre " + str$(mini) + " et " + str$(maxi) + ", SVP !"
       end_if
    until nBchar >= mini and nbChar <= maxi
    passe$ = GenererMP$(nbChar)
    fin = message_information_ok("Un mot de passe de " + str$(nbChar) + " caractères a été généré : Résultat : " + passe$)
    ' print " Le mot de passe est : " + passe$
END_SUB
rem ============================================================================