I suspect there is somehow a bug in how you're getting the data from the web. Try printing out the hex encoding of the orginal string before you send it to the hash function to make sure you're putting in the exact same data each time.

Even if I hard code them:

# encrypts password using
# SHA-1 algorithm
my $sha1 = Digest::SHA1->new;

# reset algorithm
$sha1->hexdigest;

# encrypt
$passwd = 'password';
$salt = 1658087940;
my $secret = $sha1->sha1_hex($passwd . $salt);
[download]

The hash is still different each time.

Neil Watson
watson-wilson.ca

Sorry, there is something screwy with your system. Getting the exact same hash value for the exact same data is a design goal of any hash algorithm worth using.

This is what I get on your code:

$ cat test.pl
#!/usr/local/bin/perl
use Digest::SHA1;
# encrypts password using
# SHA-1 algorithm
my $sha1 = Digest::SHA1->new;

# reset algorithm
$sha1->hexdigest;

# encrypt
$passwd = 'password';
$salt = 1658087940;
my $secret = $sha1->sha1_hex($passwd . $salt);

print "Secret: ", $secret, "\n";

$ ./test.pl 
Secret: c757584a6cff45409cdf716903aa363e95354860

$ ./test.pl 
Secret: c757584a6cff45409cdf716903aa363e95354860
[download]

----
I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
-- Schemer

: () { :|:& };:

Note: All code is untested, unless otherwise stated