无数据库的详细域名查询程序PHP版(1)

文件一：index.php

  1   
  2  
  3echo "
  4<!-- Powered by MWhois written by Matt Wilson <[email protected]> \-->
  5\\\n\";   
  6  
  7/*   
  8#########################################################################################   
  9# #   
 10# 本域名查询系统由mydowns收集整理汉化，汉化归把握时间网站所有(http://www.85time.com) #   
 11# 该程序是2001年5月18日发布的最新版本，本站将对此程序继续进行修改完善，敬请关注本站！ #   
 12# 该程序可以查询域名所有者的详细资料信息，现提供9个类型的域名以供查询！ #   
 13# 演示地址：http://www.85time.com/whois #   
 14# 源程序打包下载：http://www.85time.com/mydowns/mydowns.php?id=378 #   
 15# 把握时间网站提供PHP、ASP、CGI、HTML、JSP等源程序、电子教材、文章资料 #   
 16# 把握时间网站http://www.85time.com 把握时间论坛http://ww.85time.ent #   
 17# 请保留此信息，谢谢！ #   
 18# #   
 19#########################################################################################   
 20MWhois - a Whois lookup script written in PHP and Perl   
 21Copyright (C) 2000 Matt Wilson   
 22  
 23This program is free software; you can redistribute it and/or modify   
 24it under the terms of the GNU General Public License as published by   
 25the Free Software Foundation; either version 2 of the License, or   
 26(at your option) any later version.   
 27  
 28This program is distributed in the hope that it will be useful,   
 29but WITHOUT ANY WARRANTY; without even the implied warranty of   
 30MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the   
 31GNU General Public License for more details.   
 32  
 33You should have received a copy of the GNU General Public License   
 34along with this program; if not, write to the Free Software   
 35Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA   
 36*/   
 37  
 38if(!isset($use_global_templates))   
 39$use_global_templates = 1; // whether to use the global templates   
 40  
 41$template_header = \"gheader.tml\"; // the global header template   
 42$template_footer = \"gfooter.tml\"; // the global footer template   
 43  
 44/* Template information stuff   
 45\----------------------------   
 46The following strings in your templates are replaced with the description;   
 47  
 48[>DOMAIN<] = domain searching for   
 49[>RAWOUTPUT<] = the raw output of the whois query   
 50[>WHOIS_SERVER<] = the whois server used   
 51[>AVAIL_LIST<] = a list of the available domains (in global/wizard search mode)   
 52[>UNAVAIL_LIST<] = a list of the unavailable domains (in global/wizard search mode)   
 53[>ERROR_MSG<] = the error message produced   
 54[>EXT<] = the extension if it is set   
 55[>EXT_HTML_LIST<] = a list of the extensions supported in a html list   
 56[>EXT_LIST<] = a list of extensions supported   
 57  
 58parameters to the script (no parameters brings up normal search script);   
 59  
 60show_raw=1 = wherther to show the raw output page   
 61do_wizard=1 = whether the information being passed is for the wizard   
 62domain=(string) = do a search for the domain (string)   
 63list_exts=1 = show the extensions supported page   
 64do_global=1 = goto the global search page   
 65do_mini_search=1 = just show the search form without anything else   
 66company=(string) = used for the wizard, needed in order to search   
 67keyword1=(string) = used for the wizard, needed in order to search   
 68keyword2=(string) = used for the wizard, needed in order to search   
 69  
 70If any of this is unclear, see the provided example templates   
 71*/   
 72  
 73$template_search_mini = \"searchform.tml\"; // search template   
 74$template_search = \"searchmain.tml\";   
 75$template_raw_output = \"rawoutput.tml\"; // raw output template   
 76$template_available = \"isavail.tml\"; // template for available   
 77$template_taken = \"istaken.tml\"; // template for taken   
 78$template_wizard = \"wizard.tml\"; // template for the domain wizard   
 79$template_wizard_results = \"wizardres.tml\"; // the output template for the domain wizard   
 80$template_error = \"error.tml\"; // the template in case of error   
 81$template_exts_list = \"exts_list.tml\";   
 82$template_global = \"global.tml\";   
 83$template_global_results = \"globres.tml\";   
 84  
 85$search_title = \"Let Floyd find your domain name\";   
 86$raw_output_title = \"Floyd\'s Raw WHOIS Output\";   
 87$available_title = \"Floyd says Domain Name Available!\";   
 88$taken_title = \"Floyd says Doman Name in use\";   
 89$wizard_title = \"Floyd the Domain Name Wizard\";   
 90$error_title = \"Floyd Encountered an Error!\";   
 91$exts_list_title = \"Floyd supports the following extensions\";   
 92$global_title = \"Let Floyd do the hard work!\";   
 93  
 94// the extensions that we are going to be using, edit these for your needs   
 95$whois_exts = array(   
 96\"com\",   
 97\"net\",   
 98\"org\",   
 99\"com.cn\",   
100\"net.cn\",   
101\"org.cn\",   
102\"gov.cn\",   
103\"sh\",   
104\"cc\"   
105);   
106  
107// some extensions (com/net/org) have a server which contains the name of the server which should be used for   
108  
109the information, this simply tells the script to use the whois server as a source for the server info... ;)   
110$whois_si_servers = array();   
111  
112// an array of the `whois\' servers   
113$whois_servers = array();   
114  
115// default whois servers for info   
116$whois_info_servers = array();   
117  
118// the backup whois servers to try   
119$whois_info_servers_backup = array();   
120  
121// the strings that are returned if the domain is available   
122$whois_avail_strings = array();   
123  
124// some substitution strings follow   
125$errormsg = \"\";   
126$titlebar = \"MWhois written by Matt Wilson\"; // the defatul title bar   
127$rawoutput = \"\";   
128$avail = array();   
129$unavail = array();   
130$whois_server = \"\";   
131  
132// the name of the script   
133$script_name = \"index.php\";   
134  
135function my_in_array($val,$array_)   
136{   
137for($l=0; $l

<sizeof($array_); !strlen($tlds[$l]))="" #)="" #".$line."="" $es='explode("|",' $ext)="" $l++)="" $l++){="" $l<sizeof($tlds);="" $tlds='file("servers.lst");' $tlds[$l]="chop($tlds[$l]);" $tlds[$l]);="" $whois_avail_strings;="" $whois_avail_strings[$es[1]]="$es[2];" $whois_exts))="" $whois_exts;="" $whois_info_servers;="" $whois_info_servers[$es[0]]="$es[3];" $whois_info_servers_backup;="" $whois_info_servers_backup[$es[0]]="$es[4];" $whois_server='"";' $whois_server;="" $whois_servers;="" $whois_servers[$es[0]]="$es[1];" $whois_si_servers;="" $whois_si_servers[$es[0]]="$es[5];" (begin="" --="" 0,="" 0;="" 1)='"#"' 1;="" 43))="false){" :="" @="" ".$whois_servers[$ext]."="" "<!--="" `|'="" appropriate="" arrays="" char="" check="" choose_info_server($domain,="" choose_info_server()="" commented="" connect="" continue;="" details="" do,="" echo="" explode="" extensions="" file="" filter="" for="" for($l="0;" function="" global="" if(!my_in_array($es[0],="" if($array_[$l]="$val)" if($whois_si_servers[$ext]){="" if(($co="fsockopen($whois_servers[$ext]," if(substr($tlds[$l],="" in="" info="" it!="" leading="" line="" lines="" load="" load_server_info()="" loads="" or="" out="" return="" see="" seperation="" server="" servers.lst="" so="" spaces="" store="" thats="" the="" this="" time="" tld="" to="" trailing="" unable="" via="" want="" we="" whether="" with="" yes="" {="" ||="" }="">\\n";
$whois_server = $whois_servers[$ext];
} else {
echo "<!-- choose_info_servers() : connected to ".$whois_servers[$ext]." @ line

#".$LINE.", looking for `".$whois_si_servers[$ext]."' -->\\n";
fputs($co, $domain.".".$ext."\\n");
while(!feof($co))
$output .= fgets($co,128);

fclose($co);

$he = strpos($output, $whois_si_servers[$ext]) + strlen($whois_si_servers[$ext]);
$le = strpos($output, "\\n", $he);
$whois_server = substr($output, $he, $le-$he);
echo "<!-- choose_info_servers() : found `".$whois_server."' @ line #".$LINE.",

using for whois info server -->\\n";
}
} else {
$whois_server = $whois_info_servers[$ext];
}

$whois_server = trim($whois_server);
}

// make all the changes
function make_changes($fil)
{
global $domain;
global $errormsg;
global $titlebar;
global $rawoutput;
global $avail;
global $unavail;
global $ext;
global $whois_exts;
global $whois_servers;
global $script_name;

$f = implode("",file($fil));

$f = str_replace("[>WHOIS_SERVER<]",$whois_servers[$ext],$f);
$f = str_replace("[>TITLE_BAR<]",$titlebar,$f);
$f = str_replace("[>DOMAIN<]",$domain,$f);
$f = str_replace("[>ERROR_MSG<]",$errormsg,$f);
$f = str_replace("[>RAWOUTPUT<]",$rawoutput,$f);

for($l=0; $l<sizeof($avail); $avail_s='$avail_s."<a' $l++){="" $sp[0]="substr($avail[$l],0,strlen($avail[$l])-strlen($sp[1])-1);" $sp[1]='substr(strchr($avail[$l],"."),1);' href='\\"".$script_name."?domain=".$sp[0]."&ext=".$sp[1]."\\"'>".$avail[$l]."<br/>";
}

for($l=0; $l<sizeof($unavail); $l++){="" $sp[0]="substr($unavail[$l],0,strlen($unavail[$l])-strlen($sp[1])-1);" $sp[1]='substr(strchr($unavail[$l],"."),1);' $unavail_s='$unavail_s."<a' href='\\"".$script_name."?domain=".$sp[0]."&ext=".$sp[1]."\\"'>".$unavail[$l]."<br/>";
}

$f = str_replace("[>AVAIL_LIST<]",$avail_s,$f);
$f = str_replace("[>UNAVAIL_LIST<]",$unavail_s,$f);
$f = str_replace("[>SCRIPT_NAME<]", $script_name, $f);
$f = str_replace("[>EXT<]",$ext,$f);
$f = str_replace("[>EXT_LIST<]",implode("<br/>",$whois_exts),$f);
$f = str_replace("[>EXT_HTML_LIST<]","<select name="ext">\\n<option>".implode("\\n<option>",$whois_exts)."\\n</option></option></select>",$f);

return $f;
}

// show the error page
function do_error()
{
global $use_global_templates;
global $template_header;
global $template_footer;
global $template_error;
global $domain;
global $titlebar;
global $error_title;
global $errormsg;

$titlebar = $error_title;

if($use_global_templates)
echo make_changes($template_header);

echo make_changes($template_error);

if($use_global_templates)
echo make_changes($template_footer);

exit();
}

// checks the domain is legal
function check_domain()
{
global $errormsg;
global $domain;
global $ext;
global $whois_exts;

if(isset($ext)){
if(!strlen($ext)){
$errormsg = "没有选择域名后缀";
return 0;
}
if(!my_in_array($ext,$whois_exts)){
$errormsg = "不支持此域名后缀";
return 0;
}
}
if(isset($domain)){
if(strlen($domain) < 2 || strlen($domain) > 57){
$errormsg = "域名太长或太短";
return 0;
}
if(strlen($domain) == 2 && !ereg("([0-9]){2}",$domain)){
$errormsg = "在2个字节的域名中不能包含有字母";
return 0;
}
if(ereg("^-|-$",$domain)){
$errormsg = "域名前和域名后不能使用-，也不可以连续使用-";
return 0;
}
if(!ereg("([a-z]|[A-Z]|[0-9]|-){".strlen($domain)."}",$domain)){
$errormsg = "域名只可以包含字母数字组合和-";
return 0;
}
}

return 1;
}

// perform_whois function returns 0 if domain is available otherwise returns either the raw info or 1
function perform_whois($domainname,$ext,$raw)
{
global $errormsg;
global $whois_servers;
global $rawoutput;
global $whois_avail_strings;

$rawoutput = "";

if($raw)
return do_raw($domainname,$ext);

if(($ns = fsockopen($whois_servers[$ext],43)) == false){
$errormsg = "无法连接到域名查询服务器 <b><i>".$whois_servers[$ext]."</i></b>";
return -1;
}
fputs($ns,"$domainname.$ext\\n");
while(!feof($ns))
$rawoutput .= fgets($ns,128);

fclose($ns);

echo "<!--\\nAvail string = \\"".$whois_avail_strings[$whois_servers[$ext]]."\\"\\nComparing against =

\\"".$rawoutput."\\"\\n-->\\n";

if(!ereg($whois_avail_strings[$whois_servers[$ext]], $rawoutput))
return 0;

return 1;
}

// this performs the whois lookup and then shows the data returned
function do_raw($domainname, $ext)
{
global $titlebar;
global $template_raw_output;
global $use_global_templates;
global $template_header;
global $template_footer;
global $raw_output_title;
global $whois_info_servers;
global $whois_servers;
global $rawoutput;
global $errormsg;
global $whois_info_servers_backup;
global $whois_avail_strings;
global $whois_server;

choose_info_server($domainname, $ext);

if(($ns = fsockopen($whois_server,43)) == false){
if(($ns = fsockopen($whois_info_servers[$ext],43)) == false){
if(($ns = fsockopen($whois_info_servers_backup[$ext], 43)) == false){
return -1;
} else {
$whois_server = $whois_info_servers_backup[$ext];
}
} else {
$whois_server = $whois_info_servers[$ext];
}
}

print "\\n";

fputs($ns,"$domainname.$ext\\n");
while(!feof($ns))
$rawoutput = $rawoutput.fgets($ns,128);

fclose($ns);

echo "";

// $pos = @strpos($rawoutput,$whois_avail_strings[$server]);
// if(is_string($pos) && !$pos){}
// else{
// if(!is_string($pos) || $pos){
// if(($ns = fsockopen($whois_info_servers_backup[$ext],43)) == false)
// return -1;
// else{
// $rawoutput = "";
// fputs($ns,"$domainname.$ext\\n");
// while(!feof($ns))
// $rawoutput = $rawoutput.fgets($ns,128);
// $pos = @strpos($rawoutput,$whois_avail_strings[$whois_info_servers_backup[$ext]]);
// if(!is_string($pos) || $pos){}
// else
// return -1;
// }
// }

$titlebar = $raw_output_title;

if($use_global_templates)
echo make_changes($template_header);

echo make_changes($template_raw_output);

if($use_global_templates)
echo make_changes($template_footer);

exit();
}

function do_getsearch_mini()
{
global $template_search_mini;

echo make_changes($template_search_mini);

exit();
}

function do_getsearch()
{
global $template_footer;
global $template_header;
global $use_global_templates;
global $titlebar;
global $template_search;
global $search_title;

$titlebar = $search_title;

if($use_global_templates)
echo make_changes($template_header);

echo make_changes($template_search);

if($use_global_templates)
echo make_changes($template_footer);

exit();
}

function do_avail()
{
global $template_footer;
global $template_header;
global $use_global_templates;
global $titlebar;
global $template_available;
global $available_title;

$titlebar = $available_title;

if($use_global_templates)
echo make_changes($template_header);

echo make_changes($template_available);

if($use_global_templates)
echo make_changes($template_footer);

exit();
}

function do_taken()
{
global $template_footer;
global $template_header;
global $use_global_templates;
global $template_taken;
global $titlebar;
global $taken_title;

$titlebar = $taken_title;

if($use_global_templates)
echo make_changes($template_header);

echo make_changes($template_taken);

if($use_global_templates)
echo make_changes($template_footer);

exit();
}

function do_exts()
{
global $template_footer;
global $template_header;
global $use_global_templates;
global $template_exts_list;
global $titlebar;
global $exts_list_title;

$titlebar = $exts_list_title;

if($use_global_templates)
echo make_changes($template_header);

echo make_changes($template_exts_list);

if($use_global_templates)
echo make_changes($template_footer);

exit();
}

function do_glob()
{
global $domain;
global $whois_exts;
global $avail;
global $unavail;
global $template_header;
global $template_footer;
global $use_global_templates;
global $titlebar;
global $global_title;

$titlebar = $global_title;

if($use_global_templates)
echo make_changes($template_header);

if(!isset($domain)){
global $template_global;

echo make_changes($template_global);
}
else{
global $template_global_results;

for($l=0; $l<sizeof($whois_exts); $l++){
if(($r = perform_whois($domain,$whois_exts[$l],0)) != -1){
if(!$r)
$avail[] = $domain.".".$whois_exts[$l];
else
$unavail[] = $domain.".".$whois_exts[$l];
}
}

echo make_changes($template_global_results);
}

if($use_global_templates)
echo make_changes($template_footer);

exit();
}

function do_wiz()
{
global $domain;
global $ext;
global $avail;
global $unavail;
global $template_header;
global $template_footer;
global $use_global_templates;
global $titlebar;
global $wizard_title;
global $errormsg;
global $keyword1;
global $keyword2;
global $company;

$titlebar = $wizard_title;

if($use_global_templates)
echo make_changes($template_header);

if(!isset($company) || !isset($keyword1) || !isset($keyword2)){
global $template_wizard;

echo make_changes($template_wizard);
}
else{
global $template_wizard_results;

$domains = array(
$company,
$company.$keyword1,
$company."-".$keyword1,
$keyword1.$company,
$keyword1."-".$company,
$company.$keyword2,
$company."-".$keyword2,
$keyword2.$company,
$keyword2."-".$company,
$keyword1,
$keyword2,
$keyword1.$keyword2,
$keyword2.$keyword1,
$keyword1."-".$keyword2,
$keyword2."-".$keyword1
);

for($l=0; $l<sizeof($domains); $l++){
$domain = strtolower(str_replace(" ","",$domains[$l]));
if(check_domain()){
if(($r = perform_whois($domain,$ext,0)) != -1){
if(!$r)
$avail[] = $domain.".".$ext;
else
$unavail[] = $domain.".".$ext;
}
}
}

echo make_changes($template_wizard_results);
}

if($use_global_templates)
echo make_changes($template_footer);

exit();
}

load_server_info();

if(!check_domain())
do_error();

if(isset($do_wizard))
do_wiz();

if(isset($do_global))
do_glob();

if(isset($list_exts))
do_exts();

if(isset($do_mini_search))
do_getsearch_mini();

if(!isset($domain))
do_getsearch();

if(isset($show_raw)){
if(perform_whois($domain,$ext,1) != -1)
$errormsg = "MWhois域名查询内部错误";

do_error();
}

$ret = perform_whois($domain,$ext,0);
if($ret == -1)
do_error();

if(!$ret)
do_taken();
else
do_avail();