#

# Copyright (c) 2007-2009 Nokia Corporation and/or its subsidiary(-ies).

# All rights reserved.

# This component and the accompanying materials are made available

# under the terms of the License "Eclipse Public License v1.0"

# which accompanies this distribution, and is available

# at the URL "http://www.eclipse.org/legal/epl-v10.html".

#

# Initial Contributors:

# Nokia Corporation - initial contribution.

#

# Contributors:

#

# Description: 

#

package Digest::HMAC_MD2;

$VERSION="1.01";

use strict;

use Digest::MD2  qw(md2);

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::MD2", 16);

}

# Functional interface

require Exporter;

*import = \&Exporter::import;

use vars qw(@EXPORT_OK);

@EXPORT_OK=qw(hmac_md2 hmac_md2_hex);

sub hmac_md2

{

    hmac($_[0], $_[1], \&md2, 16);

}

sub hmac_md2_hex

{

    unpack("H*", &hmac_md2)

}

1;

__END__

=head1 NAME

Digest::HMAC_MD2 - Keyed-Hashing for Message Authentication

=head1 SYNOPSIS

 # Functional style

 use Digest::HMAC_MD2 qw(hmac_md2 hmac_md2_hex);

 $digest = hmac_md2($data, $key);

 print hmac_md2_hex($data, $key);

 # OO style

 use Digest::HMAC_MD2;

 $hmac = Digest::HMAC_MD2->new($key);

 $hmac->add($data);

 $hmac->addfile(*FILE);

 $digest = $hmac->digest;

 $digest = $hmac->hexdigest;

 $digest = $hmac->b64digest;

=head1 DESCRIPTION

This module provide HMAC-MD2 hashing.

=head1 SEE ALSO

L<Digest::HMAC>, L<Digest::MD2>, L<Digest::HMAC_SHA1>

=head1 AUTHOR

Jon Thackray, from Gisle Aas <gisle@aas.no>'s MD5 code

=cut