#!/usr/bin/perl
#
# Author: Petter Reinholdtsen <pere@td.org.uit.no>
# Date:   2000-06-29
#
# Simple quick and dirty CVS pserver password hash generator.  Based
# on source from Andreas Rick.

if ($#ARGV<1) {
    print "\nUSAGE: $0 <username> <password>\n\n";
    exit;
}

sub scramble {
    my ($password, $enc) = @_;
    return crypt($password,$enc);
}

my $username = $ARGV[0];
my $password = $ARGV[1];
my $try = scramble($password, scramble($password, $username));

print "$username:$try:cvsuser\n";