Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
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


Comment on Re: MD5 encrypted password
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://371326]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (10)
As of 2014-12-29 13:53 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (188 votes), past polls