sub passtest {
  $passtotest=shift;
  $crypted=shift;
  return ( crypt($passtotest,$crypted) eq $crypted );
}