我需要对电子邮件地址进行SHA256哈希处理,我需要将结果作为字符串。
我尝试了以下内容:
use Digest::SHA qw(sha256);
my $data = 'swaranga@gmail.com';
my $digest = sha256($data);
print $digest;
但它打印的内容如下:
B/D6i1μû^Þ©Q;¢Þ
我需要输出如下:
cbc41284e23c8c7ed98f589b6d6ebfd6
以上哈希是使用Apache DigestUtils的SHA256生成器生成的。
我做错了什么?我是perl的新手,所以如果它是愚蠢的借口。
感谢。
答案 0 :(得分:18)
cbc41284e23c8c7ed98f589b6d6ebfd6
, swaranga@gmail.com
MD5 ,而不是 SHA-256
swaranga@gmail.com
>> 的SHA 加密
SHA-1: 3a3be7013e297e28d24979aadc4ae75d84ce0844
SHA-256: 0947300f280d422f4418366931cebcfbd17f5ede1507a951153b0f15a21c10de
SHA-384: 34c01f3956aac32aacae1a6cf67f8a66d441af06c9d36f580ce4be5b234b5399cd879231c49db5bec269309582c19432
SHA-512: db1aa053dd9ee191b091abbcb8bead2ec69a1ab2664bb1deeeedbdb49b25e7bc7680a7659ae88c046afdabf1e35ed0e068763f8754b369bfade69cf21f65d166
SHA-1 (Base64): OjvnAT4pfijSSXmq3ErnXYTOCEQ=
SHA-256 (Base64): CUcwDygNQi9EGDZpMc68+9F/Xt4VB6lRFTsPFaIcEN4=
SHA-384 (Base64): NMAfOVaqwyqsrhps9n+KZtRBrwbJ029YDOS+WyNLU5nNh5IxxJ21vsJpMJWCwZQy
SHA-512 (Base64): 2xqgU92e4ZGwkau8uL6tLsaaGrJmS7He7u29tJsl57x2gKdlmuiMBGr9q/HjXtDgaHY/h1Szab+t5pzyH2XRZg==
如果您确定要使用 SHA-256 ,并且您正在寻找 HEX 输出,请尝试以下方法:
<强> 脚本: 强>
#!/usr/bin/perl
use Digest::SHA qw(sha256);
print unpack("H*", sha256('swaranga@gmail.com')), "\n";
或
#!/usr/bin/perl
use Digest::SHA qw(sha256_hex);
print sha256_hex('swaranga@gmail.com'), "\n";
<强> 输出: 强>
0947300f280d422f4418366931cebcfbd17f5ede1507a951153b0f15a21c10de
如果您想要 MD5 并输出 HEX ,请尝试以下方法:
<强> 脚本: 强>
#!/usr/bin/perl
use Digest::MD5 qw(md5);
print unpack("H*", md5('swaranga@gmail.com')), "\n";
或
#!/usr/bin/perl
use Digest::MD5 qw(md5_hex);
print md5_hex('swaranga@gmail.com'), "\n";
<强> 输出: 强>
cbc41284e23c8c7ed98f589b6d6ebfd6
答案 1 :(得分:6)
您可能需要Digest::SHA qw(sha256_hex)
来自CPAN的Digest::SHA页面
将参数逻辑地连接成一个字符串,然后返回它 SHA-1/224/256 / 384/512摘要编码为十六进制字符串。