#!/usr/bin/perl use CGI qw(:standard); use Digest::MD5 qw(md5_hex); use Digest::SHA1 qw(sha1_hex); use HTML::Escape qw(escape_html); print header(-charset=>'utf-8'); print start_html(-bgcolor=>'#F8F4E7', -title=>'雜湊教具'); print '
\n"; print hr, "\n"; } print '您可以在下面的欄位中輸入最多 64 拜的文字,以進行雜湊示範:', br, br, "\n"; print start_form(), "\n"; print "輸入字串:\n"; print submit(-value=>'雜湊'), "\n"; print " \n"; print end_form, "\n"; print << 'END';\n"; print "
- MD5
\n"; print "- ", md5_hex($tf), "
\n"; print "- SHA-1
\n"; print "- ", sha1_hex($tf), "
\n"; print "
製作人、 修改記錄 |
周恩冉 (2006/08/24) -- 08/12/20 (歐), 15/11/01 (單) END print end_html(); |