Générateur de password

Télécharger le projet
Commenter

Description

sa fesait longtemps que j'avais envie d'en faire un mais j'avais pas le temps alors cette foi si je l'ai pris et sa ma demander 10 minutes ;-)

Source / Exemple : 


Private Sub cmdCreate_Click()
    Dim strCaract As String
    Dim chkOpt As CheckBox
    ' verifie la validité des paramètre
    If Not IsNumeric(txtLenght.Text) Then txtLenght.SetFocus: MsgBox "Longeur non valide": Exit Sub
    If txtLenght.Text < 1 Or txtLenght.Text > 32766 Then txtLenght.SetFocus: MsgBox "Longeur non valide": Exit Sub
    ' pour chaque controle du tableau de controle chkCaract
    For Each chkOpt In chkCaract
        ' regarde si il est choisit
        If chkOpt.Value = vbChecked Then
            'ajoute a la table des caractères
            strCaract = strCaract & chkOpt.Caption
        End If
    Next chkOpt
    If strCaract = "" Then chkCaract(0).SetFocus: MsgBox "Veuillez faire un choix": Exit Sub
    
    cmdCreate.Enabled = False
    txtPassword.Text = CreatePass(strCaract, txtLenght.Text)
    cmdCreate.Enabled = True
    cmdCreate.SetFocus
End Sub

Public Function CreatePass(strCaract As String, intLenght As Integer) As String
    Dim i As Integer
    Randomize
    
    For i = 1 To intLenght
        ' Renvoie une valeur aléatoire comprise entre 1 et Len(strCaract).
        CreatePass = CreatePass & Mid(strCaract, Int((Len(strCaract) * Rnd) + 1), 1)
    Next i
End Function

Conclusion :


bonne amusement ... ;-)
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (Icem@n)