文件一：index.php <?php echo "<!-- Powered by MWhois written by Matt Wilson <matt@mattsscripts.co.uk> -->\n"; /*     #########################################################################################     #                                                                                       #     #  本域名查询系统由mydowns收集整理汉化，汉化归把握时间网站所有(http://www.85time.com)   #     #  该程序是2001年5月18日发布的最新版本，本站将对此程序继续进行修改完善，敬请关注本站！  #     #  该程序可以查询域名所有者的详细资料信息，现提供9个类型的域名以供查询！                #     #  演示地址：http://www.85time.com/whois                                                #     #  源程序打包下载：http://www.85time.com/mydowns/mydowns.php?id=378                     #     #  把握时间网站提供PHP、ASP、CGI、HTML、JSP等源程序、电子教材、文章资料                 #     #  把握时间网站http://www.85time.com  把握时间论坛http://ww.85time.ent                  #     #  请保留此信息，谢谢！                                                                 #     #                                                                                       #     #########################################################################################     MWhois - a Whois lookup script written in PHP and Perl     Copyright (C) 2000 Matt Wilson     This program is free software; you can redistribute it and/or modify     it under the terms of the GNU General Public License as published by     the Free Software Foundation; either version 2 of the License, or     (at your option) any later version.     This program is distributed in the hope that it will be useful,     but WITHOUT ANY WARRANTY; without even the implied warranty of     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     GNU General Public License for more details.     You should have received a copy of the GNU General Public License     along with this program; if not, write to the Free Software     Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA */ if(!isset($use_global_templates))     $use_global_templates = 1;    // whether to use the global templates $template_header = "gheader.tml";    // the global header template $template_footer = "gfooter.tml";    // the global footer template /* Template information stuff   ----------------------------   The following strings in your templates are replaced with the description;     [>DOMAIN<] = domain searching for     [>RAWOUTPUT<] = the raw output of the whois query     [>WHOIS_SERVER<] = the whois server used     [>AVAIL_LIST<] = a list of the available domains (in global/wizard search mode)     [>UNAVAIL_LIST<] = a list of the unavailable domains (in global/wizard search mode)     [>ERROR_MSG<] = the error message produced     [>EXT<] = the extension if it is set     [>EXT_HTML_LIST<] = a list of the extensions supported in a html list     [>EXT_LIST<] = a list of extensions supported   parameters to the script (no parameters brings up normal search script);     show_raw=1    = wherther to show the raw output page     do_wizard=1    = whether the information being passed is for the wizard     domain=(string) = do a search for the domain (string)     list_exts=1    = show the extensions supported page     do_global=1    = goto the global search page     do_mini_search=1 = just show the search form without anything else     company=(string) = used for the wizard, needed in order to search     keyword1=(string) = used for the wizard, needed in order to search     keyword2=(string) = used for the wizard, needed in order to search   If any of this is unclear, see the provided example templates */ $template_search_mini = "searchform.tml";    // search template $template_search = "searchmain.tml"; $template_raw_output = "rawoutput.tml";    // raw output template $template_available = "isavail.tml";    // template for available $template_taken = "istaken.tml";    // template for taken $template_wizard = "wizard.tml";    // template for the domain wizard $template_wizard_results = "wizardres.tml"; // the output template for the domain wizard $template_error = "error.tml";    // the template in case of error $template_exts_list = "exts_list.tml"; $template_global = "global.tml"; $template_global_results = "globres.tml"; $search_title = "Let Floyd find your domain name"; $raw_output_title = "Floyd"s Raw WHOIS Output"; $available_title = "Floyd says Domain Name Available!"; $taken_title = "Floyd says Doman Name in use"; $wizard_title = "Floyd the Domain Name Wizard"; $error_title = "Floyd Encountered an Error!"; $exts_list_title = "Floyd supports the following extensions"; $global_title = "Let Floyd do the hard work!"; // the extensions that we are going to be using, edit these for your needs $whois_exts = array(     "com",     "net",     "org",     "com.cn",     "net.cn",     "org.cn",     "gov.cn",     "sh",     "cc" ); // some extensions (com/net/org) have a server which contains the name of the server which should be used for  the information, this simply tells the script to use the whois server as a source for the server info... ;) $whois_si_servers = array(); // an array of the `whois" servers $whois_servers = array(); // default whois servers for info $whois_info_servers = array(); // the backup whois servers to try $whois_info_servers_backup = array(); // the strings that are returned if the domain is available $whois_avail_strings = array(); // some substitution strings follow $errormsg = ""; $titlebar = "MWhois written by Matt Wilson";    // the defatul title bar $rawoutput = ""; $avail = array(); $unavail = array(); $whois_server = ""; // the name of the script $script_name = "index.php"; function my_in_array($val,$array_) {     for($l=0; $l<sizeof($array_); $l++)         if($array_[$l] == $val)             return 1;     return 0; } // this loads the server info for the extensions in $whois_exts; function load_server_info() {     global $whois_exts;     global $whois_si_servers;     global $whois_servers;     global $whois_info_servers;     global $whois_info_servers_backup;     global $whois_avail_strings;     // load the servers.lst file     $tlds = file("servers.lst");     for($l=0; $l<sizeof($tlds); $l++){         // time leading spaces or trailing spaces         $tlds[$l] = chop($tlds[$l]);         // filter out the commented lines (begin with #)         if(substr($tlds[$l], 0, 1) == "#" || !strlen($tlds[$l])) { continue; }         // explode via the seperation char `|"         $es = explode("|", $tlds[$l]);         // check to see whether we want this TLD         if(!my_in_array($es[0], $whois_exts)) { continue; }         // yes we do, so store the details in the appropriate arrays         $whois_servers[$es[0]] = $es[1];         $whois_si_servers[$es[0]] = $es[5];         $whois_info_servers[$es[0]] = $es[3];         $whois_info_servers_backup[$es[0]] = $es[4];         $whois_avail_strings[$es[1]] = $es[2];         // thats it!     } } function choose_info_server($domain, $ext) {     global $whois_info_servers;     global $whois_si_servers;     global $whois_server;     global $whois_servers;     $whois_server = "";     if($whois_si_servers[$ext]){         if(($co = fsockopen($whois_servers[$ext], 43)) == false){             echo "<!-- choose_info_server() : unable to connect to ".$whois_servers[$ext]." @ line  #".$__LINE__." -->\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); $l++){         $sp[1] = substr(strchr($avail[$l],"."),1);         $sp[0] = substr($avail[$l],0,strlen($avail[$l])-strlen($sp[1])-1);         $avail_s = $avail_s."<a  href=\"".$script_name."?domain=".$sp[0]."&ext=".$sp[1]."\">".$avail[$l]."</a><br>";     }      for($l=0; $l<sizeof($unavail); $l++){                 $sp[1] = substr(strchr($unavail[$l],"."),1);                 $sp[0] = substr($unavail[$l],0,strlen($unavail[$l])-strlen($sp[1])-1);                 $unavail_s = $unavail_s."<a  href=\"".$script_name."?domain=".$sp[0]."&ext=".$sp[1]."\">".$unavail[$l]."</a><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</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 "<!-- do_raw() : using `".$whois_server."" for whois query -->\n";         fputs($ns,"$domainname.$ext\n");         while(!feof($ns))                 $rawoutput = $rawoutput.fgets($ns,128);         fclose($ns);     echo "<!--".$rawoutput."-->"; //    $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(); ?>