<?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");
?>
文章来源于领测软件测试网 https://www.ltesting.net/