AutoIT Function IP Reverse

[rayane888]

>#include 
#include 
#include 


;///////////////////////////
;///
;///   ReVerse IP
;///
;///   By: Mr.888
;///
;///  level23hacktools.com
;///
;///////////////////////////


_ReverseIP("104.24.103.186",500)

Func _ReverseIP($IPserver,$MaxWebSite)

FileDelete(@ScriptDir&"/Reverse.txt")

Local $xxw

  For $MaxWebSite= 0 to $xxw Step +10

  InetGet ("http://www.bing.com/search?q=ip:"&$IPserver&"&first="&$MaxWebSite  [MENTION=7239]Temp[/MENTION]Dir&"/Source.txt")


$F=FileRead  [MENTION=7239]Temp[/MENTION]Dir&"/Source.txt")

$ff=StringSplit ($F,'"')

for $i=1 to $ff[0] Step +1

$db=StringRegExp ($ff[$i],"http://")

$db2=StringRegExp ($ff[$i],"microsofttranslator")

$db3=StringRegExp ($ff[$i],"go.microsoft.com")

$db4=StringRegExp ($ff[$i],"onlinehelp")

$db5=StringRegExp ($ff[$i],"www.w3.org")

$db6=StringRegExp ($ff[$i],"live")

$db7=StringRegExp ($ff[$i],"cc.bingj.com")

$db7=StringRegExp ($ff[$i],"cc.bingj.com")

$db8=StringRegExp ($ff[$i],"log.perf.msedge.net")


If $db = 1 And $db2 <> 1 And $db3 <> 1 and $db4 <> 1 and $db5 <> 1 and $db6 <> 1 And $db7 <> 1 And $db8 <> 1 Then

FileWrite   [MENTION=7239]Temp[/MENTION]Dir&"/Results1.txt",$ff[$i]&@CRLF)

EndIf

Next

  Next

  If not FileExists   [MENTION=7239]Temp[/MENTION]Dir&"/Results1.txt") Then

	  MsgBox (0,"","      Cant't Find the Ip")

	  Else

Local $444

_FileReadToArray   [MENTION=7239]Temp[/MENTION]Dir&"/Results1.txt",$444)

$ffs=_ArrayUnique ($444)

_ArrayDelete ($ffs,11)

Local $sq

For $sq=1 to $ffs[0]-1 Step +1

$sub=  _StringBetween ($ffs[$sq],"://","/")

$sub1=_arraytostring($sub)

$ss1= "http://"&$sub1&"/"

FileWrite   [MENTION=7239]Temp[/MENTION]Dir&"/Rv.txt",$ss1&@CRLF)

Next

local $999

_FileReadToArray  [MENTION=7239]Temp[/MENTION]Dir&"/Rv.txt",$999)

_ArrayDelete($999,0)

Local $poi

$poi=_ArrayUnique($999)

If $poi = 0 Then

MsgBox (0,"","    Not valid ip")

EndIf

_ArrayDelete($poi,0)

_FileWriteFromArray (@ScriptDir&"/Reverse.txt",$poi)

$final=FileRead (@ScriptDir&"/Reverse.txt")


EndIf


EndFunc

Function can Detect All web site From Server More than 450 using Bing , the Result is Unique WebSite .