#!/usr/bin/perl

#    print " \n  Password to Convert: "; $before_crypt = <STDIN>; chomp($before_crypt);
#    $after_crypt  = &crypt($before_crypt);

#    $before_crypt = $ARGV[0];
my ($user_id, $before_crypt) = @ARGV;

#print "User: " . $user_id . "\n";
#print "Pass: " . $before_crypt . "\n";


#my ($username, $password) = @ARGV;
#my $salt = substr( $username, 0, 2 );
#my $epass = ( crypt( $password, $salt ) );



$salt = "js";
    $after_crypt  = crypt($before_crypt, $salt);
    print "\n  Password: $before_crypt\n Encrypted: $after_crypt\n\n";
    print $user_id . ":" . $after_crypt . "\n";





#my ($username, $password) = @ARGV;
#my $salt = substr( $username, 0, 2 );
#my $epass = ( crypt( $password, $salt ) );

#print "Password for $username is $epass\n";


exit;

#sub encrypt {
#
#  @range=('0'..'9','a'..'z','A'..'Z');
#  srand($$|time);
#  $seed=$range[rand(int($#range)+1)] . $range[rand(int($#range)+1)];
#  return( crypt($_[0],$seed));
#
#}