home *** CD-ROM | disk | FTP | other *** search
/ PC World 2003 March / PCWorld_2003-03_cd.bin / Software / Topware / activeperl / ActivePerl / Perl / site / lib / MD5.pm < prev    next >
Encoding:
Perl POD Document  |  2001-07-16  |  1.2 KB  |  55 lines
  1. package MD5;  # legacy stuff
  2.  
  3. use strict;
  4. use vars qw($VERSION @ISA);
  5.  
  6. $VERSION = '2.02';  # $Date: 2001/03/14 04:44:31 $
  7.  
  8. require Digest::MD5;
  9. @ISA=qw(Digest::MD5);
  10.  
  11. sub hash    { shift->new->add(@_)->digest;    }
  12. sub hexhash { shift->new->add(@_)->hexdigest; }
  13.  
  14. 1;
  15. __END__
  16.  
  17. =head1 NAME
  18.  
  19. MD5 - 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.  
  39. The C<MD5> module is B<depreciated>.  Use C<Digest::MD5> instead.
  40.  
  41. The current C<MD5> module is just a wrapper around the C<Digest::MD5>
  42. module.  It is provided so that legacy code that rely on the old
  43. interface still work and get the speed benefit of the new module.
  44.  
  45. In addition to the methods provided for C<Digest::MD5> objects, this
  46. module provide the class methods MD5->hash() and MD5->hexhash() that
  47. basically do the same as the md5() and md5_hex() functions provided by
  48. C<Digest::MD5>.
  49.  
  50. =head1 SEE ALSO
  51.  
  52. L<Digest::MD5>
  53.  
  54. =cut
  55.