PERLでメッセージダイジェスト

#!/usr/bin/perl
# $Id: sha1-test.html,v 1.1 2009/06/22 16:12:26 kishi Exp kishi $

use Digest::SHA1;
use Digest::MD5;

my $str = "KISHI Yasuhiro";

print "SHA1--------------------------" . "\n";
my $sha1 = Digest::SHA1->new;
$sha1->add($str);

print $sha1->hexdigest, "\n";	
print $sha1->b64digest, "\n";	

print "\n";

print "MD5--------------------------" . "\n";
my $md5 = Digest::MD5->new;
$md5->add($str);

print $md5->hexdigest, "\n";
print $md5->b64digest, "\n";