#!/usr/bin/perl

print "Password? > " ;
$_ = <STDIN> ;
chomp ;
srand ;
print crypt($_,
            join('',('.', '/', 0..9,'A'..'Z', 'a'..'z')[rand 64, rand 64])),
      "\n" ;