Digest::SHA1を使おうとしたが、レンタルサーバーだとエラーばっか起こるので、perl5.8に標準でついてくるらしい、MD5を使う。何か脆弱性があるらしいが、大丈夫だ(ｒｙ #!/usr/bin/perl use strict; use Digest::MD5 qw(md5 md5_hex md5_base64); print "Co…