You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
71 lines
1.2 KiB
71 lines
1.2 KiB
package Digest::HMAC_MD5;
|
|
$VERSION="1.00";
|
|
|
|
use strict;
|
|
use Digest::MD5 qw(md5);
|
|
use Digest::HMAC qw(hmac);
|
|
|
|
# OO interface
|
|
use vars qw(@ISA);
|
|
@ISA=qw(Digest::HMAC);
|
|
sub new
|
|
{
|
|
my $class = shift;
|
|
$class->SUPER::new($_[0], "Digest::MD5", 64);
|
|
}
|
|
|
|
# Functional interface
|
|
require Exporter;
|
|
*import = \&Exporter::import;
|
|
use vars qw(@EXPORT_OK);
|
|
@EXPORT_OK=qw(hmac_md5 hmac_md5_hex);
|
|
|
|
sub hmac_md5
|
|
{
|
|
hmac($_[0], $_[1], \&md5, 64);
|
|
}
|
|
|
|
sub hmac_md5_hex
|
|
{
|
|
unpack("H*", &hmac_md5)
|
|
}
|
|
|
|
1;
|
|
|
|
__END__
|
|
|
|
=head1 NAME
|
|
|
|
Digest::HMAC_MD5 - Keyed-Hashing for Message Authentication
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
# Functional style
|
|
use Digest::HMAC_MD5 qw(hmac_md5 hmac_md5_hex);
|
|
$digest = hmac_md5($data, $key);
|
|
print hmac_md5_hex($data, $key);
|
|
|
|
# OO style
|
|
use Digest::HMAC_MD5;
|
|
$hmac = Digest::HMAC_MD5->new($key);
|
|
|
|
$hmac->add($data);
|
|
$hmac->addfile(*FILE);
|
|
|
|
$digest = $hmac->digest;
|
|
$digest = $hmac->hexdigest;
|
|
$digest = $hmac->b64digest;
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
This module provide HMAC-MD5 hashing.
|
|
|
|
=head1 SEE ALSO
|
|
|
|
L<Digest::HMAC>, L<Digest::MD5>, L<Digest::HMAC_SHA1>
|
|
|
|
=head1 AUTHOR
|
|
|
|
Gisle Aas <[email protected]>
|
|
|
|
=cut
|