Módulo para pesquisa de dominio

<?


function whois ($domain, $tipo)

{ $buffer=""; $dados="";

$server&#91;0&#93; = "whois.registro.br";
$server&#91;1&#93; = "whois.internic.net";
$server&#91;2&#93; = "whois.networksolutions.com";

$domain = strtolower($domain);
if (trim($domain) <> "")
{
$domain = trim($domain);
$final = substr($domain, -4);

if (substr("$domain", -3) == ".br")
{
$br = fsockopen($server&#91;0&#93;, 43, $errno, $errstr, 30);
if (!$br)
{
$dados .= "$errstr ($errno)";
}
else {
fputs($br, "$domain\r\n");
while (!feof($br))
{

$buffer .= fread($br,128);

}
if ($tipo == 1)
{
if (strpos($buffer, "No match for") > 0) $dados .= false; else $dados .= true;
}
else {
$dados .= str_replace("\n","<BR>\n",trim($buffer));
}
fclose ($br);
}

}
elseif (($final == '.com') OR ($final == '.net') OR ($final == '.org') OR ($final == '.edu'))
{
$internic = fsockopen($server&#91;1&#93;, 43, $errno, $errstr, 30);
if (!$internic)
{
$dados .= "$errstr ($errno)";
}
else {
fputs($internic, "$domain\r\n");
while (!feof($internic))
{
$buffer .= fread($internic,128);
}
if ($tipo == 1)
{
if (strpos($buffer, "No match for") > 0) $dados .= false; else $dados .= true;
}
else {
if (strpos($buffer, "No match for") > 0)
{
$dados .= "<pre>" . trim($buffer) . "</pre>";
}
else {
$servidor = substr($buffer, strpos($buffer, "Whois Server:")+14, strlen($buffer));
$servidor = substr($servidor, 0, strpos($servidor, "\n"));
$entidade = fsockopen("$servidor", 43, $errno, $errstr, 30);
if (!$entidade)
{
$dados .= "$errstr ($errno)";
}
else {
$buffer .= "-------------------------------------------------------------------------------<BR> <BR>";
fputs($entidade, "$domain\r\n");
while (!feof($entidade))
{
$buffer .= fread($entidade,128);
}
$dados .= str_replace("\n","<BR>\n",trim($buffer));
fclose ($entidade);
}
}
}
fclose ($internic);
}


}
else {
$network = fsockopen($server&#91;2&#93;, 43, $errno, $errstr, 30);
if (!$network)
{
$dados .= "$errstr ($errno)";
}
else {
fputs($network, "$domain\r\n");
while (!feof($network))
{
$buffer .= fread($network,128);
}
if ($tipo == 1)
{
if (strpos($buffer, "NOT FOUND") > 0) $dados .= false; else $dados .= true;
}
else {
$dados .= str_replace("\n","<BR>\n",trim($buffer));
}
fclose ($network);
}
}
}
return $dados;
}

?>




<form method=get>





<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
www. <input type=text name=dominio size=30>





<input type=submit value=Consultar>

</font>
</form>




<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<? if (!empty($_GET&#91;"dominio"&#93;)) { $dominio=$_GET&#91;"dominio"&#93;; ?>
</font>
<HR>
<font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Resposta simplificada:</b><BR>
<BR>
O Domínio <b>
<?=$dominio?>
</b>
<? if (whois($dominio,1) == 1) echo "<br><b> <font color=#FF0000 size=1 face=Verdana, Arial, Helvetica, sans-serif>DOMINIO REGISTRADO</font></b>"; else echo "<br><b><font color=#66CC66 size=1 face=Verdana, Arial, Helvetica, sans-serif>DOMINIO
LIVRE </b> </font>";?>
</font>
<HR>

<? } ?>
<br>
<br>
<br>