hey i have two scripts that compare a password on a database. one creates the password when a member registers that other attempts to log them in. for security i have decided to use Digest MD5, so the password can't be read in plain txt. the problem is that the two password dont match. i was wondering if anyone had any ideas?
thanks
Pedge
use Digest::MD5 qw(md5 md5_hex md5_base64);
$digest = md5_base64($register_password);
use Digest::MD5 qw(md5 md5_hex md5_base64);
$statement = "select * from member where member_username='$member_username'";
@row_ary = $dbh->selectrow_array($statement);
$digest = md5_base64(@row_ary[4]);
if ($member_password eq $digest)
{
$msg = "<meta http-equiv='refresh' CONTENT='0 ;URL=home.pl'>";
}
else
{
$msg = "password doesnt match";
}
thanks
Pedge
Code:
#Code for Register.pl use Digest::MD5 qw(md5 md5_hex md5_base64);
$digest = md5_base64($register_password);
Code:
#Code for Login.pl use Digest::MD5 qw(md5 md5_hex md5_base64);
$statement = "select * from member where member_username='$member_username'";
@row_ary = $dbh->selectrow_array($statement);
$digest = md5_base64(@row_ary[4]);
if ($member_password eq $digest)
{
$msg = "<meta http-equiv='refresh' CONTENT='0 ;URL=home.pl'>";
}
else
{
$msg = "password doesnt match";
}