<?php
//
// by Fumi.Iseki  2007/03/24
//                2012/04/12
//                2013/04/20
//                2013/09/21
//

$jbxl_tools_ver = 2013092100;


//
if (defined('JBXL_TOOLS_VER') or defined('_JBXL_TOOLS')) {
	if (defined('JBXL_TOOLS_VER')) {
		if (JBXL_TOOLS_VER < $jbxl_tools_ver) {
			print_error('JBXL_TOOLS: old version is used. '.JBXL_TOOLS_VER.' < '.$jbxl_tools_ver);
		}
	}
}
else {

define('JBXL_TOOLS_VER', $jbxl_tools_ver);


/****************************************************************************************
//
// function  jbxl_to_subnetformats($strips)
// function  jbxl_match_ipaddr($ip, $ipaddr_subnets)
// function  jbxl_randstr($len=8, $lowcase=false)
//
// function  jbxl_get_ipresolv_url($ip)
//
*****************************************************************************************/


//
// IPアドレスを "," または半角空白で区切って記述した文字列から，有効なIPアドレス
// とサブネットを8bitずつ取り出す．CIDER対応
//
// 入力例：" 0.2.1.1/2 222.222.111.222/255., 123.31.6.000 202.26.156.2/20, 202.26.144.0/255.255.255.0   , "
//  
// 戻り値：
//     $return[index]['ipaddr'][0〜3の数]  8bit区切りの IPアドレス
//     $return[index]['subnet'][0〜3の数]  8bit区切りの netmaskアドレス
//
function  jbxl_to_subnetformats($strips)
{
	$return = array();

	$tmpips = preg_split("/[ ,]/ ", $strips);
	foreach($tmpips as $value) {
		if (!empty($value)) $ipfmts[] = $value;
	}
	if (empty($ipfmts)) return $return;

	unset($tempips);
	// omission of subnetmask
	foreach($ipfmts as $ipfmt) {
		$tempips = explode('/', $ipfmt);
		if (empty($tempips[0])) continue;
		if (empty($tempips[1])) {
			$ips = explode('.', $tempips[0]);
			$tempips[1] = '';
			for ($i=0; $i<4; $i++) {
				if (empty($ips[$i])) $tempips[1].= '0';
				else                 $tempips[1].= '255';
				if ($i!=3) $tempips[1].= '.';
			}
			unset($ips);
		}
		$ipaddr_subnets[] = $tempips;
	}
	if (empty($ipaddr_subnets)) return $return;

	//
	$index = 0;
	foreach($ipaddr_subnets as $ipaddr_subnet) {
		$ips = explode('.', $ipaddr_subnet[0]);
		$sub = explode('.', $ipaddr_subnet[1]);

		if (count($sub)==1 and $sub[0]<=32) { 	// CIDER -> SubnetMask
			$cider = $sub[0];
			$nbyte = (int)($cider/8);
			$nbit  = $cider - $nbyte*8;
			for ($i=0; $i<$nbyte; $i++) {
				$sub[$i] = 255;
			}
			if ($nbyte!=4) {
				$nsub = 0;
				$base = 128;
				for ($i=0; $i<$nbit; $i++) {
					$nsub += $base;
					$base = $base/2;
				}	
				$sub[$nbyte] = $nsub;
			}
		}
		
		for ($i=0; $i<4; $i++) {
			if (!empty($ips[$i])) $return[$index]['ipaddr'][$i] = (int)$ips[$i]; 
			else                  $return[$index]['ipaddr'][$i] = (int)0;
			if (!empty($sub[$i])) $return[$index]['subnet'][$i] = (int)$sub[$i]; 
			else                  $return[$index]['subnet'][$i] = (int)0;
		}
		$index++;
	}

	return $return;
}


//
// $ip が $ipaddr_subnetsの中に含まれるか検査する．
// $ipaddr_subnets は jbxl_to_subnetformats()が出力したものを使用すること．
// $ip の内容の形式はチェックしない．これは呼び出し側の責任．
//
function  jbxl_match_ipaddr($ip, array $ipaddr_subnets)
{
	$ipa = explode('.', $ip);
	if (empty($ipa)) return false;

	for ($i=1; $i<4; $i++) {
		if (empty($ipa[$i])) $ipa[$i] = 0;
	}

	foreach($ipaddr_subnets as $ipaddr_subnet) {
		$ips = $ipaddr_subnet['ipaddr'];
		$sub = $ipaddr_subnet['subnet'];

		$match_f = true;
		for ($i=0; $i<4; $i++) {
			$check1 = $ipa[$i] & $sub[$i];
			$check2 = $ips[$i] & $sub[$i];
			if ($check1 != $check2) {
				$match_f = false;
				break;
			}
		}

		if ($match_f) {
			//print_r($ips);
			//print_r($sub);
			return true;
		}
	}
	return false;
}


$JBXLBaseChar = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789";


function  jbxl_randstr($len=8, $lowcase=false)
{
	global $JBXLBaseChar;

	if ($lowcase) $rndmax = 25;
	else		  $rndmax = strlen($JBXLBaseChar) - 1;

    $return  = "";
    for($i=0; $i<$len; $i++) {
        $return .= $JBXLBaseChar{mt_rand(0, $rndmax)};
	}
    return $return;
}


function  jbxl_get_ipresolv_url($ip, $region='APNIC')
{
	if (!preg_match('/(^\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/', $ip, $match)) return '';

	if ($match[1]>255 or $match[2]>255 or $match[3]>255 or $match[4]>255) return '';
	if ($match[1]=='127' or  $match[1]=='10') return '';
	if ($match[1]=='172' and $match[2]>='16' and $match[2]<='31') return '';
	if ($match[1]=='192' and $match[2]=='168') return '';

	if ($region=='JPNIC') {
		$url = 'http://whois.nic.ad.jp/cgi-bin/whois_gw?type=NET&key='.$ip;	// JPNIC
	}
	else {
		$url = 'http://wq.apnic.net/apnic-bin/whois.pl?searchtext='.$ip;	// APNIC
	}

	return $url;
}


} 		// !defined('JBXL_TOOLS_VER')
?>