<?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);

        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;
    }

}

?>
