my-Tool.com: IPアドレス - IPアドレスを検出してその裏にあるすべての秘密を暴く。

my-Tool.com: IPアドレス - IPアドレスを検出してその裏にあるすべての秘密を暴く。 - 大規模

IPアドレス

簡単もっと詳細大規模

大規模

DNS引きに加えてIPアドレスのWHOIS情報も提供する。

あなたのインターネット接続はつぎのような情報をもっている。

IPアドレス	: 38.103.63.58^{(ホスト名,国,whois)}
ポート番号	: 57512
ホスト名	:
すべてのＩＰ	: 38.103.63.58^{(ホスト名,国,whois)},
参照元	:
言語	: is
国	: アメリカ合衆国 (北アメリカ州)
ブラウザ	: (tables)
プラットフォーム	:
DNSレコード	A レコード: MX レコード: NS レコード: SOA レコード: HINFO レコード: AXFR レコード: TXT レコード:
WHOISレコード	OrgName: Performance Systems International Inc. OrgID: PSI Address: 1015 31st St NW City: Washington StateProv: DC PostalCode: 20007 Country: US NetRange: 38.0.0.0^{(ホスト名,国,whois)} - 38.255.255.255^{(ホスト名,国,whois)} CIDR: 38.0.0.0^{(ホスト名,国,whois)}/8 NetName: PSINETA NetHandle: NET-38-0-0-0-1 Parent: NetType: Direct Allocation NameServer: NS.PSI.NET^{(ip,dns,whois)} NameServer: NS2.PSI.NET^{(ip,dns,whois)} Comment: Reassignment information for this block can be found at Comment: rwhois.cogentco.com^{(ip,dns,whois)} 4321 RegDate: 1991-04-16 Updated: 2005-10-05 RTechHandle: PSI-NISC-ARIN RTechName: IP Allocation RTechPhone: +1-877-875-4311 RTechEmail: ipalloc@cogentco.com^{(ip,dns,whois)} OrgAbuseHandle: COGEN-ARIN OrgAbuseName: Cogent Abuse OrgAbusePhone: +1-877-875-4311 OrgAbuseEmail: abuse@cogentco.com^{(ip,dns,whois)} OrgNOCHandle: ZC108-ARIN OrgNOCName: Cogent Communications OrgNOCPhone: +1-877-875-4311 OrgNOCEmail: noc@cogentco.com^{(ip,dns,whois)} OrgTechHandle: IPALL-ARIN OrgTechName: IP Allocation OrgTechPhone: +1-877-875-4311 OrgTechEmail: ipalloc@cogentco.com^{(ip,dns,whois)} # ARIN WHOIS database, last updated 2008-11-20 19:10 # Enter ? for additional hints on searching ARIN's WHOIS database.

このツールを利用したほとんどのお客様は以下のツールも利用しました。
大規模 (13.5%), Code Tester (7.7%), Source (5.8%)

このツールのソースコードは以下に示す。

<?php

/******************************************************************
* 
* IPAddressExtensive, DNS引きに加えてIPアドレスのWHOIS情報も提供する。
* Copyright (C) 2006, Bowo Prasetyo
*  
* http://www.my-tool.com
* 
* 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 below,
* 
* http://www.gnu.org/licenses/gpl.html#TOC1
* 
* 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., 51 Franklin Street, Fifth Floor, Boston, 
* MA  02110-1301, USA.
* 
* このプログラムはフリーソフトウェアです。あなたはこれを、以下のURLにフリーソフトウェ
* ア財団によって発行された GNU 一般公衆利用許諾契約書の定める条件の下で
* 再頒布または改変することができます。
* 
* http://www.gnu.org/licenses/gpl.html#TOC1
* 
* このプログラムは有用であることを願って頒布されますが、*全くの無保証* 
* です。商業可能性の保証や特定の目的への適合性は、言外に示されたものも含
* め全く存在しません。詳しくはGNU 一般公衆利用許諾契約書をご覧ください。
*  
* あなたはこのプログラムと共に、GNU 一般公衆利用許諾契約書の複製物を一部
* 受け取ったはずです。もし受け取っていなければ、フリーソフトウェア財団ま
* で請求してください(宛先は the Free Software Foundation, Inc., 59
* Temple Place, Suite 330, Boston, MA 02111-1307 USA)。
*
*****************************************************************/

require_once('get_country-ja.php');
      require_once('get_lang-ja.php');
      require_once('get_browser_local.php');
      require_once('cached_dig-ja.php');
      require_once('cached_whois.php');
      require_once('iphost_callback-ja.php');

?>

<script type="text/javascript">
google_ad_client = "pub-6269511881695171";
google_alternate_ad_url = "http://www.my-tool.com/a120_90.php";
google_ad_width = 728;
google_ad_height = 15;
google_ad_format = "728x15_0ads_al_s";
google_ad_channel = "";
google_color_border = "FFFFFF";
google_color_bg = "FFFFFF";
google_color_link = "A9501B";
google_color_text = "000000";
google_color_url = "008000";
</script>
<script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script><br /><br />

あなたのインターネット接続はつぎのような情報をもっている。<br>
<table border=0>
<tr><td>IPアドレス</td><td>: <?php echo iphost_callback(array($_SERVER['REMOTE_ADDR'])) ?></td></tr>
<tr><td><nobr>ポート番号</nobr></td><td>: <?php echo $_SERVER['REMOTE_PORT'] ?></td></tr>
<tr><td>ホスト名</td><td>: <?php $hostname=gethostbyaddr($_SERVER['REMOTE_ADDR']); iphost_callback(array($hostname)) ?></td></tr>
<tr><td>すべてのＩＰ</td><td>: <?php foreach (gethostbynamel($hostname) as $ip) echo iphost_callback(array($ip)).', '; ?></td></tr>
<tr><td>参照元</td><td>: <?php 
   echo $_SERVER['HTTP_REFERER'];
   if (preg_match('/^https?:\/\/([^\/]+)/i', $_SERVER['HTTP_REFERER'], $matches)==1)
      echo iphost_callback_2($matches[1]);
?></td></tr>
<tr><td>言語</td><td>: <?php echo get_lang($_SERVER['HTTP_ACCEPT_LANGUAGE']) ?></td></tr>
<tr><td>国</td><td>: <?php echo get_country($_SERVER['REMOTE_ADDR']) ?></td></tr>
<tr><td>ブラウザ</td><td>: <?php $browser=get_browser_local($_SERVER['HTTP_USER_AGENT']); echo $browser->parent; $browscap = ''; foreach ($browser as $key=>$value) if ($value>0 && !in_array($key, $coreVar)) $browscap = $browscap.$key.($value>1?$value:'').', '; $browscap = rtrim($browscap,', '); echo " ($browscap)" ?></td></tr>
<tr><td>プラットフォーム</td><td>: <?php echo $browser->platform ?></td></tr>
<tr><td valign="top"><nobr>DNSレコード</nobr></td><td>
   <?php
      $types = array('a','mx','ns','soa','hinfo','axfr','txt');
      foreach ($types as $type)
      { 
	 if (cached_dig($server, $hostname, $type, $class, $result))
	    echo '<hr>'.strtoupper($type).' レコード:<br><pre class="cached">'.preg_replace_callback('/([a-z0-9_-]+\.)+([a-z0-9_-]+)?/mi', "iphost_callback", $result).'</pre>';
	 else
	    echo '<hr>'.strtoupper($type).' レコード:<br><pre>'.preg_replace_callback('/([a-z0-9_-]+\.)+([a-z0-9_-]+)?/mi', "iphost_callback", $result).'</pre>';
	 unset($result);
      }
   ?>
</td></tr>
<tr><td valign="top"><nobr>WHOISレコード</nobr></td><td>
   <?php
      $host = '';
      if (cached_whois($_SERVER['REMOTE_ADDR'], $result))
         echo '<hr><pre class="cached">'.preg_replace_callback('/([a-z0-9_-]+\.)+([a-z0-9_-]+)?/mi', "iphost_callback", $result).'</pre>';
      else
	      echo '<hr><pre>'.preg_replace_callback('/([a-z0-9_-]+\.)+([a-z0-9_-]+)?/mi', "iphost_callback", $result).'</pre>';
      unset($result);
      $domain = get_domain($hostname);
      if ($domain!==FALSE)
      {
         if (cached_whois($domain, $result))
            echo '<hr><pre class="cached">'.preg_replace_callback('/([a-z0-9_-]+\.)+([a-z0-9_-]+)?/mi', "iphost_callback", $result).'</pre>';
         else
            echo '<hr><pre>'.preg_replace_callback('/([a-z0-9_-]+\.)+([a-z0-9_-]+)?/mi', "iphost_callback", $result).'</pre>';
      }
   ?>
</td></tr>
</table>
<br>

<script language="Javascript" type="text/javascript">var version = 1.0;</script>
<script language="Javascript1.1" type="text/javascript"> version = 1.1;</script>
<script language="Javascript1.2" type="text/javascript"> version = 1.2;</script>
<script language="Javascript1.3" type="text/javascript"> version = 1.3;</script>
<script language="Javascript1.4" type="text/javascript"> version = 1.4;</script>
<script language="Javascript1.5" type="text/javascript"> version = 1.5;</script>
<script language="Javascript1.6" type="text/javascript"> version = 1.6;</script>
<script language="Javascript1.7" type="text/javascript"> version = 1.7;</script>
<script language="Javascript2.0" type="text/javascript"> version = 2.0;</script>

<script>
<!-- hide

var java = navigator.javaEnabled()?'使用可能':'使用不可';
var cookie = navigator.cookieEnabled?'使用可能':'使用不可';
var clientTime = new Date();
var serverTime = new Date(<?php echo (time()*1000) ?>);
var diff = 9 + Math.round((serverTime - clientTime)/(1000*60*60));
var zone = diff<0?(''+diff):('+'+diff);

</script>

<script>
<!-- hide

document.writeln('JavaScriptによる拡張…');
document.writeln('<table border=0>');
document.writeln('<tr><td>JavaScript</td><td>:</td><td>バージョン '+ version + '</td></tr>');
document.writeln('<tr><td>ジャヴァ</td><td>:</td><td>' + java + '</td></tr>');
document.writeln('<tr><td>クッキー</td><td>:</td><td>' + cookie + '</td></tr>');
document.writeln('<tr><td>履歴</td><td>:</td><td>' + window.history.length + ' ページ</td></tr>');
document.writeln('<tr><td>画面</td><td>:</td><td>' + screen.width + ' x ' + screen.height + ' (' + screen.colorDepth + ' ビットカラー)</td></tr>');
document.writeln('<tr><td>タイムゾーン</td><td>:</td><td>GMT ' + zone + ' 時間</td></tr>');
document.write('</table><br>');

if (navigator.plugins && navigator.plugins.length>0)
{
   document.writeln('インストールされたプラグイン…');
   document.writeln('<table border=0>');
   document.writeln('<tr><td colspan=3><hr></td></tr>');
   for (i=0; i<navigator.plugins.length; i++)
   {
      document.writeln('<tr><td>名前</td><td>:</td><td>' + navigator.plugins[i].name + '</td></tr>');
      document.writeln('<tr><td>説明</td><td>:</td><td>' + navigator.plugins[i].description + '</td></tr>');
      document.writeln('<tr><td>ファイル名</td><td>:</td><td>' + navigator.plugins[i].filename + '</td></tr>');
      document.write('<tr><td>Mime タイプ</td><td>:</td><td>');
      for (j=0; j<navigator.plugins[i].length; j++)
      {
         for (q in navigator.plugins[i][j])
         {
            document.write(navigator.plugins[i][j].type + ", ");
         }
      }
      document.writeln('</td></tr>');
      document.writeln('<tr><td colspan=3><hr></td></tr>');
   }
   document.write('</table><br>');
}

</script>

<noscript>
JavaScriptはあなたのブラウザーに使用不可。
</noscript>

<script src="/detector.vbs" language="VBScript" type="text/vbscript">
</script>

<script language="VBScript" type="text/vbscript">
<!-- hide

document.writeln("VBScriptによる拡張…")
document.writeln("<table border=0>")
document.writeln("<tr><td>VBScript</td><td>:</td><td>バージョン " & version & "</td></tr>")
document.writeln("</table><br>")

if isAvailable.count > 0 then
   document.writeln("インストールされたActiveX…")
   document.writeln("<table border=0>")
   for each key in isAvailable.keys
      if isAvailable(key) then
         document.writeln("<tr><td>" + key + "</td></tr>")
      end if
   next
   document.writeln("</table><br>")
end if

' unhide -->
</script>

<noscript>
VBScriptはあなたのブラウザーに使用不可。
</noscript>

<?php

?>

'get_country-ja.php'のソースコードは以下に示す。

<?php

/******************************************************************
* 
* get_country-ja.php, 
* Copyright (C) 2006, Bowo Prasetyo
*  
* http://www.my-tool.com
* 
* 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 below,
* 
* http://www.gnu.org/licenses/gpl.html#TOC1
* 
* 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., 51 Franklin Street, Fifth Floor, Boston, 
* MA  02110-1301, USA.
* 
* このプログラムはフリーソフトウェアです。あなたはこれを、以下のURLにフリーソフトウェ
* ア財団によって発行された GNU 一般公衆利用許諾契約書の定める条件の下で
* 再頒布または改変することができます。
* 
* http://www.gnu.org/licenses/gpl.html#TOC1
* 
* このプログラムは有用であることを願って頒布されますが、*全くの無保証* 
* です。商業可能性の保証や特定の目的への適合性は、言外に示されたものも含
* め全く存在しません。詳しくはGNU 一般公衆利用許諾契約書をご覧ください。
*  
* あなたはこのプログラムと共に、GNU 一般公衆利用許諾契約書の複製物を一部
* 受け取ったはずです。もし受け取っていなければ、フリーソフトウェア財団ま
* で請求してください(宛先は the Free Software Foundation, Inc., 59
* Temple Place, Suite 330, Boston, MA 02111-1307 USA)。
*
*****************************************************************/

/**
 * @package    Base
 * @author     Bowo Prasetyo <praNzOjp@SgmPaiAl.coMm> (take N O S P A M for email)
 * @version    0.1.0
 * @copyright  2006-2007 my-Tool.com
 * @license    http://www.gnu.org/licenses/gpl.html GNU General Public License
 */
/**
 * IPアドレスで国名を取得する
 * 
 * IPアドレスをロング整数の形に変換してそれを用いてGeoIPデータベースに正式な
 * 国名を検索する。つぎは配列を用いてそれをもっと自然な国名に変換してから帰す。
 * 
 * GeoIPデータベースは
 * {@link http://software77.net/cgi-bin/ip-country/geo-ip.pl Webnet77}.
 * から入手できる。
 *
 * この関数が使うGeoIPのMySQLデータベースは以下のように作成できる
 *
 * <code>
 * CREATE TABLE `geoip` (
 *   `ip_from` bigint(20) NOT NULL default '0',
 *   `ip_to` bigint(20) NOT NULL default '0',
 *   `registry` varchar(10) default NULL,
 *   `assigned` bigint(20) default '0',
 *   `ctry` char(2) default NULL,
 *   `cntry` char(3) default NULL,
 *   `country` varchar(255) default NULL,
 *   KEY `ip_from` (`ip_from`),
 *   KEY `ip_to` (`ip_to`)
 * ) TYPE=MyISAM
 * </code>
 * 
 * @param  string $ipaddr IPアドレス
 * @return string         国名
 *
 * @package    Base
 * @author     Bowo Prasetyo <praNzOjp@SgmPaiAl.coMm> (take N O S P A M for email)
 * @version    0.1.0
 * @copyright  2006-2007 my-Tool.com
 * @license    http://www.gnu.org/licenses/gpl.html GNU General Public License
 */
function get_country($ipaddr)
{
   /**
    * 自然な国名の配列を読み込む
    */
   require_once('country_const-ja.php');

$ip = sprintf("%u", ip2long($ipaddr));

/* Needs: GeoIP データベースは <a href="http://software77.net/cgi-bin/ip-country/geo-ip.pl">Webnet77</a> から取得できる。 */

$result = mysql_query("SELECT country FROM geoip WHERE ip_from <= $ip and ip_to >= $ip;");
   if (!$result)
      die('Invalid query: '.mysql_error());

$country = '';
   while ($line = mysql_fetch_array($result, MYSQL_ASSOC)) 
   {
      $country = $country.$countries[$line['country']][0].' ('.$countries[$line['country']][1].') ';
   }

return $country;
}

?>

'country_const-ja.php'のソースコードは以下に示す。

<?php

/******************************************************************
* 
* country_const-ja.php, 
* Copyright (C) 2006, Bowo Prasetyo
*  
* http://www.my-tool.com
* 
* 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 below,
* 
* http://www.gnu.org/licenses/gpl.html#TOC1
* 
* 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., 51 Franklin Street, Fifth Floor, Boston, 
* MA  02110-1301, USA.
* 
* このプログラムはフリーソフトウェアです。あなたはこれを、以下のURLにフリーソフトウェ
* ア財団によって発行された GNU 一般公衆利用許諾契約書の定める条件の下で
* 再頒布または改変することができます。
* 
* http://www.gnu.org/licenses/gpl.html#TOC1
* 
* このプログラムは有用であることを願って頒布されますが、*全くの無保証* 
* です。商業可能性の保証や特定の目的への適合性は、言外に示されたものも含
* め全く存在しません。詳しくはGNU 一般公衆利用許諾契約書をご覧ください。
*  
* あなたはこのプログラムと共に、GNU 一般公衆利用許諾契約書の複製物を一部
* 受け取ったはずです。もし受け取っていなければ、フリーソフトウェア財団ま
* で請求してください(宛先は the Free Software Foundation, Inc., 59
* Temple Place, Suite 330, Boston, MA 02111-1307 USA)。
*
*****************************************************************/

$burkina = <<<EOT
ブルキナファソ
EOT;
$burkina = str_replace("\n",'',$burkina);

$countries = array("AFGHANISTAN" => array('アフガニスタン', 'アジア州'),
"ALBANIA" => array('アルバニア', 'ヨーロッパ州'),
"ALGERIA" => array('アルジェリア', 'アフリカ州'),
"AMERICAN SAMOA" => array('アメリカ領サモア', ''),
"ANDORRA" => array('アンドラ', 'ヨーロッパ州'),
"ANGOLA" => array('アンゴラ', 'アフリカ州'),
"ANGUILLA" => array('アンギラ', ''),
"ANTIGUA AND BARBUDA" => array('アンティグア・バーブーダ', '北アメリカ州'),
"ARGENTINA" => array('アルゼンチン', '南アメリカ州'),
"ARMENIA" => array('アルメニア', 'NIS諸国'),
"ARUBA" => array('アルバ', ''),
"AUSTRALIA" => array('オーストラリア', '大洋州'),
"AUSTRIA" => array('オーストリア', 'ヨーロッパ州'),
"AZERBAIJAN" => array('アゼルバイジャン', 'NIS諸国'),
"BAHAMAS" => array('バハマ', '北アメリカ州'),
"BAHRAIN" => array('バーレーン', 'アジア州'),
"BANGLADESH" => array('バングラデシュ', 'アジア州'),
"BARBADOS" => array('バルバドス', '北アメリカ州'),
"BELARUS" => array('ベラルーシ', 'NIS諸国'),
"BELGIUM" => array('ベルギー', 'ヨーロッパ州'),
"BELIZE" => array('べリーズ', '北アメリカ州'),
"BENIN" => array('ベナン', 'アフリカ州'),
"BERMUDA" => array('バミューダ', '北アメリカ州'),
"BHUTAN" => array('ブータン', 'アジア州'),
"BOLIVIA" => array('ボリビア', '南アメリカ州'),
"BOSNIA AND HERZEGOWINA" => array('ボスニア・ヘルツェゴビナ', 'ヨーロッパ州'),
"BOTSWANA" => array('ボツワナ', 'アフリカ州'),
"BRAZIL" => array('ブラジル', '南アメリカ州'),
"BRITISH INDIAN OCEAN TERRITORY" => array('英領インド洋地域', ''),
"BRUNEI DARUSSALAM" => array('ブルネイ', 'アジア州'),
"BULGARIA" => array('ブルガリア', 'ヨーロッパ州'),
'BURKINA FASO' => array($burkina, 'アフリカ州'),
"BURUNDI" => array('ブルンジ', 'アフリカ州'),
"CAMBODIA" => array('カンボジア', 'アジア州'),
"CAMEROON" => array('カメルーン', 'アフリカ州'),
"CANADA" => array('カナダ', '北アメリカ州'),
"CAYMAN ISLANDS" => array('ケイマン諸島', ''),
"CENTRAL AFRICAN REPUBLIC" => array('中央アフリカ', 'アフリカ州'),
"CHILE" => array('チリ', '南アメリカ州'),
"CHINA" => array('中国', 'アジア州'),
"COLOMBIA" => array('コロンビア', '南アメリカ州'),
"CONGO THE DEMOCRATIC REPUBLIC OF THE" => array('コンゴ民主共和国', 'アフリカ州'),
"COOK ISLANDS" => array('クック諸島', ''),
"COSTA RICA" => array('コスタリカ', '北アメリカ州'),
"COTE D'IVOIRE" => array('コートジボワール', 'アフリカ州'),
"CROATIA (local name: Hrvatska)" => array('クロアチア', 'ヨーロッパ州'),
"CUBA" => array('キューバ', '北アメリカ州'),
"CYPRUS" => array('キプロス', 'アジア州'),
"CZECH REPUBLIC" => array('チェコ', 'ヨーロッパ州'),
"DENMARK" => array('デンマーク', 'ヨーロッパ州'),
"DJIBOUTI" => array('ジブチ', 'アフリカ州'),
"DOMINICAN REPUBLIC" => array('ドミニカ国', '北アメリカ州'),
"ECUADOR" => array('エクアドル', '南アメリカ州'),
"EGYPT" => array('エジプト', 'アフリカ州'),
"EL SALVADOR" => array('エルサルバドル', '北アメリカ州'),
"ERITREA" => array('エリトリア', 'アフリカ州'),
"ESTONIA" => array('エストニア', 'ヨーロッパ州'),
"ETHIOPIA" => array('エチオピア', 'アフリカ州'),
"EUROPEAN UNION" => array('欧州連合', 'ヨーロッパ州'),
"FAROE ISLANDS" => array('フェロー諸島', ''),
"FIJI" => array('フィジー', '大洋州'),
"FINLAND" => array('フィンランド', 'ヨーロッパ州'),
"FRANCE" => array('フランス', 'ヨーロッパ州'),
"FRENCH GUIANA" => array('フランス領ギアナ', ''),
"FRENCH POLYNESIA" => array('フランス領ポリネシア', ''),
"GABON" => array('ガボン', 'アフリカ州'),
"GAMBIA" => array('ガンビア', 'アフリカ州'),
"GEORGIA" => array('グルジア', 'NIS諸国'),
"GERMANY" => array('ドイツ', 'ヨーロッパ州'),
"GHANA" => array('ガーナ', 'アフリカ州'),
"GIBRALTAR" => array('ジブラルタル', 'ヨーロッパ州'),
"GREECE" => array('ギリシャ', 'ヨーロッパ州'),
"GREENLAND" => array('グリーンランド', ''),
"GRENADA" => array('グレナダ', '北アメリカ州'),
"GUAM" => array('グアム', ''),
"GUATEMALA" => array('グアテマラ', '北アメリカ州'),
"GUINEA-BISSAU" => array('ギニアビサウ', 'アフリカ州'),
"GUYANA" => array('ガイアナ', '南アメリカ州'),
"HAITI" => array('ハイチ', '北アメリカ州'),
"HOLY SEE (VATICAN CITY STATE)" => array('バチカン', 'ヨーロッパ州'),
"HONDURAS" => array('ホンジュラス', '北アメリカ州'),
"HONG KONG" => array('香港', 'アジア州'),
"HUNGARY" => array('ハンガリー', 'ヨーロッパ州'),
"ICELAND" => array('アイスランド', 'ヨーロッパ州'),
"INDIA" => array('インド', 'アジア州'),
"INDONESIA" => array('インドネシア', 'アジア州'),
"IRAN (ISLAMIC REPUBLIC OF)" => array('イラン', 'アジア州'),
"IRAQ" => array('イラク', 'アジア州'),
"IRELAND" => array('アイルランド', 'ヨーロッパ州'),
"ISRAEL" => array('イスラエル', 'アジア州'),
"ITALY" => array('イタリア', 'ヨーロッパ州'),
"JAMAICA" => array('ジャマイカ', '北アメリカ州'),
"JAPAN" => array('日本', 'アジア州'),
"JORDAN" => array('ヨルダン', 'アジア州'),
"KAZAKHSTAN" => array('カザフスタン', 'NIS諸国'),
"KENYA" => array('ケニア', 'アフリカ州'),
"KIRIBATI" => array('キリバス', '大洋州'),
"KOREA REPUBLIC OF" => array('韓国', 'アジア州'),
"KUWAIT" => array('クウェート', 'アジア州'),
"KYRGYZSTAN" => array('キルギス', 'NIS諸国'),
"LAO PEOPLE'S DEMOCRATIC REPUBLIC" => array('ラオス', 'アジア州'),
"LATVIA" => array('ラトビア', 'ヨーロッパ州'),
"LEBANON" => array('レバノン', 'アジア州'),
"LESOTHO" => array('レソト', 'アフリカ州'),
"LIBERIA" => array('リベリア', 'アフリカ州'),
"LIBYAN ARAB JAMAHIRIYA" => array('リビア', 'アフリカ州'),
"LIECHTENSTEIN" => array('リヒテンシュタイン', 'ヨーロッパ州'),
"LITHUANIA" => array('リトアニア', 'ヨーロッパ州'),
"LUXEMBOURG" => array('ルクセンブルグ', 'ヨーロッパ州'),
"MACAU" => array('マカオ', 'アジア州'),
"MACEDONIA THE FORMER YUGOSLAV REPUBLIC OF" => array('マケドニア', 'ヨーロッパ州'),
"MADAGASCAR" => array('マダガスカル', 'アフリカ州'),
"MALAWI" => array('マラウィ', 'アフリカ州'),
"MALAYSIA" => array('マレーシア', 'アジア州'),
"MALDIVES" => array('モルディヴ', 'アジア州'),
"MALI" => array('マリ', 'アフリカ州'),
"MALTA" => array('マルタ', 'ヨーロッパ州'),
"MAURITANIA" => array('モーリタニア', 'アフリカ州'),
"MAURITIUS" => array('モーリシャス', 'アフリカ州'),
"MEXICO" => array('メキシコ', '北アメリカ州'),
"MICRONESIA FEDERATED STATES OF" => array('ミクロネシア連邦', '大洋州'),
"MOLDOVA REPUBLIC OF" => array('モルドバ', 'NIS諸国'),
"MONACO" => array('モナコ', 'ヨーロッパ州'),
"MONGOLIA" => array('モンゴル', 'アジア州'),
"MOROCCO" => array('モロッコ', 'アフリカ州'),
"MOZAMBIQUE" => array('モザンビーク', 'アフリカ州'),
"MYANMAR" => array('ミャンマー', 'アジア州'),
"NAMIBIA" => array('ナミビア', 'アフリカ州'),
"NAURU" => array('ナウル', '大洋州'),
"NEPAL" => array('ネパール', 'アジア州'),
"NETHERLANDS" => array('オランダ', 'ヨーロッパ州'),
"NETHERLANDS ANTILLES" => array('オランダ領アンティル', ''),
"NEW CALEDONIA" => array('ニューカレドニア', ''),
"NEW ZEALAND" => array('ニュージーランド', '大洋州'),
"NICARAGUA" => array('ニカラグア', '北アメリカ州'),
"NIGER" => array('ニジェール', 'アフリカ州'),
"NIGERIA" => array('ナイジェリア', 'アフリカ州'),
"NIUE" => array('ニウエ', ''),
"NON-SPEC ASIA PAS LOCATION" => array('他のアジア太平洋', ''),
"NORFOLK ISLAND" => array('ノーフォーク島', ''),
"NORTHERN MARIANA ISLANDS" => array('北マリアナ諸島', ''),
"NORWAY" => array('ノルウェー', 'ヨーロッパ州'),
"OMAN" => array('オマーン', 'アジア州'),
"PAKISTAN" => array('パキスタン', 'アジア州'),
"PALAU" => array('パラオ', '大洋州'),
"PALESTINIAN TERRITORY OCCUPIED" => array('パレスチナ', 'アジア州'),
"PANAMA" => array('パナマ', '北アメリカ州'),
"PAPUA NEW GUINEA" => array('パプアニューギニア', '大洋州'),
"PARAGUAY" => array('パラグアイ', '南アメリカ州'),
"PERU" => array('ペルー', '南アメリカ州'),
"PHILIPPINES" => array('フィリピン', 'アジア州'),
"POLAND" => array('ポーランド', 'ヨーロッパ州'),
"PORTUGAL" => array('ポルトガル', 'ヨーロッパ州'),
"PUERTO RICO" => array('プエルトリコ', ''),
"QATAR" => array('カタール', 'アジア州'),
"RESERVED" => array('予約ＩＰ ', ''),
"ROMANIA" => array('ルーマニア', 'ヨーロッパ州'),
"RUSSIAN FEDERATION" => array('ロシア連邦', 'NIS諸国'),
"RWANDA" => array('ルワンダ', 'アフリカ州'),
"SAINT KITTS AND NEVIS" => array('セントクリストファー・ネイビス', '北アメリカ州'),
"SAINT LUCIA" => array('セントルシア', '北アメリカ州'),
"SAMOA" => array('サモア', '大洋州'),
"SAN MARINO" => array('サンマリノ', 'ヨーロッパ州'),
"SAUDI ARABIA" => array('サウジアラビア', 'アジア州'),
"SENEGAL" => array('セネガル', 'アフリカ州'),
"Serbia and Montenegro (Formally Czechoslovakia)" => array('セルビア・モンテネグロ（チェコ）', 'ヨーロッパ州'),
"Serbia and Montenegro (Formally Yugoslavia)" => array('セルビア・モンテネグロ（ユーゴ）', 'ヨーロッパ州'),
"SEYCHELLES" => array('セイシェル', 'アフリカ州'),
"SIERRA LEONE" => array('シエラレオネ', 'アフリカ州'),
"SINGAPORE" => array('シンガポール', 'アジア州'),
"SLOVAKIA (Slovak Republic)" => array('スロバキア', 'ヨーロッパ州'),
"SLOVENIA" => array('スロベニア', 'ヨーロッパ州'),
"SOLOMON ISLANDS" => array('ソロモン諸島', '大洋州'),
"SOUTH AFRICA" => array('南アフリカ共和国', 'アフリカ州'),
"SPAIN" => array('スペイン', 'ヨーロッパ州'),
"SRI LANKA" => array('スリランカ', 'アジア州'),
"SUDAN" => array('スーダン', 'アフリカ州'),
"SURINAME" => array('スリナム', '南アメリカ州'),
"SWAZILAND" => array('スワジランド', 'アフリカ州'),
"SWEDEN" => array('スウェーデン', 'ヨーロッパ州'),
"SWITZERLAND" => array('スイス', 'ヨーロッパ州'),
"SYRIAN ARAB REPUBLIC" => array('シリア', 'アジア州'),
"TAIWAN PROVINCE OF CHINA" => array('台湾', 'アジア州'),
"TAJIKISTAN" => array('タジキスタン', 'NIS諸国'),
"TANZANIA UNITED REPUBLIC OF" => array('タンザニア', 'アフリカ州'),
"THAILAND" => array('タイ', 'アジア州'),
"TOGO" => array('トーゴ', 'アフリカ州'),
"TONGA" => array('トンガ', '大洋州'),
"TRINIDAD AND TOBAGO" => array('トリニダード・トバゴ ', '北アメリカ州'),
"TUNISIA" => array('チュニジア', 'アフリカ州'),
"TURKEY" => array('トルコ', 'アジア州'),
"TURKMENISTAN" => array('トルクメニスタン', 'NIS諸国'),
"TUVALU" => array('ツバル', '大洋州'),
"UGANDA" => array('ウガンダ', 'アフリカ州'),
"UKRAINE" => array('ウクライナ', 'NIS諸国'),
"UNITED ARAB EMIRATES" => array('アラブ首長国連邦', 'アジア州'),
"UNITED KINGDOM" => array('英国', 'ヨーロッパ州'),
"UNITED STATES" => array('アメリカ合衆国', '北アメリカ州'),
"URUGUAY" => array('ウルグアイ', '南アメリカ州'),
"UZBEKISTAN" => array('ウズベキスタン', 'NIS諸国'),
"VANUATU" => array('バヌアツ', '大洋州'),
"VENEZUELA" => array('ベネズエラ', '南アメリカ州'),
"VIET NAM" => array('ベトナム', 'アジア州'),
"VIRGIN ISLANDS (BRITISH)" => array('イギリス領バージン諸島', ''),
"VIRGIN ISLANDS (U.S.)" => array('アメリカ領バージン諸島', ''),
"YEMEN" => array('イエメン', 'アジア州'),
"ZAMBIA" => array('ザンビア', 'アフリカ州'),
"ZIMBABWE" => array('ジンバブエ', 'アフリカ州'));

$countries_2 = array("アフガニスタン" => array("AFGHANISTAN", "アジア州"),
"アルバニア" => array("ALBANIA", "ヨーロッパ州"),
"アルジェリア" => array("ALGERIA", "アフリカ州"),
"アメリカ領サモア" => array("AMERICAN SAMOA", ""),
"アンドラ" => array("ANDORRA", "ヨーロッパ州"),
"アンゴラ" => array("ANGOLA", "アフリカ州"),
"アンギラ" => array("ANGUILLA", ""),
"アンティグア・バーブーダ" => array("ANTIGUA AND BARBUDA", "北アメリカ州"),
"アルゼンチン" => array("ARGENTINA", "南アメリカ州"),
"アルメニア" => array("ARMENIA", "NIS諸国"),
"アルバ" => array("ARUBA", ""),
"オーストラリア" => array("AUSTRALIA", "大洋州"),
"オーストリア" => array("AUSTRIA", "ヨーロッパ州"),
"アゼルバイジャン" => array("AZERBAIJAN", "NIS諸国"),
"バハマ" => array("BAHAMAS", "北アメリカ州"),
"バーレーン" => array("BAHRAIN", "アジア州"),
"バングラデシュ" => array("BANGLADESH", "アジア州"),
"バルバドス" => array("BARBADOS", "北アメリカ州"),
"ベラルーシ" => array("BELARUS", "NIS諸国"),
"ベルギー" => array("BELGIUM", "ヨーロッパ州"),
"べリーズ" => array("BELIZE", "北アメリカ州"),
"ベナン" => array("BENIN", "アフリカ州"),
"バミューダ" => array("BERMUDA", "北アメリカ州"),
"ブータン" => array("BHUTAN", "アジア州"),
"ボリビア" => array("BOLIVIA", "南アメリカ州"),
"ボスニア・ヘルツェゴビナ" => array("BOSNIA AND HERZEGOWINA", "ヨーロッパ州"),
"ボツワナ" => array("BOTSWANA", "アフリカ州"),
"ブラジル" => array("BRAZIL", "南アメリカ州"),
"英領インド洋地域" => array("BRITISH INDIAN OCEAN TERRITORY", ""),
"ブルネイ" => array("BRUNEI DARUSSALAM", "アジア州"),
"ブルガリア" => array("BULGARIA", "ヨーロッパ州"),
$burkina => array("BURKINA FASO", "アフリカ州"),
"ブルンジ" => array("BURUNDI", "アフリカ州"),
"カンボジア" => array("CAMBODIA", "アジア州"),
"カメルーン" => array("CAMEROON", "アフリカ州"),
"カナダ" => array("CANADA", "北アメリカ州"),
"ケイマン諸島" => array("CAYMAN ISLANDS", ""),
"中央アフリカ" => array("CENTRAL AFRICAN REPUBLIC", "アフリカ州"),
"チリ" => array("CHILE", "南アメリカ州"),
"中国" => array("CHINA", "アジア州"),
"コロンビア" => array("COLOMBIA", "南アメリカ州"),
"コンゴ民主共和国" => array("CONGO THE DEMOCRATIC REPUBLIC OF THE", "アフリカ州"),
"クック諸島" => array("COOK ISLANDS", ""),
"コスタリカ" => array("COSTA RICA", "北アメリカ州"),
"コートジボワール" => array("COTE D'IVOIRE", "アフリカ州"),
"クロアチア" => array("CROATIA (local name: Hrvatska)", "ヨーロッパ州"),
"キューバ" => array("CUBA", "北アメリカ州"),
"キプロス" => array("CYPRUS", "アジア州"),
"チェコ" => array("CZECH REPUBLIC", "ヨーロッパ州"),
"デンマーク" => array("DENMARK", "ヨーロッパ州"),
"ジブチ" => array("DJIBOUTI", "アフリカ州"),
"ドミニカ国" => array("DOMINICAN REPUBLIC", "北アメリカ州"),
"エクアドル" => array("ECUADOR", "南アメリカ州"),
"エジプト" => array("EGYPT", "アフリカ州"),
"エルサルバドル" => array("EL SALVADOR", "北アメリカ州"),
"エリトリア" => array("ERITREA", "アフリカ州"),
"エストニア" => array("ESTONIA", "ヨーロッパ州"),
"エチオピア" => array("ETHIOPIA", "アフリカ州"),
"欧州連合" => array("EUROPEAN UNION", "ヨーロッパ州"),
"フェロー諸島" => array("FAROE ISLANDS", ""),
"フィジー" => array("FIJI", "大洋州"),
"フィンランド" => array("FINLAND", "ヨーロッパ州"),
"フランス" => array("FRANCE", "ヨーロッパ州"),
"フランス領ギアナ" => array("FRENCH GUIANA", ""),
"フランス領ポリネシア" => array("FRENCH POLYNESIA", ""),
"ガボン" => array("GABON", "アフリカ州"),
"ガンビア" => array("GAMBIA", "アフリカ州"),
"グルジア" => array("GEORGIA", "NIS諸国"),
"ドイツ" => array("GERMANY", "ヨーロッパ州"),
"ガーナ" => array("GHANA", "アフリカ州"),
"ジブラルタル" => array("GIBRALTAR", "ヨーロッパ州"),
"ギリシャ" => array("GREECE", "ヨーロッパ州"),
"グリーンランド" => array("GREENLAND", ""),
"グレナダ" => array("GRENADA", "北アメリカ州"),
"グアム" => array("GUAM", ""),
"グアテマラ" => array("GUATEMALA", "北アメリカ州"),
"ギニアビサウ" => array("GUINEA-BISSAU", "アフリカ州"),
"ガイアナ" => array("GUYANA", "南アメリカ州"),
"ハイチ" => array("HAITI", "北アメリカ州"),
"バチカン" => array("HOLY SEE (VATICAN CITY STATE)", "ヨーロッパ州"),
"ホンジュラス" => array("HONDURAS", "北アメリカ州"),
"香港" => array("HONG KONG", "アジア州"),
"ハンガリー" => array("HUNGARY", "ヨーロッパ州"),
"アイスランド" => array("ICELAND", "ヨーロッパ州"),
"インド" => array("INDIA", "アジア州"),
"インドネシア" => array("INDONESIA", "アジア州"),
"イラン" => array("IRAN (ISLAMIC REPUBLIC OF)", "アジア州"),
"イラク" => array("IRAQ", "アジア州"),
"アイルランド" => array("IRELAND", "ヨーロッパ州"),
"イスラエル" => array("ISRAEL", "アジア州"),
"イタリア" => array("ITALY", "ヨーロッパ州"),
"ジャマイカ" => array("JAMAICA", "北アメリカ州"),
"日本" => array("JAPAN", "アジア州"),
"ヨルダン" => array("JORDAN", "アジア州"),
"カザフスタン" => array("KAZAKHSTAN", "NIS諸国"),
"ケニア" => array("KENYA", "アフリカ州"),
"キリバス" => array("KIRIBATI", "大洋州"),
"韓国" => array("KOREA REPUBLIC OF", "アジア州"),
"クウェート" => array("KUWAIT", "アジア州"),
"キルギス" => array("KYRGYZSTAN", "NIS諸国"),
"ラオス" => array("LAO PEOPLE'S DEMOCRATIC REPUBLIC", "アジア州"),
"ラトビア" => array("LATVIA", "ヨーロッパ州"),
"レバノン" => array("LEBANON", "アジア州"),
"レソト" => array("LESOTHO", "アフリカ州"),
"リベリア" => array("LIBERIA", "アフリカ州"),
"リビア" => array("LIBYAN ARAB JAMAHIRIYA", "アフリカ州"),
"リヒテンシュタイン" => array("LIECHTENSTEIN", "ヨーロッパ州"),
"リトアニア" => array("LITHUANIA", "ヨーロッパ州"),
"ルクセンブルグ" => array("LUXEMBOURG", "ヨーロッパ州"),
"マカオ" => array("MACAU", "アジア州"),
"マケドニア" => array("MACEDONIA THE FORMER YUGOSLAV REPUBLIC OF", "ヨーロッパ州"),
"マダガスカル" => array("MADAGASCAR", "アフリカ州"),
"マラウィ" => array("MALAWI", "アフリカ州"),
"マレーシア" => array("MALAYSIA", "アジア州"),
"モルディヴ" => array("MALDIVES", "アジア州"),
"マリ" => array("MALI", "アフリカ州"),
"マルタ" => array("MALTA", "ヨーロッパ州"),
"モーリタニア" => array("MAURITANIA", "アフリカ州"),
"モーリシャス" => array("MAURITIUS", "アフリカ州"),
"メキシコ" => array("MEXICO", "北アメリカ州"),
"ミクロネシア連邦" => array("MICRONESIA FEDERATED STATES OF", "大洋州"),
"モルドバ" => array("MOLDOVA REPUBLIC OF", "NIS諸国"),
"モナコ" => array("MONACO", "ヨーロッパ州"),
"モンゴル" => array("MONGOLIA", "アジア州"),
"モロッコ" => array("MOROCCO", "アフリカ州"),
"モザンビーク" => array("MOZAMBIQUE", "アフリカ州"),
"ミャンマー" => array("MYANMAR", "アジア州"),
"ナミビア" => array("NAMIBIA", "アフリカ州"),
"ナウル" => array("NAURU", "大洋州"),
"ネパール" => array("NEPAL", "アジア州"),
"オランダ" => array("NETHERLANDS", "ヨーロッパ州"),
"オランダ領アンティル" => array("NETHERLANDS ANTILLES", ""),
"ニューカレドニア" => array("NEW CALEDONIA", ""),
"ニュージーランド" => array("NEW ZEALAND", "大洋州"),
"ニカラグア" => array("NICARAGUA", "北アメリカ州"),
"ニジェール" => array("NIGER", "アフリカ州"),
"ナイジェリア" => array("NIGERIA", "アフリカ州"),
"ニウエ" => array("NIUE", ""),
"他のアジア太平洋" => array("NON-SPEC ASIA PAS LOCATION", ""),
"ノーフォーク島" => array("NORFOLK ISLAND", ""),
"北マリアナ諸島" => array("NORTHERN MARIANA ISLANDS", ""),
"ノルウェー" => array("NORWAY", "ヨーロッパ州"),
"オマーン" => array("OMAN", "アジア州"),
"パキスタン" => array("PAKISTAN", "アジア州"),
"パラオ" => array("PALAU", "大洋州"),
"パレスチナ" => array("PALESTINIAN TERRITORY OCCUPIED", "アジア州"),
"パナマ" => array("PANAMA", "北アメリカ州"),
"パプアニューギニア" => array("PAPUA NEW GUINEA", "大洋州"),
"パラグアイ" => array("PARAGUAY", "南アメリカ州"),
"ペルー" => array("PERU", "南アメリカ州"),
"フィリピン" => array("PHILIPPINES", "アジア州"),
"ポーランド" => array("POLAND", "ヨーロッパ州"),
"ポルトガル" => array("PORTUGAL", "ヨーロッパ州"),
"プエルトリコ" => array("PUERTO RICO", ""),
"カタール" => array("QATAR", "アジア州"),
"予約ＩＰ " => array("RESERVED", ""),
"ルーマニア" => array("ROMANIA", "ヨーロッパ州"),
"ロシア連邦" => array("RUSSIAN FEDERATION", "NIS諸国"),
"ルワンダ" => array("RWANDA", "アフリカ州"),
"セントクリストファー・ネイビス" => array("SAINT KITTS AND NEVIS", "北アメリカ州"),
"セントルシア" => array("SAINT LUCIA", "北アメリカ州"),
"サモア" => array("SAMOA", "大洋州"),
"サンマリノ" => array("SAN MARINO", "ヨーロッパ州"),
"サウジアラビア" => array("SAUDI ARABIA", "アジア州"),
"セネガル" => array("SENEGAL", "アフリカ州"),
"セルビア・モンテネグロ（チェコ）" => array("Serbia and Montenegro (Formally Czechoslovakia)", "ヨーロッパ州"),
"セルビア・モンテネグロ（ユーゴ）" => array("Serbia and Montenegro (Formally Yugoslavia)", "ヨーロッパ州"),
"セイシェル" => array("SEYCHELLES", "アフリカ州"),
"シエラレオネ" => array("SIERRA LEONE", "アフリカ州"),
"シンガポール" => array("SINGAPORE", "アジア州"),
"スロバキア" => array("SLOVAKIA (Slovak Republic)", "ヨーロッパ州"),
"スロベニア" => array("SLOVENIA", "ヨーロッパ州"),
"ソロモン諸島" => array("SOLOMON ISLANDS", "大洋州"),
"南アフリカ共和国" => array("SOUTH AFRICA", "アフリカ州"),
"スペイン" => array("SPAIN", "ヨーロッパ州"),
"スリランカ" => array("SRI LANKA", "アジア州"),
"スーダン" => array("SUDAN", "アフリカ州"),
"スリナム" => array("SURINAME", "南アメリカ州"),
"スワジランド" => array("SWAZILAND", "アフリカ州"),
"スウェーデン" => array("SWEDEN", "ヨーロッパ州"),
"スイス" => array("SWITZERLAND", "ヨーロッパ州"),
"シリア" => array("SYRIAN ARAB REPUBLIC", "アジア州"),
"台湾" => array("TAIWAN PROVINCE OF CHINA", "アジア州"),
"タジキスタン" => array("TAJIKISTAN", "NIS諸国"),
"タンザニア" => array("TANZANIA UNITED REPUBLIC OF", "アフリカ州"),
"タイ" => array("THAILAND", "アジア州"),
"トーゴ" => array("TOGO", "アフリカ州"),
"トンガ" => array("TONGA", "大洋州"),
"トリニダード・トバゴ " => array("TRINIDAD AND TOBAGO", "北アメリカ州"),
"チュニジア" => array("TUNISIA", "アフリカ州"),
"トルコ" => array("TURKEY", "アジア州"),
"トルクメニスタン" => array("TURKMENISTAN", "NIS諸国"),
"ツバル" => array("TUVALU", "大洋州"),
"ウガンダ" => array("UGANDA", "アフリカ州"),
"ウクライナ" => array("UKRAINE", "NIS諸国"),
"アラブ首長国連邦" => array("UNITED ARAB EMIRATES", "アジア州"),
"英国" => array("UNITED KINGDOM", "ヨーロッパ州"),
"アメリカ合衆国" => array("UNITED STATES", "北アメリカ州"),
"ウルグアイ" => array("URUGUAY", "南アメリカ州"),
"ウズベキスタン" => array("UZBEKISTAN", "NIS諸国"),
"バヌアツ" => array("VANUATU", "大洋州"),
"ベネズエラ" => array("VENEZUELA", "南アメリカ州"),
"ベトナム" => array("VIET NAM", "アジア州"),
"イギリス領バージン諸島" => array("VIRGIN ISLANDS (BRITISH)", ""),
"アメリカ領バージン諸島" => array("VIRGIN ISLANDS (U.S.)", ""),
"イエメン" => array("YEMEN", "アジア州"),
"ザンビア" => array("ZAMBIA", "アフリカ州"),
"ジンバブエ" => array("ZIMBABWE", "アフリカ州"));

?>

'GeoIP データベースは Webnet77 から取得できる。'のソースコードは以下に示す。

'get_lang-ja.php'のソースコードは以下に示す。

<?php

/******************************************************************
* 
* get_lang-ja.php, 
* Copyright (C) 2006, Bowo Prasetyo
*  
* http://www.my-tool.com
* 
* 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 below,
* 
* http://www.gnu.org/licenses/gpl.html#TOC1
* 
* 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., 51 Franklin Street, Fifth Floor, Boston, 
* MA  02110-1301, USA.
* 
* このプログラムはフリーソフトウェアです。あなたはこれを、以下のURLにフリーソフトウェ
* ア財団によって発行された GNU 一般公衆利用許諾契約書の定める条件の下で
* 再頒布または改変することができます。
* 
* http://www.gnu.org/licenses/gpl.html#TOC1
* 
* このプログラムは有用であることを願って頒布されますが、*全くの無保証* 
* です。商業可能性の保証や特定の目的への適合性は、言外に示されたものも含
* め全く存在しません。詳しくはGNU 一般公衆利用許諾契約書をご覧ください。
*  
* あなたはこのプログラムと共に、GNU 一般公衆利用許諾契約書の複製物を一部
* 受け取ったはずです。もし受け取っていなければ、フリーソフトウェア財団ま
* で請求してください(宛先は the Free Software Foundation, Inc., 59
* Temple Place, Suite 330, Boston, MA 02111-1307 USA)。
*
*****************************************************************/

require_once('get_similar.php');

function get_lang(&$key)
{
   require_once('lang_const-ja.php');

$key = strtolower(trim($key));
   $value = '';
   if (preg_match('/^[a-z]{2,3}(-[a-z]{2})?$/i', $key)==1)
   {
      if (!($value = $code_lang[$key]))
      {
         $key = substr($key, strpos($key, '-'));
         if (!($value = $code_lang[$key]))
         {
            $value = get_similar($code_lang, $key);
         }
      }
   }
   else
   {
      if (!($value = $lang_code[$key]))
      {
         if (!($value = $lang_code_2[$key]))
         {
            $value = get_similar($lang_code_2, $key);
         }
      }
   }

return $value;
}

?>

'get_similar.php'のソースコードは以下に示す。

<?php

/******************************************************************
* 
* get_similar.php, 
* Copyright (C) 2006, Bowo Prasetyo
*  
* http://www.my-tool.com
* 
* 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 below,
* 
* http://www.gnu.org/licenses/gpl.html#TOC1
* 
* 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., 51 Franklin Street, Fifth Floor, Boston, 
* MA  02110-1301, USA.
* 
* このプログラムはフリーソフトウェアです。あなたはこれを、以下のURLにフリーソフトウェ
* ア財団によって発行された GNU 一般公衆利用許諾契約書の定める条件の下で
* 再頒布または改変することができます。
* 
* http://www.gnu.org/licenses/gpl.html#TOC1
* 
* このプログラムは有用であることを願って頒布されますが、*全くの無保証* 
* です。商業可能性の保証や特定の目的への適合性は、言外に示されたものも含
* め全く存在しません。詳しくはGNU 一般公衆利用許諾契約書をご覧ください。
*  
* あなたはこのプログラムと共に、GNU 一般公衆利用許諾契約書の複製物を一部
* 受け取ったはずです。もし受け取っていなければ、フリーソフトウェア財団ま
* で請求してください(宛先は the Free Software Foundation, Inc., 59
* Temple Place, Suite 330, Boston, MA 02111-1307 USA)。
*
*****************************************************************/

function get_similar($arr, &$key)
{
   $shortest = 255;
   $kval = $key;
   $value = '';
   foreach($arr as $k => $val)
   {
      $lev = levenshtein($k, $key);
      if ($lev < $shortest)
      {
         $shortest = $lev;
         $kval = $k;
         $value = $val;
      }
   }
   $key = $kval;
   return $value;
}

?>

'lang_const-ja.php'のソースコードは以下に示す。

<?php

/******************************************************************
* 
* lang_const-ja.php, 
* Copyright (C) 2006, Bowo Prasetyo
*  
* http://www.my-tool.com
* 
* 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 below,
* 
* http://www.gnu.org/licenses/gpl.html#TOC1
* 
* 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., 51 Franklin Street, Fifth Floor, Boston, 
* MA  02110-1301, USA.
* 
* このプログラムはフリーソフトウェアです。あなたはこれを、以下のURLにフリーソフトウェ
* ア財団によって発行された GNU 一般公衆利用許諾契約書の定める条件の下で
* 再頒布または改変することができます。
* 
* http://www.gnu.org/licenses/gpl.html#TOC1
* 
* このプログラムは有用であることを願って頒布されますが、*全くの無保証* 
* です。商業可能性の保証や特定の目的への適合性は、言外に示されたものも含
* め全く存在しません。詳しくはGNU 一般公衆利用許諾契約書をご覧ください。
*  
* あなたはこのプログラムと共に、GNU 一般公衆利用許諾契約書の複製物を一部
* 受け取ったはずです。もし受け取っていなければ、フリーソフトウェア財団ま
* で請求してください(宛先は the Free Software Foundation, Inc., 59
* Temple Place, Suite 330, Boston, MA 02111-1307 USA)。
*
*****************************************************************/

$code_lang = array("af" => "アフリカーンス語",
"ar" => "アラビア語",
"ar-ae" => "アラビア語/アラブ首長国連邦",
"ar-bh" => "アラビア語/バーレーン",
"ar-dz" => "アラビア語/アルジェリア",
"ar-eg" => "アラビア語/エジプト",
"ar-iq" => "アラビア語/イラク",
"ar-jo" => "アラビア語/ヨルダン",
"ar-kw" => "アラビア語/クウェート",
"ar-lb" => "アラビア語/レバノン",
"ar-ly" => "アラビア語/リビア",
"ar-ma" => "アラビア語/モロッコ",
"ar-om" => "アラビア語/オマーン",
"ar-qa" => "アラビア語/カタール",
"ar-sa" => "アラビア語/サウジアラビア",
"ar-sy" => "アラビア語/シリア",
"ar-tn" => "アラビア語/チュニジア",
"ar-ye" => "アラビア語/イエメン",
"as" => "アッサム語",
"az" => "アゼルバイジャン語",
"be" => "ベラルーシ語",
"bg" => "ブルアリア語",
"bn" => "ベンガル語",
"ca" => "カタロニア語",
"cs" => "チェコ語",
"da" => "デンマーク語",
"de" => "ドイツ語",
"de-at" => "ドイツ語/オーストリア",
"de-au" => "ドイツ語/オーストリア",
"de-ch" => "ドイツ語/スイス",
"de-de" => "ドイツ語/ドイツ",
"de-li" => "ドイツ語/リヒテンシュタイン",
"de-lu" => "ドイツ語/ルクセンブルグ",
"div" => "ディヴェヒ語",
"el" => "ギリシア語",
"en" => "英語",
"en-au" => "英語/オーストラリア",
"en-bz" => "英語/ベリーズ",
"en-ca" => "英語/カナダ",
"en-gb" => "英語/B.K",
"en-ie" => "英語/アイルランド",
"en-jm" => "英語/ジャマイカ",
"en-nz" => "英語/ニュージーランド",
"en-ph" => "英語/フィリピン",
"en-tt" => "英語/トリニダード",
"en-us" => "英語/U.S",
"en-za" => "英語/南アフリカ",
"en-zw" => "英語/ジンバブエ",
"es" => "スペイン語/インターナショナル・ソート",
"es-ar" => "スペイン語/アルゼンチン",
"es-bo" => "スペイン語/ボリビア",
"es-cl" => "スペイン語/チリ",
"es-co" => "スペイン語/コロンビア",
"es-cr" => "スペイン語/コスタリカ",
"es-do" => "スペイン語/ドミニカ共和国",
"es-ec" => "スペイン語/エクアドル",
"es-gt" => "スペイン語/グアテマラ",
"es-hn" => "スペイン語/ホンジュラス",
"es-mx" => "スペイン語/メキシコ",
"es-ni" => "スペイン語/ニカラグア",
"es-pa" => "スペイン語/パナマ",
"es-pe" => "スペイン語/ペルー",
"es-pr" => "スペイン語/プエルトリコ",
"es-py" => "スペイン語/パラグアイ",
"es-sv" => "スペイン語/エルサルバドル",
"es-us" => "スペイン語/U.S.",
"es-uy" => "スペイン語/ウルグアイ",
"es-ve" => "スペイン語/ベネズエラ",
"et" => "エストニア語",
"eu" => "バスク語",
"fa" => "ペルシア語",
"fi" => "フィンランド語",
"fo" => "フェロー語",
"fr" => "フランス語",
"fr-be" => "フランス語/ベルギー",
"fr-ca" => "フランス語/カナダ",
"fr-ch" => "フランス語/スイス",
"fr-fr" => "フランス語/フランス",
"fr-lu" => "フランス語/ルクセンブルグ",
"fr-mc" => "フランス語/モナコ",
"ga" => "アイルランド語",
"gd" => "ゲール語/スコッチ",
"gl" => "ガリシア語",
"gu" => "グジャラート語",
"ha" => "ハンジャブ語",
"he" => "ヘブライ語",
"hi" => "ヒンディー語",
"hr" => "クロアチア語",
"hu" => "ハンガリー語",
"hy" => "アルメニア語",
"id" => "インドネシア語",
"is" => "アイスランド語",
"it" => "イタリア語",
"it-ch" => "イタリア語/スイス",
"ja" => "日本語",
"ka" => "グルジア語",
"kk" => "カザフ語",
"kn" => "カナラ語",
"ko" => "韓国語",
"kok" => "コンカニ語",
"kz" => "キルギスタン語",
"lt" => "リトアニア語",
"lv" => "ラトビア語",
"mk" => "マケドニア語",
"ml" => "マラヤラム語",
"mn" => "モンゴル語",
"mr" => "マラティー語",
"ms" => "マレー語",
"mt" => "マルタ語",
"nb-no" => "ノルウェー語/ブークモール",
"ne" => "ネパール語",
"nl" => "オランダ語",
"nl-be" => "オランダ語/ベルギー",
"nn" => "ノルウェー語",
"nn-no" => "ノルウェー語/ニーノシク",
"no" => "ノルウェー語",
"or" => "オリヤー語",
"pl" => "ポーランド語",
"pt" => "ポルトガル語/ポルトガル",
"pt-br" => "ポルトガル語/ブラジル",
"rm" => "レートロマンス語",
"ro" => "ルーマニア語",
"ro-md" => "ルーマニア語",
"ru" => "ロシア語",
"ru-md" => "ロシア語/モルドバ",
"sa" => "サンスクリット語",
"sb" => "ソルビア語",
"sk" => "スロバキア語",
"sl" => "スロベニア語",
"sq" => "アルバニア語",
"sr" => "セルビア語/キリル",
"sv" => "スウェーデン語",
"sv-fi" => "スウェーデン語/フィンランド",
"sw" => "スワヒリ語",
"sx" => "スツ語",
"syr" => "シリア語",
"ta" => "タミール語",
"te" => "テルグ語",
"th" => "タイ語",
"tn" => "ツワナ語",
"tr" => "トルコ語",
"ts" => "ツォンガ語",
"tt" => "タタール語",
"uk" => "ウクライナ語",
"ur" => "ウルドゥー語",
"uz" => "ウズベク語",
"vi" => "ベトナム語",
"xh" => "コーサ語",
"yi" => "イディッシュ語",
"zh" => "中国語",
"zh-cn" => "中国語/中国",
"zh-hk" => "中国語/香港",
"zh-mo" => "中国語/マカオ",
"zh-sg" => "中国語/シンガポール",
"zh-tw" => "中国語/台湾",
"zu" => "ズールー語");

$lang_code = array("アフリカーンス語" => "af",
"アラビア語" => "ar",
"アラビア語/アラブ首長国連邦" => "ar-ae",
"アラビア語/バーレーン" => "ar-bh",
"アラビア語/アルジェリア" => "ar-dz",
"アラビア語/エジプト" => "ar-eg",
"アラビア語/イラク" => "ar-iq",
"アラビア語/ヨルダン" => "ar-jo",
"アラビア語/クウェート" => "ar-kw",
"アラビア語/レバノン" => "ar-lb",
"アラビア語/リビア" => "ar-ly",
"アラビア語/モロッコ" => "ar-ma",
"アラビア語/オマーン" => "ar-om",
"アラビア語/カタール" => "ar-qa",
"アラビア語/サウジアラビア" => "ar-sa",
"アラビア語/シリア" => "ar-sy",
"アラビア語/チュニジア" => "ar-tn",
"アラビア語/イエメン" => "ar-ye",
"アッサム語" => "as",
"アゼルバイジャン語" => "az",
"ベラルーシ語" => "be",
"ブルアリア語" => "bg",
"ベンガル語" => "bn",
"カタロニア語" => "ca",
"チェコ語" => "cs",
"デンマーク語" => "da",
"ドイツ語" => "de",
"ドイツ語/オーストリア" => "de-at",
"ドイツ語/オーストリア" => "de-au",
"ドイツ語/スイス" => "de-ch",
"ドイツ語/ドイツ" => "de-de",
"ドイツ語/リヒテンシュタイン" => "de-li",
"ドイツ語/ルクセンブルグ" => "de-lu",
"ディヴェヒ語" => "div",
"ギリシア語" => "el",
"英語" => "en",
"英語/オーストラリア" => "en-au",
"英語/ベリーズ" => "en-bz",
"英語/カナダ" => "en-ca",
"英語/B.K" => "en-gb",
"英語/アイルランド" => "en-ie",
"英語/ジャマイカ" => "en-jm",
"英語/ニュージーランド" => "en-nz",
"英語/フィリピン" => "en-ph",
"英語/トリニダード" => "en-tt",
"英語/U.S" => "en-us",
"英語/南アフリカ" => "en-za",
"英語/ジンバブエ" => "en-zw",
"スペイン語/インターナショナル・ソート" => "es",
"スペイン語/アルゼンチン" => "es-ar",
"スペイン語/ボリビア" => "es-bo",
"スペイン語/チリ" => "es-cl",
"スペイン語/コロンビア" => "es-co",
"スペイン語/コスタリカ" => "es-cr",
"スペイン語/ドミニカ共和国" => "es-do",
"スペイン語/エクアドル" => "es-ec",
"スペイン語/グアテマラ" => "es-gt",
"スペイン語/ホンジュラス" => "es-hn",
"スペイン語/メキシコ" => "es-mx",
"スペイン語/ニカラグア" => "es-ni",
"スペイン語/パナマ" => "es-pa",
"スペイン語/ペルー" => "es-pe",
"スペイン語/プエルトリコ" => "es-pr",
"スペイン語/パラグアイ" => "es-py",
"スペイン語/エルサルバドル" => "es-sv",
"スペイン語/U.S." => "es-us",
"スペイン語/ウルグアイ" => "es-uy",
"スペイン語/ベネズエラ" => "es-ve",
"エストニア語" => "et",
"バスク語" => "eu",
"ペルシア語" => "fa",
"フィンランド語" => "fi",
"フェロー語" => "fo",
"フランス語" => "fr",
"フランス語/ベルギー" => "fr-be",
"フランス語/カナダ" => "fr-ca",
"フランス語/スイス" => "fr-ch",
"フランス語/フランス" => "fr-fr",
"フランス語/ルクセンブルグ" => "fr-lu",
"フランス語/モナコ" => "fr-mc",
"アイルランド語" => "ga",
"ゲール語/スコッチ" => "gd",
"ガリシア語" => "gl",
"グジャラート語" => "gu",
"ハンジャブ語" => "ha",
"ヘブライ語" => "he",
"ヒンディー語" => "hi",
"クロアチア語" => "hr",
"ハンガリー語" => "hu",
"アルメニア語" => "hy",
"インドネシア語" => "id",
"アイスランド語" => "is",
"イタリア語" => "it",
"イタリア語/スイス" => "it-ch",
"日本語" => "ja",
"グルジア語" => "ka",
"カザフ語" => "kk",
"カナラ語" => "kn",
"韓国語" => "ko",
"コンカニ語" => "kok",
"キルギスタン語" => "kz",
"リトアニア語" => "lt",
"ラトビア語" => "lv",
"マケドニア語" => "mk",
"マラヤラム語" => "ml",
"モンゴル語" => "mn",
"マラティー語" => "mr",
"マレー語" => "ms",
"マルタ語" => "mt",
"ノルウェー語/ブークモール" => "nb-no",
"ネパール語" => "ne",
"オランダ語" => "nl",
"オランダ語/ベルギー" => "nl-be",
"ノルウェー語" => "nn",
"ノルウェー語/ニーノシク" => "nn-no",
"ノルウェー語" => "no",
"オリヤー語" => "or",
"ポーランド語" => "pl",
"ポルトガル語/ポルトガル" => "pt",
"ポルトガル語/ブラジル" => "pt-br",
"レートロマンス語" => "rm",
"ルーマニア語" => "ro",
"ルーマニア語" => "ro-md",
"ロシア語" => "ru",
"ロシア語/モルドバ" => "ru-md",
"サンスクリット語" => "sa",
"ソルビア語" => "sb",
"スロバキア語" => "sk",
"スロベニア語" => "sl",
"アルバニア語" => "sq",
"セルビア語/キリル" => "sr",
"スウェーデン語" => "sv",
"スウェーデン語/フィンランド" => "sv-fi",
"スワヒリ語" => "sw",
"スツ語" => "sx",
"シリア語" => "syr",
"タミール語" => "ta",
"テルグ語" => "te",
"タイ語" => "th",
"ツワナ語" => "tn",
"トルコ語" => "tr",
"ツォンガ語" => "ts",
"タタール語" => "tt",
"ウクライナ語" => "uk",
"ウルドゥー語" => "ur",
"ウズベク語" => "uz",
"ベトナム語" => "vi",
"コーサ語" => "xh",
"イディッシュ語" => "yi",
"中国語" => "zh",
"中国語/中国" => "zh-cn",
"中国語/香港" => "zh-hk",
"中国語/マカオ" => "zh-mo",
"中国語/シンガポール" => "zh-sg",
"中国語/台湾" => "zh-tw",
"ズールー語" => "zu");

$lang_code_2 = array("アイスランド語" => "is",
"アイルランド" => "en-ie",
"アイルランド語" => "ga",
"アゼルバイジャン語" => "az",
"アッサム語" => "as",
"アフリカーンス語" => "af",
"アメリカ" => "en-us, es-us",
"アラビア語" => "ar",
"アラブ首長国連邦" => "ar-ae",
"アルジェリア" => "ar-dz",
"アルゼンチン" => "es-ar",
"アルバニア語" => "sq",
"アルメニア語" => "hy",
"イエメン" => "ar-ye",
"イタリア語" => "it",
"イディッシュ語" => "yi",
"イラク" => "ar-iq",
"インドネシア語" => "id",
"ウクライナ語" => "uk",
"ウズベク語" => "uz",
"ウルグアイ" => "es-uy",
"ウルドゥー語" => "ur",
"エクアドル" => "es-ec",
"エジプト" => "ar-eg",
"エストニア語" => "et",
"エルサルバドル" => "es-sv",
"オマーン" => "ar-om",
"オランダ語" => "nl",
"オリヤー語" => "or",
"オーストラリア" => "en-au",
"オーストリア" => "de-at, de-au",
"カザフ語" => "kk",
"カタロニア語" => "ca",
"カタール" => "ar-qa",
"カナダ" => "en-ca, fr-ca",
"カナラ語" => "kn",
"ガリシア語" => "gl",
"キルギスタン語" => "kz",
"ギリシア語" => "el",
"クウェート" => "ar-kw",
"クロアチア語" => "hr",
"グアテマラ" => "es-gt",
"グジャラート語" => "gu",
"グルジア語" => "ka",
"ゲール語/スコッチ" => "gd",
"コスタリカ" => "es-cr",
"コロンビア" => "es-co",
"コンカニ語" => "kok",
"コーサ語" => "xh",
"サウジアラビア" => "ar-sa",
"サンスクリット語" => "sa",
"シリア" => "ar-sy",
"シリア語" => "syr",
"シンガポール" => "zh-sg",
"ジャマイカ" => "en-jm",
"ジンバブエ" => "en-zw",
"スイス" => "de-ch, fr-ch, it-ch",
"スウェーデン語" => "sv",
"スツ語" => "sx",
"スペイン語" => "es",
"スロバキア語" => "sk",
"スロベニア語" => "sl",
"スワヒリ語" => "sw",
"ズールー語" => "zu",
"セルビア語" => "sr",
"ソルビア語" => "sb",
"タイ語" => "th",
"タタール語" => "tt",
"タミール語" => "ta",
"チェコ語" => "cs",
"チュニジア" => "ar-tn",
"チリ" => "es-cl",
"ツォンガ語" => "ts",
"ツワナ語" => "tn",
"テルグ語" => "te",
"ディヴェヒ語" => "div",
"デンマーク語" => "da",
"トリニダード" => "en-tt",
"トルコ語" => "tr",
"ドイツ語" => "de, de-de",
"ドミニカ共和国" => "es-do",
"ニカラグア" => "es-ni",
"ニュージーランド" => "en-nz",
"ニーノシク" => "nn-no",
"ネパール語" => "ne",
"ノルウェー語" => "nn, no",
"ハンガリー語" => "hu",
"ハンジャブ語" => "ha",
"バスク語" => "eu",
"バーレーン" => "ar-bh",
"パナマ" => "es-pa",
"パラグアイ" => "es-py",
"ヒンディー語" => "hi",
"フィリピン" => "en-ph",
"フィンランド" => "sv-fi",
"フィンランド語" => "fi",
"フェロー語" => "fo",
"フランス語" => "fr, fr-fr",
"ブラジル" => "pt-br",
"ブルアリア語" => "bg",
"ブークモール" => "nb-no",
"プエルトリコ" => "es-pr",
"ヘブライ語" => "he",
"ベトナム語" => "vi",
"ベネズエラ" => "es-ve",
"ベラルーシ語" => "be",
"ベリーズ" => "en-bz",
"ベルギー" => "fr-be, nl-be",
"ベンガル語" => "bn",
"ペルシア語" => "fa",
"ペルー" => "es-pe",
"ホンジュラス" => "es-hn",
"ボリビア" => "es-bo",
"ポルトガル" => "pt",
"ポーランド語" => "pl",
"マカオ" => "zh-mo",
"マケドニア語" => "mk",
"マラティー語" => "mr",
"マラヤラム語" => "ml",
"マルタ語" => "mt",
"マレー語" => "ms",
"メキシコ" => "es-mx",
"モナコ" => "fr-mc",
"モルドバ" => "ru-md",
"モロッコ" => "ar-ma",
"モンゴル語" => "mn",
"ヨルダン" => "ar-jo",
"ラトビア語" => "lv",
"リトアニア語" => "lt",
"リヒテンシュタイン" => "de-li",
"リビア" => "ar-ly",
"ルクセンブルグ" => "de-lu, fr-lu",
"ルーマニア語" => "ro, ro-md",
"レバノン" => "ar-lb",
"レートロマンス語" => "rm",
"ロシア語" => "ru",
"中国語" => "zh, zh-cn",
"南アフリカ" => "en-za",
"台湾" => "zh-tw",
"日本語" => "ja",
"英語" => "en, en-gb",
"韓国語" => "ko",
"香港" => "zh-hk");

?>

'get_browser_local.php'のソースコードはPHP standalone get_browser() for Browscap1に取得できる。

'cached_dig-ja.php'のソースコードは以下に示す。

<?php

/******************************************************************
* 
* cached_dig-ja.php, 
* Copyright (C) 2006, Bowo Prasetyo
*  
* http://www.my-tool.com
* 
* 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 below,
* 
* http://www.gnu.org/licenses/gpl.html#TOC1
* 
* 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., 51 Franklin Street, Fifth Floor, Boston, 
* MA  02110-1301, USA.
* 
* このプログラムはフリーソフトウェアです。あなたはこれを、以下のURLにフリーソフトウェ
* ア財団によって発行された GNU 一般公衆利用許諾契約書の定める条件の下で
* 再頒布または改変することができます。
* 
* http://www.gnu.org/licenses/gpl.html#TOC1
* 
* このプログラムは有用であることを願って頒布されますが、*全くの無保証* 
* です。商業可能性の保証や特定の目的への適合性は、言外に示されたものも含
* め全く存在しません。詳しくはGNU 一般公衆利用許諾契約書をご覧ください。
*  
* あなたはこのプログラムと共に、GNU 一般公衆利用許諾契約書の複製物を一部
* 受け取ったはずです。もし受け取っていなければ、フリーソフトウェア財団ま
* で請求してください(宛先は the Free Software Foundation, Inc., 59
* Temple Place, Suite 330, Boston, MA 02111-1307 USA)。
*
*****************************************************************/

/**
 * @package    Base
 * @author     Bowo Prasetyo <praNzOjp@SgmPaiAl.coMm> (take N O S P A M for email)
 * @version    0.1.0
 * @copyright  2006-2007 my-Tool.com
 * @license    http://www.gnu.org/licenses/gpl.html GNU General Public License
 */
/**
 * 'dig'プログラムを起動して結果をキャッシュする
 * 
 * まずはキャッシュした結果をデータベースに確認し、あればそれを$resに設定して
 * trueを返す。なければ、'dig'プログラムを起動して結果をデータベースにキャッシュし、
 * $resに設定してfalseを返す。
 *
 * この関数が使うMySQLデータベースは以下のように作成できる
 *
 * <code>
 * CREATE TABLE `dig` (
 *   `id` int(11) NOT NULL auto_increment,
 *   `server` varchar(255) NOT NULL default '',
 *   `name` varchar(255) NOT NULL default '',
 *   `type` enum('a','mx','ns','soa','hinfo','axfr','txt') NOT NULL default 'a',
 *   `class` enum('in','hs','ch') NOT NULL default 'in',
 *   `ctime` datetime NOT NULL default '0000-00-00 00:00:00',
 *   `content` text NOT NULL,
 *   PRIMARY KEY  (`id`),
 *   KEY `class` (`class`),
 *   KEY `server` (`server`),
 *   KEY `name` (`name`),
 *   KEY `type` (`type`),
 *   KEY `ctime` (`ctime`)
 * ) TYPE=MyISAM
 * </code>
 *
 * @param  string $server digのサーバ
 * @param  string $name   ホスト名
 * @param  string $type   レコード種類
 * @param  string $class  レコードクラス
 * @param  string &$res   結果への参照
 * @return bool           キャッシュをヒットしたかどうか
 *
 * @package    Base
 * @author     Bowo Prasetyo <praNzOjp@SgmPaiAl.coMm> (take N O S P A M for email)
 * @version    0.1.0
 * @copyright  2006-2007 my-Tool.com
 * @license    http://www.gnu.org/licenses/gpl.html GNU General Public License
 */
function cached_dig($server, $name, $type, $class, &$res)
{
   if (preg_match('/^[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}$/', $name)==1)
   {
      $res = '';
      return FALSE;
   }

if ($type=='') $type = 'a';
   if ($class=='') $class = 'in';

$query = "SELECT content FROM dig WHERE server = '$server' AND name = '$name' AND type='$type' AND class='$class'";
   $result = mysql_query($query) or die('Query failed: ' . mysql_error());

if ($line = mysql_fetch_array($result, MYSQL_ASSOC))
   {
      $res = $line['content'];
      $cached = TRUE;
   }
   else
   {
      if ($server=='')
	 exec("dig $type $class $name", $rslt);
      else
	 exec("dig @$server $type $class $name", $rslt);
      $res = '';
      for ($i=6; $i<count($rslt)-4; $i++)
         $res = $res.$rslt[$i]."\n";
      mysql_query("INSERT INTO dig (server, name, type, class, ctime, content) VALUES ('$server', '$name', '$type', '$class', now(), '".mysql_real_escape_string($res)."')");
      $cached = FALSE;
   }

mysql_free_result($result);

return $cached;
}

?>

'cached_whois.php'のソースコードは以下に示す。

<?php

/******************************************************************
* 
* cached_whois.php, 
* Copyright (C) 2006, Bowo Prasetyo
*  
* http://www.my-tool.com
* 
* 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 below,
* 
* http://www.gnu.org/licenses/gpl.html#TOC1
* 
* 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., 51 Franklin Street, Fifth Floor, Boston, 
* MA  02110-1301, USA.
* 
* このプログラムはフリーソフトウェアです。あなたはこれを、以下のURLにフリーソフトウェ
* ア財団によって発行された GNU 一般公衆利用許諾契約書の定める条件の下で
* 再頒布または改変することができます。
* 
* http://www.gnu.org/licenses/gpl.html#TOC1
* 
* このプログラムは有用であることを願って頒布されますが、*全くの無保証* 
* です。商業可能性の保証や特定の目的への適合性は、言外に示されたものも含
* め全く存在しません。詳しくはGNU 一般公衆利用許諾契約書をご覧ください。
*  
* あなたはこのプログラムと共に、GNU 一般公衆利用許諾契約書の複製物を一部
* 受け取ったはずです。もし受け取っていなければ、フリーソフトウェア財団ま
* で請求してください(宛先は the Free Software Foundation, Inc., 59
* Temple Place, Suite 330, Boston, MA 02111-1307 USA)。
*
*****************************************************************/

/**
 * @package    Base
 * @author     Bowo Prasetyo <praNzOjp@SgmPaiAl.coMm> (take N O S P A M for email)
 * @version    0.1.0
 * @copyright  2006-2007 my-Tool.com
 * @license    http://www.gnu.org/licenses/gpl.html GNU General Public License
 */
/**
 * Requests WHOIS server and caches the result
 *
 * In the heart of this function an open source program called PHPWhois is 
 * used. This program can be obtained at
 *
 * {@link http://www.phpwhois.org/}
 *
 * First the cache database for WHOIS result of a query is checked, then 
 * it will be assigned to $res if any and true is returned. Otherwise 
 * PHPWhois object is instantiated and requested for the query, then the 
 * result is inserted into cache database for as long as 1 day, then it is 
 * assigned to $res and false is returned.
 *
 * If $deep parameter is set then complete WHOIS result is returned 
 * (default), otherwise only its existence is returned (suitable to check 
 * domain availability).
 *
 * The MySQL cache database is created as
 *
 * <code>
 * CREATE TABLE `whois` (
 *   `id` int(11) NOT NULL auto_increment,
 *   `query` varchar(255) NOT NULL default '',
 *   `deep` enum('true','false') NOT NULL default 'true',
 *   `ctime` datetime NOT NULL default '0000-00-00 00:00:00',
 *   `content` text NOT NULL,
 *   PRIMARY KEY  (`id`),
 *   KEY `query` (`query`),
 *   KEY `ctime` (`ctime`),
 *   KEY `deep` (`deep`)
 * ) TYPE=MyISAM
 * </code>
 *
 * @param  string $qry  query to request
 * @param  string &$res result
 * @param  bool   $deep whether deep query or not
 * @return bool         whether hit the cache or not
 *
 * @package    Base
 * @author     Bowo Prasetyo <praNzOjp@SgmPaiAl.coMm> (take N O S P A M for email)
 * @version    0.1.0
 * @copyright  2006-2007 my-Tool.com
 * @license    http://www.gnu.org/licenses/gpl.html GNU General Public License
 */
function cached_whois($qry, &$res, $deep = TRUE)
{
   if ($deep) $depth = 'true';
   else $depth = 'false';
   $query = "SELECT content FROM whois WHERE query = '$qry' AND deep = '$depth'";
   $result = mysql_query($query) or die('Query failed: ' . mysql_error());

if ($line = mysql_fetch_array($result, MYSQL_ASSOC))
   {
      if ($deep) $res = $line['content'];
      else 
      {
         if ($line['content']=='bad') $res = 'bad';
         else $res = $line['content']=='1'?TRUE:FALSE;
      }
      $cached = TRUE;
   }
   else
   {
      require_once('/www/htdocs/phpwhois/whois.main.php');
      $whois = new Whois();
      $whois->deep_whois = $deep;
      $rslt = $whois->Lookup($qry);
      if ($deep)
      {
         if(!empty($rslt['rawdata']))
         {
            $res = implode($rslt['rawdata'],"\n");
            $res = mb_convert_encoding($res, "EUC-JP", "JIS");
         }
         else
         {
            $res = implode($whois->Query['errstr'],"\n");
            $res = mb_convert_encoding($res, "EUC-JP", "JIS");
         }       
      }
      else
      {
         if ($rslt['regrinfo']['registered']=='yes') 
         {
            $res = TRUE;
         }
         else if ($whois->Query['status'] < 0)
         {
            $res = 'bad';
         }
         else
         {
            $res = FALSE;
         }
      }
      mysql_query("INSERT INTO whois (query, deep, ctime, content) VALUES ('$qry', '$depth', now(), '".mb_ereg_replace("(['\"\\\\])", "\\\\1", $res)."')");
      $cached = FALSE;
   }

mysql_free_result($result);

return $cached;
}

?>

'whois.main.php'のソースコードはphpWhoisに取得できる。

'iphost_callback-ja.php'のソースコードは以下に示す。

<?php

/******************************************************************
* 
* iphost_callback-ja.php, 
* Copyright (C) 2006, Bowo Prasetyo
*  
* http://www.my-tool.com
* 
* 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 below,
* 
* http://www.gnu.org/licenses/gpl.html#TOC1
* 
* 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., 51 Franklin Street, Fifth Floor, Boston, 
* MA  02110-1301, USA.
* 
* このプログラムはフリーソフトウェアです。あなたはこれを、以下のURLにフリーソフトウェ
* ア財団によって発行された GNU 一般公衆利用許諾契約書の定める条件の下で
* 再頒布または改変することができます。
* 
* http://www.gnu.org/licenses/gpl.html#TOC1
* 
* このプログラムは有用であることを願って頒布されますが、*全くの無保証* 
* です。商業可能性の保証や特定の目的への適合性は、言外に示されたものも含
* め全く存在しません。詳しくはGNU 一般公衆利用許諾契約書をご覧ください。
*  
* あなたはこのプログラムと共に、GNU 一般公衆利用許諾契約書の複製物を一部
* 受け取ったはずです。もし受け取っていなければ、フリーソフトウェア財団ま
* で請求してください(宛先は the Free Software Foundation, Inc., 59
* Temple Place, Suite 330, Boston, MA 02111-1307 USA)。
*
*****************************************************************/

require_once('get_domain.php');

function iphost_callback($matches) {

global $launcher;
   $hostname = rtrim($matches[0],'.');

if(preg_match('/^[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}$/',$hostname)==1)
   {
      $link = "$matches[0]<sup>(<a href=\"$launcher?tool=networking&sub1=ip-hostname&query=$hostname\">ホスト名</a>,<a href=\"$launcher?tool=networking&sub1=ip-country&query=$hostname\">国</a>,<a href=\"$launcher?tool=networking&sub1=whois&query=$hostname\">whois</a>)</sup>";
   }
   else
   {
      $domain = get_domain($hostname);
      if ($domain===FALSE)
         $link = $matches[0];
      else
      {
         $link = "$matches[0]<sup>(<a href=\"$launcher?tool=networking&sub1=ip-hostname&query=$hostname\">ip</a>,<a href=\"$launcher?tool=networking&sub1=dns&query=$hostname\">dns</a>,<a href=\"$launcher?tool=networking&sub1=whois&query=$domain\">whois</a>)</sup>";
      }
   }
   return $link;
}

function iphost_callback_2($matches) {

global $launcher;
   $hostname = rtrim($matches,'.');

if(preg_match('/^[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}$/',$hostname)==1)
   {
      $link = "<sup>(<a href=\"$launcher?tool=networking&sub1=ip-hostname&query=$hostname\">ホスト名</a>,<a href=\"$launcher?tool=networking&sub1=ip-country&query=$hostname\">国</a>,<a href=\"$launcher?tool=networking&sub1=whois&query=$hostname\">whois</a>)</sup>";
   }
   else
   {
      $domain = get_domain($hostname);
      if ($domain===FALSE)
         $link = '';
      else
      {
         $link = "<sup>(<a href=\"$launcher?tool=networking&sub1=ip-hostname&query=$hostname\">ip</a>,<a href=\"$launcher?tool=networking&sub1=dns&query=$hostname\">dns</a>,<a href=\"$launcher?tool=networking&sub1=whois&query=$domain\">whois</a>)</sup>";
      }
   }
   return $link;
}

?>

'get_domain.php'のソースコードは以下に示す。

<?php

/******************************************************************
* 
* get_domain.php, 
* Copyright (C) 2006, Bowo Prasetyo
*  
* http://www.my-tool.com
* 
* 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 below,
* 
* http://www.gnu.org/licenses/gpl.html#TOC1
* 
* 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., 51 Franklin Street, Fifth Floor, Boston, 
* MA  02110-1301, USA.
* 
* このプログラムはフリーソフトウェアです。あなたはこれを、以下のURLにフリーソフトウェ
* ア財団によって発行された GNU 一般公衆利用許諾契約書の定める条件の下で
* 再頒布または改変することができます。
* 
* http://www.gnu.org/licenses/gpl.html#TOC1
* 
* このプログラムは有用であることを願って頒布されますが、*全くの無保証* 
* です。商業可能性の保証や特定の目的への適合性は、言外に示されたものも含
* め全く存在しません。詳しくはGNU 一般公衆利用許諾契約書をご覧ください。
*  
* あなたはこのプログラムと共に、GNU 一般公衆利用許諾契約書の複製物を一部
* 受け取ったはずです。もし受け取っていなければ、フリーソフトウェア財団ま
* で請求してください(宛先は the Free Software Foundation, Inc., 59
* Temple Place, Suite 330, Boston, MA 02111-1307 USA)。
*
*****************************************************************/

function get_domain($hostname)
{
   if(preg_match('/^[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}$/', $hostname)==1)
   {
      $domain = FALSE;
   }
   else
   {
      $strs = explode('.', $hostname);
      $cnt = count($strs);
      if ($cnt==1)
      {
         $domain = FALSE;
      }
      else
      {
         $domain = '';
         if(strlen($strs[$cnt-1])>2)
         {
            $domain = $strs[$cnt-2].'.'.$strs[$cnt-1];
         }
         else if(strlen($strs[$cnt-2])>3)
         {
            $domain = $strs[$cnt-2].'.'.$strs[$cnt-1];
         }
         else if(strlen($strs[$cnt-2])<3)
         {
            $domain = $strs[$cnt-3].'.'.$strs[$cnt-2].'.'.$strs[$cnt-1];
         }
         else
         {
            require('domain_const.php');
            if (in_array($strs[$cnt-2], $gtld))
            {
               $domain = $strs[$cnt-3].'.'.$strs[$cnt-2].'.'.$strs[$cnt-1];
            }
            else
            {
               $domain = $strs[$cnt-2].'.'.$strs[$cnt-1];
            }
         }
      }
   }
   return $domain;
}

?>

'domain_const.php'のソースコードは以下に示す。

<?php

/******************************************************************
* 
* domain_const.php, 
* Copyright (C) 2006, Bowo Prasetyo
*  
* http://www.my-tool.com
* 
* 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 below,
* 
* http://www.gnu.org/licenses/gpl.html#TOC1
* 
* 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., 51 Franklin Street, Fifth Floor, Boston, 
* MA  02110-1301, USA.
* 
* このプログラムはフリーソフトウェアです。あなたはこれを、以下のURLにフリーソフトウェ
* ア財団によって発行された GNU 一般公衆利用許諾契約書の定める条件の下で
* 再頒布または改変することができます。
* 
* http://www.gnu.org/licenses/gpl.html#TOC1
* 
* このプログラムは有用であることを願って頒布されますが、*全くの無保証* 
* です。商業可能性の保証や特定の目的への適合性は、言外に示されたものも含
* め全く存在しません。詳しくはGNU 一般公衆利用許諾契約書をご覧ください。
*  
* あなたはこのプログラムと共に、GNU 一般公衆利用許諾契約書の複製物を一部
* 受け取ったはずです。もし受け取っていなければ、フリーソフトウェア財団ま
* で請求してください(宛先は the Free Software Foundation, Inc., 59
* Temple Place, Suite 330, Boston, MA 02111-1307 USA)。
*
*****************************************************************/

$gtld = array ('aero','biz','cat','com','coop','info','jobs','mobi','museum','name','net','org','pro','travel','gov','edu','mil','int');

$tld = array ('ac', 'ad', 'ae', 'af', 'ag', 'ai', 'al', 'am', 'an', 'ao', 'aq', 'ar', 'as', 'at', 'au', 'aw', 'az', 'ax', 'ba', 'bb', 'bd', 'be', 'bf', 'bg', 'bh', 'bi', 'bj', 'bm', 'bn', 'bo', 'br', 'bs', 'bt', 'bv', 'bw', 'by', 'bz', 'ca', 'cc', 'cd', 'cf', 'cg', 'ch', 'ci', 'ck', 'cl', 'cm', 'cn', 'co', 'cr', 'cs', 'cu', 'cv', 'cx', 'cy', 'cz', 'de', 'dj', 'dk', 'dm', 'do', 'dz', 'ec', 'ee', 'eg', 'eh', 'er', 'es', 'et', 'eu', 'fi', 'fj', 'fk', 'fm', 'fo', 'fr', 'ga', 'gb', 'gd', 'ge', 'gf', 'gg', 'gh', 'gi', 'gl', 'gm', 'gn', 'gp', 'gq', 'gr', 'gs', 'gt', 'gu', 'gw', 'gy', 'hk', 'hm', 'hn', 'hr', 'ht', 'hu', 'id', 'ie', 'il', 'im', 'in', 'io', 'iq', 'ir', 'is', 'it', 'je', 'jm', 'jo', 'jp', 'ke', 'kg', 'kh', 'ki', 'km', 'kn', 'kp', 'kr', 'kw', 'ky', 'kz', 'la', 'lb', 'lc', 'li', 'lk', 'lr', 'ls', 'lt', 'lu', 'lv', 'ly', 'ma', 'mc', 'md', 'mg', 'mh', 'mk', 'ml', 'mm', 'mn', 'mo', 'mp', 'mq', 'mr', 'ms', 'mt', 'mu', 'mv', 'mw', 'mx', 'my', 'mz', 'na', 'nc', 'ne', 'nf', 'ng', 'ni', 'nl', 'no', 'np', 'nr', 'nu', 'nz', 'om', 'pa', 'pe', 'pf', 'pg', 'ph', 'pk', 'pl', 'pm', 'pn', 'pr', 'ps', 'pt', 'pw', 'py', 'qa', 're', 'ro', 'ru', 'rw', 'sa', 'sb', 'sc', 'sd', 'se', 'sg', 'sh', 'si', 'sj', 'sk', 'sl', 'sm', 'sn', 'so', 'sr', 'st', 'sv', 'sy', 'sz', 'tc', 'td', 'tf', 'tg', 'th', 'tj', 'tk', 'tl', 'tm', 'tn', 'to', 'tp', 'tr', 'tt', 'tv', 'tw', 'tz', 'ua', 'ug', 'uk', 'um', 'us', 'uy', 'uz', 'va', 'vc', 've', 'vg', 'vi', 'vn', 'vu', 'wf', 'ws', 'ye', 'yt', 'yu', 'za', 'zm', 'zw');

?>

'detector.vbs'のソースコードは以下に示す。

 <!-- hide

'******************************************************************
' 
' detector.vbs, Detects version and active-x components.
' Copyright (C) 2006, Bowo Prasetyo
'  
' http://www.my-tool.com
' 
' 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 below,
' 
' http://www.gnu.org/licenses/gpl.html#TOC1
' 
' 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., 51 Franklin Street, Fifth Floor, Boston, 
' MA  02110-1301, USA.
'
'****************************************************************/

option explicit
dim version
dim result
dim isAvailable

version = ScriptEngineMajorVersion() & "." & ScriptEngineMinorVersion()
Set isAvailable = CreateObject("Scripting.Dictionary")

on error resume next 

result = false
result = IsObject(CreateObject("acroPDF.PDF.1"))
if result then 
   isAvailable.add "Adobe Acrobat Reader ver. 7", true
end if
result = false
result = IsObject(CreateObject("PDF.PdfCtrl.6")) 
if result then
   isAvailable.add "Adobe Acrobat Reader ver. 6", true
end if
result = false
result = IsObject(CreateObject("PDF.PdfCtrl.5")) 
if result then
   isAvailable.add "Adobe Acrobat Reader ver. 5", true
end if
result = false
result = IsObject(CreateObject("PDF.PdfCtrl.4")) 
if result then
   isAvailable.add "Adobe Acrobat Reader ver. 4", true
end if
result = false
result = IsObject(CreateObject("PDF.PdfCtrl.1")) 
if result then
   isAvailable.add "Adobe Acrobat Reader ver. 3", true
end if
result = false
result = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.7")) 
if result then
   isAvailable.add "Flash Player 7", true
end if
result = false
result = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.6")) 
if result then
   isAvailable.add "Flash Player 6", true
end if
result = false
result = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.5")) 
if result then
   isAvailable.add "Flash Player 5", true
end if
result = false
result = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.4")) 
if result then
   isAvailable.add "Flash Player 4", true
end if
result = false
result = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.3")) 
if result then
   isAvailable.add "Flash Player 3", true
end if
result = false
result = IsObject(CreateObject("QuickTime.QuickTime.4")) 
if result then
   isAvailable.add "QuickTime Player 6", true
end if
result = false
result = IsObject(CreateObject("QuickTimeCheckObject.QuickTimeCheck.1")) 
if result then
   isAvailable.add "QuickTime Player 5", true
end if
result = false
result = IsObject(CreateObject("rmocx.RealPlayer G2 Control.1")) 
if result then
   isAvailable.add "RealPlayer G2", true
end if
result = false
result = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.1")) 
if result then
   isAvailable.add "Shockwave Player 10", true
end if
result = false
result = IsObject(CreateObject("SWCt1.SWCt1.9")) 
if result then
   isAvailable.add "Shockwave Player 9", true
end if
result = false
result = IsObject(CreateObject("SWCt1.SWCt1.8")) 
if result then
   isAvailable.add "Shockwave Player 8", true
end if
result = false
result = IsObject(CreateObject("SWCt1.SWCt1.7")) 
if result then
   isAvailable.add "Shockwave Player 7", true
end if
result = false
result = IsObject(CreateObject("SWCt1.SWCt1.1")) 
if result then
   isAvailable.add "Shockwave Player 6", true
end if
result = false
result = IsObject(CreateObject("MediaPlayer.MediaPlayer.1")) 
if result then
   isAvailable.add "Windows Media Player", true
end if
result = false
result = IsObject(CreateObject("Adobe.SVGCtl")) 
if result then
   isAvailable.add "Adobe SVG Viewer", true
end if
result = false
result = IsObject(CreateObject("Excel.Application")) 
if result then
   isAvailable.add "Microsoft Excel", true
end if
result = false
result = IsObject(CreateObject("Word.Application")) 
if result then
   isAvailable.add "Microsoft Word", true
end if
result = false
result = IsObject(CreateObject("Powerpoint.Application")) 
if result then
   isAvailable.add "Microsoft Powerpoint", true
end if
result = false
result = IsObject(CreateObject("Access.Application")) 
if result then
   isAvailable.add "Microsoft Access", true
end if
result = false
result = IsObject(CreateObject("Photoshop.Application")) 
if result then
   isAvailable.add "Adobe Photoshop", true
end if

' unhide -->