4 use Digest::SHA qw(hmac_sha1_hex);
22 plan tests => scalar(@vec);
25 my @keys = ("", "", "", "");
28 $keys[0] .= chr($i++) while (length($keys[0]) < 64);
31 $keys[1] .= chr($i++) while (length($keys[1]) < 20);
34 $keys[2] .= chr($i++) while (length($keys[2]) < 100);
37 $keys[3] .= chr($i++) while (length($keys[3]) < 49);
40 "4f4ca3d5d68ba7cc0a1208c9c61e9c5da0403c0a",
41 "0922d3405faa3d194f82a45830737d5cc6c75d24",
42 "bcf41eab8bb2d802f3d05caf7cb092ecf8d1a3aa",
43 "9ea886efe268dbecce420c7524df32e0751a2a26"
46 for ($i = 0; $i < @vec; $i++) {
48 hmac_sha1_hex($vec[$i], $keys[$i]),