Générateur de password

Soyez le premier à donner votre avis sur cette source.

Vue 9 675 fois - Téléchargée 697 fois

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 ... ;-)

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

c con sa!
se serait mieux de demander le nom, annee de naissance, ville (ex.:Toto,1987,Londre)

pi le mot de passe pourait etre:

87tolond

pi apart sa... a koi sa sert un generateur de mot de passe... on est capable d<en choisir un!!

tk, bonne prog!
je trouve sa au contaire tres bien car sa pe etre utile pour tes prog a toi pour des securite dans un futur sharware par ex
Comme tous les autres générateurs de pass, il est bien mais putain tu fais des fautes d ortho ... Pas sure que tu le fasses expres ..
Et oui désolé mais mon orthographe n’est pas terrible ;-(
Et pour ceux qui ne voit pas l’utilité d’un tel programme c’est que vous n’avez jamais du géré un parc de 50 PC avec une sécurité plus ou moins intelligente !!!
ouin, sa c vrai!
tk... bonne prog

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.