WEB相談室

Webページ作成に関しての何でも掲示板です。

タイトル:Perlでのパスワード暗号化処理

0:[投稿] みか [2002/11/20 16:12 ][環境:WIN+IE WIN系+Perl]

Perlで掲示板の作成にチャレンジしています。
パスワードの暗号化処理について勉強する為
KENTさんのYY-BOARD(yybbs.cgi)を参考にさせて
頂いていますが、下のソース中の
$encrypt = crypt($inpw, $salt) || crypt ($inpw, '$1$' . $salt);
の中の「'$1$' . $salt」の意味が良く分かりません。
どなたか教えて頂けたらありがたいのですが・・・。
よろしくお願いします。

sub encrypt {
    local($inpw) = $_[0];
    local(@SALT, $salt, $encrypt);

    @SALT = ('a'..'z', 'A'..'Z', '0'..'9', '.', '/');
    srand;
    $salt = $SALT[int(rand(@SALT))] . $SALT[int(rand(@SALT))];
    $encrypt = crypt($inpw, $salt) || crypt ($inpw, '$1$' . $salt);
    return $encrypt;
}


1:[回答] やじうま1号 [2002/11/20 16:35 ]

http://www.rescue.ne.jp/cgi/md5/
(CGI RESCUE)に詳しいのでそちらを御覧いただきましょう。


2:[完了] みか [2002/11/20 16:50 ]

レスありがとうございました。
ざっと読んだだけで、あまり理解できていませんが
じっくり勉強します。

回答(必須): 状態:

お名前(必須):

e-mail:

URL:




[戻る]

ChaichanPAPA's World