Sistema De Whois

LucasForever · Março 22, 2007

Boa noite, alguém conhece um sistema de whois que busque alem do dominio .com.br, busque tambem os doinios .com, .net, .adv.br, .agr.br e os demais que existem, ou pelo menos a maior parte dele, em asp??

obrigado.

Marcos-rj · Março 23, 2007

Este código, eu já usei ele. ainda funciona. você pode colocar a extensão que quiser.

usei em um site que estava montando. www.pscifrao.com.br . pode testar lá. no meu caso coloquei so algumas extenções, mas você pode colocar +.

<head>
<%
'---------------inicio da função que corrige o acento------------------
Function BinaryToString(strBinary)
Dim intCount, xBinaryToString
xBinaryToString =""
For intCount = 1 to LenB(strBinary)
xBinaryToString = xBinaryToString & chr(AscB(MidB(strBinary,intCount,1)))
Next
BinaryToString = xBinaryToString
End Function
'---------------fim da função que corrige o acento---------------------

dominio = request.form("dominio")
sufixo = request.form("sufixo")

If sufixo = ".com" or sufixo = ".net" or sufixo = ".org" or sufixo = ".biz" or sufixo = ".cc" or sufixo = ".info" or sufixo = ".tv" Then
url = "http://reports.internic.net/cgi-bin/whois?whois_nic="&dominio&""&sufixo&"&type=domain"

Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET",url, false
objXMLHTTP.Send
texto = objXMLHTTP.responsebody
texto1 = BinaryToString(texto)

If instr(1,texto1,"No match for domain") Then
msg = "1"
else
msg = "2"
end if
end if

If sufixo = ".com.br" then
url = "https://registro.br/cgi-bin/nicbr/whois?qr="&dominio&""&sufixo&" "

Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET",url, false
objXMLHTTP.Send
texto = objXMLHTTP.responsebody
texto1 = BinaryToString(texto)

If instr(1,texto1,"inexistente") Then
msg = "1"
ElseIf instr(1,texto1,"encontrada nenhuma") Then
msg = "2"
ElseIf instr(1,texto1,"Como fazer uma consulta") Then
msg = "2"
ElseIf instr(1,texto1,"Primeiro") Then
msg = "2"
Else
msg = "2"
End If

end if
%>        
<style>
<!--
 .texto {font: 13px Verdana; text-decoration: none; color: #FFFF00}
.txt2 {
    font-family: Arial, Helvetica, sans-serif;
    font-size: 12px;
}
.txt1bold {
    font-family: Arial, Helvetica, sans-serif;
    font-size: 11px;
}
-->
</style>
        </head>

           <table width="578"><tr><td align="left" valign="top" width="572">
                           <table border="0" cellspacing="4" cellpadding="4" width=577 bgcolor="#FFFFFF"><tr>
                            <td width="561">
                            <table border="0" width="100%" cellspacing="0" cellpadding="0">
                                <tr>
                                    <td>
                            <b><font face="Arial Black">&nbsp;</font><font color="#000080" face="Verdana" style="font-size: 14pt">BUSCA 
                                    DE DOMÍNIO</font></b></td>
                                </tr>
                            </table>
                            </td></tr>
                             <tr><td bordercolor="#008000" width="561"><font style=font-size:11px;color:000000> 
                                <div align=justify><font style=font-size:11px >
                                    <table border=0 cellspacing=0 width="100%" cellpadding=0>
                                    <tr>
                                        <td height=5>
                                        </td>
                                    </tr>
                                    <tr>
                                        <td height=5>
                                                    <font style="font-size:11px; color:000000" >
                                                    <img border="0" src="img/a1.gif" width="15" height="13"> </font>
                                        <font face="Verdana" size="2">O 
                                        resultado da sua busca para </font>
                                                            <font face="Verdana" style="font-size: 9pt; font-weight:700">
                                                            www.</font><font color="#FF0000" face="Verdana" style="font-size: 9pt; font-weight: 700"><%=dominio%><%=sufixo%></font></td>
                                    </tr>
                                    
                                    <%if msg="1" then%><tr>
                                        <td height=90 valign="bottom">
                                        <p align="center">
                                        <img border="0" src="img/v.gif" width="15" height="15">
                                        <b>
                                        <font face="Verdana" size="2" color="#008000">
                                        Domínio Disponível</font></b></p>
                                        <div align="center">
                                            <table border="0" width="370" id="table2" height="28" style="border: 1px solid #E5E5E5" cellspacing="0" cellpadding="0">
                                            <tr >
                                                <td width="183" align="center" onmouseover="this.style.background='#CCFFCC';window.status='REGISTRA DOMÍNIO';return true;" onmouseout="this.style.background='';window.status='';return true;">
                                                <font face="Verdana" style="font-size: 9pt">
                                                REGISTRAR DOMÍNIO</font></td>
                                                <td width="183" align="center" onmouseover="this.style.background='#CCFFCC';window.status='REGISTRAR E HOSPEDAR';return true;" onmouseout="this.style.background='';window.status='';return true;" style="border-left: 1px solid #E5E5E5">
                                                <font face="Verdana" style="font-size: 9pt">
                                                REGISTRAR E HOSPEDAR</font></td>
                                            </tr>
                                        </table>
                                        </div>
                                        <hr color="#000000" size="1"></td>
                                        
                                    </tr><%end if%>
                                    <%if msg="2" then%><tr>
                                        <td height=5>
                                        <p align="left" style="margin-top: 0; margin-bottom: 8px">
                                        <font style="font-size:11px; color:000000" >
                                        <img border="0" src="img/x.gif" width="15" height="15">
                                        <b>
                                        <font face="Verdana" size="2" color="#FF0000">
                                        Domínio Registrado</font></b></font></p>
                                        <p align="center" style="margin-top: 0; margin-bottom: 5px">
                                        <span class="txt1bold"><strong>
                                        <font size="2">Caso você 
                                        seja o proprietário deste domínio e 
                                        queira hospedá-lo na PSCIFRÃO:</font></strong></span></p>
                                        <font style="font-size:11px; color:000000" >
                                        <div align="center">
                                            <table border="0" width="254" id="table3" height="28">
                                            <tr >
                                                <td width="246" align="center" onmouseover="this.style.background='#CCFFCC';window.status='REGISTRA DOMÍNIO';return true;" onmouseout="this.style.background='';window.status='';return true;" style="border: 1px solid #CFCFCF">
                                                <font style="font-size:9pt; color:000000" face="Verdana" >
                                                CLIQUE AQUI</font></td>
                                            </tr>
                                        </table>
                                        </div>
                                        <hr color="#000000" size="1">
                                </font></td>
                                    </tr><%end if%>
                                    <tr>
                                        <td height=5>
                                        </td>
                                    </tr>
                                    <tr>
                                        <td height=5>
                                        <font style="font-size:11px; color:000000" >
                                        <form method="POST" action="busca_dominio.asp">
                                            <table border="0" width="99%" id="table4" cellspacing="0" cellpadding="0" style="border: 1px solid #000000" height="60" bgcolor="#E5E5E5">
                                                <tr>
                                                    <td height="20">
                                                    <p align="left">
    <font face="Verdana"><b class="txt_titulo"><font size="2" color="#FF0000">&nbsp;•
    </font><font color="#FF0000"><span style="font-size: 8pt">VERIFICAR OUTRO 
    DOMÍNIO</span></font></b></font></td>
                                                </tr>
                                                <tr>
                                                    <td height="28">
                                                    <p align="center">
        <font face="Verdana"><span style="font-size: 9pt">Domínio: www.</span><span style="font-size: 8pt">
<input type="text" name="dominio" value="" size="28" maxlength="59" style="border: 1px solid #000000">
        . 
        <select name="sufixo" size="1">
<option value=".biz">biz</option>
<option value=".can.br">can.br</option>
<option value=".cc">cc</option>
<option value=".com">com</option>
<option value=".com.br" selected>com.br</option>
<option value=".info">info</option>
<option value=".net">net</option>
<option value=".org">org</option>
<option value=".tv">tv</option>
</select>&nbsp;&nbsp; <input type="submit" value="buscar" style="font-size: 8pt"></span></font></td>
                                                </tr>
                                                <tr>
                                                    <td height="14">
                                                    <span style="font-size: 5pt">&nbsp;</span></td>
                                                </tr>
                                            </table>
                                        </form>
                                </font></td>
                                    </tr>
                                    <tr>
                                        <td height=5>
                                                    </td>
                                    </tr>
                                    <tr>
                                        <td height=5>
                                        <hr size="1" color="#ECE9D8" width="80%">
                                        </td>
                                    </tr></table>
                                </font></font>
                                <font style=font-size:11px;color:000000>
                                <font style=font-size:11px face=Verdana><center>
                                <a style="text-decoration: none" onMouseOut="window.status='';return true;" onMouseOver="window.status='Página Inicial';return true;" href="java script:history.back(1)">:: 
                                <b>Voltar</b> ::</a></center></td></tr>
                         </table></td></tr>
         </table>

Fique a vontade para modificar.

Editado Março 23, 2007 por Marcos-rj

LucasForever · Março 23, 2007

Obrigado, Marcos...vi no site que você colocou aqui...é isto mesmo que eu quero...vlw... :P

LucasForever · Março 26, 2007

Cara , Marcos, testei o seu script...aqui da funcionando legal a busca por .com.br, mas os outros... a página passa uma vida carregando e não aparece nada...

será que você não tem outro script por ai...??

Marcos-rj · Março 26, 2007

Bom, eu já usei este mesmo script p/ todos. ficava uma lista gigante, por isso coloquei so os mais usados.

Quais os dominios você quer? ssão todos?

Editado Março 26, 2007 por Marcos-rj

Março 26, 2007

Ai Marcos... achei um codigo na net em um site em ingles... dai testei... deu certo e fiz umas pequenas modificações... o bom é que ele verifica qualquer dominio .com, .com.br, .net (pelo menos eu testei os mais usados).. vou postar o codigo ok... para caso alguém precise... funciona perfeitamente...e é bem pequeno...vê ai...

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'refeito por lucas forever
Dim mensagem1 ' variavel
If request.form("dominio")<>"" then
' Inseri a url que você está buscando
procuraurl = "http://www." & request.form("dominio")
dominio = request.form("dominio")
' Cria um objeto XML
Set criaconexao = CreateObject("Microsoft.XMLHTTP")
' Conecta-se com a url buscada
criaconexao.Open "get", procuraurl, False
on error resume next
criaconexao.Send 
pagina = criaconexao.getResponseHeader("Date")
' Retorna a busca
if pagina="" then 
mensagem1 = "Resultado da pesquisa:<br><br>www."&dominio&"<br><br><strong><font color='#009900'>PARABÊNS, DOMÍNIO DISPONÍVEL PARA REGISTRO<br><br></strong>"
else
mensagem1 = "Resultado da pesquisa:<br><br>www."&dominio&"<br><br><strong><font color='#FF0000'>IMPOSSÍVEL, DOMÍNIO JÁ REGISTRADO<br><br></font></strong>"
end if
Set criaconexao = Nothing
end if
%>
<html>
<head>
<title>sistema de whois</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body><form method=post action="whoisbom.asp">
  <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr> 
      <td> <div align="center">para dominios .com, .net, .com.br, entre outros.</div></td>
    </tr>
    <tr>
      <td> <div align="center">www. 
          <input type=text name=dominio size=20>
          <input name="submit" type=submit value="Buscar dominio">
        </div></td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td><div align="center"> <%=mensagem1%> </div></td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
    </tr>
  </table>
</form>
</body>
</html>

so tem um problema, se você colocar por exemplo "seudominio...com.br" ele vai trazer o resultado para este dominio.

dai se alguém souber colocar alguma função para corrigir isto... posta ai...obrigado a todos, e espero ajudar outras pessoas...fui :P :P

Entrar

Sistema De Whois

Pergunta

LucasForever

Link para o comentário

Compartilhar em outros sites

5 respostass a esta questão

Posts Recomendados

Marcos-rj

Link para o comentário

Compartilhar em outros sites

LucasForever

Link para o comentário

Compartilhar em outros sites

LucasForever

Link para o comentário

Compartilhar em outros sites

Marcos-rj

Link para o comentário

Compartilhar em outros sites

Guest --lucasForever --

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades