PHP域名查询代码公布

dn001 2009-05-12 01:42:06

域名查询代码公布;;
;;;;<?php;;
// 网络技术主管座右铭：三人行，其必有我师焉。http://www.ctohome.com;;
// 这个代码可以是说是非常的SMART，我改动了小小部分使它更容易用。;;

$moreinfolist = array( // 储存WHOIS查询主机的连接方法;;
'at' => 'www.ripe.net/cgi-bin/whois?query=',;;
'au' => 'www.aunic.net/cgi-bin/whois.aunic?',;;
'bm' => 'www.bermudanic.bm/cgi-bin/BermudaNIC/rwhois_query_get.pl?query_text=',;;
'ch' => 'www.switch.ch/cgi-bin/domain/search_domain?keyword=',;;
'com'=> 'www.networksolutions.com/cgi-bin/whois/whois/?STRING=',;;
'cz' => 'www.ripe.net/cgi-bin/whois?query=',;;
'de' => 'www.ripe.net/cgi-bin/whois?query=',;;
'dk' => 'www.ripe.net/cgi-bin/whois?query=',;;
'edu'=> 'www.networksolutions.com/cgi-bin/whois/whois/?STRING=',;;
'es' => 'www.nic.es/whois/index.php?type=Dominios&key=',;;
'fi' => 'www.ripe.net/cgi-bin/whois?query=',;;
'fo' => 'www.ripe.net/cgi-bin/whois?query=',;;
'fr' => 'harmonic.nic.fr/cgi-bin/HarmoNIC.pl?Annu_Suffixe=&Annu_Action=Rechercher&Annu_Automaton_State=17&Annu_Motif=',;;
'gl' => 'www.ripe.net/cgi-bin/whois?query=',;;
'gm' => 'www.ripe.net/cgi-bin/whois?query=',;;
'gov'=> 'www.nic.gov/cgi-bin/whois?s=nic.gov',;;
'gr' => 'www.ripe.net/cgi-bin/whois?query=',;;
'hu' => 'www.ripe.net/cgi-bin/whois?query=',;;
'id' => 'whois.idnic.net.id/cgi-bin/whois-cgi?user=',;;
'ie' => 'www.ripe.net/cgi-bin/whois?query=',;;
'il' => 'www.ripe.net/cgi-bin/whois?query=',;;
'is' => 'www.ripe.net/cgi-bin/whois?query=',;;
'it' => 'www.ripe.net/cgi-bin/whois?query=',;;
'jp' => 'www.nic.ad.jp/cgi-bin/whois_gw?lang=/e&type=DOM&rule=ex&key=',;;
'lb' => 'www.aub.edu.lb/cgi-bin/lbdr.pl?cn=',;;
'li' => 'www.switch.ch/cgi-bin/domain/search_domain?keyword=',;;
'lt' => 'www.ripe.net/cgi-bin/whois?query=',;;
'lv' => 'www.ripe.net/cgi-bin/whois?query=',;;
'mc' => 'www.ripe.net/cgi-bin/whois?query=',;;
'mil'=> 'www.nic.mil/cgi-bin/whois?stype=Domains&ctype=reg&keyword=',;;
'ms' => 'www.adamsnames.tc/whois/?seen=y&domain=',;;
'mx' => 'www.nic.mx/cgi/whois?',;;
'net'=> 'www.networksolutions.com/cgi-bin/whois/whois/?STRING=',;;
'no' => 'www.ripe.net/cgi-bin/whois?query=',;;
'nz' => 'www.domainz.net.nz/facility/namesearch/Result.asp?prmMode=Search&DomainName=',;;
'org'=> 'www.networksolutions.com/cgi-bin/whois/whois/?STRING=',;;
'pt' => 'www.ripe.net/cgi-bin/whois?query=',;;
'ro' => 'whois.rotld.ro/cgi-bin/whois?whois=',;;
'sk' => 'www.ripe.net/cgi-bin/whois?query=',;;
'sm' => 'www.ripe.net/cgi-bin/whois?query=',;;
'tc' => 'www.adamsnames.tc/whois/?seen=y&domain=',;;
'tf' => 'www.adamsnames.tc/whois/?seen=y&domain=',;;
'th' => 'www.thnic.net/cgi-bin/whois.pl?server=whois.thnic.net&string=',;;
'tj' => 'www.nic.tj/whois.cgi?domain',;;
'tr' => 'whois.cc.metu.edu.tr/whois/wwwwhois?Whois=',;;
'uk' => 'www.nic.uk/cgi-bin/whois.cgi?query=',;;
'va' => 'www.ripe.net/cgi-bin/whois?query=',;;
'vg' => 'www.adamsnames.tc/whois/?seen=y&domain=';;
);;;

# where can we get more info?;;
$moreinfo = FALSE;;;
for ( reset($moreinfolist) ; list($tail, $moreinfoname) = each($moreinfolist) ; );;
if ( eregi("\.$tail$", $address) ) { // 比较域名后缀;;
$moreinfo = $moreinfoname; // 遇到匹配项就立即结束循环;;
break;;;
};;

if ( $moreinfo && $address) { // 跳转到WHOIS主机;;
header('Location: http://'. $moreinfo . $address);;;
exit();;;
};;
else {;;
echo "<form action=$PHP_SELF method=post>;;
请输入域名：<input name=address>;;
<input type=submit></form>";;;
};;

?>;;

<html>;;

<head>;;
<title>whois tool</title>;;
</head>;;

<body>;;

<p>网络技术主管汉化解释</a>.</p>;;

<hr />;;
<address>http://www.ctohome.com</address>;;

</body>;;

</html>;;

<?php;;
highlight_file("whois.php");;;
?>;;

标签：查询