1package MD5; # legacy stuff 2 3use strict; 4use vars qw($VERSION @ISA); 5 6$VERSION = '2.03'; # $Date: 2003/11/27 08:42:40 $ 7 8require Digest::MD5; 9@ISA=qw(Digest::MD5); 10 11sub hash { shift->new->add(@_)->digest; } 12sub hexhash { shift->new->add(@_)->hexdigest; } 13 141; 15__END__ 16 17=head1 NAME 18 19MD5 - Perl interface to the MD5 Message-Digest Algorithm 20 21=head1 SYNOPSIS 22 23 use MD5; 24 25 $context = new MD5; 26 $context->reset(); 27 28 $context->add(LIST); 29 $context->addfile(HANDLE); 30 31 $digest = $context->digest(); 32 $string = $context->hexdigest(); 33 34 $digest = MD5->hash(SCALAR); 35 $string = MD5->hexhash(SCALAR); 36 37=head1 DESCRIPTION 38 39The C<MD5> module is B<depreciated>. Use C<Digest::MD5> instead. 40 41The current C<MD5> module is just a wrapper around the C<Digest::MD5> 42module. It is provided so that legacy code that rely on the old 43interface still work and get the speed benefit of the new module. 44 45In addition to the methods provided for C<Digest::MD5> objects, this 46module provide the class methods MD5->hash() and MD5->hexhash() that 47do the same as the md5() and md5_hex() functions provided by 48C<Digest::MD5>. 49 50=head1 SEE ALSO 51 52L<Digest::MD5> 53 54=cut 55