[Télécharger] Testez votre mot de Passe avec Excel

[Lone-wolf]

Bonjour à tous,

Tout est dans le titre!

Ici l'original : password-strength-checker

J'ai apporté une petite modification dans le code du Formulaire, afin d'éviter de voir les étiquettes vides en couleur, comme vous le voyez sur les images.

Bon Del!

 

[JNP]

Re : [Télécharger] Testez votre mot de Passe avec Excel

Salut Loup Solitaire 🙂,
Testé mais pas convaincu 😉...

12345678

considéré comme Fort 😕

&dF12

tout s'allume en vert 😱
Je pense qu'il y a de l'amélioration à apporter 😛
Bon WE 😎

 

[Lone-wolf]

Re : [Télécharger] Testez votre mot de Passe avec Excel

Bonjour JNP,

oui, bien sûr. Mais comme je ne suis pas calé en VBA, faudrait voir avec l'auteur du code.

Good Week! 😉

 

[Lone-wolf]

Re : [Télécharger] Testez votre mot de Passe avec Excel

Rs JNP,

est-ce que tu a pris le fichier attaché? Dans celui-ci j'ai (corrigé) ce problème.

A+

 

[Staple1600]

Re : [Télécharger] Testez votre mot de Passe avec Excel

Bonsoir à tous

Personnellement , j'utilise ceci

Challenge ?

Y'aurait-il sur le forum suffisamment d'insensés pour faire la même chose en VBA ?

... Quoique ... pour ceux qui savent traduire du javascript en VBA (finger in the nose), cela ne devrait pas être long 😉

 

[13GIBE59]

Re : [Télécharger] Testez votre mot de Passe avec Excel

Bonjour à tous.

Pour Staple :

Y'aurait-il sur le forum suffisamment d'insensés pour faire la même chose en VBA ?

Voir ici, un truc de fou !

 

[JNP]

Re : [Télécharger] Testez votre mot de Passe avec Excel

Re 🙂,
@ Jean-Marie : Yes 😉, là je retrouve mes petits 😛...

12345678 : 4% - Very Weak
&dF12 : 50 % - Good
jV&dF12#8 : 100% - Very Strong

@ Jean-Bernard : Ça y ressemble aussi, mais je n'ai pas voulu m'inscrire pour tester 🙄...
Bon dimanche 😎

 

[Staple1600]

Re : [Télécharger] Testez votre mot de Passe avec Excel

Bonjour à tous

J'ai voulus adapté ceci (par goût de regexp 😉 )
(source du script)

<script language="javascript">
function passwordChanged() {
var strength = document.getElementById('strength');
var strongRegex = new RegExp("^(?=.{8,})(?=.*[A-Z])(?=.*[a-z])(?=.*[0-9])(?=.*\\W).*$", "g");
var mediumRegex = new RegExp("^(?=.{7,})(((?=.*[A-Z])(?=.*[a-z]))|((?=.*[A-Z])(?=.*[0-9]))|((?=.*[a-z])(?=.*[0-9]))).*$", "g");
var enoughRegex = new RegExp("(?=.{6,}).*", "g");
var pwd = document.getElementById("password");
if (pwd.value.length==0) {
strength.innerHTML = 'Saisir votre mot de passe<';
} else if (false == enoughRegex.test(pwd.value)) {
strength.innerHTML = 'Pas assez de caracteres';
} else if (strongRegex.test(pwd.value)) {
strength.innerHTML = '<span style="color:green">Fort!</span>';
} else if (mediumRegex.test(pwd.value)) {
strength.innerHTML = '<span style="color: orange">Moyen!</span>';
} else {
strength.innerHTML = '<span style="color:red">Faible!</span>';
}
}
</script>

J'ai donc commis ceci

Function pwc(p$)
Dim M_essage$
With CreateObject("VBScript.RegExp")
    If Len(p) = 0 Then
        .Pattern = "(?=.{6,}).*"", ""g"")"
        ElseIf .test(p) = False Then
        M_essage = "Pas assez de caractères"
        .Pattern = "^(?=.{8,})(?=.*[A-Z])(?=.*[a-z])(?=.*[0-9])(?=.*\\W).*$"", ""g"")"
        ElseIf .test(p) Then
        M_essage = "Fort"
        .Pattern = "^(?=.{7,})(((?=.*[A-Z])(?=.*[a-z]))|((?=.*[A-Z])(?=.*[0-9]))|((?=.*[a-z])(?=.*[0-9]))).*$"", ""g"")"
        ElseIf .test(p) Then
        M_essage = "Moyen"
        Else
        M_essage = "Faible"
    End If
pwc = M_essage
End With
End Function

Sub verif_pwd()
MsgBox pwc("1&zeW/*+ù")
MsgBox pwc("1")
End Sub

Mais je ne vois pas où est mon erreur

Quelqu'un pour me mettre sur la piste, svp ?

 

[JNP]

Re : [Télécharger] Testez votre mot de Passe avec Excel

Salut Jean-Marie 🙂,
Une chose est sûre

")"

est en trop à la fin de chaque Pattern.
Pour le reste, j'ai pas encore trouvé 😱.
Bon courage 😎