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