最近コカコーラのポイントシールで、応募したらこんなのがあたりました。。。
でかすぎっっ！！
何が入っているかあけてみると。。。。。。
ざざんっ！！♪
ビーサンです！
メインのビーサンより、なにげに缶の方がうれしかったりしました（汗
前にもコカコーラのキャンペーンで、ロースター＋チキンがあたりました。
さすが天下のコカコーラ！ユーザーへのサービスも忘れない！！（ありがたいっ！）
コカコーラのポイントシールで○○○㍑缶に入ったビーサンあたった！
返信
日別アーカイブ: 2010年7月21日
perl md5でハッシュ化
http://tech.bayashi.jp/archives/entry/perl/2007/001974.html
上記サイトを参考にメモさせていただきました。
#!/usr/bin/perl
use strict;
# MD5モジュールをロード
use Digest::MD5;
# ぬちま～すｗを設定
my $salt = 'SecuritySalt';
# ぬちま～すｗと元データを連結
my $str = $salt . $ARGV[0];
# ハッシュを出力
print Digest::MD5->new->add("$str")->hexdigest . "\n";
exit;
あとは、ターミナルからでも実行してみると、変換後の値が確認できます。
/usr/bin/perl md5test.cgi password