In order to decrypt the Blowfish encrypted data you will need the original encryption key. If you have this then the method to encrypt and decrypt, as taken from the module docs, is:
use Crypt::Blowfish; my $cipher = new Crypt::Blowfish $key; my $ciphertext = $cipher->encrypt($plaintext); my $plaintext = $cipher->decrypt($ciphertext); Hope this helps. Kind regards, Trevor J. Joerges -------------------------------------------- $_=q;rrUSFWPSZK.ZKPFSHFT,rkvtuZbopuifsZQZibdl rrqpxfsfeZcyZQ,,riuuq://xxx.%.dpn,ru~@%.dpn ,rrr8-) ;;s;\~;kpfshft;g;s;\%;tfoenjnf;g;y;B-x;A-w;; s;P;perl;g;s;,;\n;g;s;Y; ;g;s;q;\t;g;print; -------------------------------------------- ----- Original Message ----- From: "jehaande" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Friday, September 27, 2002 5:55 AM Subject: [Perl-unix-users] Blowfish encrypted passwords | Hiyas | | I've been meaning to write a perl script that lets me administer a user list, | where the passwords are stored using the blowfish algorithm. Now, using | regex's I'm able to retrieve all the relevant information, meaning the | usernames, the passwords (encrypted of course) etc. Now, how do I check that | a variable, which then consists of a plaintext string being the password, | matches the one stored in the user list itself? | | The user list itself is generated from the IRC bot Eggdrop. Everything that | is stopping me from making this script (cgi based), is how to check if the | pass specified via plaintext is the same as in the user list. Does anyone | here know of method to do this? I tried looking into Crypt::Blowfish, but | that got me nowhere. | | Any suggestions are more than welcome. | | Yours sincerely Jostein Elvaker Haande | CCNA Graduate -- MOUS Core Certificate Holder | | _______________________________________________ | Perl-Unix-Users mailing list | [EMAIL PROTECTED] | To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs | _______________________________________________ Perl-Unix-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
