#!/usr/bin/perl

# Copyright (C)  Simon Hood, 1999.

# This program is licenced in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

# Contact info (as of March, 1999): 
#
#     simonh@liv.ac.uk;  http://www.liv.ac.uk/~simonh
#
#     Simon Hood, c/o Dept Mathematical Sciences,
#     University of Liverpool, Liverpool, L69 3BX, U.K.


print "\n Type in password:  ";
$p_value = <STDIN>;
chop($p_value);

$salt = crypt($p_value, "pepper");
$p_value_crypt = crypt($p_value, $salt);

print "\n" . $p_value_crypt . "\n\n\n";
