倉金家ホームページ

# whois 103.246.39.212
[Querying whois.arin.net]
[Redirected to whois.apnic.net]
[Querying whois.apnic.net]
[whois.apnic.net]
........

inetnum:        103.246.39.0 - 103.246.39.255
netname:        BLUECOAT-CS-AP
descr:          Blue Coat Systems Inc
country:        JP
admin-c:        ........
tech-c:         ........
status:         ........
.......         ........

// REMOTE_HOSTが空または有効なホスト名でない(IPアドレスの場合)ならwhoisを引く。
$host = (empty($_SERVER['REMOTE_HOST']) || !mb_eregi('[a-z]', $_SERVER['REMOTE_HOST'])) ?
  access_whois($_SERVER['REMOTE_ADDR']) : $_SERVER['REMOTE_HOST'];

//// IPのwhois情報を調べて所有者、国名を得る。IPv6は非対応。
function access_whois($ip)
{
  // メモリキャッシュ。複数回のページ呼び出しに対応。
  static $m_cached_ip = NULL, $m_cached_whois = '';
  if($ip === $m_cached_ip){ return($m_cached_whois); } // キャッシュしていればそれを返す。

  // 外部に問い合わせてはいけないIP。IPの形式をなしていないのやローカルのIPなど。
  if(!mb_ereg('^[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}$', $ip)){ return(''); } // not IP
  if($ip == '127.0.0.1'){ return('(localhost)'); } // local loopback
  if(mb_ereg('^192\.168\.', $ip)){ return("($ip-somehost.localdomain)"); } // local LAN

  // ファイルキャッシュ。複数のページアクセスに対応。
  $cache_file = 'whois_cache.inc.php'; // キャッシュファイルの指定。
  // キャッシュファイルがまだない場合空のデータでつくる。
  if(!file_exists($cache_file))
  {
    file_put_contents($cache_file, '<?php
$ip_whois = array(
);
?>');
  }
  $max_f_cache = 1000; // キャッシュ件数。サイトのアクセス量とサーバーパワーに応じて適当に。
  include($cache_file);
  if(isset($ip_whois))
  {
    foreach($ip_whois as $f_cached_ip => $f_cached_whois)
    {
      if($f_cached_ip === $ip){ return($f_cached_whois); } // キャッシュがあればそれを返す。
    }
  }
  else
  {
    $ip_whois = array();
  }

  // キャッシュはなかった。whoisをとる。システムによっては日本語をとるのにexport LANGとnkfが必要。
  if(!($whois = trim(shell_exec("export LANG=ja_JP.UTF-8 ; timeout 5 whois ".escapeshellarg($ip)." | nkf -w8"))) || mb_eregi('ERROR ', $whois))
  {
    return(''); // whoisがうまくとれなかった。
  }

  $name = $name_jp = $country = '';
  if(mb_ereg('JPNIC database', $whois)) // whois.nic.ad.jp
  {
    if(!($name_jp = mb_ereg('.*\n.*?\[組織名\]\s+([^\n]+)\n', $whois, $regs) ? $regs[1] : ''))
    {
      $whois = getjpwhois_byip($ip); // 日本語でなかったらとりなおす。
      $name_jp = (mb_ereg('.*\n.*?\[組織名\]\s+([^\n]+)\n', $whois, $regs) ? $regs[1] : '');
    }
    $name = mb_ereg('.*\n.*?\[Organization\]\s+([^\n]+)\n', $whois, $regs) ? $regs[1] : '';
    $country = 'jp';
  }
  elseif(mb_ereg('\[whois\.apnic\.net\]', $whois)) // whois.apnic.net
  {
    $name = mb_eregi('.*?\ndescr:\s+([^\n]*(?:co|ltd|inc|net|service)[^\n]*)\n', $whois, $regs) ? $regs[1]
      : (mb_ereg('.*?\ndescr:\s+([^\n]+)\n', $whois, $regs) ? $regs[1] : '');
    $country = mb_ereg('.*?\ncountry:\s+([^\n]+)\n', $whois, $regs) ? $regs[1] : '';
    if($country == 'JP' || $country == 'jp') // 日本の場合はさらに詳細に調査。
    {
      $whois = getjpwhois_byip($ip); // この場合最初から日本語でとる。
      $name_jp = (mb_ereg('.*\n.*?\[組織名\]\s+([^\n]+)\n', $whois, $regs) ? $regs[1] : '');
      $name = mb_ereg('.*\n.*?\[Organization\]\s+([^\n]+)\n', $whois, $regs) ? $regs[1] : '';
    }
  }
  elseif(mb_ereg('RIPE Database|AfriNIC Whois server', $whois)) // whois.ripe.net, whois.afrinic.net
  {
    $name = mb_eregi('.*\ndescr:\s+([^\n]*(?:co|ltd|inc|net|service)[^\n]*)\n', $whois, $regs) ? $regs[1]
      : (mb_ereg('.*?\ndescr:\s+([^\n]+)\n', $whois, $regs) ? $regs[1] : '');
    $country = mb_ereg('.*?\ncountry:\s+([^\n]+)\n', $whois, $regs) ? $regs[1] : '';
  }
  elseif(mb_ereg('LACNIC resource: whois\.lacnic\.net|Brazilian resource: whois\.registro\.br', $whois)) // whois.lacnic.net, registro.br; whois.nic.br,whois.registro.br同じ。
  {
    $name = mb_ereg('.*\nowner:\s+([^\n]+)\n', $whois, $regs) ? $regs[1] : '';
    $country = mb_ereg('.*?\ncountry:\s+([^\n]+)\n', $whois, $regs) ? $regs[1] : '';
  }
  elseif(mb_ereg('KRNIC WHOIS Service', $whois)) // whois.krnic.net, whois.nic.or.kr...同じ。
  {
    $name = mb_ereg('.*\nOrganization Name\s+:\s+([^\n]+)\n', $whois, $regs) ? $regs[1] : '';
    $country = 'kr';
  }
  elseif(mb_ereg('ARIN WHOIS data and services', $whois)) // whois.arin.net
  {
    $name = mb_ereg('.*\nOrgName:\s+([^\n]+)\n', $whois, $regs) ? $regs[1]
      : (mb_eregi('.*?\n([^\[#\s][^\n]+(?:Inc|Ltd)\s*(?:[^\(]+\s*)*)', $whois, $regs) ? $regs[1]
        : (mb_ereg('.*?\n([^\[#\s](?:[^(]+\s*)+)', $whois, $regs) ? $regs[1] : ''));
    $country = mb_ereg('.*\nCountry:\s+([^\n]+)\n', $whois, $regs) ? $regs[1] : '';
  }

  // 上記にないサーバー、書式が合わない、記載がないなどでとれないときの最後のトライ。
  if(!$name)
  {
    $name = mb_eregi('.*?(?:owner|name):\s*([^\n]+)\n', $whois, $regs) ? $regs[1] : '';
  }
  if(!$country)
  {
    $country = mb_eregi('.*?(?:country|Country-Code):\s*([^\n]+)\n', $whois, $regs) ? $regs[1] : '';
  }
  $name = trim($name);
  $country = trim($country);

  // whois情報が得られればキャッシュに保存。まれにwhoisが引けずERRORする。
  // 国コードは必ずしも取れなくてもよしとする。書かれてないこともある。
  if($name)
  {
    // メモリキャッシュ作成
    $m_cached_ip = $ip;
    $m_cached_whois = "($name)";
    if($country){ $m_cached_whois .= "($country)"; } // 逆引きデータと区別しやすいよう()で囲む。
    if($name_jp){ $m_cached_whois .= ", [$name_jp][日本]"; } // 区切りの","は\nでも<br>でも。
    // ファイルキャッシュ用データ作成。
    $new_ip_whois = '<?php
$ip_whois = array(';
    $new_ip_whois .= "
'$m_cached_ip'\t=> '$m_cached_whois',"; // 検索が速いように新しいのを頭に。
    $count = 1;
    foreach($ip_whois as $f_cached_ip => $f_cached_whois)
    {
      if($count++ > $max_f_cache){ break; }
      $new_ip_whois .= "
'$f_cached_ip'\t=> '$f_cached_whois',";
    }
    $new_ip_whois .= '
);
?>
';
    // ファイルキャッシュに保存。
    if($fp = fopen($cache_file, 'c+'))
    {
      flock($fp, LOCK_EX);
      ftruncate($fp, 0);
      fwrite($fp, $new_ip_whois);
      fflush($fp);
      flock($fp, LOCK_UN);
      fclose($fp);
    }
    return($m_cached_whois);
  }
  else
  {
    return('');
  }
}

// hetemlのサーバーではwhoisコマンドで日本語whoisがとれないので日本語でとる関数を別途作成。
function getjpwhois_byip($ip){
  $url = 'https://whois.nic.ad.jp/cgi-bin/whois_gw?key='.$ip;
  $ch = curl_init($url);
  curl_setopt($ch, CURLOPT_RETURNTRANSFER, true); // 返り値を出力せず文字列で返す。
  curl_setopt($ch, CURLOPT_BINARYTRANSFER, true); // 出力結果を何も加工せずに返す。
  curl_setopt($ch, CURLOPT_CONNECTTIMEOUT, 3); // 接続試行待ち秒数。
  curl_setopt($ch, CURLOPT_TIMEOUT, 6); // cURL関数実行にかけられる時間の最大値。
  $output = curl_exec($ch);
  curl_close($ch);
  $output = strip_tags(mb_convert_encoding($output, 'UTF-8', 'SJIS'));
  return($output);
}

?>