Someone

term block-netbios {
    from {
        protocol [ tcp udp ];
        destination-port [ 135 137 138 139 445 ];
    }
    then {
        count netbios;
        discard;
    }
}
term block-upnp {
    from {
        protocol [ tcp udp ];
        destination-port [ 5000 1900 ];
    }
    then {
        count upnp;
        discard;
    }
}
term block-messenger-spam {
    from {
        protocol udp;
        destination-port 1026;
    }
    then {
        count messenger-spam;
        discard;
    }
}
term block-connexant-hack {
    from {
        protocol tcp;
        destination-port 254;
    }
    then {
        count connexant-hack;
        discard;
    }
}
term block-telnet {
    from {
        protocol tcp;
        destination-port 23;
    }
    then {
        count telnet;
        discard;
    }
}
term default {
    then accept;
}