|
Packit |
fa4fcc |
use strict;
|
|
Packit |
fa4fcc |
use Digest::SHA qw(hmac_sha1_hex);
|
|
Packit |
fa4fcc |
|
|
Packit |
fa4fcc |
my @data = map { "Sample #$_" } (1 .. 4);
|
|
Packit |
fa4fcc |
|
|
Packit |
fa4fcc |
my @out = (
|
|
Packit |
fa4fcc |
"4f4ca3d5d68ba7cc0a1208c9c61e9c5da0403c0a",
|
|
Packit |
fa4fcc |
"0922d3405faa3d194f82a45830737d5cc6c75d24",
|
|
Packit |
fa4fcc |
"bcf41eab8bb2d802f3d05caf7cb092ecf8d1a3aa",
|
|
Packit |
fa4fcc |
"9ea886efe268dbecce420c7524df32e0751a2a26"
|
|
Packit |
fa4fcc |
);
|
|
Packit |
fa4fcc |
|
|
Packit |
fa4fcc |
my @keys = ("", "", "", "");
|
|
Packit |
fa4fcc |
|
|
Packit |
fa4fcc |
for (0x00 .. 0x00+63) { $keys[0] .= chr($_) }
|
|
Packit |
fa4fcc |
for (0x30 .. 0x30+19) { $keys[1] .= chr($_) }
|
|
Packit |
fa4fcc |
for (0x50 .. 0x50+99) { $keys[2] .= chr($_) }
|
|
Packit |
fa4fcc |
for (0x70 .. 0x70+48) { $keys[3] .= chr($_) }
|
|
Packit |
fa4fcc |
|
|
Packit |
fa4fcc |
my $numtests = scalar @data;
|
|
Packit |
fa4fcc |
print "1..$numtests\n";
|
|
Packit |
fa4fcc |
|
|
Packit |
fa4fcc |
my $testnum = 1;
|
|
Packit |
fa4fcc |
while (@data) {
|
|
Packit |
fa4fcc |
print "not " unless hmac_sha1_hex(shift @data, shift @keys)
|
|
Packit |
fa4fcc |
eq shift @out;
|
|
Packit |
fa4fcc |
print "ok ", $testnum++, "\n";
|
|
Packit |
fa4fcc |
}
|