[Ph4nt0m] Re: 谁分析过myipn eighbors或yougetsignal 来获取同一IP的其他域名 过程啊？

Wed, 24 Sep 2008 07:24:37 -0700 

On Error Resume Next

Dim Args, Host, HTML, StartIP, EndIP, Prefix, i

Set Args = Wscript.Arguments

If Args.Count = 1 Then
  Host = Args(0)
  Call Search(Host)
  Wscript.Quit
End If

If Args.Count = 2 Then
  StartIP = Split(Args(0), ".")
  EndIP = Split(Args(1), ".")
  Prefix= CStr(StartIP(0)) & "." & CStr(StartIP(1)) & "." & CStr(StartIP(2)) & 
"."
  For i=StartIP(3) To EndIP(3)
    Search(Prefix & CStr(i))
  Next
  Wscript.Quit
End If

ShowInfo
Wscript.Quit

Sub Search(Host)
  Dim HTML, Url
  Url = "http://www.ip-domain.com.cn/query.html?domainname="; & Host
  HTML = Stream_BinaryToString(GetData(Url))
  Wscript.Echo "=============" & Host &"============="
  Call SearchDomian(HTML)
End Sub

Sub SearchDomian(Str)
  Dim RegEx, Matches, Match
  Set RegEx = New RegExp
  RegEx.Pattern = "\)\s\S+\s\<"
  RegEx.IgnoreCase = True
  RegEx.Global = True
  Set Matches = RegEx.Execute(Str)
  For Each Match in Matches
    Wscript.Echo Mid(Match.Value, 3, Len(Match.Value)-4)
  Next
End Sub

Function GetData(PostUrl)   
  Dim Http 
  Set Http = CreateObject("msxml2.serverXMLHTTP") 
  Http.Open "GET", PostUrl, False 
  Http.Send 
  GetData = Http.ResponseBody 
  Set Http = Nothing
End Function

Function Stream_BinaryToString(Binary)
  Dim BinaryStream
  Set BinaryStream = CreateObject("ADODB.Stream")
  BinaryStream.Type = 1
  BinaryStream.Open
  BinaryStream.Write Binary
  BinaryStream.Position = 0
  BinaryStream.Type = 2
  BinaryStream.CharSet = "us-ascii"
  Stream_BinaryToString = BinaryStream.ReadText
End Function

Sub ShowInfo()
  With Wscript
    .Echo("+-----------------------------------------------------+")
    .Echo("  Reverse IP Domain Check DNS Tool By [EMAIL PROTECTED]")
    .Echo("    Sources Of Information : www.ip-domain.com.cn")
    .Echo("  Usage:")
    .Echo("    cscript "&.ScriptName&" Host")
    .Echo("    cscript "&.ScriptName&" StratIp EndIp")
    .Echo("+-----------------------------------------------------+")
    .Quit
  End with
End Sub
 
原来写的脚本 支持单个查询和同域查询 也许对LZ有用
 


在2008-09-24，sy <[EMAIL PROTECTED]> 写道：
>最近想写个小程序，输入IP就能得到该IP上绑定的所有域名，网上找了一下，发现www.myipneighbors.com和http://
>www.yougetsignal.com/tools/web-sites-on-web-server/有这个功能，并且效果不错，抓包看了一下，发现这个过程还有点复杂，不知那位大鸟研究过或有兴趣的可指导一下
>>

--~--~---------~--~----~------------~-------~--~----~
 要向邮件组发送邮件，请发到 [email protected]
 要退订此邮件，请发邮件至 [EMAIL PROTECTED]
-~----------~----~----~----~------~----~------~--~---

回复