«

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.

On Nov 5, 7:26*am, rihad <ri...@mail.ru> wrote:
> 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-...t/HMAC_SHA1.pm

--
Charles DeRykus

C.DeRykus wrote:
> See: Digest::HMAC_SHA1
>
> http://search.cpan.org/~gaas/Digest-...t/HMAC_SHA1.pm
>
Hm, thanks. It's so strange I couldn't find it in FreeBSD ports.

> 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.