S
shawn modersohn
The user name is admin and the pass is John1 generated by htpasswd
#!/usr/bin/perl
use strict;
use Apache::Htpasswd;
my $foo = Apache::Htpasswd->new({
passwdFile =>'/tmp/passfile',
ReadOnly => 1,
UseMD5 => 1,
});
print $foo->htCheckPassword("admin", "none");
This outputs 0 as expected.
When I say
print $foo->htCheckPassword("admin", "John1");
This outputs 1 as expected
However, when I say
print $foo->htCheckPassword("admin", "John");
I still get 1.
I don't understand.
#!/usr/bin/perl
use strict;
use Apache::Htpasswd;
my $foo = Apache::Htpasswd->new({
passwdFile =>'/tmp/passfile',
ReadOnly => 1,
UseMD5 => 1,
});
print $foo->htCheckPassword("admin", "none");
This outputs 0 as expected.
When I say
print $foo->htCheckPassword("admin", "John1");
This outputs 1 as expected
However, when I say
print $foo->htCheckPassword("admin", "John");
I still get 1.
I don't understand.