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

  • 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, 11:30 AM.
    There are no atheists in a fox hole or the morning of a math test.
    If my flag offends you, I'll help you pack.

  • #2
    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.
    Mark Strickland, CISSP, CEH
    SimplyBASICsecurity.com

    Comment


    • #3
      This is really an NSLookup not technically a PING.
      Scott Slater
      Summit Computer Networks, Inc.
      www.summitcn.com

      Comment

      Working...
      X