Test du nouveau mot de passe avec metacaractère

Bonjour,


J'ai fais un script en Perl GTK pour que mes utilisateurs puissent changer le mot de passe de leur session sur le LDAP. Pour cela il y a une phase de test, dont les restrictions sont les suivantes : 9 caractères dont un chiffre et une masjucule.

J'aimerai mettre une condition supplémentaire avec un méta caractère (plus secure :ccool: )

J'ai donc écrit la condition comme ceci (Extrait):

Code:

---

1 2 3 4 5 6

my $entry_text2 = $entry2->get_text() ; my $entry_text3 = $entry3->get_text() ; my $entry_length = length($entry_text2); if (("$entry_text2" eq "$entry_text3") && ( "$entry_text2" =~ "[A-Z]{1}" ) && ( "$entry_text2" =~ "[0-9]{1}" ) && ("$entry_length" > 8 )){ my $passwd = Expect->spawn("passwd $user") or die "Cannot spawn passwd $user: $!\n"; }

---

Comment écrire la chaîne entre crochet après un grep pour identifier les caractères dans la variables $entry_text2.

D'avance merci.

Qu'est ce que tu entends exactement par méta caractère? un caractère qui ne soit ni une lettre ni un chiffre?

Moi, j'écrirai plutôt ça:

Code:

---

1 2 3

if (($entry_text2 eq $entry_text3) && ($entry_text2 =~ /^(?=[^A-Z]*[A-Z])(?=[^0-9]*[0-9])(?=[^\W_]*[\W_]).{9,}$/)) { my $passwd = Expect->spawn("passwd $user") or die "Cannot spawn passwd $user: $!\n"; }

---

explication:

Code:

---

1 2 3 4

(?= # lookahead: teste si la position actuelle (le début de la chaîne ^ dans le cas présent) est suivie par: [^A-Z]* # tout sauf les lettre majuscules zéro ou plusieurs fois [A-Z] # et une lettre majuscule )

---

les deux autres lookaheads fonctionnent exactement sur le même principe. Ensuite .{9,} s'assure qu'il y a au moins neuf caractères dans la chaîne. J'utilise les ancres de début et de fin de chaîne (^ et $) pour être sûr que la pattern décrit bien toute la chaîne. À noter que s'il n'y a pas de limite de taille du mot de passe, l'ancre de fin de chaîne n'est pas nécessaire, (celle de début de chaîne reste toujours utile à des fins d'optimisation).

Citation:

---

Envoyé par CosmoKnacki

Qu'est ce que tu entends exactement par méta caractère? un caractère qui ne soit ni une lettre ni un chiffre?

---

J'entend un # ou un point d'exclamation ou d’interrogation etc ...

Merci

Je n'ai pas compris ce que tu cherches à faire exactement et de quoi tu parles quand tu parles de chaîne entre crochets, mais je te signale à toutes fins utiles que:

Code:

---

... =~ /[A-Z]{1}/

---

ne reconnaîtra que des capitales (lettres majuscules). C'est peut-être ce que tu recherches, mais autant le signaler au cas où...

Dans ce cas, tu peux remplacer la dernière assertion (?=[^\W_]*[\W_]) avec les "métacaractères" que tu souhaites, exemple:

(?=[^?!#@]*[?!#@])

Ok je viens de faire des petits essais

Citation:

---

Envoyé par CosmoKnacki

Moi, j'écrirai plutôt ça:

Code:

---

1 2 3

if (($entry_text2 eq $entry_text3) && ($entry_text2 =~ /^(?=[^A-Z]*[A-Z])(?=[^0-9]*[0-9])(?=[^\W_]*[\W_]).{9,}$/)) { my $passwd = Expect->spawn("passwd $user") or die "Cannot spawn passwd $user: $!\n"; }

---

---

J'ai donc réécrit un autre petit script de manière simplifiée car toutes les ligne liées au GTK polluaient la lecture et donc apparemment sur la première version, il faut déjà mettre un meta caractère sinon je suis en FALSE dans la condition:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

#!/usr/bin/perl -w use strict;   print "Entrez nouveau mot de passe : "; my $password1 = <STDIN>; chomp($password1);   print "Confirmer le mot de passe : "; my $password2 = <STDIN>; chomp($password2);   my $entry_length = length($password2);   if (($password1 eq $password2) && ($password2 =~ /^(?=[^A-Z]*[A-Z])(?=[^0-9]*[0-9])(?=[^\W_]*[\W_]).{8,}$/)) { print "\n\n OK ! Mot de passe Conforme : $password2 \n\n\n" ; } else { print "\n\n KO ! Mot de passe non conforme verifiez \nPremier mot de passe entré : $password1\nDeuxieme mot passe entré: $password2 \n \n \n "; }

---

Je continue à faire des essais
Encore merci