Digest::HMAC

[rihad]

Hi there, I need to convert this PHP code to Perl. How?

hash_hmac('sha1','Data to be hashed', 'some_secret_key');

I've looked into Digest::HMAC, but there's no way to specify sha1.
There's also Digest::SHA1, but I don't know how to mix the two
together.

Please help.

 

[C.DeRykus]

Hi there, I need to convert this PHP code to Perl. How?

hash_hmac('sha1','Data to be hashed', 'some_secret_key');

I've looked into Digest::HMAC, but there's no way to specify sha1.
There's also Digest::SHA1, but I don't know how to mix the two
together.

See: Digest::HMAC_SHA1

http://search.cpan.org/~gaas/Digest-HMAC-1.01/lib/Digest/HMAC_SHA1.pm

 

[rihad]

See: Digest::HMAC_SHA1

http://search.cpan.org/~gaas/Digest-HMAC-1.01/lib/Digest/HMAC_SHA1.pm

Hm, thanks. It's so strange I couldn't find it in FreeBSD ports.

 

[rihad]

Hm, thanks. It's so strange I couldn't find it in FreeBSD ports.
Oh, I see. This is how I'd do it:

use Digest::SHA1 qw(sha1);
use Digest::HMAC qw(hmac);

hmac('some_data', 'some_key', \&sha1, 64);

So Digest::HMAC_SHA1 simply show how to interconnect the two, just
what I needed.