<?php
/*
@file KISA_SEED_CBC.php
@brief SEED CBC 암호 알고리즘
@author Copyright (c) 2013 by KISA
@remarks http://seed.kisa.or.kr/
*/

if(!defined('_KISA_COMMON_LIB')) {
define('_KISA_COMMON_LIB', 1);

function isLittleEndian() {
	$testint = 0x00FF;
	$p = pack('S', $testint);
	return $testint===current(unpack('v', $p));
}
$_kisa_common_is_little_endian = isLittleEndian();
if(!defined('_KISA_COMMON_IS_LITTLE_ENDIAN')) {
	define('_KISA_COMMON_IS_LITTLE_ENDIAN', $_kisa_common_is_little_endian);
}

class Common {
	static function arraycopy(&$dst, &$src, $length) {
		for($i=0; $i<$length; $i++) {
			$dst[$i] = $src[$i];
		}
	}

	static function arraycopy_offset(&$dst, $dst_offset, &$src, $src_offset, $length) {
		for($i=0; $i<$length; $i++) {
			$dst[$dst_offset+$i] = $src[$src_offset+$i];
		}
	}

	static function arraycopy_system(&$src, $src_offset, &$dst, $dst_offset, $length) {
		for($i=0; $i<$length; $i++) {
			$dst[$dst_offset+$i] = @$src[$src_offset+$i];
		}
	}

	static function arrayinit(&$dst, $value, $length) {
		for($i=0; $i<$length; $i++) {
			$dst[$i] = $value;
		}
	}

	static function arrayinit_offset(&$dst, $dst_offset, $value, $length) {
		for($i=0; $i<$length; $i++) {
			$dst[$dst_offset+$i] = $value;
		}
	}

	static function memcpy_byte2int(&$dst, &$src, $length) {
		$iLen = (int)($length / 4);
		for($i=0; $i<$iLen; $i++) {
			Common::byte_to_int($dst, $i, $src, $i*4);
		}
	}

	static function memcpy_int2int(&$dst, &$src, $src_offset, $length) {
		$iLen = (int)($length / 4);
		for($i=0; $i<$iLen; $i++) {
			$dst[$i] = $src[$src_offset+$i];
		}
	}

	static function set_byte_for_int(&$dst, $b_offset, $value) {
		if(_KISA_COMMON_IS_LITTLE_ENDIAN ==true) {
			$shift_value = (3-$b_offset%4)*8;
			$mask_value =  0x0ff << $shift_value;
			$mask_value2 = ~$mask_value;
			$value2 = ($value&0x0ff) << $shift_value;
			$dst[(int)($b_offset/4)] = ($dst[(int)($b_offset/4)] & $mask_value2) | ($value2 & $mask_value);
		}
		else {
			$shift_value = ($b_offset%4)*8;
			$mask_value =  0x0ff << $shift_value;
			$mask_value2 = ~$mask_value;
			$value2 = ($value&0x0ff) << $shift_value;
			$dst[(int)($b_offset/4)] = ($dst[(int)($b_offset/4)] & $mask_value2) | ($value2 & $mask_value);
		}
	}

	static function get_byte_for_int(&$src, $b_offset) {
		if(_KISA_COMMON_IS_LITTLE_ENDIAN ==true) {
			$shift_value = (3-$b_offset%4)*8;
			$mask_value =  0x0ff << $shift_value;
			$value = ($src[(int)($b_offset/4)] & $mask_value) >> $shift_value;
			return $value & 0x0ff;
		}
		else {
			$shift_value = ($b_offset%4)*8;
			$mask_value =  0x0ff << $shift_value;
			$value = ($src[(int)($b_offset/4)] & $mask_value) >> $shift_value;
			return $value & 0x0ff;
		}
	}

	static function byte_to_int(&$dst, $dst_offset, &$src, $src_offset) {

		if(_KISA_COMMON_IS_LITTLE_ENDIAN ==true) {
			$dst[$dst_offset] = ((0x0ff&$src[$src_offset]) << 24) | ((0x0ff&$src[$src_offset+1]) << 16) | ((0x0ff&$src[$src_offset+2]) << 8) | ((0x0ff&$src[$src_offset+3]));
		}
		else {
			$dst[$dst_offset] = ((0x0ff&$src[$src_offset])) | ((0x0ff&$src[$src_offset+1]) << 8) | ((0x0ff&$src[$src_offset+2]) << 16) | ((0x0ff&$src[$src_offset+3]) << 24);
		}
	}

	static function get_byte_to_int(&$src, $src_offset) {
		if(_KISA_COMMON_IS_LITTLE_ENDIAN ==true) {
			return ((0x0ff&$src[$src_offset]) << 24) | ((0x0ff&$src[$src_offset+1]) << 16) | ((0x0ff&$src[$src_offset+2]) << 8) | ((0x0ff&$src[$src_offset+3]));
		}
		else {
			return ((0x0ff&$src[$src_offset])) | ((0x0ff&$src[$src_offset+1]) << 8) | ((0x0ff&$src[$src_offset+2]) << 16) | ((0x0ff&$src[$src_offset+3]) << 24);
		}
	}

	static function int_to_byte(&$dst, $dst_offset, &$src, $src_offset) {
		Common::int_to_byte_unit($dst, $dst_offset, $src[$src_offset]);
	}

	static function int_to_byte_unit(&$dst, $dst_offset, $src) {
		if(_KISA_COMMON_IS_LITTLE_ENDIAN ==true) {
			$dst[$dst_offset] = (($src>> 24) & 0x0ff);
			$dst[$dst_offset+1] = (($src >> 16) & 0x0ff);
			$dst[$dst_offset+2] = (($src >> 8) & 0x0ff);
			$dst[$dst_offset+3] = (($src) & 0x0ff);
		} else {
			$dst[$dst_offset] = (($src) & 0x0ff);
			$dst[$dst_offset+1] = (($src >> 8) & 0x0ff);
			$dst[$dst_offset+2] = (($src >> 16) & 0x0ff);
			$dst[$dst_offset+3] = (($src >> 24) & 0x0ff);
		}

	}

	static function URShift($x, $n) {
		if($n == 0)
			return $x;
		if($n >= 32)
			return 0;
		$v = $x >> $n;
		$v_mask = ~(0x80000000 >> ($n-1));
		return $v & $v_mask;
	}

	static function intToUnsigned($x) {
		if($x >= 0)
			return $x;
		return $x + pow(2, 32);
	}

}


}

if(!defined('_KISA_ENC_DEC_')) {
define('_KISA_ENC_DEC_', '1');
class KISA_ENC_DEC {
	const KISA_DECRYPT = 0;
	const KISA_ENCRYPT = 1;

}
}

if(!defined('_KISA_SEED_KEY_')) {
define('_KISA_SEED_KEY_', '1');
class KISA_SEED_KEY {
	var $key_data = null;

	function __construct() {
		$this->key_data = array_pad(array(), 32, 0);
	}

}
}

if(!defined('_KISA_SEED_INFO_')) {
define('_KISA_SEED_INFO_', '1');
class KISA_SEED_INFO {
	var $encrypt = 0;
	var $ivec = null;
	var $seed_key = null;
	var $cbc_buffer = null;
	var $buffer_length = 0;
	var $cbc_last_block = null;
	var $last_block_flag = 0;

	function __construct() {
		$this->ivec = array_pad(array(), 4, 0);
		$this->seed_key = new KISA_SEED_KEY();
		$this->cbc_buffer = array_pad(array(), 4, 0);
		$this->cbc_last_block = array_pad(array(), 4, 0);
	}
}
}

if(!defined('_KISA_LR_VAR')) {
	define('LR_L0', 0);
	define('LR_L1', 1);
	define('LR_R0', 2);
	define('LR_R1', 3);
}

class KISA_SEED_CBC {
	static $SS0 = array(
		0x02989a1a8, 0x005858184, 0x016c6d2d4, 0x013c3d3d0, 0x014445054, 0x01d0d111c, 0x02c8ca0ac, 0x025052124,
		0x01d4d515c, 0x003434340, 0x018081018, 0x01e0e121c, 0x011415150, 0x03cccf0fc, 0x00acac2c8, 0x023436360,
		0x028082028, 0x004444044, 0x020002020, 0x01d8d919c, 0x020c0e0e0, 0x022c2e2e0, 0x008c8c0c8, 0x017071314,
		0x02585a1a4, 0x00f8f838c, 0x003030300, 0x03b4b7378, 0x03b8bb3b8, 0x013031310, 0x012c2d2d0, 0x02ecee2ec,
		0x030407070, 0x00c8c808c, 0x03f0f333c, 0x02888a0a8, 0x032023230, 0x01dcdd1dc, 0x036c6f2f4, 0x034447074,
		0x02ccce0ec, 0x015859194, 0x00b0b0308, 0x017475354, 0x01c4c505c, 0x01b4b5358, 0x03d8db1bc, 0x001010100,
		0x024042024, 0x01c0c101c, 0x033437370, 0x018889098, 0x010001010, 0x00cccc0cc, 0x032c2f2f0, 0x019c9d1d8,
		0x02c0c202c, 0x027c7e3e4, 0x032427270, 0x003838380, 0x01b8b9398, 0x011c1d1d0, 0x006868284, 0x009c9c1c8,
		0x020406060, 0x010405050, 0x02383a3a0, 0x02bcbe3e8, 0x00d0d010c, 0x03686b2b4, 0x01e8e929c, 0x00f4f434c,
		0x03787b3b4, 0x01a4a5258, 0x006c6c2c4, 0x038487078, 0x02686a2a4, 0x012021210, 0x02f8fa3ac, 0x015c5d1d4,
		0x021416160, 0x003c3c3c0, 0x03484b0b4, 0x001414140, 0x012425250, 0x03d4d717c, 0x00d8d818c, 0x008080008,
		0x01f0f131c, 0x019899198, 0x000000000, 0x019091118, 0x004040004, 0x013435350, 0x037c7f3f4, 0x021c1e1e0,
		0x03dcdf1fc, 0x036467274, 0x02f0f232c, 0x027072324, 0x03080b0b0, 0x00b8b8388, 0x00e0e020c, 0x02b8ba3a8,
		0x02282a2a0, 0x02e4e626c, 0x013839390, 0x00d4d414c, 0x029496168, 0x03c4c707c, 0x009090108, 0x00a0a0208,
		0x03f8fb3bc, 0x02fcfe3ec, 0x033c3f3f0, 0x005c5c1c4, 0x007878384, 0x014041014, 0x03ecef2fc, 0x024446064,
		0x01eced2dc, 0x02e0e222c, 0x00b4b4348, 0x01a0a1218, 0x006060204, 0x021012120, 0x02b4b6368, 0x026466264,
		0x002020200, 0x035c5f1f4, 0x012829290, 0x00a8a8288, 0x00c0c000c, 0x03383b3b0, 0x03e4e727c, 0x010c0d0d0,
		0x03a4a7278, 0x007474344, 0x016869294, 0x025c5e1e4, 0x026062224, 0x000808080, 0x02d8da1ac, 0x01fcfd3dc,
		0x02181a1a0, 0x030003030, 0x037073334, 0x02e8ea2ac, 0x036063234, 0x015051114, 0x022022220, 0x038083038,
		0x034c4f0f4, 0x02787a3a4, 0x005454144, 0x00c4c404c, 0x001818180, 0x029c9e1e8, 0x004848084, 0x017879394,
		0x035053134, 0x00bcbc3c8, 0x00ecec2cc, 0x03c0c303c, 0x031417170, 0x011011110, 0x007c7c3c4, 0x009898188,
		0x035457174, 0x03bcbf3f8, 0x01acad2d8, 0x038c8f0f8, 0x014849094, 0x019495158, 0x002828280, 0x004c4c0c4,
		0x03fcff3fc, 0x009494148, 0x039093138, 0x027476364, 0x000c0c0c0, 0x00fcfc3cc, 0x017c7d3d4, 0x03888b0b8,
		0x00f0f030c, 0x00e8e828c, 0x002424240, 0x023032320, 0x011819190, 0x02c4c606c, 0x01bcbd3d8, 0x02484a0a4,
		0x034043034, 0x031c1f1f0, 0x008484048, 0x002c2c2c0, 0x02f4f636c, 0x03d0d313c, 0x02d0d212c, 0x000404040,
		0x03e8eb2bc, 0x03e0e323c, 0x03c8cb0bc, 0x001c1c1c0, 0x02a8aa2a8, 0x03a8ab2b8, 0x00e4e424c, 0x015455154,
		0x03b0b3338, 0x01cccd0dc, 0x028486068, 0x03f4f737c, 0x01c8c909c, 0x018c8d0d8, 0x00a4a4248, 0x016465254,
		0x037477374, 0x02080a0a0, 0x02dcde1ec, 0x006464244, 0x03585b1b4, 0x02b0b2328, 0x025456164, 0x03acaf2f8,
		0x023c3e3e0, 0x03989b1b8, 0x03181b1b0, 0x01f8f939c, 0x01e4e525c, 0x039c9f1f8, 0x026c6e2e4, 0x03282b2b0,
		0x031013130, 0x02acae2e8, 0x02d4d616c, 0x01f4f535c, 0x024c4e0e4, 0x030c0f0f0, 0x00dcdc1cc, 0x008888088,
		0x016061214, 0x03a0a3238, 0x018485058, 0x014c4d0d4, 0x022426260, 0x029092128, 0x007070304, 0x033033330,
		0x028c8e0e8, 0x01b0b1318, 0x005050104, 0x039497178, 0x010809090, 0x02a4a6268, 0x02a0a2228, 0x01a8a9298
	);

	static $SS1 = array(
		0x038380830, 0x0e828c8e0, 0x02c2d0d21, 0x0a42686a2, 0x0cc0fcfc3, 0x0dc1eced2, 0x0b03383b3, 0x0b83888b0,
		0x0ac2f8fa3, 0x060204060, 0x054154551, 0x0c407c7c3, 0x044044440, 0x06c2f4f63, 0x0682b4b63, 0x0581b4b53,
		0x0c003c3c3, 0x060224262, 0x030330333, 0x0b43585b1, 0x028290921, 0x0a02080a0, 0x0e022c2e2, 0x0a42787a3,
		0x0d013c3d3, 0x090118191, 0x010110111, 0x004060602, 0x01c1c0c10, 0x0bc3c8cb0, 0x034360632, 0x0480b4b43,
		0x0ec2fcfe3, 0x088088880, 0x06c2c4c60, 0x0a82888a0, 0x014170713, 0x0c404c4c0, 0x014160612, 0x0f434c4f0,
		0x0c002c2c2, 0x044054541, 0x0e021c1e1, 0x0d416c6d2, 0x03c3f0f33, 0x03c3d0d31, 0x08c0e8e82, 0x098188890,
		0x028280820, 0x04c0e4e42, 0x0f436c6f2, 0x03c3e0e32, 0x0a42585a1, 0x0f839c9f1, 0x00c0d0d01, 0x0dc1fcfd3,
		0x0d818c8d0, 0x0282b0b23, 0x064264662, 0x0783a4a72, 0x024270723, 0x02c2f0f23, 0x0f031c1f1, 0x070324272,
		0x040024242, 0x0d414c4d0, 0x040014141, 0x0c000c0c0, 0x070334373, 0x064274763, 0x0ac2c8ca0, 0x0880b8b83,
		0x0f437c7f3, 0x0ac2d8da1, 0x080008080, 0x01c1f0f13, 0x0c80acac2, 0x02c2c0c20, 0x0a82a8aa2, 0x034340430,
		0x0d012c2d2, 0x0080b0b03, 0x0ec2ecee2, 0x0e829c9e1, 0x05c1d4d51, 0x094148490, 0x018180810, 0x0f838c8f0,
		0x054174753, 0x0ac2e8ea2, 0x008080800, 0x0c405c5c1, 0x010130313, 0x0cc0dcdc1, 0x084068682, 0x0b83989b1,
		0x0fc3fcff3, 0x07c3d4d71, 0x0c001c1c1, 0x030310131, 0x0f435c5f1, 0x0880a8a82, 0x0682a4a62, 0x0b03181b1,
		0x0d011c1d1, 0x020200020, 0x0d417c7d3, 0x000020202, 0x020220222, 0x004040400, 0x068284860, 0x070314171,
		0x004070703, 0x0d81bcbd3, 0x09c1d8d91, 0x098198991, 0x060214161, 0x0bc3e8eb2, 0x0e426c6e2, 0x058194951,
		0x0dc1dcdd1, 0x050114151, 0x090108090, 0x0dc1cccd0, 0x0981a8a92, 0x0a02383a3, 0x0a82b8ba3, 0x0d010c0d0,
		0x080018181, 0x00c0f0f03, 0x044074743, 0x0181a0a12, 0x0e023c3e3, 0x0ec2ccce0, 0x08c0d8d81, 0x0bc3f8fb3,
		0x094168692, 0x0783b4b73, 0x05c1c4c50, 0x0a02282a2, 0x0a02181a1, 0x060234363, 0x020230323, 0x04c0d4d41,
		0x0c808c8c0, 0x09c1e8e92, 0x09c1c8c90, 0x0383a0a32, 0x00c0c0c00, 0x02c2e0e22, 0x0b83a8ab2, 0x06c2e4e62,
		0x09c1f8f93, 0x0581a4a52, 0x0f032c2f2, 0x090128292, 0x0f033c3f3, 0x048094941, 0x078384870, 0x0cc0cccc0,
		0x014150511, 0x0f83bcbf3, 0x070304070, 0x074354571, 0x07c3f4f73, 0x034350531, 0x010100010, 0x000030303,
		0x064244460, 0x06c2d4d61, 0x0c406c6c2, 0x074344470, 0x0d415c5d1, 0x0b43484b0, 0x0e82acae2, 0x008090901,
		0x074364672, 0x018190911, 0x0fc3ecef2, 0x040004040, 0x010120212, 0x0e020c0e0, 0x0bc3d8db1, 0x004050501,
		0x0f83acaf2, 0x000010101, 0x0f030c0f0, 0x0282a0a22, 0x05c1e4e52, 0x0a82989a1, 0x054164652, 0x040034343,
		0x084058581, 0x014140410, 0x088098981, 0x0981b8b93, 0x0b03080b0, 0x0e425c5e1, 0x048084840, 0x078394971,
		0x094178793, 0x0fc3cccf0, 0x01c1e0e12, 0x080028282, 0x020210121, 0x08c0c8c80, 0x0181b0b13, 0x05c1f4f53,
		0x074374773, 0x054144450, 0x0b03282b2, 0x01c1d0d11, 0x024250521, 0x04c0f4f43, 0x000000000, 0x044064642,
		0x0ec2dcde1, 0x058184850, 0x050124252, 0x0e82bcbe3, 0x07c3e4e72, 0x0d81acad2, 0x0c809c9c1, 0x0fc3dcdf1,
		0x030300030, 0x094158591, 0x064254561, 0x03c3c0c30, 0x0b43686b2, 0x0e424c4e0, 0x0b83b8bb3, 0x07c3c4c70,
		0x00c0e0e02, 0x050104050, 0x038390931, 0x024260622, 0x030320232, 0x084048480, 0x068294961, 0x090138393,
		0x034370733, 0x0e427c7e3, 0x024240420, 0x0a42484a0, 0x0c80bcbc3, 0x050134353, 0x0080a0a02, 0x084078783,
		0x0d819c9d1, 0x04c0c4c40, 0x080038383, 0x08c0f8f83, 0x0cc0ecec2, 0x0383b0b33, 0x0480a4a42, 0x0b43787b3
	);

	static $SS2 = array(
		0x0a1a82989, 0x081840585, 0x0d2d416c6, 0x0d3d013c3, 0x050541444, 0x0111c1d0d, 0x0a0ac2c8c, 0x021242505,
		0x0515c1d4d, 0x043400343, 0x010181808, 0x0121c1e0e, 0x051501141, 0x0f0fc3ccc, 0x0c2c80aca, 0x063602343,
		0x020282808, 0x040440444, 0x020202000, 0x0919c1d8d, 0x0e0e020c0, 0x0e2e022c2, 0x0c0c808c8, 0x013141707,
		0x0a1a42585, 0x0838c0f8f, 0x003000303, 0x073783b4b, 0x0b3b83b8b, 0x013101303, 0x0d2d012c2, 0x0e2ec2ece,
		0x070703040, 0x0808c0c8c, 0x0333c3f0f, 0x0a0a82888, 0x032303202, 0x0d1dc1dcd, 0x0f2f436c6, 0x070743444,
		0x0e0ec2ccc, 0x091941585, 0x003080b0b, 0x053541747, 0x0505c1c4c, 0x053581b4b, 0x0b1bc3d8d, 0x001000101,
		0x020242404, 0x0101c1c0c, 0x073703343, 0x090981888, 0x010101000, 0x0c0cc0ccc, 0x0f2f032c2, 0x0d1d819c9,
		0x0202c2c0c, 0x0e3e427c7, 0x072703242, 0x083800383, 0x093981b8b, 0x0d1d011c1, 0x082840686, 0x0c1c809c9,
		0x060602040, 0x050501040, 0x0a3a02383, 0x0e3e82bcb, 0x0010c0d0d, 0x0b2b43686, 0x0929c1e8e, 0x0434c0f4f,
		0x0b3b43787, 0x052581a4a, 0x0c2c406c6, 0x070783848, 0x0a2a42686, 0x012101202, 0x0a3ac2f8f, 0x0d1d415c5,
		0x061602141, 0x0c3c003c3, 0x0b0b43484, 0x041400141, 0x052501242, 0x0717c3d4d, 0x0818c0d8d, 0x000080808,
		0x0131c1f0f, 0x091981989, 0x000000000, 0x011181909, 0x000040404, 0x053501343, 0x0f3f437c7, 0x0e1e021c1,
		0x0f1fc3dcd, 0x072743646, 0x0232c2f0f, 0x023242707, 0x0b0b03080, 0x083880b8b, 0x0020c0e0e, 0x0a3a82b8b,
		0x0a2a02282, 0x0626c2e4e, 0x093901383, 0x0414c0d4d, 0x061682949, 0x0707c3c4c, 0x001080909, 0x002080a0a,
		0x0b3bc3f8f, 0x0e3ec2fcf, 0x0f3f033c3, 0x0c1c405c5, 0x083840787, 0x010141404, 0x0f2fc3ece, 0x060642444,
		0x0d2dc1ece, 0x0222c2e0e, 0x043480b4b, 0x012181a0a, 0x002040606, 0x021202101, 0x063682b4b, 0x062642646,
		0x002000202, 0x0f1f435c5, 0x092901282, 0x082880a8a, 0x0000c0c0c, 0x0b3b03383, 0x0727c3e4e, 0x0d0d010c0,
		0x072783a4a, 0x043440747, 0x092941686, 0x0e1e425c5, 0x022242606, 0x080800080, 0x0a1ac2d8d, 0x0d3dc1fcf,
		0x0a1a02181, 0x030303000, 0x033343707, 0x0a2ac2e8e, 0x032343606, 0x011141505, 0x022202202, 0x030383808,
		0x0f0f434c4, 0x0a3a42787, 0x041440545, 0x0404c0c4c, 0x081800181, 0x0e1e829c9, 0x080840484, 0x093941787,
		0x031343505, 0x0c3c80bcb, 0x0c2cc0ece, 0x0303c3c0c, 0x071703141, 0x011101101, 0x0c3c407c7, 0x081880989,
		0x071743545, 0x0f3f83bcb, 0x0d2d81aca, 0x0f0f838c8, 0x090941484, 0x051581949, 0x082800282, 0x0c0c404c4,
		0x0f3fc3fcf, 0x041480949, 0x031383909, 0x063642747, 0x0c0c000c0, 0x0c3cc0fcf, 0x0d3d417c7, 0x0b0b83888,
		0x0030c0f0f, 0x0828c0e8e, 0x042400242, 0x023202303, 0x091901181, 0x0606c2c4c, 0x0d3d81bcb, 0x0a0a42484,
		0x030343404, 0x0f1f031c1, 0x040480848, 0x0c2c002c2, 0x0636c2f4f, 0x0313c3d0d, 0x0212c2d0d, 0x040400040,
		0x0b2bc3e8e, 0x0323c3e0e, 0x0b0bc3c8c, 0x0c1c001c1, 0x0a2a82a8a, 0x0b2b83a8a, 0x0424c0e4e, 0x051541545,
		0x033383b0b, 0x0d0dc1ccc, 0x060682848, 0x0737c3f4f, 0x0909c1c8c, 0x0d0d818c8, 0x042480a4a, 0x052541646,
		0x073743747, 0x0a0a02080, 0x0e1ec2dcd, 0x042440646, 0x0b1b43585, 0x023282b0b, 0x061642545, 0x0f2f83aca,
		0x0e3e023c3, 0x0b1b83989, 0x0b1b03181, 0x0939c1f8f, 0x0525c1e4e, 0x0f1f839c9, 0x0e2e426c6, 0x0b2b03282,
		0x031303101, 0x0e2e82aca, 0x0616c2d4d, 0x0535c1f4f, 0x0e0e424c4, 0x0f0f030c0, 0x0c1cc0dcd, 0x080880888,
		0x012141606, 0x032383a0a, 0x050581848, 0x0d0d414c4, 0x062602242, 0x021282909, 0x003040707, 0x033303303,
		0x0e0e828c8, 0x013181b0b, 0x001040505, 0x071783949, 0x090901080, 0x062682a4a, 0x022282a0a, 0x092981a8a
	);

	static $SS3 = array(
		0x008303838, 0x0c8e0e828, 0x00d212c2d, 0x086a2a426, 0x0cfc3cc0f, 0x0ced2dc1e, 0x083b3b033, 0x088b0b838,
		0x08fa3ac2f, 0x040606020, 0x045515415, 0x0c7c3c407, 0x044404404, 0x04f636c2f, 0x04b63682b, 0x04b53581b,
		0x0c3c3c003, 0x042626022, 0x003333033, 0x085b1b435, 0x009212829, 0x080a0a020, 0x0c2e2e022, 0x087a3a427,
		0x0c3d3d013, 0x081919011, 0x001111011, 0x006020406, 0x00c101c1c, 0x08cb0bc3c, 0x006323436, 0x04b43480b,
		0x0cfe3ec2f, 0x088808808, 0x04c606c2c, 0x088a0a828, 0x007131417, 0x0c4c0c404, 0x006121416, 0x0c4f0f434,
		0x0c2c2c002, 0x045414405, 0x0c1e1e021, 0x0c6d2d416, 0x00f333c3f, 0x00d313c3d, 0x08e828c0e, 0x088909818,
		0x008202828, 0x04e424c0e, 0x0c6f2f436, 0x00e323c3e, 0x085a1a425, 0x0c9f1f839, 0x00d010c0d, 0x0cfd3dc1f,
		0x0c8d0d818, 0x00b23282b, 0x046626426, 0x04a72783a, 0x007232427, 0x00f232c2f, 0x0c1f1f031, 0x042727032,
		0x042424002, 0x0c4d0d414, 0x041414001, 0x0c0c0c000, 0x043737033, 0x047636427, 0x08ca0ac2c, 0x08b83880b,
		0x0c7f3f437, 0x08da1ac2d, 0x080808000, 0x00f131c1f, 0x0cac2c80a, 0x00c202c2c, 0x08aa2a82a, 0x004303434,
		0x0c2d2d012, 0x00b03080b, 0x0cee2ec2e, 0x0c9e1e829, 0x04d515c1d, 0x084909414, 0x008101818, 0x0c8f0f838,
		0x047535417, 0x08ea2ac2e, 0x008000808, 0x0c5c1c405, 0x003131013, 0x0cdc1cc0d, 0x086828406, 0x089b1b839,
		0x0cff3fc3f, 0x04d717c3d, 0x0c1c1c001, 0x001313031, 0x0c5f1f435, 0x08a82880a, 0x04a62682a, 0x081b1b031,
		0x0c1d1d011, 0x000202020, 0x0c7d3d417, 0x002020002, 0x002222022, 0x004000404, 0x048606828, 0x041717031,
		0x007030407, 0x0cbd3d81b, 0x08d919c1d, 0x089919819, 0x041616021, 0x08eb2bc3e, 0x0c6e2e426, 0x049515819,
		0x0cdd1dc1d, 0x041515011, 0x080909010, 0x0ccd0dc1c, 0x08a92981a, 0x083a3a023, 0x08ba3a82b, 0x0c0d0d010,
		0x081818001, 0x00f030c0f, 0x047434407, 0x00a12181a, 0x0c3e3e023, 0x0cce0ec2c, 0x08d818c0d, 0x08fb3bc3f,
		0x086929416, 0x04b73783b, 0x04c505c1c, 0x082a2a022, 0x081a1a021, 0x043636023, 0x003232023, 0x04d414c0d,
		0x0c8c0c808, 0x08e929c1e, 0x08c909c1c, 0x00a32383a, 0x00c000c0c, 0x00e222c2e, 0x08ab2b83a, 0x04e626c2e,
		0x08f939c1f, 0x04a52581a, 0x0c2f2f032, 0x082929012, 0x0c3f3f033, 0x049414809, 0x048707838, 0x0ccc0cc0c,
		0x005111415, 0x0cbf3f83b, 0x040707030, 0x045717435, 0x04f737c3f, 0x005313435, 0x000101010, 0x003030003,
		0x044606424, 0x04d616c2d, 0x0c6c2c406, 0x044707434, 0x0c5d1d415, 0x084b0b434, 0x0cae2e82a, 0x009010809,
		0x046727436, 0x009111819, 0x0cef2fc3e, 0x040404000, 0x002121012, 0x0c0e0e020, 0x08db1bc3d, 0x005010405,
		0x0caf2f83a, 0x001010001, 0x0c0f0f030, 0x00a22282a, 0x04e525c1e, 0x089a1a829, 0x046525416, 0x043434003,
		0x085818405, 0x004101414, 0x089818809, 0x08b93981b, 0x080b0b030, 0x0c5e1e425, 0x048404808, 0x049717839,
		0x087939417, 0x0ccf0fc3c, 0x00e121c1e, 0x082828002, 0x001212021, 0x08c808c0c, 0x00b13181b, 0x04f535c1f,
		0x047737437, 0x044505414, 0x082b2b032, 0x00d111c1d, 0x005212425, 0x04f434c0f, 0x000000000, 0x046424406,
		0x0cde1ec2d, 0x048505818, 0x042525012, 0x0cbe3e82b, 0x04e727c3e, 0x0cad2d81a, 0x0c9c1c809, 0x0cdf1fc3d,
		0x000303030, 0x085919415, 0x045616425, 0x00c303c3c, 0x086b2b436, 0x0c4e0e424, 0x08bb3b83b, 0x04c707c3c,
		0x00e020c0e, 0x040505010, 0x009313839, 0x006222426, 0x002323032, 0x084808404, 0x049616829, 0x083939013,
		0x007333437, 0x0c7e3e427, 0x004202424, 0x084a0a424, 0x0cbc3c80b, 0x043535013, 0x00a02080a, 0x087838407,
		0x0c9d1d819, 0x04c404c0c, 0x083838003, 0x08f838c0f, 0x0cec2cc0e, 0x00b33383b, 0x04a42480a, 0x087b3b437
	);

	const BLOCK_SIZE_SEED = 16;
	const BLOCK_SIZE_SEED_INT = 4;

    static function GetB0($A){ return 0x000000ff & $A; }
    static function GetB1($A){ return 0x000000ff & ( $A >> 8 ); }
    static function GetB2($A){ return 0x000000ff & ( $A >> 16 ); }
    static function GetB3($A){ return 0x000000ff & ( $A >> 24 ); }

	static function Round(&$x, $i7,$i6,$i5,$i4,$i3,$i2,$i1,$i0,$key,$key_offset) {
		$x[$i1] = ($x[$i1] + ((KISA_SEED_CBC::$F1[$x[$i0]] ^ $key[$key_offset+0])&0x0ff)) & 0x0ff;
		$x[$i3] = ($x[$i3] ^ ((KISA_SEED_CBC::$F0[$x[$i2]] + $key[$key_offset+1])&0x0ff)) & 0x0ff;
		$x[$i5] = ($x[$i5] + ((KISA_SEED_CBC::$F1[$x[$i4]] ^ $key[$key_offset+2])&0x0ff)) & 0x0ff;
		$x[$i7] = ($x[$i7] ^ ((KISA_SEED_CBC::$F0[$x[$i6]] + $key[$key_offset+3])&0x0ff)) & 0x0ff;
	}

    static function SeedRound(&$T, &$LR, $L0, $L1, $R0, $R1, &$K, $K_offset) {
		$T[0] = $LR[$R0] ^ $K[$K_offset+0];
		$T[1] = $LR[$R1] ^ $K[$K_offset+1];
		$T[1] ^= $T[0];
		$T[1] = KISA_SEED_CBC::$SS0[KISA_SEED_CBC::GetB0($T[1])&0x0ff] ^ KISA_SEED_CBC::$SS1[KISA_SEED_CBC::GetB1($T[1])&0x0ff] ^
				KISA_SEED_CBC::$SS2[KISA_SEED_CBC::GetB2($T[1])&0x0ff] ^ KISA_SEED_CBC::$SS3[KISA_SEED_CBC::GetB3($T[1])&0x0ff];
		$T[0] = ($T[0] + $T[1]) & 0x0ffffffff;
		$T[0] = KISA_SEED_CBC::$SS0[KISA_SEED_CBC::GetB0($T[0])&0x0ff] ^ KISA_SEED_CBC::$SS1[KISA_SEED_CBC::GetB1($T[0])&0x0ff] ^
				KISA_SEED_CBC::$SS2[KISA_SEED_CBC::GetB2($T[0])&0x0ff] ^ KISA_SEED_CBC::$SS3[KISA_SEED_CBC::GetB3($T[0])&0x0ff];
		$T[1] = ($T[1] + $T[0]) & 0x0ffffffff;
		$T[1] = KISA_SEED_CBC::$SS0[KISA_SEED_CBC::GetB0($T[1])&0x0ff] ^ KISA_SEED_CBC::$SS1[KISA_SEED_CBC::GetB1($T[1])&0x0ff] ^
				KISA_SEED_CBC::$SS2[KISA_SEED_CBC::GetB2($T[1])&0x0ff] ^ KISA_SEED_CBC::$SS3[KISA_SEED_CBC::GetB3($T[1])&0x0ff];
		$T[0] = ($T[0] + $T[1]) & 0x0ffffffff;
		$LR[$L0] ^= $T[0]; $LR[$L1] ^= $T[1];
	}

    static function EndianChange($dwS) {
		return ((((($dwS) << (8)) | ((($dwS) >> (32-(8)))&0x000000ff)) & 0x00ff00ff) | (((($dwS) << (24)) | ((($dwS) >> (32-(24)))&0x00ffffff)) & 0xff00ff00) );
	}

	static $KC0 = 0x9e3779b9;
	static $KC1 = 0x3c6ef373;
	static $KC2 = 0x78dde6e6;
	static $KC3 = 0xf1bbcdcc;
	static $KC4 = 0xe3779b99;
	static $KC5 = 0xc6ef3733;
	static $KC6 = 0x8dde6e67;
	static $KC7 = 0x1bbcdccf;
	static $KC8 = 0x3779b99e;
	static $KC9 = 0x6ef3733c;
	static $KC10 = 0xdde6e678;
	static $KC11 = 0xbbcdccf1;
	static $KC12 = 0x779b99e3;
	static $KC13 = 0xef3733c6;
	static $KC14 = 0xde6e678d;
	static $KC15 = 0xbcdccf1b;

	static $ABCD_A = 0;
	static $ABCD_B = 1;
	static $ABCD_C = 2;
	static $ABCD_D = 3;

	static function RoundKeyUpdate0(&$T, &$K, $K_offset, &$ABCD, $KC) {

		$T[0] = (($ABCD[KISA_SEED_CBC::$ABCD_A]&0x0ffffffff) + ($ABCD[KISA_SEED_CBC::$ABCD_C]&0x0ffffffff) - ($KC&0x0ffffffff)) & 0x0ffffffff;
		$T[1] = (($ABCD[KISA_SEED_CBC::$ABCD_B]&0x0ffffffff) + ($KC&0x0ffffffff) - ($ABCD[KISA_SEED_CBC::$ABCD_D]&0x0ffffffff)) & 0x0ffffffff;
		$K[$K_offset+0] = KISA_SEED_CBC::$SS0[KISA_SEED_CBC::GetB0($T[0])&0x0ff] ^ KISA_SEED_CBC::$SS1[KISA_SEED_CBC::GetB1($T[0])&0x0ff] ^ KISA_SEED_CBC::$SS2[KISA_SEED_CBC::GetB2($T[0])&0x0ff] ^ KISA_SEED_CBC::$SS3[KISA_SEED_CBC::GetB3($T[0])&0x0ff];
		$K[$K_offset+1] = KISA_SEED_CBC::$SS0[KISA_SEED_CBC::GetB0($T[1])&0x0ff] ^ KISA_SEED_CBC::$SS1[KISA_SEED_CBC::GetB1($T[1])&0x0ff] ^ KISA_SEED_CBC::$SS2[KISA_SEED_CBC::GetB2($T[1])&0x0ff] ^ KISA_SEED_CBC::$SS3[KISA_SEED_CBC::GetB3($T[1])&0x0ff];
		$T[0] = $ABCD[KISA_SEED_CBC::$ABCD_A];
		$ABCD[KISA_SEED_CBC::$ABCD_A] = (($ABCD[KISA_SEED_CBC::$ABCD_A]>>8)&0x00ffffff) ^ ($ABCD[KISA_SEED_CBC::$ABCD_B]<<24);
		$ABCD[KISA_SEED_CBC::$ABCD_B] = (($ABCD[KISA_SEED_CBC::$ABCD_B]>>8)&0x00ffffff) ^ ($T[0]<<24);
	}

	// 0xFFFFFFFF 를 & 연산 시키는 이유: 64bit OS에 설치된 PHP의 정수형 데이터 타입의 크기 차이로 인한 오버플로우 처리 오류
	static function RoundKeyUpdate1(&$T, &$K, $K_offset, &$ABCD, $KC) {
		$T[0] = (($ABCD[KISA_SEED_CBC::$ABCD_A]&0xFFFFFFFF) + ($ABCD[KISA_SEED_CBC::$ABCD_C]&0xFFFFFFFF) - ($KC&0xFFFFFFFF)) & 0x0ffffffff;
		$T[1] = (($ABCD[KISA_SEED_CBC::$ABCD_B]&0xFFFFFFFF) + ($KC&0xFFFFFFFF) - ($ABCD[KISA_SEED_CBC::$ABCD_D]&0xFFFFFFFF)) & 0x0ffffffff;
		$K[$K_offset+0] = KISA_SEED_CBC::$SS0[KISA_SEED_CBC::GetB0($T[0])&0x0ff] ^ KISA_SEED_CBC::$SS1[KISA_SEED_CBC::GetB1($T[0])&0x0ff] ^ KISA_SEED_CBC::$SS2[KISA_SEED_CBC::GetB2($T[0])&0x0ff] ^ KISA_SEED_CBC::$SS3[KISA_SEED_CBC::GetB3($T[0])&0x0ff];
		$K[$K_offset+1] = KISA_SEED_CBC::$SS0[KISA_SEED_CBC::GetB0($T[1])&0x0ff] ^ KISA_SEED_CBC::$SS1[KISA_SEED_CBC::GetB1($T[1])&0x0ff] ^ KISA_SEED_CBC::$SS2[KISA_SEED_CBC::GetB2($T[1])&0x0ff] ^ KISA_SEED_CBC::$SS3[KISA_SEED_CBC::GetB3($T[1])&0x0ff];
		$T[0] = $ABCD[KISA_SEED_CBC::$ABCD_C];
		$ABCD[KISA_SEED_CBC::$ABCD_C] = (($ABCD[KISA_SEED_CBC::$ABCD_C]<<8)&0xFFFFFFFF) ^ (($ABCD[KISA_SEED_CBC::$ABCD_D]>>24)&0x000000ff);
		$ABCD[KISA_SEED_CBC::$ABCD_D] = (($ABCD[KISA_SEED_CBC::$ABCD_D]<<8)&0xFFFFFFFF) ^ (($T[0]>>24)&0x000000ff);
	}


	static function BLOCK_XOR_CBC(&$OUT_VALUE, $OUT_VALUE_offset, &$IN_VALUE1, $IN_VALUE1_offset, &$IN_VALUE2, $IN_VALUE2_offset) {
		$OUT_VALUE[$OUT_VALUE_offset+0] = ($IN_VALUE1_offset<count($IN_VALUE1)?$IN_VALUE1[$IN_VALUE1_offset+0]:0) ^ ($IN_VALUE2_offset<count($IN_VALUE2)?$IN_VALUE2[$IN_VALUE2_offset+0]:0);
		$OUT_VALUE[$OUT_VALUE_offset+1] = ($IN_VALUE1_offset+1<count($IN_VALUE1)?$IN_VALUE1[$IN_VALUE1_offset+1]:0) ^ ($IN_VALUE2_offset+1<count($IN_VALUE2)?$IN_VALUE2[$IN_VALUE2_offset+1]:0);
		$OUT_VALUE[$OUT_VALUE_offset+2] = ($IN_VALUE1_offset+2<count($IN_VALUE1)?$IN_VALUE1[$IN_VALUE1_offset+2]:0) ^ ($IN_VALUE2_offset+2<count($IN_VALUE2)?$IN_VALUE2[$IN_VALUE2_offset+2]:0);
		$OUT_VALUE[$OUT_VALUE_offset+3] = ($IN_VALUE1_offset+3<count($IN_VALUE1)?$IN_VALUE1[$IN_VALUE1_offset+3]:0) ^ ($IN_VALUE2_offset+3<count($IN_VALUE2)?$IN_VALUE2[$IN_VALUE2_offset+3]:0);
	}


	static function KISA_SEED_Encrypt_Block_forCBC(&$in, $in_offset, &$out, $out_offset, &$ks) {

		$LR = array_pad(array(),4,0);		// Iuput/output values at each rounds
		$T = array_pad(array(),2,0);		// Temporary variables for round function F
		$K = &$ks->key_data;					// Pointer of round keys

		$LR[LR_L0] = $in[$in_offset+0];
		$LR[LR_L1] = $in[$in_offset+1];
		$LR[LR_R0] = $in[$in_offset+2];
		$LR[LR_R1] = $in[$in_offset+3];

		if(_KISA_COMMON_IS_LITTLE_ENDIAN == false) {
			$LR[LR_L0] = KISA_SEED_CBC::EndianChange($LR[LR_L0]);
			$LR[LR_L1] = KISA_SEED_CBC::EndianChange($LR[LR_L1]);
			$LR[LR_R0] = KISA_SEED_CBC::EndianChange($LR[LR_R0]);
			$LR[LR_R1] = KISA_SEED_CBC::EndianChange($LR[LR_R1]);
		}

		KISA_SEED_CBC::SeedRound($T, $LR, LR_L0, LR_L1, LR_R0, LR_R1, $K,  0);    // Round 1
		KISA_SEED_CBC::SeedRound($T, $LR, LR_R0, LR_R1, LR_L0, LR_L1, $K,  2);    // Round 2
		KISA_SEED_CBC::SeedRound($T, $LR, LR_L0, LR_L1, LR_R0, LR_R1, $K,  4);    // Round 3
		KISA_SEED_CBC::SeedRound($T, $LR, LR_R0, LR_R1, LR_L0, LR_L1, $K,  6);    // Round 4
		KISA_SEED_CBC::SeedRound($T, $LR, LR_L0, LR_L1, LR_R0, LR_R1, $K,  8);    // Round 5
		KISA_SEED_CBC::SeedRound($T, $LR, LR_R0, LR_R1, LR_L0, LR_L1, $K, 10);    // Round 6
		KISA_SEED_CBC::SeedRound($T, $LR, LR_L0, LR_L1, LR_R0, LR_R1, $K, 12);    // Round 7
		KISA_SEED_CBC::SeedRound($T, $LR, LR_R0, LR_R1, LR_L0, LR_L1, $K, 14);    // Round 8
		KISA_SEED_CBC::SeedRound($T, $LR, LR_L0, LR_L1, LR_R0, LR_R1, $K, 16);    // Round 9
		KISA_SEED_CBC::SeedRound($T, $LR, LR_R0, LR_R1, LR_L0, LR_L1, $K, 18);    // Round 10
		KISA_SEED_CBC::SeedRound($T, $LR, LR_L0, LR_L1, LR_R0, LR_R1, $K, 20);    // Round 11
		KISA_SEED_CBC::SeedRound($T, $LR, LR_R0, LR_R1, LR_L0, LR_L1, $K, 22);    // Round 12
		KISA_SEED_CBC::SeedRound($T, $LR, LR_L0, LR_L1, LR_R0, LR_R1, $K, 24);    // Round 13
		KISA_SEED_CBC::SeedRound($T, $LR, LR_R0, LR_R1, LR_L0, LR_L1, $K, 26);    // Round 14
		KISA_SEED_CBC::SeedRound($T, $LR, LR_L0, LR_L1, LR_R0, LR_R1, $K, 28);    // Round 15
		KISA_SEED_CBC::SeedRound($T, $LR, LR_R0, LR_R1, LR_L0, LR_L1, $K, 30);    // Round 16

		if(_KISA_COMMON_IS_LITTLE_ENDIAN == false) {
			$LR[LR_L0] = KISA_SEED_CBC::EndianChange($LR[LR_L0]);
			$LR[LR_L1] = KISA_SEED_CBC::EndianChange($LR[LR_L1]);
			$LR[LR_R0] = KISA_SEED_CBC::EndianChange($LR[LR_R0]);
			$LR[LR_R1] = KISA_SEED_CBC::EndianChange($LR[LR_R1]);
		}

		$out[$out_offset+0] = $LR[LR_R0];
		$out[$out_offset+1] = $LR[LR_R1];
		$out[$out_offset+2] = $LR[LR_L0];
		$out[$out_offset+3] = $LR[LR_L1];
	}


	static function KISA_SEED_Decrypt_Block_forCBC(&$in, $in_offset, &$out, $out_offset, &$ks ) {
		$LR = array_pad(array(),4,0);		// Iuput/output values at each rounds
		$T = array_pad(array(),2,0);		// Temporary variables for round function F
		$K = &$ks->key_data;				// Pointer of round keys

		$LR[LR_L0] = $in[$in_offset+0];
		$LR[LR_L1] = $in[$in_offset+1];
		$LR[LR_R0] = $in[$in_offset+2];
		$LR[LR_R1] = $in[$in_offset+3];

		if(_KISA_COMMON_IS_LITTLE_ENDIAN == false) {
			$LR[LR_L0] = KISA_SEED_CBC::EndianChange($LR[LR_L0]);
			$LR[LR_L1] = KISA_SEED_CBC::EndianChange($LR[LR_L1]);
			$LR[LR_R0] = KISA_SEED_CBC::EndianChange($LR[LR_R0]);
			$LR[LR_R1] = KISA_SEED_CBC::EndianChange($LR[LR_R1]);
		}

		KISA_SEED_CBC::SeedRound($T, $LR, LR_L0, LR_L1, LR_R0, LR_R1, $K, 30);    // Round 1
		KISA_SEED_CBC::SeedRound($T, $LR, LR_R0, LR_R1, LR_L0, LR_L1, $K, 28);    // Round 2
		KISA_SEED_CBC::SeedRound($T, $LR, LR_L0, LR_L1, LR_R0, LR_R1, $K, 26);    // Round 3
		KISA_SEED_CBC::SeedRound($T, $LR, LR_R0, LR_R1, LR_L0, LR_L1, $K, 24);    // Round 4
		KISA_SEED_CBC::SeedRound($T, $LR, LR_L0, LR_L1, LR_R0, LR_R1, $K, 22);    // Round 5
		KISA_SEED_CBC::SeedRound($T, $LR, LR_R0, LR_R1, LR_L0, LR_L1, $K, 20);    // Round 6
		KISA_SEED_CBC::SeedRound($T, $LR, LR_L0, LR_L1, LR_R0, LR_R1, $K, 18);    // Round 7
		KISA_SEED_CBC::SeedRound($T, $LR, LR_R0, LR_R1, LR_L0, LR_L1, $K, 16);    // Round 8
		KISA_SEED_CBC::SeedRound($T, $LR, LR_L0, LR_L1, LR_R0, LR_R1, $K, 14);    // Round 9
		KISA_SEED_CBC::SeedRound($T, $LR, LR_R0, LR_R1, LR_L0, LR_L1, $K, 12);    // Round 10
		KISA_SEED_CBC::SeedRound($T, $LR, LR_L0, LR_L1, LR_R0, LR_R1, $K, 10);    // Round 11
		KISA_SEED_CBC::SeedRound($T, $LR, LR_R0, LR_R1, LR_L0, LR_L1, $K,  8);    // Round 12
		KISA_SEED_CBC::SeedRound($T, $LR, LR_L0, LR_L1, LR_R0, LR_R1, $K,  6);    // Round 13
		KISA_SEED_CBC::SeedRound($T, $LR, LR_R0, LR_R1, LR_L0, LR_L1, $K,  4);    // Round 14
		KISA_SEED_CBC::SeedRound($T, $LR, LR_L0, LR_L1, LR_R0, LR_R1, $K,  2);    // Round 15
		KISA_SEED_CBC::SeedRound($T, $LR, LR_R0, LR_R1, LR_L0, LR_L1, $K,  0);    // Round 16

		if(_KISA_COMMON_IS_LITTLE_ENDIAN == false) {
			$LR[LR_L0] = KISA_SEED_CBC::EndianChange($LR[LR_L0]);
			$LR[LR_L1] = KISA_SEED_CBC::EndianChange($LR[LR_L1]);
			$LR[LR_R0] = KISA_SEED_CBC::EndianChange($LR[LR_R0]);
			$LR[LR_R1] = KISA_SEED_CBC::EndianChange($LR[LR_R1]);
		}

		$out[$out_offset+0] = $LR[LR_R0];
		$out[$out_offset+1] = $LR[LR_R1];
		$out[$out_offset+2] = $LR[LR_L0];
		$out[$out_offset+3] = $LR[LR_L1];
	}

	static function chartoint32_for_SEED_CBC(&$in, $inLen) {
		$data = null;
		$len=0; $i=0;

		if($inLen % 4 > 0)
			$len = (0x0ff&((int)($inLen/4)))+1;
		else
			$len = (0x0ff&((int)($inLen/4)));

		$data = array_pad(array(), $len, 0);
		for($i=0;$i<$len;$i++)
		{
			Common::byte_to_int($data, $i, $in, $i*4);
		}
		return $data;
	}


	static function int32tochar_for_SEED_CBC(&$in, $inLen) {
		$data = null;
		$i = 0;

		$data = array_pad(array(), $inLen, 0);
		if(_KISA_COMMON_IS_LITTLE_ENDIAN == false) {
			for($i=0;$i<$inLen;$i++)
			{
				$data[$i] = 0x0ff&($in[(int)($i/4)] >> (($i%4)*8));
			}
		} else {
			for($i=0;$i<$inLen;$i++)
			{
				$data[$i] = 0x0ff&($in[(int)($i/4)] >> ((3-($i%4))*8));
			}
		}

		return $data;
	}

	// 0xFFFFFFFF 를 & 연산 시키는 이유: 64bit OS에 설치된 PHP의 정수형 데이터 타입의 크기 차이로 인한 오버플로우 처리 오류
	static function SEED_CBC_init(&$pInfo, $enc, &$pbszUserKey, &$pbszIV )
	{
		$ABCD = array_pad(array(), 4, 0);			// Iuput/output values at each rounds
		$T = array_pad(array(), 2, 0);				// Temporary variable
		$K = null;

		if( null == $pInfo ||
			null == $pbszUserKey ||
			null == $pbszIV )
			return 0;


		$K = &$pInfo->seed_key->key_data;		// Pointer of round keys




		$pInfo->encrypt = $enc;
		Common::memcpy_byte2int($pInfo->ivec, $pbszIV, 16);
		$pInfo->last_block_flag = $pInfo->buffer_length = 0;

		$ABCD[KISA_SEED_CBC::$ABCD_A] = Common::get_byte_to_int($pbszUserKey, 0*4);
		$ABCD[KISA_SEED_CBC::$ABCD_B] = Common::get_byte_to_int($pbszUserKey, 1*4);
		$ABCD[KISA_SEED_CBC::$ABCD_C] = Common::get_byte_to_int($pbszUserKey, 2*4);
		$ABCD[KISA_SEED_CBC::$ABCD_D] = Common::get_byte_to_int($pbszUserKey, 3*4);

		if(_KISA_COMMON_IS_LITTLE_ENDIAN == false) {
			$ABCD[KISA_SEED_CBC::$ABCD_A] = KISA_SEED_CBC::EndianChange($ABCD[KISA_SEED_CBC::$ABCD_A]);
			$ABCD[KISA_SEED_CBC::$ABCD_B] = KISA_SEED_CBC::EndianChange($ABCD[KISA_SEED_CBC::$ABCD_B]);
			$ABCD[KISA_SEED_CBC::$ABCD_C] = KISA_SEED_CBC::EndianChange($ABCD[KISA_SEED_CBC::$ABCD_C]);
			$ABCD[KISA_SEED_CBC::$ABCD_D] = KISA_SEED_CBC::EndianChange($ABCD[KISA_SEED_CBC::$ABCD_D]);
		}

		KISA_SEED_CBC::RoundKeyUpdate0($T, $K,  0, $ABCD, KISA_SEED_CBC::$KC0 );    // K_1,0 and K_1,1
		KISA_SEED_CBC::RoundKeyUpdate1($T, $K,  2, $ABCD, KISA_SEED_CBC::$KC1 );    // K_2,0 and K_2,1
		KISA_SEED_CBC::RoundKeyUpdate0($T, $K,  4, $ABCD, KISA_SEED_CBC::$KC2 );    // K_3,0 and K_3,1
		KISA_SEED_CBC::RoundKeyUpdate1($T, $K,  6, $ABCD, KISA_SEED_CBC::$KC3 );    // K_4,0 and K_4,1
		KISA_SEED_CBC::RoundKeyUpdate0($T, $K,  8, $ABCD, KISA_SEED_CBC::$KC4 );    // K_5,0 and K_5,1
		KISA_SEED_CBC::RoundKeyUpdate1($T, $K, 10, $ABCD, KISA_SEED_CBC::$KC5 );    // K_6,0 and K_6,1
		KISA_SEED_CBC::RoundKeyUpdate0($T, $K, 12, $ABCD, KISA_SEED_CBC::$KC6 );    // K_7,0 and K_7,1
		KISA_SEED_CBC::RoundKeyUpdate1($T, $K, 14, $ABCD, KISA_SEED_CBC::$KC7 );    // K_8,0 and K_8,1
		KISA_SEED_CBC::RoundKeyUpdate0($T, $K, 16, $ABCD, KISA_SEED_CBC::$KC8 );    // K_9,0 and K_9,1
		KISA_SEED_CBC::RoundKeyUpdate1($T, $K, 18, $ABCD, KISA_SEED_CBC::$KC9 );    // K_10,0 and K_10,1
		KISA_SEED_CBC::RoundKeyUpdate0($T, $K, 20, $ABCD, KISA_SEED_CBC::$KC10);    // K_11,0 and K_11,1
		KISA_SEED_CBC::RoundKeyUpdate1($T, $K, 22, $ABCD, KISA_SEED_CBC::$KC11);    // K_12,0 and K_12,1
		KISA_SEED_CBC::RoundKeyUpdate0($T, $K, 24, $ABCD, KISA_SEED_CBC::$KC12);    // K_13,0 and K_13,1
		KISA_SEED_CBC::RoundKeyUpdate1($T, $K, 26, $ABCD, KISA_SEED_CBC::$KC13);    // K_14,0 and K_14,1
		KISA_SEED_CBC::RoundKeyUpdate0($T, $K, 28, $ABCD, KISA_SEED_CBC::$KC14);    // K_15,0 and K_15,1

		$T[0] = (($ABCD[KISA_SEED_CBC::$ABCD_A]&0xFFFFFFFF) + ($ABCD[KISA_SEED_CBC::$ABCD_C]&0xFFFFFFFF) - KISA_SEED_CBC::$KC15) & 0x0ffffffff;
		$T[1] = (($ABCD[KISA_SEED_CBC::$ABCD_B]&0xFFFFFFFF) - ($ABCD[KISA_SEED_CBC::$ABCD_D]&0xFFFFFFFF) + KISA_SEED_CBC::$KC15) & 0x0ffffffff;
		$K[30] = KISA_SEED_CBC::$SS0[KISA_SEED_CBC::GetB0($T[0])&0x0ff] ^ KISA_SEED_CBC::$SS1[KISA_SEED_CBC::GetB1($T[0])&0x0ff] ^   // K_16,0
				KISA_SEED_CBC::$SS2[KISA_SEED_CBC::GetB2($T[0])&0x0ff] ^ KISA_SEED_CBC::$SS3[KISA_SEED_CBC::GetB3($T[0])&0x0ff];
		$K[31] = KISA_SEED_CBC::$SS0[KISA_SEED_CBC::GetB0($T[1])&0x0ff] ^ KISA_SEED_CBC::$SS1[KISA_SEED_CBC::GetB1($T[1])&0x0ff] ^   // K_16,1
				KISA_SEED_CBC::$SS2[KISA_SEED_CBC::GetB2($T[1])&0x0ff] ^ KISA_SEED_CBC::$SS3[KISA_SEED_CBC::GetB3($T[1])&0x0ff];

		return 1;
	}

	static function SEED_CBC_Process( &$pInfo, &$in, $inLen, &$out, &$outLen ) {

		$nCurrentCount = KISA_SEED_CBC::BLOCK_SIZE_SEED;
		$pdwXOR = null;
		$in_offset = 0;
		$out_offset = 0;
		$pdwXOR_offset = 0;

		if( null == $pInfo ||
			null == $in ||
			null == $out ||
			0 > $inLen )
			return 0;

		if( KISA_ENC_DEC::KISA_ENCRYPT == $pInfo->encrypt ) {
			$pdwXOR = &$pInfo->ivec;
			$in_offset = 0;
			$out_offset = 0;
			$pdwXOR_offset = 0;
			while( $nCurrentCount <= $inLen )
			{
				KISA_SEED_CBC::BLOCK_XOR_CBC( $out, $out_offset, $in, $in_offset, $pdwXOR, $pdwXOR_offset );
				KISA_SEED_CBC::KISA_SEED_Encrypt_Block_forCBC( $out, $out_offset, $out, $out_offset, $pInfo->seed_key );
				$pdwXOR = &$out;
				$pdwXOR_offset = $out_offset;
				$nCurrentCount += KISA_SEED_CBC::BLOCK_SIZE_SEED;
				$in_offset += KISA_SEED_CBC::BLOCK_SIZE_SEED_INT;
				$out_offset += KISA_SEED_CBC::BLOCK_SIZE_SEED_INT;
			}

			$outLen = $nCurrentCount - KISA_SEED_CBC::BLOCK_SIZE_SEED;
			$pInfo->buffer_length = $inLen - $outLen;

			Common::memcpy_int2int( $pInfo->ivec, $pdwXOR, $pdwXOR_offset, KISA_SEED_CBC::BLOCK_SIZE_SEED );
			Common::arraycopy_system($in, $in_offset, $pInfo->cbc_buffer, 0, $pInfo->buffer_length);
		}
		else {
			$pdwXOR = $pInfo->ivec;
			$in_offset = 0;
			$out_offset = 0;
			$pdwXOR_offset = 0;

			while( $nCurrentCount <= $inLen )
			{
				KISA_SEED_CBC::KISA_SEED_Decrypt_Block_forCBC( $in, $in_offset, $out, $out_offset, $pInfo->seed_key );

				KISA_SEED_CBC::BLOCK_XOR_CBC( $out, $out_offset, $out, $out_offset, $pdwXOR, $pdwXOR_offset );

				$pdwXOR = &$in;
				$pdwXOR_offset = $in_offset;

				$nCurrentCount += KISA_SEED_CBC::BLOCK_SIZE_SEED;
				$in_offset += KISA_SEED_CBC::BLOCK_SIZE_SEED_INT;
				$out_offset += KISA_SEED_CBC::BLOCK_SIZE_SEED_INT;
			}
			$outLen = $nCurrentCount - KISA_SEED_CBC::BLOCK_SIZE_SEED;
			Common::memcpy_int2int( $pInfo->ivec, $pdwXOR, $pdwXOR_offset, KISA_SEED_CBC::BLOCK_SIZE_SEED );
			Common::memcpy_int2int( $pInfo->cbc_last_block, $out, $out_offset-KISA_SEED_CBC::BLOCK_SIZE_SEED_INT, KISA_SEED_CBC::BLOCK_SIZE_SEED );
		}

		return 1;

	}

	static function SEED_CBC_Close( &$pInfo, &$out, $out_offset, &$outLen ) {
		$nPaddngLeng = null;
		$i = null;
		$outLen = 0;

		if( null == $out )
			return 0;

		if( KISA_ENC_DEC::KISA_ENCRYPT == $pInfo->encrypt ) {
			$nPaddngLeng = KISA_SEED_CBC::BLOCK_SIZE_SEED - $pInfo->buffer_length;
			for( $i = $pInfo->buffer_length; $i<KISA_SEED_CBC::BLOCK_SIZE_SEED; $i++ ) {
				Common::set_byte_for_int($pInfo->cbc_buffer, $i, $nPaddngLeng);
			}
			KISA_SEED_CBC::BLOCK_XOR_CBC( $pInfo->cbc_buffer, 0, $pInfo->cbc_buffer, 0, $pInfo->ivec, 0 );

			KISA_SEED_CBC::KISA_SEED_Encrypt_Block_forCBC( $pInfo->cbc_buffer, 0, $out, $out_offset/4, $pInfo->seed_key );

			$outLen = KISA_SEED_CBC::BLOCK_SIZE_SEED;

		}
		else {
			$nPaddngLeng = Common::get_byte_for_int($pInfo->cbc_last_block, KISA_SEED_CBC::BLOCK_SIZE_SEED-1);
			if( $nPaddngLeng > 0 && $nPaddngLeng <= KISA_SEED_CBC::BLOCK_SIZE_SEED )
			{
				for($i = $nPaddngLeng;$i>0;$i--)
				{
					Common::set_byte_for_int($out, $out_offset-$i, 0);
				}
				$outLen = $nPaddngLeng;
			}
			else
			{
				return 0;
			}

		}
		return 1;
	}

	static function SEED_CBC_Encrypt( &$pbszUserKey, &$pbszIV, &$message, $message_offset, $message_length ) {
		$info = new KISA_SEED_INFO();
		$outbuf = null;
		$data = null;
		$cdata = null;
		$outlen = 0;
		$nRetOutLeng = 0;
		$nPaddingLeng = 0;

		$pbszPlainText = array_pad(array(), $message_length, 0);
		Common::arraycopy_system($message, $message_offset, $pbszPlainText, 0, $message_length);
		$nPlainTextLen = count($pbszPlainText);


		$nPlainTextPadding = (KISA_SEED_CBC::BLOCK_SIZE_SEED - ($nPlainTextLen % KISA_SEED_CBC::BLOCK_SIZE_SEED));
		$newpbszPlainText = array_pad(array(), $nPlainTextLen+$nPlainTextPadding, 0);
		Common::arraycopy($newpbszPlainText, $pbszPlainText, $nPlainTextLen);

		$pbszCipherText = array_pad(array(), count($newpbszPlainText), 0);

		KISA_SEED_CBC::SEED_CBC_init( $info, KISA_ENC_DEC::KISA_ENCRYPT, $pbszUserKey, $pbszIV );

		$outlen = ( ((int)($nPlainTextLen/16)) + 1 ) *4;


		$outbuf = array_pad(array(), $outlen, 0);

		$data = KISA_SEED_CBC::chartoint32_for_SEED_CBC($newpbszPlainText, $nPlainTextLen);
		KISA_SEED_CBC::SEED_CBC_Process( $info, $data, $nPlainTextLen, $outbuf, $nRetOutLeng );

		KISA_SEED_CBC::SEED_CBC_Close( $info, $outbuf, $nRetOutLeng, $nPaddingLeng );


		$cdata = KISA_SEED_CBC::int32tochar_for_SEED_CBC($outbuf, $nRetOutLeng+$nPaddingLeng);
		Common::arraycopy($pbszCipherText, $cdata, $nRetOutLeng+$nPaddingLeng);

		$data = null;
		$cdata = null;
		$outbuf = null;

		return $pbszCipherText;

	}

	static function SEED_CBC_Decrypt( &$pbszUserKey, &$pbszIV, &$message, $message_offset, $message_length ) {

		$info = new KISA_SEED_INFO();
		$outbuf = null;
		$data = null;
		$cdata = null;
		$outlen = 0;
		$nRetOutLeng = 0;
		$nPaddingLeng = 0;
		$pbszCipherText = array_pad(array(), $message_length, 0);
		Common::arraycopy_system($message, $message_offset, $pbszCipherText, 0, $message_length);
		$nCipherTextLen = count($pbszCipherText);
		$result = null;

		if($nCipherTextLen%KISA_SEED_CBC::BLOCK_SIZE_SEED)
		{
			return $result;
		}

		$newpbszCipherText = array_pad(array(), $nCipherTextLen, 0);
		Common::arraycopy($newpbszCipherText, $pbszCipherText, $nCipherTextLen);

		$pbszPlainText = array_pad(array(), count($newpbszCipherText), 0);
		$nCipherTextLen = count($newpbszCipherText);

		KISA_SEED_CBC::SEED_CBC_init( $info, KISA_ENC_DEC::KISA_DECRYPT, $pbszUserKey, $pbszIV );

		$outlen = (($nCipherTextLen/16)) *4 ;
		$outbuf = array_pad(array(), $outlen, 0);
		$data = KISA_SEED_CBC::chartoint32_for_SEED_CBC($newpbszCipherText, $nCipherTextLen);
		KISA_SEED_CBC::SEED_CBC_Process( $info, $data, $nCipherTextLen, $outbuf, $nRetOutLeng );
		if(KISA_SEED_CBC::SEED_CBC_Close( $info, $outbuf, $nRetOutLeng, $nPaddingLeng ))
		{
			$cdata = KISA_SEED_CBC::int32tochar_for_SEED_CBC( $outbuf, $nRetOutLeng-$nPaddingLeng );
			Common::arraycopy($pbszPlainText, $cdata, $nRetOutLeng-$nPaddingLeng);
			$message_length = $nRetOutLeng-$nPaddingLeng;

			if($message_length < 0)
				$message_length = 0;
			$result = array_pad(array(), $message_length, 0);
			Common::arraycopy_system($pbszPlainText, 0, $result, 0, $message_length);
		}
		$data = null;
		$cdata = null;
		$outbuf = null;

		return $result;
	}

}
?>
