reverse ip tool

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;this is a compact and simple autoit script for extracting websites from http://sameip.org  ;
;made by B47CH GURU.....just a prototype..on 24-07-2011                                                  ;
;extracts websites to a text file in the samelle directory                                     ;
;here are the message boxes if you want to test it while modificaton.                       ;
;this however has a limitation of 3000 sites , which you can readjust to your necessities.  ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;                                            ;
;MsgBox(0, "Sip in triming", $ip)              ;                                            ;
;MsgBox(0, "explode", $array1[0])              ;                                            ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;                                            ;
;you can contact me at http://www.facebook.com/daryl.varghese                               ;
;or you can mail me at [email protected]                                             ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



#include <String.au3>
#include <Array.au3>
#include <file.au3>
#include <INet.au3>
$file = InputBox("destination text file","source and shit")
If $file = "" Then $file = "list.txt"
$server = InputBox("server ip Address","server ip address..!!")
If $server = "" Then Exit
FileOpen ($file, 1)
$dollar = 1
filewrite($file,_INetGetSource('http://sameip.org/ip/'&$server))
FileClose($file)
$file = FileOpen($file, 0)
$file2 = $server&"done.txt"
$file2 = FileOpen($file2, 1)
$asd=0
$i=1
$ip="sd"
$r=1
$as = "s"

While $as = "s"

$ip=FileReadLine ( $file , $r )
If $r=3000 Then Exit
If StringInStr($ip, '<a href="') Then
    $asd=1
    asshole()
Else
    $asd=0
EndIf

$r=$r+1
WEnd


Func asshole()
$ip = StringTrimLeft($ip, StringInStr($ip, "href=")+5)

    $i=$i+1

    $array1 = _StringExplode($ip, ".com", 0)
$ip = $array1[0] & ".com"
If StringInStr($ip, '"') Then
    while $as = 's'
    If Not StringInStr($ip, '"') Then ExitLoop
    $array1 = _StringExplode($ip, '"', 0)
    $ip = $array1[0]
    WEnd
EndIf
FileWriteLine($file2,$ip)
    EndFunc