#!/bin/perl
# Copyright (C) 2000, Jean-Paul Saman.
# License: GPL v2, 
# The full text of the license can be found on http://www.fsf.org/licenses/gpl.txt
#

$salt =  join '', ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[rand 64, rand 64];

system "stty -echo";
print "Password: ";
chomp($word = <STDIN>);
print "\n";
system "stty echo";

$password = crypt($word, $salt);
print "$password\n";
print "$salt\n";

exit(0);
# end