http://tech.bayashi.jp/archives/entry/perl/2007/001974.html
上記サイトを参考にメモさせていただきました。
#!/usr/bin/perl use strict; # MD5モジュールをロード use Digest::MD5; # ぬちま~すwを設定 my $salt = 'SecuritySalt'; # ぬちま~すwと元データを連結 my $str = $salt . $ARGV[0]; # ハッシュを出力 print Digest::MD5->new->add("$str")->hexdigest . "\n"; exit;
あとは、ターミナルからでも実行してみると、変換後の値が確認できます。
/usr/bin/perl md5test.cgi password