DB内にMD5でハッシュ化されたパスワードとの照合
MySQLのDBにMD5でハッシュ化されたパスワードが格納されているのですが、これをPerlのスクリプトで照合したいと思っています。
具体的には、DBに格納されているパスワードを用いて、Perlで作成された会員専用ページなどにログインをするといった感じです。
DBIを用いてDBからの情報を取得することはできたのですが、Perl側での対処がわかりません。
Perl側で入力されたパスワードをハッシュ化して、双方を照合するなどの情報を見たのですが、いまいち解らず認証することができませんでした。
以下にパスワードに関する部分のソースを記載させていただきます。
srand();
@salt = ( "A".."Z", "a".."z", "0".."9", ".", "/" );
$salt = '$1$' . join('', map($salt[int(rand(64))], 1..8)) . '$';
$pass = crypt($in{'pass'}, $salt);
crypt($in{'pass'},$ary) eq "$ary")
※$aryはDB内に格納されているパスワードです
Perlに関して殆ど解っていないもので、とんちんかんな記述かもしれませんが、ご教授いただけますと幸いです。
宜しくお願いいたします。
お礼
結局は同じものとして考えてよいわけですね。 なるほど。 ありがとうございました。