Soyez le premier à donner votre avis sur cette source.
Vue 9 813 fois - Téléchargée 736 fois
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
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.