Thx's.... works like a charm. :)
zentara wrote:
On Tue, 28 Dec 2004 08:14:37 -0600, [EMAIL PROTECTED] (Mike Blezien) wrote:
Hello,
Been trying to figure out how to encrypt a password w/Perl so it's uses the same scheme used in a webmin control panel for password protecting directories. It says it's the MD5 method, but I have tried serveral variations using the MD5 and Digest::MD5 but can't seem to find the correct format. This is a sample of a encyrpted password generated by the control panel: $1$03838433$k1ZFcLyZ13Q8tU.3WpK9o1
Is there a Perl method to encrypt plain text password in this same manner ??
#!/usr/bin/perl
print "Standard crypt output\n"; print crypt("password","sa"), "\n";
#glibc's implementation that takes care of this. Since perl on # Linux uses glibc, you get this automagically. When the salt looks like
# $1$...., it will encrypt the password using MD5. e.g.
print "MD5 crypt output\n"; print crypt("password","\$1\$thesalt\$"), "\n";
-- Mike(mickalo)Blezien =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Thunder Rain Internet Publishing Providing Internet Solutions that work! =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
