#!/usr/local/bin/perl
# -*- perl -*-

use strict;

# generate salt
srand(time() ^($$ + ($$ << 15)));
my @a = grep {/[a-zA-Z0-9]/} map {chr($_)} (0..256);
my $salt = $a[ rand( @a ) ] . $a[ rand(@a) ];

my $clear;
unless($clear = $ARGV[0]){
	system "stty -echo";
	print "Enter the Clear Text to be encrypted: "; chomp($clear=<STDIN>);
	system "stty echo";
	print "\n";
}

print crypt($clear, $salt), "\n";