Digest::MD5
时间:2010-07-05 来源:snowtty
#!/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";
相关阅读 更多 +
排行榜 更多 +