読者です 読者をやめる 読者になる 読者になる

INFINITY -数学とかプログラミングとか-

統計とプログラムを使って役に立たせたい

TeX用コマンド入力を支援するための辞書をご利用ください。
sanctuary's blogは,適当なことが書いてあります。

Digest::MD5を使う

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

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

#!/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