sub PBoard::Subs::EncryptPassword {
  my ($password, $nick) = @_;
    require Digest::MD5;
    return &Digest::MD5::md5_hex($password . lc( $nick || '' ) );
} # PBoard::Subs::EncryptPassword