使用perl可以进行base64、md5、SHA-1、SHA-256的计算,使用也非常方便,下面是示例代码:
#! /usr/bin/perl
use v5.14;
use MIME::Base64;
use Digest;
my $test_str = 'hello world';
# 测试base64
say encode_base64($test_str);
# 测试md5
my $md5 = Digest->new('MD5');
$md5->add($test_str);
say $md5->hexdigest;
#测试SHA-1
my $sha1 = Digest->new('SHA-1');
$sha1->add($test_str);
say $sha1->hexdigest;
#测试SHA-256
my $sha256 = Digest->new('SHA-256');
$sha256->add($test_str);
say $sha256->hexdigest;
下图是输出结果:
这个输出值也可以用命令行工具进行对比验证。以ubuntu环境为例,
脚本中使用的"hello world"的base64值可以用如下命令获得:
echo -n "hello world" | base64
md5可以用如下命令:
echo -n "hello world" | md5sum
SHA-1可以用:
echo -n "hello world" | sha1sum
SHA-256 可以用:
echo -n "hello world" | sha256sum
可以看到,这些值和使用perl脚本获取的值是一致的。