'**********************************************************************
'* Ipcommisc.bi v1.0
'*
'* IP COMMUNICATION TOOLS FUNCTIONS AND SUBS
'*
'*
'* ABILITIES:
'* IP ADDRESS FILTERING
'**********************************************************************








FUNCTION FilterIP$ (IP$)
    IP$ = RIGHT$(IP$, 15)


    FOR x = 15 TO 1 STEP -1
        IF MID$(IP$, x, 1) = ":" THEN
            StartPos = x
            EXIT FOR
        END IF
    NEXT x

    FilterIP$ = MID$(IP$, StartPos + 1, LEN(IP$))
END FUNCTION