Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re: MD5 encrypted password

by broquaint (Abbot)
on Jul 02, 2004 at 07:20 UTC ( #371326=note: print w/replies, xml ) Need Help??


in reply to MD5 encrypted password

The Digest::MD5 module is not an encryption module but is for creating 'fingerprints' of data. For two-way encryption something like Crypt::RC4 will do the trick e.g
use Crypt::RC4; my $enc_pw = RC4(seekrit => 'johnr'); my $dec_pw = RC4(seekrit => $enc_pw); print 'enc_pw = ', unpack( 'H*' => $enc_pw ), "\n"; print 'dec_pw = ', $dec_pw, "\n"; __output__ enc_pw = 344eedff3d dec_pw = johnr
HTH

_________
broquaint

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://371326]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (5)
As of 2016-12-10 16:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:













    Results (164 votes). Check out past polls.