But if you're checking that crypt($password) matches the crypt($password) you've saved previously, and you use a different salt, it won't match, surely?

I don't know a lot about it either, but this seems to be correct.

use strict ;

my @n = qw( xx xy yx yy ) ;
my @m = @n ;

foreach my $outer ( @n )
{
    foreach my $inner ( @m )
    {
        print crypt( 'perlmonk', $inner ) eq crypt( 'perlmonk', $outer
+ ) ?
          '1' : '0' ;
    }
    print "\n" ;
}
[download]

gives you this:

1000
0100
0010
0001
[download]

_______________
D a m n D i r t y A p e
Home Node | Email