文件一：index.php <?php echo "<!-- Powered by MWhois written by Matt Wilson <[email protected]> -->n"/* ;;;;######################################################################################### ;;;;#;;;;;;;# ;;;;#;;本域名查詢系統(tǒng)由mydowns收集整理漢化，漢化歸把握時間網(wǎng)站所有(http://www.85time.com);;;# ;;;;#;;該程序是2001年5月18日發(fā)布的最新版本，本站將對此程序繼續(xù)進行修改完善，敬請關注本站！;;# ;;;;#;;該程序可以查詢域名所有者的詳細資料信息，現(xiàn)提供9個類型的域名以供查詢！# ;;;;#;;演示地址：http://www.85time.com/whois# ;;;;#;;源程序打包下載：http://www.85time.com/mydowns/mydowns.php?id=378;;;;;# ;;;;#;;把握時間網(wǎng)站提供PHP、ASP、CGI、HTML、JSP等源程序、電子教材、文章資料;# ;;;;#;;把握時間網(wǎng)站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個字節(jié)的域名中不能包含有字母";;;return 0; } if(ereg("^-|-$",$domain)){ ;;;;$errormsg = "域名前和域名后不能使用-，也不可以連續(xù)使用-";;;return 0; } if(!ereg("([a-z]|[A-Z]|[0-9]|-){".strlen($domain)."}",$domain)){ ;;;;$errormsg = "域名只可以包含字母數(shù)字組合和-";;;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.$extn"); ;;;;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.$extn"); 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.$extn"); //;;;;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域名查詢內(nèi)部錯誤";;;do_error(); } $ret = perform_whois($domain,$ext,0); if($ret == -1) ;;;;do_error(); if(!$ret) ;;;;do_taken(); else ;;;;do_avail(); ?>