unless ((length($in{'password'}) >= 4) and (length($in{'password'}) <= 12) and ($in{'PASSWORD'} =~ /^([a-zA-Z]{2,}[0-9]{2,})+$/))



Can somone see what is wrong with the above code. The regex is not working correctly. It should require a minimum of two letters and two numbers be in 'password'.

it's requiring the format to be \w\w+\d\d+. in other words, you can't have \w\d\w\d.

--Philip
Links 2.0 moderator

Thanks for your reply. I have tried a number of combinations.

Any suggestions???

Hi,

The regex is ok. Take a look at $in{PASSWORD}

it should be $in{password}?

Cheers,

Dat

Programming and creating plugins and templates
Blog

The regexp is valid, yes... but it doesn't do what he thought it would. Try the following code:

--Philip
Links 2.0 moderator

You also need a check for the rest of the characters. I assume the code is from DBMAn so if I enter my password as:

trash:1:2

....then I just screwed the database :)

OK, this is what I ended up with and that is working ..THANKS





$string = $in{'password'};
$length = length $string;
$num++ while ($string =~ /\d/g);
$let++ while ($string =~ /[a-zA-Z]/g);


unless ((length($in{'password'}) >= 4) && (length($in{'password'}) <= 12) && ($num >= 2 && $let >= 2) && ($in{'password'} =~/^[^:]+$/)) {
$message = "Invalid password: '$in{'password'}'. Must be 4 to 12 characters and contain at least two numbers and two letters.";
last CASE;

You'd probably be best removing the while loops and using something like:

Thanks....

I taped it over my other code and got an initial wrong result but then changed the > to >= to the qualifier vars. WORKS GREAT..Thanks

Whoops, yeah my mistake. You mean for $c1 and $c2 ?

I edited it about 20 times and still got it wrong...hehe

How about if I want the password to be:

1. mixed of only English letters and numbers (at least 1 letter and 1 number and no any other character)

2. The first character must be a letter.

3. length $password >= 6 && length $password >= 12

Any help is greatly appreciated.

I found the answer to my question:

$pass =~ /^(?=.*\d)[A-Za-z][A-Za-z0-9]{5,11}$/

That regex doesn't match your original specifications.

Hello Paul,

It does match my specifications:

Begin with a letter, at least 1 number, only letters and numbers, 6-12 characters.

Why do you think it doesn't?

>>
Why do you think it doesn't?
<<

For starters you have 5,11 not 6,12 :)

Hello Paul,

[A-Za-z] get 1 letter character, plus

[A-Za-z0-9]{5,11}

It's total {6,12}