Select Code to Download

use strict;

...
        my $salt = chr(65+rand(27)).chr(65+rand(27));
        return crypt($p, $salt);
}

use strict;

...
        my $cpass = $1;
        return $cpass;
}