$cryptedpassword = unix_md5_crypt($password, $salt); $apachepassword = apache_md5_crypt($password, $salt);
"THE BEER-WARE LICENSE" (Revision 42): <firstname.lastname@example.org> wrote this file. As long as you retain this notice you can do whatever you want with this stuff. If we meet some day, and you think this stuff is worth it, you can buy me a beer in return. Poul-Henning Kamp
"apache_md5_crypt()" provides a function compatible with Apache's ".htpasswd" files. This was contributed by Bryan Hart <email@example.com>. As suggested by William A. Rowe, Jr. <firstname.lastname@example.org>, it is exported by default.
For both functions, if a salt value is not supplied, a random salt will be generated. Contributed by John Peacock <email@example.com>.
19980710 firstname.lastname@example.org: Initial release 19990402 email@example.com: Added apache_md5_crypt to create a valid hash for use in .htpasswd files 20001006 firstname.lastname@example.org: Requested apache_md5_crypt to be exported by default. 20010706 email@example.com: Use Digest::MD5 instead of the (obsolete) MD5.
$Log: PasswdMD5.pm,v $ Revision 1.3 2004/02/17 11:21:38 lem Modified the POD so that ABSTRACT can work Added usage example for apache_md5_crypt()
Revision 1.2 2004/02/17 11:04:35 lem Added patch for random salts from John Peacock (Thanks John!) De-MS-DOS-ified the file Replaced some '' with q// to make Emacs color highlighting happy Added CVS docs Completed the missing sections of the POD documentation Changed my email address to the Perl-related one for consistency The file is now encoded in ISO-8859-1
This code and all accompanying software can be used freely under the same terms as Perl itself.