[Resolvido] simples função whois

[xanburzum 169]

Esta simples função whois dispoe um site de números IP e retorna o número IP que da organização proprietária. Com uma ligeira alteração do código, por exemplo, outros paises podem ser encontrados

 

 

<%
response.write(Lookupprovider("12.87.139.196")) 'é numero em E.U.A.
response.write("<br>")
response.write(Lookupprovider("80.213.15.168"))  'é numero database (Europa)
response.write("<br>")
response.write(Lookupprovider("203.160.179.161")) 'é numero Asia




function LookUpProvider(IP)

' 
' IP: Número IP a ser pesquisado
'  
' 


dim objXML, strXML, strURL, strData, x, y, range,org

' build  url (dslreport)
strURL="http://www.dslreports.com/whois/" & IP

Set objXML = CreateObject("Microsoft.XMLHTTP")
objXML.Open "GET", strURL, False
objXML.Send 
strXML = objXML.ResponseText

x=instrrev(ucase(strXML),"<PRE>")
y=instr(1,ucase(strXML),"</PRE>")

' obter a parte interessante da página
strData=mid(strXML,x,y-x)
	   'response.write("<br>"& strData)


' encontrar primeiro bloco, para o nome do fornecedor
x = instr(ucase(strData),"DESCR") + 7
y = instr(x,strData,vbLf)

LookUpProvider = trim(mid(strData,x,y-x))


End Function
%>