Select Code to Download

# !perl

use CGI qw(:standard);                # use the CGI libraries 
...
} else {
    print "Incorrect username or password, please try again.";
}

$salt = join '', ('.', '/', 0..9, 'A'..'Z', 'a'..'z') [rand 64, rand 6
+4];
                        # create random two-character salt

$passhash = crypt($password, $salt);        # hash the password with t
+he salt