Digest::MD5を使う

Digest::SHA1を使おうとしたが、レンタルサーバーだとエラーばっか起こるので、perl5.8に標準でついてくるらしい、MD5を使う。

何か脆弱性があるらしいが、大丈夫だ(ｒｙ

#!/usr/bin/perl


use strict;
use Digest::MD5 qw(md5 md5_hex md5_base64);

print "Content-Type: text/html\n\n";


my $test='2345678';

print md5_hex($test);

• • • • • • • • • • • • • • • • • • • • • • • • • • -

これとは関係ないけど、やってる途中に文字コードの関係でエラーがおきまくったので、「UTF-8」を「SHIFT-JIS」にしたらできた。

よくわからん。

.bashrcを変えたから？

テスト
c:\xampp\htdocs\class\cgi>perl md5001
b3275960d68fda9d831facc0426c3bbc