Perl で MD5 ハッシュを生成[Perl]
(2010-07-27 13:48:30) by shinoda


ありゃ、MD5のハッシュって、Perl の crypt 関数じゃ作れないのね・・・

つーか、crypt で生成している文字列って、素の MD5 のメッセージダイジェストじゃないのね・・・完全に MD5 や crypt というものの意味を誤解していた(^^;

今作ってるシステムで、データの内容を MD5 でハッシュして送らないといけないのだが、crypt 関数で作ったハッシュデータを送ったら蹴られてもうた(^^;
crypt で作成するのは、あくまで「MD5 でハッシュした値を含んだ、パスワード処理用の特殊な文字列」ということで、素の MD5 のメッセージダイジェストじゃないってことですよね?>識者の人

つーことで、Perl で MD5 のハッシュを作成するには、system 命令で外部コマンドを叩くか(でも、Linux と FreeBSD でコマンド名が違うから現実的ではないか)、MD5 モジュールを使うか。
・・・で、ver5.8以降の Perl であれば、MD5 モジュールは標準でインストールされているので、素直に、

use Digest::MD5 qw/md5_hex/;
$str = "変換する文字列";
$md5 = md5_hex($str);

としちゃうのが王道というわけですな。


コメント投稿
次の記事へ >
< 前の記事へ
TOPへ戻る

Powered by
MT4i 3.0.8