PageRenderTime 42ms CodeModel.GetById 17ms RepoModel.GetById 1ms app.codeStats 0ms

/IronPython_Main/Runtime/Tests/LinqDlrTests/testenv/perl/site/lib/md5.pm

#
Perl | 54 lines | 34 code | 20 blank | 0 comment | 1 complexity | 0ac6bc1d877b4b9cc14faa81434834ea MD5 | raw file
Possible License(s): GPL-2.0, MPL-2.0-no-copyleft-exception, CPL-1.0, CC-BY-SA-3.0, BSD-3-Clause, ISC, AGPL-3.0, LGPL-2.1, Apache-2.0
  1. package MD5; # legacy stuff
  2. use strict;
  3. use vars qw($VERSION @ISA);
  4. $VERSION = '2.01'; # $Date: 1999/08/05 23:17:54 $
  5. require Digest::MD5;
  6. @ISA=qw(Digest::MD5);
  7. sub hash { shift->new->add(@_)->digest; }
  8. sub hexhash { shift->new->add(@_)->hexdigest; }
  9. 1;
  10. __END__
  11. =head1 NAME
  12. MD5 - Perl interface to the MD5 Message-Digest Algorithm
  13. =head1 SYNOPSIS
  14. use MD5;
  15. $context = new MD5;
  16. $context->reset();
  17. $context->add(LIST);
  18. $context->addfile(HANDLE);
  19. $digest = $context->digest();
  20. $string = $context->hexdigest();
  21. $digest = MD5->hash(SCALAR);
  22. $string = MD5->hexhash(SCALAR);
  23. =head1 DESCRIPTION
  24. The C<MD5> module is B<depreciated>. Use C<Digest::MD5> instead.
  25. The current C<MD5> module is just a wrapper around the C<Digest::MD5>
  26. module. It is provided so that legacy code that rely on the old
  27. interface still work and get the speed benefit of the new module.
  28. In addition to the methods provided for C<Digest::MD5> objects, this
  29. module provide the class methods MD5->hash() and MD5->hexhash() that
  30. basically do the same as the md5() and md5_hex() functions provided by
  31. C<Digest::MD5>.
  32. =head1 SEE ALSO
  33. L<Digest::MD5>
  34. =cut