Encryption with SHA-1...did i do correctly?

[spewn]

i'm trying to encrypt and email using SHA-1.

here's my code:

#!/usr/bin/perl
use CGI qw(:standard);
use Digest::SHA1 qw(sha1_hex);

$cgi = new CGI;

$x='test@mail.com';
$epassnew=sha1_hex($x);

print $cgi->header();

print $epassnew;

this definitely gives me a value, that appears encrypted. did i do this code right?

thanks!

- g

 

[travs69]

Isn't that going to just give you the sha1 hash? I don't think it's really encrypting it is it?

Look at the Crypt modules.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;