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

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

Cliquez pour agrandir...

<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>

Cliquez pour agrandir...

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