我正在尝试编写一些 Perl 来与其他语言的哈希函数进行交互操作,此时也就是 Java。我们找到了可能是正确的来源,RFC 4868,其中包括一些测试键和字符串以及它们的散列值。我正在使用以下代码段,但无法让 Perl 得出相同的结果。我只能假设我使用不正确 - 谁能指出我正确的方向?
use Digest::SHA qw(hmac_sha512_hex);
my $key = '0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b';
my $value = '4869205468657265';
print hmac_sha512_hex($value, $key);
输出是 '4ef7 ... 5d40',虽然 RFC 4868(和我同胞的 Java 实现)返回 '87aa ... 6854'