Générateur de password

Soyez le premier à donner votre avis sur cette source.

Vue 9 813 fois - Téléchargée 736 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
Messages postés
1
Date d'inscription
vendredi 10 juillet 2009
Statut
Membre
Dernière intervention
13 novembre 2009

<< lu est ce ke on pe recuper des compte dofus avec ce logiciel ? >>
Lu, est-ce que je peux te rire au nez ?

Sinon, c'est pratique pour une personne ayant la facheuse tendance d'avoir des msp simples et court.. Et qui arrive tout de même à les oublier. Genre ma soeur.
Messages postés
3
Date d'inscription
lundi 10 février 2003
Statut
Membre
Dernière intervention
4 mai 2003

cool ton truc
ce ki ma falait pour une application reseau qui change de passwords chq jour
chapeau
7/10
Messages postés
161
Date d'inscription
mardi 19 juin 2001
Statut
Membre
Dernière intervention
10 avril 2007

JDL: dépose mon grand alors :>
Messages postés
1
Date d'inscription
vendredi 1 mars 2002
Statut
Membre
Dernière intervention
1 mars 2002

C bien ca pour faire des passes pour comptes mails ;-)
Messages postés
1
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
6 février 2002

Salut !
C pas mal ton truc.
Pour ceux qui savent pas à koi ca sert ("on peut en trouver tt seul"), faut savoir que pour cracker un pwd, les attaques par dico ou nom ou surnoms etc... st courants et marchent très bien.
D'où l'utilité de faire un te prog.

Bon ton générateur il est bien mais très basique, en effet c pas facile de mémoriser
un password du genre "qguijelmnvi".
Moi j'en ai fait 1, avec une option "Priviliégier la lisibilité", et qui permet de créer
des mots de passe du genre "enkylonat" facile à retenir et tt aussi difficile à cracker que les illisibles. Tt le monde aura compris, il s'agit d'ajouter une alternance voyelleconsonne, sauf que il faut aussi qu'il y est des "ou","en","oi","ai","an", etc...
Le mien a aussi une option pour mettre des chiffres ou des lettres en plus des lettres nomales, pour un max de sécurité !
Mais bon c vrai g l'ai pas fait en 10mn le mien :-)
Mais bon c pas si dur que ca

Allez @+

JDL
Afficher les 10 commentaires

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.