Verificar dominio registrado

igadino · Fevereiro 4, 2010

Pessoal tenho este script para verificar se um dominio esta ou não registrado, se o dominio esta registrado ele tem que me mostra o codigo fonte de quem registrou alguém sabe como fazer isso já procurei na net mais não encontrei.

<% 
dim objXML, Resultado, msgErro, srtmethod
Response.Buffer = false
'Set the script timeout to 60 seconds
Server.ScriptTimeout = 60
end_pag = "http://www." & request.form("dominio")&""&request.form("pont")&""
url_dom = request.form("dominio")&""&request.form("pont")&""
dominio=request("dominio")
If request.form("dominio")<>"" then
tipo = split(Request("pont"),".")
tipo_arquivo_2 = "." & tipo(ubound(tipo))
		ext_perm = ".com.br,.adm.br,.br,.org.br,.gov.br,.tv.br"
		exte = split(ext_perm,",")
		a = 0
		for i=0 to ubound(exte)
		if trim(Lcase(tipo_arquivo_2)) = trim(exte(i)) then
		a = 1
		end if
		next
if a <> 1 then 
 'aqui verifica os dominios internacional
Set ObjXML = Server.CreateObject("Msxml2.serverXMLHTTP")
if instr(url_dom,"-") or instr(url_dom,"+") > 0 then
objXML.Open "get", end_pag, false
else
objXML.Open "GET", end_pag, false
end if
on error resume next
objXML.Send
Resultado = objXML.ResponseText = ResponseText 
					If instr(dominio, ".") > 0 Or instr(dominio, ",") > 0 or instr(dominio, ";") > 0 or instr(dominio, ":") > 0 or instr(dominio, "=") > 0 then
					msgErro = "<br><br><strong><font color='blue'>Impossível, o dominio <font color='#FF0000'>www."&url_dom&" </font> não está disponível para registro</font><br><br></strong>"
					else
		if Resultado="" then
		msgErro = "<br><br><strong><font color='blue'>Parabéns, o dominio <font color='#009900'>www."&url_dom&" </font> disponivel para registro</font><br><br></strong>"'        ElseIf instr(1,Resultado,"encontrada nenhuma") Then
        Else
		msgErro = "<br><br><strong><font color='blue'>Impossível, o dominio <font color='#FF0000'>www."&url_dom&" </font> não está disponível para registro</font><br><br></strong>"
		End If
    			   end if
				   else
				   'aqui verifica os dominios br
		   			If Len(dominio) < 2 THEN
			msgErro = "Erro ! O domínio deve possuir pelo menos dois caracteres" 
			ElseIf Len(dominio) > 32 THEN
			msgErro = "Erro ! O domínio deve possuir no máximo 26 caracteres"
			Else
			Set ObjXML = Server.CreateObject("Msxml2.ServerXMLHTTP")
			ObjXML.Open "GET", "http://registro.br/cgi-bin/nicbr/whois?qr="&url_dom, False
			on error resume next
			ObjXML.Send
			Resultado = ObjXML.ResponseText
					If instr(dominio, ".") > 0 Or instr(dominio, ",") > 0 or instr(dominio, ";") > 0 or instr(dominio, ":") > 0 or instr(dominio, "=") > 0 then
					msgErro = "<br><br><strong><font color='blue'>Impossível, o dominio <font color='#FF0000'>www."&url_dom&" </font> não está disponível para registro</font><br><br></strong>"
					else
			If instr(1,Resultado,"inexistente") Then
			msgErro = "<br><br><strong><font color='blue'>Parabéns, o dominio <font color='#009900'>www."&url_dom&" </font> disponivel para registro</font><br><br></strong>"'        ElseIf instr(1,Resultado,"encontrada nenhuma") Then
			ElseIf instr(1,Resultado,"encontrada nenhuma") Then
			msgErro = "Erro ! Sintaxe Inválida "
			ElseIf instr(1,Resultado,"Como fazer uma consulta") Then
			msgErro = "Erro ! Sintaxe Inválida "
			ElseIf instr(1,Resultado,"Primeiro") Then
			msgErro = "Domínio de Primeiro Nível Inválido"
			Else
			msgErro = "<br><br><strong><font color='blue'>Impossível, o dominio <font color='#FF0000'>www."&url_dom&" </font> não está disponível para registro</font><br><br></strong>"
			End If
			End If
			end if
					end if
		Set objXML = Nothing		 
	end if		 
%>
<html>
<head>
<title>Registro de dominios</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="css/generalhs.css" rel="stylesheet" type="text/css" />
<link href="css/generalhs.css" rel="stylesheet" type="text/css" />
<script type="text/javascript" src="prototype.js"></script>
<script type="text/javascript">
function Verifica(event){
var keyCode = event.keyCode ? event.keyCode : event.which ? event.which : event.charCode;
var caract = new RegExp(/[a-z0-9-áéíóúç\b\.-]+$/i);
var caract = caract.test(String.fromCharCode(keyCode));
if(!caract){
// alert("Não digite a extensão do domínio neste campo.\nSelecione a extensão na caixa ao lado.\n\nEm caso de subdomínios, digite apenas a parte principal.\n\nExemplo 1 - Domínio desejado - www.adok.com.br\nDigite apenas 'adok' no campo.\n\nExemplo 2 - Domínio desejado (com subdomínio) - www.suporte.adok.com.br\nDigite apenas 'adok' no campo.");
	keyCode=0;
	return false;
	}
}
function bloqueia(msg){
if(event.button != 1)alert('Acesso negado');
}
	function GetDominio(){	
		if (document.formDom.dominio.value.length ==""){
		alert("Por favor, digite um nome para seu domínio !");
		document.formDom.dominio.focus();
		return false;
		}
  		  Element.update("content","<span class='txt2'><br /><br />Aguarde, verificando disponibilidade...</span><br /><br /><img src='images/iga_com_br.gif' onmousedown='bloqueia();' width='146' height='12'><br><br>");
  		  var myAjax = new Ajax.Updater({success: 'content'}, 'verifica_dominios.asp?dom=<%=request("dominio")%>', { method: 'get', parameters: 'dom='+document.formDom.dominio.value + document.formDom.pont.value});
  		}
		
</script>
</head>
<body>
<form id="formDom" name="formDom" method="post" onSubmit="return GetDominio(this);">
<table  bordercolor="#336699" align="center" border="0">
<tr><td><img src="images/igad_br.gif" alt="Registro de Domínios" width="495" height="21" /></td></tr>
<tr><td width="495">
Para o seu negócio ter sucesso, é fundamental marcar presença na Web. Possuir um site personalizado e um endereço de e-mail próprio (seunome@seunome.com.br) é o primeiro passo.
<table  border="0" align="center" width="500">
<tr><td align="right" class="txt" width="100%">
<fieldset style="width: 495;" class="fildweb" >
<legend><strong>Verifique se o domínio que você quer registrar está disponível </strong></legend>
<table  border="0" align="center" >
<tr><td align="right" class="txt">Domínio:<strong> www.</strong> </td>
<td><label>
<input name="dominio" type="text" class="camp" id="dominio" size="20" maxlength="59" value="<%=request("dominio")%>" onkeypress="return Verifica(event);">
</label>
<font color="#990000"><strong><font color="#000000">.</font></strong>
<label>
<select id="pont" name="pont" class="text">
<%
lista=".com.br,.com,.net,.adm.br,.br,.net.br,.org,.org.br,.gov.br,.tv.br,.info,.name"
MTT="com.br,com,net,adm.br,br,net.br,org,org.br,gov.br,tv.br,info,name"
arrsetor3=split(request("pont"),", ")
arrsetores3=split(lista,",")
mostra_form=split(MTT,",")
for y = LBOUND(mostra_form) to ubound(mostra_form)
response.write"<option value="&arrsetores3(y)
for x= LBOUND(arrsetor3) to ubound(arrsetor3)
if arrsetor3(x) = arrsetores3(y) then response.write " selected" 
next
response.write">"&mostra_form(y)&"</option>"&vbcr
next
%>
</select>
</label>
</font></td>
<td><input name="Button" type="submit" class="bot" value="Procurar" />
</td></tr></table>
</fieldset>
</td></tr>
</table>

<table  border="0" align="center" width="500">
<tr><td align="left" class="txt" width="100%">		
<div  id="content" align="center">
<div align="center">
<%=msgErro%> 
</div>
<div align="left">
 <%
 If request("dominio")<>"" then
 if Resultado = "" or instr(1,Resultado,"inexistente") then%>
<a href="contratar_dominio.asp?dom=<%=url_dom%>">Registrar este domínio</a>
<%else%>
<a href="#"><b>Ver quem registros</b></a>
<%
end if
end if
%>
</div>
</div>
</strong>Extensões disponíveis: <font color="#0000FF">.com.br, .adm.br, .br, .net.br, .org, .org.br, .gov.br, .tv.br,</font><br />
</strong>Extensões disponíveis: <font color="#0000FF">.com, .net,  .info, .name</font><br />
</td></tr>
</table>
</td></tr></table>
</form>
</body>
</html>

jrcardozo · Fevereiro 4, 2010

laboratorio de scripts ASP = http://forum.imasters.com.br/index.php?/topic/331695-consultar-servidor-whois/page__fromsearch__1

igadino · Fevereiro 6, 2010

Esse script não esta funcionando.

o que eu postei ele funciona em qualque ISS e ele retorna a respostra bem rapido.

xanburzum · Fevereiro 6, 2010

você quer que ele mostre quem registrou , né

para isso terá que ter acesso as informações da empres, do bd dela, não sei se é possivel,

acredito que por componentes você conseguirá e sem componente você deverá saber quais info buscar no XMLHTTP , para ele devolver essas info.

se você tem acesso a esse code php, tente verficar o que ele esta resgatando do XMLHTTP

Entrar

Arquivado

Verificar dominio registrado

Recommended Posts

igadino 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

igadino 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP+Codeigniter - Ajuda en NFePhp para Sistema

PHP+Codeigniter - Teclas para Salvar (atalho)

Javascript - Passar Parâmetros para uma Função.

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante