#!/usr/bin/perl
# crypt.cgi  by David Efflandt  tech-ph@de-srv.com
# last updated 2/3/00
# Crypts a password for use with web authentication

# Modified to also work with older CGI.pm versions
# that do not support tables (like v2.36)

use CGI;
$q = new CGI;
srand( time() ^ ($$ + ($$ << 15)));

print $q->header,$q->start_html('Crypt a Password'),"\n";
if ($q->param()) {
    $word = $q->param('word');
    @range = ('0'..'9','a'..'z','A'..'Z','.','/');
    $salt = $range[rand(int($#range)+1)] . $range[rand(int($#range)+1)];
    $pass = crypt($word, $salt);

    print "<h1>Result of crypt $word</h1><hr>A crypted version of ",
    "<i>$word</i> is: <i>$pass</i><p>",
    "Example of a line in a password file for web authentication ".
    "(colon separated): <p><pre>username:$pass</pre><hr>";
}

print qq(<b>Note: </b><a href="crypt.txt">This Script</a> ),
"works best when run on the system you need passords for because some ",
"systems use a more secure <i>crypt</i> that ends up with more than the ",
"usual 13 character crypted password.";

print $q->start_form,
"<center><table border=1 cellpadding=10><tr><th>",
"Crypt a Plain Text Password<br>",
qq(<input type="text" name="word"><br><input type="submit"></th></tr>),
"</table>",$q->end_form,$q->end_html;