Got a few decades to kill? Ping the internet!!!

[Mel Bishop]

I basically wrote this as a joke, to see if it can be done and how to do it. With some minor mods, you can ping the entire internet if you have a LOT of time to kill or use as-is to just ping a range if IP numbers. Enjoy!

    #BREAK ON                                           '
                                                        '
    FUNCTION PBMAIN()                                   '
    LOCAL p, x, ipLong     AS LONG                      '
    LOCAL StringIP   AS STRING                          '
                                                        '
    mask$ = "207.66.62."                                '
                                                        '
    FOR x = 1 TO 255                                    '<--:
    pp$ = USING$("###",x)                               '   |
    pp$ = REMOVE$(pp$," ")                              '   |
    ipaddr$ = mask$ + pp$                               '   |
                                                        '   |
    an$ = INKEY$                                        '   |
    IF an$ = CHR$(27) THEN EXIT FOR                     '   |
                                                        '   |
    IpLong = ((VAL(PARSE$(ipAddr$, ".", 4))  * _        '   |
         256 + VAL(PARSE$(ipAddr$, ".", 3))) * _        '   |
         256 + VAL(PARSE$(ipAddr$, ".", 2))) * _        '   |
         256 + VAL(PARSE$(ipAddr$, ".", 1))             '   |
                                                        '   |
    HOST NAME (ipLong) TO ipName$                       '   |
                                                        '   |
    te$ = ipAddr$                                       '   |
                                                        '   |
    IF ipName$ <> "" THEN                               '<-:|
    DO UNTIL LEN(te$) = 20                              '<:||
    te$ = te$ + " "                                     ' |||
    LOOP                                                '<:||
                                                        '  ||
    te$ = te$ + ipName$                                 '  ||
    END IF                                              '< :|
    PRINT te$                                           '   |
                                                        '   |
    StringIP = ""                                       '   |
    IPlong = 0                                          '   |
    ipName$ = ""                                        '   |
                                                        '   |
    NEXT x                                              '<--:
                                                        '
    BEEP                                                '
    WAITKEY$                                            '
    END FUNCTION                                        '

[Mark Strickland]

Be careful

Be careful if you try this for real on public IP addresses. You could find yourself blacklisted by your ISP for doing Ping Sweeps. This is a very rudimentary hacker technique to find live hosts then perform other vulnerability testing for those that reply.

If you want to do this on your LAN then it probably would not be a problem unless your company has some policy against it.

If you are really into probing networks look at NMAP.org.

[Scott Slater]

This is really an NSLookup not technically a PING.