#From my first script, test data; result = reu3tDNEHBSyc
CryptPasswd("username","password");

#From my second script, test data; result = secGBN1BHq1FA
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);
}