# Random seed from p.223 of _Programming Perl_ (O'Reilly & Assoc)
srand(time() ^ ($$ + ($$ << 15)) );
@saltchars=(a..z,A..Z,0..9,'.','/');		# valid salt chars
$salt=$saltchars[int(rand($#saltchars+1))];	# first random salt char
$salt.=$saltchars[int(rand($#saltchars+1))];	# second random salt char
$cpw = crypt($pass,$salt);