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 ;-)
bonne amusement ... ;-)
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 ... ;-)
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.
ce ki ma falait pour une application reseau qui change de passwords chq jour
chapeau
7/10
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
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.