Announcement

Collapse

Forum Guidelines

This forum is for finished source code that is working properly. If you have questions about this or any other source code, please post it in one of the Discussion Forums, not here.
See more
See less

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

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • Scott Slater
    replied
    This is really an NSLookup not technically a PING.

    Leave a comment:


  • Mark Strickland
    replied
    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.

    Leave a comment:


  • Mel Bishop
    started a topic Got a few decades to kill? Ping the internet!!!

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

    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!

    Code:
        #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                                        '
    Last edited by Mel Bishop; 20 Mar 2009, 10:30 AM.
Working...
X