Digest::HMAC_SHA1 - ��<����祉�若�梧��荐若�勉�������勰�灸�������������激�潟�
# ��∽�医就綣
use Digest::HMAC_SHA1 qw(hmac_sha1 hmac_sha1_hex);
$digest = hmac_sha1($data, $key);
print hmac_sha1_hex($data, $key);
# OO綵√�
use Digest::HMAC_SHA1;
$hmac = Digest::HMAC_SHA1->new($key);
$hmac->add($data);
$hmac->addfile(*FILE);
$digest = $hmac->digest;
$digest = $hmac->hexdigest;
$digest = $hmac->b64digest;
�����勉�≪�吾�ャ�若�˨��HMAC-SHA-1 ��������激�潟�違�����箴������障�����
Digest::HMAC, Digest::SHA1, Digest::HMAC_MD5
Gisle Aas <gisle@aas.no>