Simple Fast URL + IP Spider

[Zibit]

Hi ! I made a program, soo i kinda thought i should post this here too as long as im release'ing it . the program check's all the IP's in the world and notes if they're websites or active and nonactive IP's...

heres the code !

expandcollapse popup

#include <INet.au3>
if FileExists("last.tsf") = False then $start = InputBox("Please enter start ip", "Enter the ip to start from ( default 0.0.0.0 )")
$end = "999.999.999.999"
if FileExists("last.tsf") = True then $start = FileReadLine("last.tsf", 1)
if $start = "" then $start = "0.0.0.0"
if $end = "" then $end = "999.999.999.999"
if $start <> "" then $ip = StringSplit($start, ".")
$ip1 = $ip[1]
$ip2 = $ip[2]
$ip3 = $ip[3]
$ip4 = $ip[4]
$web = 0
HotKeySet("{DEL}", "_exit")
Do
    $ip5 = $ip1 & "." & $ip2 & "." & $ip3 & "." & $ip4
    if $ip2 = 999 then 
        $ip2 = 0
        $ip1 = $ip1 + 1
        endif
    if $ip3 = 999 then 
        $ip3 = 0
        $ip2 = $ip2 + 1
    endif
    if $ip4 = 999 then 
        $ip4 = 0
        $ip3 = $ip3 + 1
    endif
    $ping = ping($ip5, 200)
    if $ping <> 0 then $web = _INetGetSource($ip5)
    if $web <> "" then FileWriteLine("websites.tsf", $ip5)
    if $web <> "" then $web = 0
    ToolTip("Ip Address: " & $ip5, 0, 0)
    if $ping <> 0 then FileWriteLine("activeip.tsf", $ip5)
    if $ping = 0 then FileWriteLine("inactiveip.tsf", $ip5)
    $ip4 = $ip4 + 1
    until $ip5 = $end or $ip5 > $end
    TrayTip("Done!", "World Wide Spider Completed!", 0)
    sleep(1000)
    exit
    
    func _exit()
        FileDelete("last.tsf")
        FileWriteLine("last.tsf", $ip5)
        exit
        EndFunc

Thought you guys in autoit developement would want to see this

This is a Idea script not a full script... so it would probably take thousands of years for you to finish all the IP's in the world

ANYWAY! The original post is here Simple URL + IP Spider

And i know the title is wrong The fast part ^^ not really thousands of years isnt fast

Edited May 18, 2010 by Zibit

[enaiman]

I can hardly believe that someone actually gave 5 stars to THIS??

This is ridiculous - trying to ping everything and IP addresses going to 999.999.999.999

Too bad I can't do anything to rate it down except giving it 1 star (even 1 star is too much).

[Splash]

WTF?!

[zeffy]

WTF?!

[logmein]

Quite good but not useful! I don't know what is this program's destination? 2* from me!

Edited May 19, 2010 by logmein

[Baraoic]

As enaiman was saying going to 999.999.999.999 is retarded. If you know anything about IP the highest is 255.255.255.255 not only that but anything above 224.0.0.0 is not used on the internet as its either multicast or reserved.

[Zibit]

acctually Google Spider is related to it, google has many spiders first check for active IP's, second checks for websites among the Active Ip's and 3rd checks infromation in the website's.

[ghetek]

Zibit, the script is well written but I do suggest that you do a little research on IP addressing standards and CIDR notation. Don't let the AutoIT elitists (jerks) get you down. Most of us are scripters here and we are all still learning every day. Thanks for posting and I hope to see more from you in the future.

To the rude posts before me, regardless of the usability of the content, is this how you treat people who only want to share and expand the community? I am appalled.

[llewxam]

Want to make it take less time Zibit? See Manadar's multi-threaded pinging script:

http://www.autoitscript.com/forum/index.php?showtopic=104334&view=findpost&p=740387

Combine that with the above 255 suggestions, should move along much better. Toss in a pretty GUI and I think it would be fun to sit back and watch for a while!

Ian

[Zibit]

Thanks guys and im gonna see the ping stuff looks good

[Danyiel92]

at least he make it