全部博文(1144)
分类: LINUX
2010-07-05 01:48:14
#!/usr/bin/perl
use Digest::MD5 qw(md5 md5_hex md5_base64);
$data=$ARGV[0];
chomp $data;
$digest = md5($data);
print "$data $digest\n";
$digest = md5_hex($data);
print "$data $digest\n";
$digest = md5_base64($data);
print "$data $digest\n";