4 use Digest::SHA qw(hmac_sha1_hex);
18 "what do ya want for nothing?",
21 "Test With Truncation",
22 "Test Using Larger Than Block-Size Key - Hash Key First",
23 "Test Using Larger Than Block-Size Key and Larger Than One Block-Size Data"
25 plan tests => scalar(@vec);
39 "b617318655057264e28bc0b6fb378c8ef146be00",
40 "effcdf6ae5eb2fa2d27416d5f184df9c259a7c79",
41 "125d7342b9ac11cd91a39af48aa17b4f63f175d3",
42 "4c9007f4026250c6bc8414f9bf50c86c2d7235da",
43 "4c1a03424b55e07fe7f27be1d58bb9324a9a5a04",
44 "aa4ae5e15272d00e95705637ce8a3b55ed402112",
45 "e8e99d0f45237d786d6bbaa7965c7808bbff1a91"
49 $keys[3] .= chr($i++) while (length($keys[3]) < 25);
51 for ($i = 0; $i < @vec; $i++) {
53 hmac_sha1_hex($vec[$i], $keys[$i]),