Hey folks, I have been using crypt for a while. No problems until recently.
Problem crypt does not return a hash that matches getpwnam(). I have been using crypt for a long time without any problems. Bellow is test script I have using for testing hashs. The output of the script bellow is as follows(Note passwd for user "test" is "hello"): linux:/tmp# ./perltest.pl Enter a string to encrypt with DES: hello Enter two random alphanumerics to be used as a salt:n$! "hello" encrypted using the perl crypt() function and salt "$!" returns: $!8VHq6xLWgQc $1$70w840Bc$Hkmqjlz8N7abM2SGlLm0T1 crypt returns= $!8VHq6xLWgQc hash value returned by getpwnam= $1$70w840Bc$Hkmqjlz8N7abM2SGlLm0T1 I have tested crypt() on debian, and redhat. Same problems. The has values do not match each other. Please help, any suggestions. thanks jerry ######################################################################### Perl script bellow ######################################################################### #!/usr/bin/perl print "Enter a string to encrypt with DES:n"; chomp(my $string = <STDIN>); #Take the input from the user and remove the n print "Enter two random alphanumerics to be used as a salt:n"; chomp(my $salt = <STDIN>); my $encrypted_string = crypt($string,$salt); #take the string and the salt and put through crypt() $pass = (getpwnam(test))[1]; print qq~ "$string" encrypted using the perl crypt() function and salt "$salt" returns: $encrypted_string $pass ~; ############################################################################ End of script ############################################################################ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
