#!/usr/bin/perl -w
use strict;
use CGI qw/:standard/;

my $username = $query->param('username'); 
my $password = $query->param('password'); 

my $pwd = CryptPasswd($username, $password);

sub CryptPasswd {
	my ($self) = shift;
	my ($passwd, $salt) = @_;

	if ($salt) {
          # Make sure only use 2 chars
	  $salt = substr ($salt, 0, 2); } 

        else {
	  ($salt = substr ($0, 0, 2)) =~ tr/:/C/; }

	return crypt ($passwd, $salt);
}