This little Perl-Script checks if we use a password longer than 9 characters, 2 lower-case digits, 2 upper-case digits, 2 numbers and 2 special chars.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
use strict; print checkPW("password").$/; print checkPW("passwordt").$/; print checkPW("PaSswordt").$/; print checkPW("2PaSsword5").$/; print checkPW("2PaSs/word5@").$/; sub checkPW { return("length must longer than 9!") unless(length $_[0] >= 9); return("no upper-case!") unless($_[0] =~ /^.*[A-Z].*[A-Z].*$/o); return("no lower-case!") unless($_[0] =~ /^.*[a-z].*[a-z].*$/o); return("no numbers!") unless($_[0] =~ /^.*[0-9].*[0-9].*$/o); return("no special chars!") unless($_[0] =~ /.*[^A-Za-z0-9n].*[^A-Za-z0-9n].*/o); return("OK"); } |
And our result looks like:
|
1 2 3 4 5 |
length must longer than 9! no upper-case! no numbers! no special chars! OK |
Now we could check our passwords.
Terrific post however , I was wondering if you could write a
litte more on this subject? I’d be very thankful if you could elaborate a little bit further.
Thanks!
This is my first time visit at here and i am genuinely pleassant to read everthing at single place.