Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
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?
Eily just learned that you get a message when replying to yourself
[Eily]: "Hey I got an answer!" => "Oh, right, it's me..."
[stonecolddevin]: good morning all
[Eily]: good morning stonecolddevin :)
[jedikaiti]: Hey, it's a stonecolddevin

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (7)
As of 2017-11-22 18:37 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:













    Results (327 votes). Check out past polls.

    Notices?