1package Digest::MD2; 2 3use strict; 4use vars qw($VERSION @ISA @EXPORT_OK); 5 6$VERSION = '2.04'; 7 8require Exporter; 9*import = \&Exporter::import; 10@EXPORT_OK = qw(md2 md2_hex md2_base64); 11 12require DynaLoader; 13@ISA=qw(DynaLoader); 14Digest::MD2->bootstrap($VERSION); 15 16*reset = \&new; 17 181; 19__END__ 20 21=head1 NAME 22 23Digest::MD2 - Perl interface to the MD2 Algorithm 24 25=head1 SYNOPSIS 26 27 # Functional style 28 use Digest::MD2 qw(md2 md2_hex md2_base64); 29 30 $digest = md2($data); 31 $digest = md2_hex($data); 32 $digest = md2_base64($data); 33 34 # OO style 35 use Digest::MD2; 36 37 $ctx = Digest::MD2->new; 38 39 $ctx->add($data); 40 $ctx->addfile(*FILE); 41 42 $digest = $ctx->digest; 43 $digest = $ctx->hexdigest; 44 $digest = $ctx->b64digest; 45 46=head1 DESCRIPTION 47 48The C<Digest::MD2> module allows you to use the RSA Data Security 49Inc. MD2 Message Digest algorithm from within Perl programs. The 50algorithm takes as input a message of arbitrary length and produces as 51output a 128-bit "fingerprint" or "message digest" of the input. 52 53The C<Digest::MD2> programming interface is identical to the interface 54of C<Digest::MD5>. 55 56=head1 SEE ALSO 57 58L<Digest::MD5> 59 60=head1 COPYRIGHT 61 62This library is free software; you can redistribute it and/or 63modify it under the same terms as Perl itself. 64 65 Copyright 1998-2003 Gisle Aas. 66 Copyright 1990-1992 RSA Data Security, Inc. 67 68=head1 AUTHOR 69 70Gisle Aas <gisle@aas.no> 71 72=cut 73