if ($F{'pass'} =~ /^\$1\$/) { $salt = 3; } else { $salt = 0; }
if (crypt($F{'pass2'}, substr($F{'pass'},$salt,2)) eq $F{'pass'}) {
$message = "パスワードは「$F{'pass2'}」であってます";
}
if (!$message) { $message = "パスワードがちがうよ"; }
とか、
if (crypt($_, substr($F{'pass'},$salt,2)) eq $F{'pass'}) {
$message = "パスワードは「$_」です";
}
とかの感じ。
MD5だと頭が$1$とかになるよねぇ。。
|