fusionpbx/resources/qr/qrcode.php

<?php

//---------------------------------------------------------------
// QRCode for PHP4
//
// Copyright (c) 2009 Kazuhiko Arase
//
// URL: http://www.d-project.com/
//
// Licensed under the MIT license:
//   http://www.opensource.org/licenses/mit-license.php
//
// The word "QR Code" is registered trademark of 
// DENSO WAVE INCORPORATED
//   http://www.denso-wave.com/qrcode/faqpatent-e.html
//
//---------------------------------------------------------------------

//---------------------------------------------------------------
// QRCode
//---------------------------------------------------------------

define("QR_PAD0", 0xEC);
define("QR_PAD1", 0x11);

class QRCode {

	var $typeNumber;
	var $modules;
	var $moduleCount;
	var $errorCorrectLevel;
	var $qrDataList;

	function QRCode() {
 		$this->typeNumber = 1;
		$this->errorCorrectLevel = QR_ERROR_CORRECT_LEVEL_H;
		$this->qrDataList = array();
	}

	function getTypeNumber() {
		return $this->typeNumber;
	}

	function setTypeNumber($typeNumber) {
		$this->typeNumber = $typeNumber;
	}

	function getErrorCorrectLevel() {
		return $this->errorCorrectLevel;
	}

	function setErrorCorrectLevel($errorCorrectLevel) {
		$this->errorCorrectLevel = $errorCorrectLevel;
	}

	function addData($data, $mode = 0) {

		if ($mode == 0) {
			$mode = QRUtil::getMode($data);
		}

		switch($mode) {
		case QR_MODE_NUMBER :
			$this->addDataImpl(new QRNumber($data) );
			break;

		case QR_MODE_ALPHA_NUM :
			$this->addDataImpl(new QRAlphaNum($data) );
			break;

		case QR_MODE_8BIT_BYTE :
			$this->addDataImpl(new QR8BitByte($data) );
			break;

		case QR_MODE_KANJI :
			$this->addDataImpl(new QRKanji($data) );
			break;

		default :
			trigger_error("mode:$mode", E_USER_ERROR);
		}
	}

	function clearData() {
		$qrDataList = array();
	}

	function addDataImpl(&$qrData) {
		$this->qrDataList[] = $qrData;
	}

	function getDataCount() {
		return count($this->qrDataList);
	}

	function getData($index) {
		return $this->qrDataList[$index];
	}

	function isDark($row, $col) {
		if ($this->modules[$row][$col] !== null) {
			return $this->modules[$row][$col];
		} else {
			return false;
		}
	}

	function getModuleCount() {
		return $this->moduleCount;
	}

	function make() {
		$this->makeImpl(false, $this->getBestMaskPattern() );
	}

	function getBestMaskPattern() {
		$minLostPoint = 0;
		$pattern = 0;
		for ($i = 0; $i < 8; $i++) {
			$this->makeImpl(true, $i);
			$lostPoint = QRUtil::getLostPoint($this);
			if ($i == 0 || $minLostPoint > $lostPoint) {
				$minLostPoint = $lostPoint;
				$pattern = $i;
			}
		}
		return $pattern;
	}

	function createNullArray($length) {
		$nullArray = array();
		for ($i = 0; $i < $length; $i++) {
			$nullArray[] = null;
		}
		return $nullArray;
	}

	function makeImpl($test, $maskPattern) {
		$this->moduleCount = $this->typeNumber * 4 + 17;

		$this->modules = array();
		for ($i = 0; $i < $this->moduleCount; $i++) {
			$this->modules[] = QRCode::createNullArray($this->moduleCount);
		}

		$this->setupPositionProbePattern(0, 0);
		$this->setupPositionProbePattern($this->moduleCount - 7, 0);
		$this->setupPositionProbePattern(0, $this->moduleCount - 7);
		$this->setupPositionAdjustPattern();
		$this->setupTimingPattern();
		$this->setupTypeInfo($test, $maskPattern);
		if ($this->typeNumber >= 7) {
			$this->setupTypeNumber($test);
		}
		$dataArray = $this->qrDataList;

		$data = QRCode::createData($this->typeNumber, $this->errorCorrectLevel, $dataArray);

		$this->mapData($data, $maskPattern);
	}

	function mapData(&$data, $maskPattern) {

		$inc = -1;
		$row = $this->moduleCount - 1;
		$bitIndex = 7;
		$byteIndex = 0;

		for ($col = $this->moduleCount - 1; $col > 0; $col -= 2) {
			if ($col == 6) $col--;
			while (true) {
				for ($c = 0; $c < 2; $c++) {
					if ($this->modules[$row][$col - $c] === null) {
						$dark = false;
						if ($byteIndex < count($data) ) {
							$dark = ( ( ($data[$byteIndex] >> $bitIndex) & 1) == 1);
						}

						$mask = QRUtil::getMask($maskPattern, $row, $col - $c);

						if ($mask) {
							$dark = !$dark;
						}

						$this->modules[$row][$col - $c] = $dark;
						$bitIndex--;

						if ($bitIndex == -1) {
							$byteIndex++;
							$bitIndex = 7;
						}
					}
				}
				$row += $inc;

				if ($row < 0 || $this->moduleCount <= $row) {
					$row -= $inc;
					$inc = -$inc;
					break;
				}
			}
		}
	}
	
	function setupPositionAdjustPattern() {
		$pos = QRUtil::getPatternPosition($this->typeNumber);
		for ($i = 0; $i < count($pos); $i++) {
			for ($j = 0; $j < count($pos); $j++) {
				$row = $pos[$i];
				$col = $pos[$j];

				if ($this->modules[$row][$col] !== null) {
					continue;
				}

				for ($r = -2; $r <= 2; $r++) {
					for ($c = -2; $c <= 2; $c++) {
						if ($r == -2 || $r == 2 || $c == -2 || $c == 2 
								|| ($r == 0 && $c == 0) ) {
							$this->modules[$row + $r][$col + $c] = true;
						} else {
							$this->modules[$row + $r][$col + $c] = false;
						}
					}
				}
			}
		}
	}

	function setupPositionProbePattern($row, $col) {

		for ($r = -1; $r <= 7; $r++) {

			for ($c = -1; $c <= 7; $c++) {

				if ($row + $r <= -1 || $this->moduleCount <= $row + $r 
						|| $col + $c <= -1 || $this->moduleCount <= $col + $c) {
					continue;
				}

				if ( (0 <= $r && $r <= 6 && ($c == 0 || $c == 6) )
						|| (0 <= $c && $c <= 6 && ($r == 0 || $r == 6) )
						|| (2 <= $r && $r <= 4 && 2 <= $c && $c <= 4) ) {
					$this->modules[$row + $r][$col + $c] = true;
				} else {
					$this->modules[$row + $r][$col + $c] = false;
				}
			}
		}
	}

	function setupTimingPattern() {

		for ($r = 8; $r < $this->moduleCount - 8; $r++) {
			if ($this->modules[$r][6] !== null) {
				continue;
			}
			$this->modules[$r][6] = ($r % 2 == 0);
		}

		for ($c = 8; $c < $this->moduleCount - 8; $c++) {
			if ($this->modules[6][$c] !== null) {
				continue;
			}
			$this->modules[6][$c] = ($c % 2 == 0);
		}
	}

	function setupTypeNumber($test) {

		$bits = QRUtil::getBCHTypeNumber($this->typeNumber);

		for ($i = 0; $i < 18; $i++) {
			$mod = (!$test && ( ($bits >> $i) & 1) == 1);
			$this->modules[floor($i / 3)][$i % 3 + $this->moduleCount - 8 - 3] = $mod;
		}

		for ($i = 0; $i < 18; $i++) {
			$mod = (!$test && ( ($bits >> $i) & 1) == 1);
			$this->modules[$i % 3 + $this->moduleCount - 8 - 3][floor($i / 3)] = $mod;
		}
	}

	function setupTypeInfo($test, $maskPattern) {

		$data = ($this->errorCorrectLevel << 3) | $maskPattern;
		$bits = QRUtil::getBCHTypeInfo($data);

		for ($i = 0; $i < 15; $i++) {

			$mod = (!$test && ( ($bits >> $i) & 1) == 1);

			if ($i < 6) {
				$this->modules[$i][8] = $mod;
			} else if ($i < 8) {
				$this->modules[$i + 1][8] = $mod;
			} else {
				$this->modules[$this->moduleCount - 15 + $i][8] = $mod;
			}
		}

		for ($i = 0; $i < 15; $i++) {

			$mod = (!$test && ( ($bits >> $i) & 1) == 1);
			
			if ($i < 8) {
				$this->modules[8][$this->moduleCount - $i - 1] = $mod;
			} else if ($i < 9) {
				$this->modules[8][15 - $i - 1 + 1] = $mod;
			} else {
				$this->modules[8][15 - $i - 1] = $mod;
			}
		}

		$this->modules[$this->moduleCount - 8][8] = !$test;
	}

	function createData($typeNumber, $errorCorrectLevel, $dataArray) {

		$rsBlocks = QRRSBlock::getRSBlocks($typeNumber, $errorCorrectLevel);

		$buffer = new QRBitBuffer();

		for ($i = 0; $i < count($dataArray); $i++) {
			$data = $dataArray[$i];
			$buffer->put($data->getMode(), 4);
			$buffer->put($data->getLength(), $data->getLengthInBits($typeNumber) );
			$data->write($buffer); 
		}

		$totalDataCount = 0;
		for ($i = 0; $i < count($rsBlocks); $i++) {
			$totalDataCount += $rsBlocks[$i]->getDataCount();
		}
/*
		if ($buffer->getLengthInBits() > $totalDataCount * 8) {
			trigger_error("code length overflow. ("
				. $buffer->getLengthInBits()
				. ">"
				.  $totalDataCount * 8
				. ")", E_USER_ERROR);
		}
*/
		// end code.
		if ($buffer->getLengthInBits() + 4 <= $totalDataCount * 8) {
			$buffer->put(0, 4);
		}

		// padding
		while ($buffer->getLengthInBits() % 8 != 0) {
			$buffer->putBit(false);
		}

		// padding
		while (true) {
			
			if ($buffer->getLengthInBits() >= $totalDataCount * 8) {
				break;
			}
			$buffer->put(QR_PAD0, 8);
			
			if ($buffer->getLengthInBits() >= $totalDataCount * 8) {
				break;
			}
			$buffer->put(QR_PAD1, 8);
		}

		return QRCode::createBytes($buffer, $rsBlocks);
	}

	function createBytes(&$buffer, &$rsBlocks) {

		$offset = 0;

		$maxDcCount = 0;
		$maxEcCount = 0;

		$dcdata = QRCode::createNullArray(count($rsBlocks) );
		$ecdata = QRCode::createNullArray(count($rsBlocks) );
		
		for ($r = 0; $r < count($rsBlocks); $r++) {

			$dcCount = $rsBlocks[$r]->getDataCount();
			$ecCount = $rsBlocks[$r]->getTotalCount() - $dcCount;

			$maxDcCount = max($maxDcCount, $dcCount);
			$maxEcCount = max($maxEcCount, $ecCount);
			
			$dcdata[$r] = QRCode::createNullArray($dcCount);
			for ($i = 0; $i < count($dcdata[$r]); $i++) {
				$bdata = $buffer->getBuffer();
				$dcdata[$r][$i] = 0xff & $bdata[$i + $offset];
			}
			$offset += $dcCount;
			
		    $rsPoly = QRUtil::getErrorCorrectPolynomial($ecCount);
			$rawPoly = new QRPolynomial($dcdata[$r], $rsPoly->getLength() - 1);

			$modPoly = $rawPoly->mod($rsPoly);
			$ecdata[$r] = QRCode::createNullArray($rsPoly->getLength() - 1);
			for ($i = 0; $i < count($ecdata[$r]); $i++) {
				$modIndex = $i + $modPoly->getLength() - count($ecdata[$r]);
				$ecdata[$r][$i] = ($modIndex >= 0)? $modPoly->get($modIndex) : 0;
			}
		}

		$totalCodeCount = 0;
		for ($i = 0; $i < count($rsBlocks); $i++) {
			$totalCodeCount += $rsBlocks[$i]->getTotalCount();
		}

		$data = QRCode::createNullArray($totalCodeCount);

		$index = 0;

		for ($i = 0; $i < $maxDcCount; $i++) {
			for ($r = 0; $r < count($rsBlocks); $r++) {
				if ($i < count($dcdata[$r]) ) {
					$data[$index++] = $dcdata[$r][$i];
				}
			}
		}

		for ($i = 0; $i < $maxEcCount; $i++) {
			for ($r = 0; $r < count($rsBlocks); $r++) {
				if ($i < count($ecdata[$r]) ) {
					$data[$index++] = $ecdata[$r][$i];
				}
			}
		}

		return $data;
	}

	function getMinimumQRCode($data, $errorCorrectLevel) {

		$mode = QRUtil::getMode($data);

		$qr = new QRCode();
		$qr->setErrorCorrectLevel($errorCorrectLevel);
		$qr->addData($data, $mode);

		$qrData = $qr->getData(0);
		$length = $qrData->getLength();

		for ($typeNumber = 1; $typeNumber <= 10; $typeNumber++) {
			if ($length <= QRUtil::getMaxLength($typeNumber, $mode, $errorCorrectLevel) ) {
				$qr->setTypeNumber($typeNumber);
				break;
			}
		}

		$qr->make();

		return $qr;
	}

	function createImage($size = 2, $margin = 2) {
		
		$image_size = $this->getModuleCount() * $size + $margin * 2;
		
		$image = imagecreatetruecolor($image_size, $image_size);

		$black = imagecolorallocate($image, 0, 0, 0); 
		$white = imagecolorallocate($image, 255, 255, 255); 

		imagefilledrectangle($image, 0, 0, $image_size, $image_size, $white);

		for ($r = 0; $r < $this->getModuleCount(); $r++) {
			for ($c = 0; $c < $this->getModuleCount(); $c++) {
				if ($this->isDark($r, $c) ) {
				
					imagefilledrectangle($image,
					  	$margin + $c * $size,
					  	$margin + $r * $size, 
					  	$margin + ($c + 1) * $size - 1, 
					  	$margin + ($r + 1) * $size - 1,
					  	$black);
				}
			} 
		} 

		return $image;
	}

	
	function printHTML($size = "2px") {

		$style = "border-style:none;border-collapse:collapse;margin:0px;padding:0px;";

		print("<table style='$style'>");

		for ($r = 0; $r < $this->getModuleCount(); $r++) {

			print("<tr style='$style'>");

			for ($c = 0; $c < $this->getModuleCount(); $c++) {
				$color = $this->isDark($r, $c)? "#000000" : "#ffffff";
				print("<td style='$style;width:$size;height:$size;background-color:$color'></td>");
			}

			print("</tr>");
		}
		
		print("</table>");
	}
}

//---------------------------------------------------------------
// QRUtil
//---------------------------------------------------------------

$QR_PATTERN_POSITION_TABLE = array(
	array(),
	array(6, 18),
	array(6, 22),
	array(6, 26),
	array(6, 30),
	array(6, 34),
	array(6, 22, 38),
	array(6, 24, 42),
	array(6, 26, 46),
	array(6, 28, 50),
	array(6, 30, 54),		
	array(6, 32, 58),
	array(6, 34, 62),
	array(6, 26, 46, 66),
	array(6, 26, 48, 70),
	array(6, 26, 50, 74),
	array(6, 30, 54, 78),
	array(6, 30, 56, 82),
	array(6, 30, 58, 86),
	array(6, 34, 62, 90),
	array(6, 28, 50, 72, 94),
	array(6, 26, 50, 74, 98),
	array(6, 30, 54, 78, 102),
	array(6, 28, 54, 80, 106),
	array(6, 32, 58, 84, 110),
	array(6, 30, 58, 86, 114),
	array(6, 34, 62, 90, 118),
	array(6, 26, 50, 74, 98, 122),
	array(6, 30, 54, 78, 102, 126),
	array(6, 26, 52, 78, 104, 130),
	array(6, 30, 56, 82, 108, 134),
	array(6, 34, 60, 86, 112, 138),
	array(6, 30, 58, 86, 114, 142),
	array(6, 34, 62, 90, 118, 146),
	array(6, 30, 54, 78, 102, 126, 150),
	array(6, 24, 50, 76, 102, 128, 154),
	array(6, 28, 54, 80, 106, 132, 158),
	array(6, 32, 58, 84, 110, 136, 162),
	array(6, 26, 54, 82, 110, 138, 166),
	array(6, 30, 58, 86, 114, 142, 170)
);

$QR_MAX_LENGTH = array(
    array( array(41,  25,  17,  10),  array(34,  20,  14,  8),   array(27,  16,  11,  7),  array(17,  10,  7,   4) ),
    array( array(77,  47,  32,  20),  array(63,  38,  26,  16),  array(48,  29,  20,  12), array(34,  20,  14,  8) ),
    array( array(127, 77,  53,  32),  array(101, 61,  42,  26),  array(77,  47,  32,  20), array(58,  35,  24,  15) ),
    array( array(187, 114, 78,  48),  array(149, 90,  62,  38),  array(111, 67,  46,  28), array(82,  50,  34,  21) ),
    array( array(255, 154, 106, 65),  array(202, 122, 84,  52),  array(144, 87,  60,  37), array(106, 64,  44,  27) ),
    array( array(322, 195, 134, 82),  array(255, 154, 106, 65),  array(178, 108, 74,  45), array(139, 84,  58,  36) ),
    array( array(370, 224, 154, 95),  array(293, 178, 122, 75),  array(207, 125, 86,  53), array(154, 93,  64,  39) ),
    array( array(461, 279, 192, 118), array(365, 221, 152, 93),  array(259, 157, 108, 66), array(202, 122, 84,  52) ),
    array( array(552, 335, 230, 141), array(432, 262, 180, 111), array(312, 189, 130, 80), array(235, 143, 98,  60) ),
    array( array(652, 395, 271, 167), array(513, 311, 213, 131), array(364, 221, 151, 93), array(288, 174, 119, 74) )
);


define("QR_G15", (1 << 10) | (1 << 8) | (1 << 5)
	| (1 << 4) | (1 << 2) | (1 << 1) | (1 << 0) );

define("QR_G18", (1 << 12) | (1 << 11) | (1 << 10)
	| (1 << 9) | (1 << 8) | (1 << 5) | (1 << 2) | (1 << 0) );

define("QR_G15_MASK", (1 << 14) | (1 << 12) | (1 << 10)
	| (1 << 4) | (1 << 1) );

class QRUtil {

	function getPatternPosition($typeNumber) {
		global $QR_PATTERN_POSITION_TABLE;
		return $QR_PATTERN_POSITION_TABLE[$typeNumber - 1];
	}

    function getMaxLength($typeNumber, $mode, $errorCorrectLevel) {
		
		global $QR_MAX_LENGTH;
		
        $t = $typeNumber - 1;
        $e = 0;
        $m = 0;

        switch($errorCorrectLevel) {
        case QR_ERROR_CORRECT_LEVEL_L : $e = 0; break;
        case QR_ERROR_CORRECT_LEVEL_M : $e = 1; break;
        case QR_ERROR_CORRECT_LEVEL_Q : $e = 2; break;
        case QR_ERROR_CORRECT_LEVEL_H : $e = 3; break;
        default :
			trigger_error("e:$errorCorrectLevel", E_USER_ERROR);
        }

        switch($mode) {
        case QR_MODE_NUMBER    : $m = 0; break;
        case QR_MODE_ALPHA_NUM : $m = 1; break;
        case QR_MODE_8BIT_BYTE : $m = 2; break;
        case QR_MODE_KANJI     : $m = 3; break;
        default :
			trigger_error("m:$mode", E_USER_ERROR);
        }

        return $QR_MAX_LENGTH[$t][$e][$m];
    }

	function getErrorCorrectPolynomial($errorCorrectLength) {
			
		$a = new QRPolynomial(array(1) );

		for ($i = 0; $i < $errorCorrectLength; $i++) {
			$a = $a->multiply(new QRPolynomial(array(1, QRMath::gexp($i) ) ) );
		}

		return $a;
	}
		
	function getMask($maskPattern, $i, $j) {
		
		switch ($maskPattern) {
			
		case QR_MASK_PATTERN000 : return ($i + $j) % 2 == 0;
		case QR_MASK_PATTERN001 : return $i % 2 == 0;
		case QR_MASK_PATTERN010 : return $j % 3 == 0;
		case QR_MASK_PATTERN011 : return ($i + $j) % 3 == 0;
		case QR_MASK_PATTERN100 : return (floor($i / 2) + floor($j / 3) ) % 2 == 0;
		case QR_MASK_PATTERN101 : return ($i * $j) % 2 + ($i * $j) % 3 == 0;
		case QR_MASK_PATTERN110 : return ( ($i * $j) % 2 + ($i * $j) % 3) % 2 == 0;
		case QR_MASK_PATTERN111 : return ( ($i * $j) % 3 + ($i + $j) % 2) % 2 == 0;

		default :
			trigger_error("mask:$maskPattern", E_USER_ERROR);
		}
	}	

	function getLostPoint($qrCode) {
		
		$moduleCount = $qrCode->getModuleCount();
		
		$lostPoint = 0;
		

		// LEVEL1
		
		for ($row = 0; $row < $moduleCount; $row++) {

			for ($col = 0; $col < $moduleCount; $col++) {

				$sameCount = 0;
				$dark = $qrCode->isDark($row, $col);
				
				for ($r = -1; $r <= 1; $r++) {

					if ($row + $r < 0 || $moduleCount <= $row + $r) {
						continue;
					}

					for ($c = -1; $c <= 1; $c++) {

						if ($col + $c < 0 || $moduleCount <= $col + $c) {
							continue;
						}

						if ($r == 0 && $c == 0) {
							continue;
						}

						if ($dark == $qrCode->isDark($row + $r, $col + $c) ) {
							$sameCount++;
						}
					}
				}

				if ($sameCount > 5) {
					$lostPoint += (3 + $sameCount - 5);
				}
			}
		}

		// LEVEL2

		for ($row = 0; $row < $moduleCount - 1; $row++) {
			for ($col = 0; $col < $moduleCount - 1; $col++) {
				$count = 0;
				if ($qrCode->isDark($row,     $col    ) ) $count++;
				if ($qrCode->isDark($row + 1, $col    ) ) $count++;
				if ($qrCode->isDark($row,     $col + 1) ) $count++;
				if ($qrCode->isDark($row + 1, $col + 1) ) $count++;
				if ($count == 0 || $count == 4) {
					$lostPoint += 3;
				}
			}
		}

		// LEVEL3

		for ($row = 0; $row < $moduleCount; $row++) {
			for ($col = 0; $col < $moduleCount - 6; $col++) {
				if ($qrCode->isDark($row, $col)
						&& !$qrCode->isDark($row, $col + 1)
						&&  $qrCode->isDark($row, $col + 2)
						&&  $qrCode->isDark($row, $col + 3)
						&&  $qrCode->isDark($row, $col + 4)
						&& !$qrCode->isDark($row, $col + 5)
						&&  $qrCode->isDark($row, $col + 6) ) {
					$lostPoint += 40;
				}
			}
		}

		for ($col = 0; $col < $moduleCount; $col++) {
			for ($row = 0; $row < $moduleCount - 6; $row++) {
				if ($qrCode->isDark($row, $col)
						&& !$qrCode->isDark($row + 1, $col)
						&&  $qrCode->isDark($row + 2, $col)
						&&  $qrCode->isDark($row + 3, $col)
						&&  $qrCode->isDark($row + 4, $col)
						&& !$qrCode->isDark($row + 5, $col)
						&&  $qrCode->isDark($row + 6, $col) ) {
					$lostPoint += 40;
				}
			}
		}

		// LEVEL4
		
		$darkCount = 0;

		for ($col = 0; $col < $moduleCount; $col++) {
			for ($row = 0; $row < $moduleCount; $row++) {
				if ($qrCode->isDark($row, $col) ) {
					$darkCount++;
				}
			}
		}
		
		$ratio = abs(100 * $darkCount / $moduleCount / $moduleCount - 50) / 5;
		$lostPoint += $ratio * 10;
		
		return $lostPoint;		
	}

	function getMode($s) {
		if (QRUtil::isAlphaNum($s) ) {
			if (QRUtil::isNumber($s) ) {
				return QR_MODE_NUMBER;
			}
			return QR_MODE_ALPHA_NUM;
		} else if (QRUtil::isKanji($s) ) {
			return QR_MODE_KANJI;
		} else {
			return QR_MODE_8BIT_BYTE;
		}
	}
		
	function isNumber($s) {
		for ($i = 0; $i < strlen($s); $i++) {
			$c = ord($s[$i]);
			if (!(QRUtil::toCharCode('0') <= $c && $c <= QRUtil::toCharCode('9') ) ) {
				return false;
			}
		}
		return true;
	}

	function isAlphaNum($s) {
		for ($i = 0; $i < strlen($s); $i++) {
			$c = ord($s[$i]);
			if (!(QRUtil::toCharCode('0') <= $c && $c <= QRUtil::toCharCode('9') ) 
				&& !(QRUtil::toCharCode('A') <= $c && $c <= QRUtil::toCharCode('Z') ) 
					&& strpos(" $%*+-./:", $s[$i]) === false) {
				return false;
			}
		}
		return true;
	}

	function isKanji($s) {

		$data = $s;

		$i = 0;

		while ($i + 1 < strlen($data) ) {
			
			$c = ( (0xff & ord($data[$i]) ) << 8) | (0xff & ord($data[$i + 1]) );

			if (!(0x8140 <= $c && $c <= 0x9FFC) && !(0xE040 <= $c && $c <= 0xEBBF) ) {
				return false;
			}
			
			$i += 2;
		}

		if ($i < strlen($data) ) {
			return false;
		}
		
		return true;
	}
	
	function toCharCode($s) {
		return ord($s[0]);
	}

	function getBCHTypeInfo($data) {
		$d = $data << 10;
		while (QRUtil::getBCHDigit($d) - QRUtil::getBCHDigit(QR_G15) >= 0) {
			$d ^= (QR_G15 << (QRUtil::getBCHDigit($d) - QRUtil::getBCHDigit(QR_G15) ) ); 	
		}
		return ( ($data << 10) | $d) ^ QR_G15_MASK;
	}

	function getBCHTypeNumber($data) {
		$d = $data << 12;
		while (QRUtil::getBCHDigit($d) - QRUtil::getBCHDigit(QR_G18) >= 0) {
			$d ^= (QR_G18 << (QRUtil::getBCHDigit($d) - QRUtil::getBCHDigit(QR_G18) ) ); 	
		}
		return ($data << 12) | $d;
	}
	
	function getBCHDigit($data) {

		$digit = 0;

		while ($data != 0) {
			$digit++;
			$data >>= 1;
		}

		return $digit;
	}
}

//---------------------------------------------------------------
// QRRSBlock
//---------------------------------------------------------------

$QR_RS_BLOCK_TABLE = array(

	// L
	// M
	// Q
	// H

	// 1
	array(1, 26, 19),
	array(1, 26, 16),
	array(1, 26, 13),
	array(1, 26, 9),
	
	// 2
	array(1, 44, 34),
	array(1, 44, 28),
	array(1, 44, 22),
	array(1, 44, 16),

	// 3
	array(1, 70, 55),
	array(1, 70, 44),
	array(2, 35, 17),
	array(2, 35, 13),

	// 4		
	array(1, 100, 80),
	array(2, 50, 32),
	array(2, 50, 24),
	array(4, 25, 9),
	
	// 5
	array(1, 134, 108),
	array(2, 67, 43),
	array(2, 33, 15, 2, 34, 16),
	array(2, 33, 11, 2, 34, 12),
	
	// 6
	array(2, 86, 68),
	array(4, 43, 27),
	array(4, 43, 19),
	array(4, 43, 15),
	
	// 7		
	array(2, 98, 78),
	array(4, 49, 31),
	array(2, 32, 14, 4, 33, 15),
	array(4, 39, 13, 1, 40, 14),
	
	// 8
	array(2, 121, 97),
	array(2, 60, 38, 2, 61, 39),
	array(4, 40, 18, 2, 41, 19),
	array(4, 40, 14, 2, 41, 15),
	
	// 9
	array(2, 146, 116),
	array(3, 58, 36, 2, 59, 37),
	array(4, 36, 16, 4, 37, 17),
	array(4, 36, 12, 4, 37, 13),
	
	// 10		
	array(2, 86, 68, 2, 87, 69),
	array(4, 69, 43, 1, 70, 44),
	array(6, 43, 19, 2, 44, 20),
	array(6, 43, 15, 2, 44, 16)

);

class QRRSBlock {

	var $totalCount;
	var $dataCount;
	
	function QRRSBlock($totalCount, $dataCount) {
		$this->totalCount = $totalCount;
		$this->dataCount  = $dataCount;
	}
	
	function getDataCount() {
		return $this->dataCount;
	}
	
	function getTotalCount() {
		return $this->totalCount;
	}

	function getRSBlocks($typeNumber, $errorCorrectLevel) {
		
		$rsBlock = QRRSBlock::getRsBlockTable($typeNumber, $errorCorrectLevel);
		$length = count($rsBlock) / 3;

		$list = array();
						
		for ($i = 0; $i < $length; $i++) {

			$count = $rsBlock[$i * 3 + 0];
			$totalCount = $rsBlock[$i * 3 + 1];
			$dataCount  = $rsBlock[$i * 3 + 2];

			for ($j = 0; $j < $count; $j++) {
				$list[] = new QRRSBlock($totalCount, $dataCount);	
			}
		}
		
		return $list;
	}

	function getRsBlockTable($typeNumber, $errorCorrectLevel) {
		
		global $QR_RS_BLOCK_TABLE;
		
		switch($errorCorrectLevel) {
		case QR_ERROR_CORRECT_LEVEL_L :
			return $QR_RS_BLOCK_TABLE[($typeNumber - 1) * 4 + 0];
		case QR_ERROR_CORRECT_LEVEL_M :
			return $QR_RS_BLOCK_TABLE[($typeNumber - 1) * 4 + 1];
		case QR_ERROR_CORRECT_LEVEL_Q :
			return $QR_RS_BLOCK_TABLE[($typeNumber - 1) * 4 + 2];
		case QR_ERROR_CORRECT_LEVEL_H :
			return $QR_RS_BLOCK_TABLE[($typeNumber - 1) * 4 + 3];
		default :
			trigger_error("tn:$typeNumber/ecl:$errorCorrectLevel", E_USER_ERROR);
		}
	}
}

//---------------------------------------------------------------
// QRNumber
//---------------------------------------------------------------

class QRNumber extends QRData {

	function QRNumber($data) {
		QRData::QRData(QR_MODE_NUMBER, $data);
	}
	
	function write(&$buffer) {

		$data = $this->getData();
		
		$i = 0;

		while ($i + 2 < strlen($data) ) {
			$num = QRNumber::parseInt(substr($data, $i, 3) );
			$buffer->put($num, 10);
			$i += 3;
		}
		
		if ($i < strlen($data) ) {
			
			if (strlen($data) - $i == 1) {
				$num = QRNumber::parseInt(substr($data, $i, $i + 1) );
				$buffer->put($num, 4);
			} else if (strlen($data) - $i == 2) {
				$num = QRNumber::parseInt(substr($data, $i, $i + 2) );
				$buffer->put($num, 7);
			}
		}
	}
	
	function getLength() {
		return strlen($this->getData() );
	}

	function parseInt($s) {

		$num = 0;
		for ($i = 0; $i < strlen($s); $i++) {
			$num = $num * 10 + QRNumber::parseIntAt(ord($s[$i]) );
		}
		return $num;
	}

	function parseIntAt($c) {

		if (QRUtil::toCharCode('0') <= $c && $c <= QRUtil::toCharCode('9') ) {
			return $c - QRUtil::toCharCode('0');
		}

		trigger_error("illegal char : $c", E_USER_ERROR);
	}
}

//---------------------------------------------------------------
// QRKanji
//---------------------------------------------------------------

class QRKanji extends QRData {

	function QRKanji($data) {
		QRData::QRData(QR_MODE_KANJI, $data);
	}
	
	function write(&$buffer) {

		$data = $this->getData();

		$i = 0;

		while ($i + 1 < strlen($data) ) {
			
			$c = ( (0xff & ord($data[$i]) ) << 8) | (0xff & ord($data[$i + 1]) );

			if (0x8140 <= $c && $c <= 0x9FFC) {
				$c -= 0x8140;
			} else if (0xE040 <= $c && $c <= 0xEBBF) {
				$c -= 0xC140;
			} else {
				trigger_error("illegal char at " . ($i + 1) . "/$c", E_USER_ERROR);
			}
			
			$c = ( ($c >> 8) & 0xff) * 0xC0 + ($c & 0xff);

			$buffer->put($c, 13);
			
			$i += 2;
		}

		if ($i < strlen($data) ) {
			trigger_error("illegal char at " . ($i + 1), E_USER_ERROR);
		}
	}
	
	function getLength() {
		return floor(strlen($this->getData() ) / 2);
	}	
}

//---------------------------------------------------------------
// QRAlphaNum
//---------------------------------------------------------------

class QRAlphaNum extends QRData {

	function QRAlphaNum($data) {
		QRData::QRData(QR_MODE_ALPHA_NUM, $data);
	}
	
	function write(&$buffer) {

		$i = 0;
		$c = $this->getData();
		
		while ($i + 1 < strlen($c) ) {
			$buffer->put(QRAlphaNum::getCode(ord($c[$i]) ) * 45
				+ QRAlphaNum::getCode(ord($c[$i + 1]) ), 11);
			$i += 2;
		}
		
		if ($i < strlen($c) ) {
			$buffer->put(QRAlphaNum::getCode(ord($c[$i])), 6);
		}
	}
	
	function getLength() {
		return strlen($this->getData() );
	}
	
	function getCode($c) {

		if (QRUtil::toCharCode('0') <= $c 
				&& $c <= QRUtil::toCharCode('9') ) {
			return $c - QRUtil::toCharCode('0');
		} else if (QRUtil::toCharCode('A') <= $c 
				&& $c <= QRUtil::toCharCode('Z') ) {
			return $c - QRUtil::toCharCode('A') + 10;
		} else {
			switch ($c) {
			case QRUtil::toCharCode(' ') : return 36;
			case QRUtil::toCharCode('$') : return 37;
			case QRUtil::toCharCode('%') : return 38;
			case QRUtil::toCharCode('*') : return 39;
			case QRUtil::toCharCode('+') : return 40;
			case QRUtil::toCharCode('-') : return 41;
			case QRUtil::toCharCode('.') : return 42;
			case QRUtil::toCharCode('/') : return 43;
			case QRUtil::toCharCode(':') : return 44;
			default :
				trigger_error("illegal char : $c", E_USER_ERROR);
			}
		}

	}	
}

//---------------------------------------------------------------
// QR8BitByte
//---------------------------------------------------------------

class QR8BitByte extends QRData {
	
	function QR8BitByte($data) {
		QRData::QRData(QR_MODE_8BIT_BYTE, $data);
	}
	
	function write(&$buffer) {

		$data = $this->getData();
		for ($i = 0; $i < strlen($data); $i++) {
			$buffer->put(ord($data[$i]), 8);
		}
	}
	
	function getLength() {
		return strlen($this->getData() );
	}
}

//---------------------------------------------------------------
// QRData
//---------------------------------------------------------------

class QRData {
	
	var $mode;
	
	var $data;

	function QRData($mode, $data) {
		$this->mode = $mode;
		$this->data = $data;
	}
	
	function getMode() {
		return $this->mode;
	}
	
	function getData() {
		return $this->data;
	}
	
	function getLength() {
		trigger_error("not implemented.", E_USER_ERROR);
	}
	
	function write(&$buffer) {
		trigger_error("not implemented.", E_USER_ERROR);
	}

	function getLengthInBits($type) {

		if (1 <= $type && $type < 10) {

			// 1 - 9

			switch($this->mode) {
			case QR_MODE_NUMBER 	: return 10;
			case QR_MODE_ALPHA_NUM 	: return 9;
			case QR_MODE_8BIT_BYTE	: return 8;
			case QR_MODE_KANJI  	: return 8;
			default :
				trigger_error("mode:$this->mode", E_USER_ERROR);
			}

		} else if ($type < 27) {

			// 10 - 26

			switch($this->mode) {
			case QR_MODE_NUMBER 	: return 12;
			case QR_MODE_ALPHA_NUM 	: return 11;
			case QR_MODE_8BIT_BYTE	: return 16;
			case QR_MODE_KANJI  	: return 10;
			default :
				trigger_error("mode:$this->mode", E_USER_ERROR);
			}

		} else if ($type < 41) {

			// 27 - 40

			switch($this->mode) {
			case QR_MODE_NUMBER 	: return 14;
			case QR_MODE_ALPHA_NUM	: return 13;
			case QR_MODE_8BIT_BYTE	: return 16;
			case QR_MODE_KANJI  	: return 12;
			default :
				trigger_error("mode:$this->mode", E_USER_ERROR);
			}

		} else {
			trigger_error("mode:$this->mode", E_USER_ERROR);
		}
	}

}

//---------------------------------------------------------------
// QRMath
//---------------------------------------------------------------

$QR_MATH_EXP_TABLE = null;
$QR_MATH_LOG_TABLE = null;

class QRMath {

	function init() {		

		global $QR_MATH_EXP_TABLE;
		global $QR_MATH_LOG_TABLE;

		$QR_MATH_EXP_TABLE = QRMath::createNumArray(256);

		for ($i = 0; $i < 8; $i++) {
			$QR_MATH_EXP_TABLE[$i] = 1 << $i;
		}

		for ($i = 8; $i < 256; $i++) {
			$QR_MATH_EXP_TABLE[$i] = $QR_MATH_EXP_TABLE[$i - 4]
				^ $QR_MATH_EXP_TABLE[$i - 5]
				^ $QR_MATH_EXP_TABLE[$i - 6]
				^ $QR_MATH_EXP_TABLE[$i - 8];
		}
		
		$QR_MATH_LOG_TABLE = QRMath::createNumArray(256);

		for ($i = 0; $i < 255; $i++) {
			$QR_MATH_LOG_TABLE[$QR_MATH_EXP_TABLE[$i] ] = $i;
		}
	}

	function createNumArray($length) {
		$num_array = array();
		for ($i = 0; $i < $length; $i++) {
			$num_array[] = 0;
		}
		return $num_array;
	}

	function glog($n) {
		global $QR_MATH_LOG_TABLE;
		if ($n < 1) {
			trigger_error("log($n)", E_USER_ERROR);
		}
		return $QR_MATH_LOG_TABLE[$n];
	}
	
	function gexp($n) {
		global $QR_MATH_EXP_TABLE;
		while ($n < 0) {
			$n += 255;
		}
		while ($n >= 256) {
			$n -= 255;
		}
		return $QR_MATH_EXP_TABLE[$n];
	}
}

// init static table
QRMath::init();

//---------------------------------------------------------------
// QRPolynomial
//---------------------------------------------------------------

class QRPolynomial {

	var $num;

	function QRPolynomial($num, $shift = 0) {
		$offset = 0;

		while ($offset < count($num) && $num[$offset] == 0) {
			$offset++;
		}

		$this->num = QRMath::createNumArray(count($num) - $offset + $shift);
		for ($i = 0; $i < count($num) - $offset; $i++) {
			$this->num[$i] = $num[$i + $offset];
		}
	}

	function get($index) {
		return $this->num[$index];
	}

	function getLength() {
		return count($this->num);
	}

	// PHP5
	function __toString() {
		return $this->toString();
	}

	function toString() {
		$buffer = "";
		for ($i = 0; $i < $this->getLength(); $i++) {
			if ($i > 0) {
				$buffer .= ",";
			}
			$buffer .= $this->get($i);
		}
		return $buffer;
	}
	
	function toLogString() {
		$buffer = "";
		for ($i = 0; $i < $this->getLength(); $i++) {
			if ($i > 0) {
				$buffer .= ",";
			}
			$buffer .= QRMath::glog($this->get(i) );
		}
		return $buffer;
	}

	function multiply($e) {
		$num = QRMath::createNumArray($this->getLength() + $e->getLength() - 1);
		for ($i = 0; $i < $this->getLength(); $i++) {
			for ($j = 0; $j < $e->getLength(); $j++) {
				$num[$i + $j] ^= QRMath::gexp(QRMath::glog($this->get($i) ) + QRMath::glog($e->get($j) ) );
			}
		}
		return new QRPolynomial($num);
	}
	
	function mod($e) {
		if ($this->getLength() - $e->getLength() < 0) {
			return $this;
		}
		$ratio = QRMath::glog($this->get(0) ) - QRMath::glog($e->get(0) );
		$num = QRMath::createNumArray($this->getLength() );
		for ($i = 0; $i < $this->getLength(); $i++) {
			$num[$i] = $this->get($i);
		}
		for ($i = 0; $i < $e->getLength(); $i++) {
			$num[$i] ^= QRMath::gexp(QRMath::glog($e->get($i) ) + $ratio);
		}
		$newPolynomial = new QRPolynomial($num);
		return $newPolynomial->mod($e);
	}
}

//---------------------------------------------------------------
// Mode
//---------------------------------------------------------------

define("QR_MODE_NUMBER", 1 << 0);
define("QR_MODE_ALPHA_NUM", 1 << 1);
define("QR_MODE_8BIT_BYTE", 1 << 2);
define("QR_MODE_KANJI", 1 << 3);

//---------------------------------------------------------------
// MaskPattern
//---------------------------------------------------------------

define("QR_MASK_PATTERN000", 0);
define("QR_MASK_PATTERN001", 1);
define("QR_MASK_PATTERN010", 2);
define("QR_MASK_PATTERN011", 3);
define("QR_MASK_PATTERN100", 4);
define("QR_MASK_PATTERN101", 5);
define("QR_MASK_PATTERN110", 6);
define("QR_MASK_PATTERN111", 7);

//---------------------------------------------------------------
// ErrorCorrectLevel

// 7%.
define("QR_ERROR_CORRECT_LEVEL_L", 1);
// 15%.
define("QR_ERROR_CORRECT_LEVEL_M", 0);
// 25%.
define("QR_ERROR_CORRECT_LEVEL_Q", 3);
// 30%.
define("QR_ERROR_CORRECT_LEVEL_H", 2);


//---------------------------------------------------------------
// QRBitBuffer
//---------------------------------------------------------------

class QRBitBuffer {
	var $buffer;
	var $length;

	function QRBitBuffer() {
		$this->buffer = array();
		$this->length = 0;
	}

	function getBuffer() {
		return $this->buffer;
	}

	function getLengthInBits() {
		return $this->length;
	}

	function __toString() {
		$buffer = "";
		for ($i = 0; $i < $this->getLengthInBits(); $i++) {
			$buffer .= $this->get($i)? '1' : '0';
		}
		return $buffer;
	}

	function get($index) {
		$bufIndex = floor($index / 8);
		return ( ($this->buffer[$bufIndex] >> (7 - $index % 8) ) & 1) == 1;
	}

	function put($num, $length) {
		for ($i = 0; $i < $length; $i++) {
			$this->putBit( ( ($num >> ($length - $i - 1) ) & 1) == 1);
		}
	}

	function putBit($bit) {
		$bufIndex = floor($this->length / 8);
		if (count($this->buffer) <= $bufIndex) {
			$this->buffer[] = 0;
		}
		if ($bit) {
			$this->buffer[$bufIndex] |= (0x80 >> ($this->length % 8) );
		}
		$this->length++;
	}
}

?>