Code Coverage
 
Lines
Functions and Methods
Classes and Traits
Total
0.00%
0 / 473
0.00%
0 / 13
 CRAP
0.00%
0 / 1
Crypt_Rijndael
0.00%
0 / 473
0.00%
0 / 13
 8190
0.00%
0 / 1
 Crypt_Rijndael
0.00%
0 / 1
0.00%
0 / 1
 2
 setKey
0.00%
0 / 16
0.00%
0 / 1
 56
 setKeyLength
0.00%
0 / 16
0.00%
0 / 1
 42
 setBlockLength
0.00%
0 / 9
0.00%
0 / 1
 12
 isValidEngine
0.00%
0 / 9
0.00%
0 / 1
 30
 _setupMcrypt
0.00%
0 / 2
0.00%
0 / 1
 2
 _encryptBlock
0.00%
0 / 62
0.00%
0 / 1
 156
 _decryptBlock
0.00%
0 / 60
0.00%
0 / 1
 132
 _setupKey
0.00%
0 / 63
0.00%
0 / 1
 420
 _subWord
0.00%
0 / 7
0.00%
0 / 1
 6
 _getTables
0.00%
0 / 65
0.00%
0 / 1
 12
 _getInvTables
0.00%
0 / 65
0.00%
0 / 1
 12
 _setupInlineCrypt
0.00%
0 / 98
0.00%
0 / 1
 272
1<?php
2
3/**
4 * Pure-PHP implementation of Rijndael.
5 *
6 * Uses mcrypt, if available/possible, and an internal implementation, otherwise.
7 *
8 * PHP versions 4 and 5
9 *
10 * If {@link Crypt_Rijndael::setBlockLength() setBlockLength()} isn't called, it'll be assumed to be 128 bits.  If
11 * {@link Crypt_Rijndael::setKeyLength() setKeyLength()} isn't called, it'll be calculated from
12 * {@link Crypt_Rijndael::setKey() setKey()}.  ie. if the key is 128-bits, the key length will be 128-bits.  If it's
13 * 136-bits it'll be null-padded to 192-bits and 192 bits will be the key length until
14 * {@link Crypt_Rijndael::setKey() setKey()} is called, again, at which point, it'll be recalculated.
15 *
16 * Not all Rijndael implementations may support 160-bits or 224-bits as the block length / key length.  mcrypt, for example,
17 * does not.  AES, itself, only supports block lengths of 128 and key lengths of 128, 192, and 256.
18 * {@link http://csrc.nist.gov/archive/aes/rijndael/Rijndael-ammended.pdf#page=10 Rijndael-ammended.pdf#page=10} defines the
19 * algorithm for block lengths of 192 and 256 but not for block lengths / key lengths of 160 and 224.  Indeed, 160 and 224
20 * are first defined as valid key / block lengths in
21 * {@link http://csrc.nist.gov/archive/aes/rijndael/Rijndael-ammended.pdf#page=44 Rijndael-ammended.pdf#page=44}:
22 * Extensions: Other block and Cipher Key lengths.
23 * Note: Use of 160/224-bit Keys must be explicitly set by setKeyLength(160) respectively setKeyLength(224).
24 *
25 * {@internal The variable names are the same as those in
26 * {@link http://www.csrc.nist.gov/publications/fips/fips197/fips-197.pdf#page=10 fips-197.pdf#page=10}.}}
27 *
28 * Here's a short example of how to use this library:
29 * <code>
30 * <?php
31 *    include 'Crypt/Rijndael.php';
32 *
33 *    $rijndael = new Crypt_Rijndael();
34 *
35 *    $rijndael->setKey('abcdefghijklmnop');
36 *
37 *    $size = 10 * 1024;
38 *    $plaintext = '';
39 *    for ($i = 0; $i < $size; $i++) {
40 *        $plaintext.= 'a';
41 *    }
42 *
43 *    echo $rijndael->decrypt($rijndael->encrypt($plaintext));
44 * ?>
45 * </code>
46 *
47 * LICENSE: Permission is hereby granted, free of charge, to any person obtaining a copy
48 * of this software and associated documentation files (the "Software"), to deal
49 * in the Software without restriction, including without limitation the rights
50 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
51 * copies of the Software, and to permit persons to whom the Software is
52 * furnished to do so, subject to the following conditions:
53 *
54 * The above copyright notice and this permission notice shall be included in
55 * all copies or substantial portions of the Software.
56 *
57 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
58 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
59 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
60 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
61 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
62 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
63 * THE SOFTWARE.
64 *
65 * @category  Crypt
66 * @package   Crypt_Rijndael
67 * @author    Jim Wigginton <terrafrost@php.net>
68 * @copyright 2008 Jim Wigginton
69 * @license   http://www.opensource.org/licenses/mit-license.html  MIT License
70 * @link      http://phpseclib.sourceforge.net
71 */
72
73/**
74 * Include Crypt_Base
75 *
76 * Base cipher class
77 */
78if (!class_exists('Crypt_Base')) {
79    include_once 'Base.php';
80}
81
82/**#@+
83 * @access public
84 * @see Crypt_Rijndael::encrypt()
85 * @see Crypt_Rijndael::decrypt()
86 */
87/**
88 * Encrypt / decrypt using the Counter mode.
89 *
90 * Set to -1 since that's what Crypt/Random.php uses to index the CTR mode.
91 *
92 * @link http://en.wikipedia.org/wiki/Block_cipher_modes_of_operation#Counter_.28CTR.29
93 */
94define('CRYPT_RIJNDAEL_MODE_CTR', CRYPT_MODE_CTR);
95/**
96 * Encrypt / decrypt using the Electronic Code Book mode.
97 *
98 * @link http://en.wikipedia.org/wiki/Block_cipher_modes_of_operation#Electronic_codebook_.28ECB.29
99 */
100define('CRYPT_RIJNDAEL_MODE_ECB', CRYPT_MODE_ECB);
101/**
102 * Encrypt / decrypt using the Code Book Chaining mode.
103 *
104 * @link http://en.wikipedia.org/wiki/Block_cipher_modes_of_operation#Cipher-block_chaining_.28CBC.29
105 */
106define('CRYPT_RIJNDAEL_MODE_CBC', CRYPT_MODE_CBC);
107/**
108 * Encrypt / decrypt using the Cipher Feedback mode.
109 *
110 * @link http://en.wikipedia.org/wiki/Block_cipher_modes_of_operation#Cipher_feedback_.28CFB.29
111 */
112define('CRYPT_RIJNDAEL_MODE_CFB', CRYPT_MODE_CFB);
113/**
114 * Encrypt / decrypt using the Cipher Feedback mode.
115 *
116 * @link http://en.wikipedia.org/wiki/Block_cipher_modes_of_operation#Output_feedback_.28OFB.29
117 */
118define('CRYPT_RIJNDAEL_MODE_OFB', CRYPT_MODE_OFB);
119/**#@-*/
120
121/**
122 * Pure-PHP implementation of Rijndael.
123 *
124 * @package Crypt_Rijndael
125 * @author  Jim Wigginton <terrafrost@php.net>
126 * @access  public
127 */
128class Crypt_Rijndael extends Crypt_Base
129{
130    /**
131     * The default password key_size used by setPassword()
132     *
133     * @see Crypt_Base::password_key_size
134     * @see Crypt_Base::setPassword()
135     * @var Integer
136     * @access private
137     */
138    var $password_key_size = 16;
139
140    /**
141     * The namespace used by the cipher for its constants.
142     *
143     * @see Crypt_Base::const_namespace
144     * @var String
145     * @access private
146     */
147    var $const_namespace = 'RIJNDAEL';
148
149    /**
150     * The mcrypt specific name of the cipher
151     *
152     * Mcrypt is useable for 128/192/256-bit $block_size/$key_size. For 160/224 not.
153     * Crypt_Rijndael determines automatically whether mcrypt is useable
154     * or not for the current $block_size/$key_size.
155     * In case of, $cipher_name_mcrypt will be set dynamically at run time accordingly.
156     *
157     * @see Crypt_Base::cipher_name_mcrypt
158     * @see Crypt_Base::engine
159     * @see isValidEngine()
160     * @var String
161     * @access private
162     */
163    var $cipher_name_mcrypt = 'rijndael-128';
164
165    /**
166     * The default salt used by setPassword()
167     *
168     * @see Crypt_Base::password_default_salt
169     * @see Crypt_Base::setPassword()
170     * @var String
171     * @access private
172     */
173    var $password_default_salt = 'phpseclib';
174
175    /**
176     * Has the key length explicitly been set or should it be derived from the key, itself?
177     *
178     * @see setKeyLength()
179     * @var Boolean
180     * @access private
181     */
182    var $explicit_key_length = false;
183
184    /**
185     * The Key Schedule
186     *
187     * @see _setup()
188     * @var Array
189     * @access private
190     */
191    var $w;
192
193    /**
194     * The Inverse Key Schedule
195     *
196     * @see _setup()
197     * @var Array
198     * @access private
199     */
200    var $dw;
201
202    /**
203     * The Block Length divided by 32
204     *
205     * @see setBlockLength()
206     * @var Integer
207     * @access private
208     * @internal The max value is 256 / 32 = 8, the min value is 128 / 32 = 4.  Exists in conjunction with $block_size
209     *    because the encryption / decryption / key schedule creation requires this number and not $block_size.  We could
210     *    derive this from $block_size or vice versa, but that'd mean we'd have to do multiple shift operations, so in lieu
211     *    of that, we'll just precompute it once.
212     */
213    var $Nb = 4;
214
215    /**
216     * The Key Length
217     *
218     * @see setKeyLength()
219     * @var Integer
220     * @access private
221     * @internal The max value is 256 / 8 = 32, the min value is 128 / 8 = 16.  Exists in conjunction with $Nk
222     *    because the encryption / decryption / key schedule creation requires this number and not $key_size.  We could
223     *    derive this from $key_size or vice versa, but that'd mean we'd have to do multiple shift operations, so in lieu
224     *    of that, we'll just precompute it once.
225     */
226    var $key_size = 16;
227
228    /**
229     * The Key Length divided by 32
230     *
231     * @see setKeyLength()
232     * @var Integer
233     * @access private
234     * @internal The max value is 256 / 32 = 8, the min value is 128 / 32 = 4
235     */
236    var $Nk = 4;
237
238    /**
239     * The Number of Rounds
240     *
241     * @var Integer
242     * @access private
243     * @internal The max value is 14, the min value is 10.
244     */
245    var $Nr;
246
247    /**
248     * Shift offsets
249     *
250     * @var Array
251     * @access private
252     */
253    var $c;
254
255    /**
256     * Holds the last used key- and block_size information
257     *
258     * @var Array
259     * @access private
260     */
261    var $kl;
262
263    /**
264     * Default Constructor.
265     *
266     * Determines whether or not the mcrypt extension should be used.
267     *
268     * $mode could be:
269     *
270     * - CRYPT_RIJNDAEL_MODE_ECB
271     *
272     * - CRYPT_RIJNDAEL_MODE_CBC
273     *
274     * - CRYPT_RIJNDAEL_MODE_CTR
275     *
276     * - CRYPT_RIJNDAEL_MODE_CFB
277     *
278     * - CRYPT_RIJNDAEL_MODE_OFB
279     *
280     * If not explictly set, CRYPT_RIJNDAEL_MODE_CBC will be used.
281     *
282     * @see Crypt_Base::Crypt_Base()
283     * @param optional Integer $mode
284     * @access public
285     */
286    function Crypt_Rijndael($mode = CRYPT_RIJNDAEL_MODE_CBC)
287    {
288        parent::Crypt_Base($mode);
289    }
290
291    /**
292     * Sets the key.
293     *
294     * Keys can be of any length.  Rijndael, itself, requires the use of a key that's between 128-bits and 256-bits long and
295     * whose length is a multiple of 32.  If the key is less than 256-bits and the key length isn't set, we round the length
296     * up to the closest valid key length, padding $key with null bytes.  If the key is more than 256-bits, we trim the
297     * excess bits.
298     *
299     * If the key is not explicitly set, it'll be assumed to be all null bytes.
300     *
301     * Note: 160/224-bit keys must explicitly set by setKeyLength(), otherwise they will be round/pad up to 192/256 bits.
302     *
303     * @see Crypt_Base:setKey()
304     * @see setKeyLength()
305     * @access public
306     * @param String $key
307     */
308    function setKey($key)
309    {
310        if (!$this->explicit_key_length) {
311            $length = strlen($key);
312            switch (true) {
313                case $length <= 16:
314                    $this->key_size = 16;
315                    break;
316                case $length <= 20:
317                    $this->key_size = 20;
318                    break;
319                case $length <= 24:
320                    $this->key_size = 24;
321                    break;
322                case $length <= 28:
323                    $this->key_size = 28;
324                    break;
325                default:
326                    $this->key_size = 32;
327            }
328        }
329        parent::setKey($key);
330    }
331
332    /**
333     * Sets the key length
334     *
335     * Valid key lengths are 128, 160, 192, 224, and 256.  If the length is less than 128, it will be rounded up to
336     * 128.  If the length is greater than 128 and invalid, it will be rounded down to the closest valid amount.
337     *
338     * Note: phpseclib extends Rijndael (and AES) for using 160- and 224-bit keys but they are officially not defined
339     *       and the most (if not all) implementations are not able using 160/224-bit keys but round/pad them up to
340     *       192/256 bits as, for example, mcrypt will do.
341     *
342     *       That said, if you want be compatible with other Rijndael and AES implementations,
343     *       you should not setKeyLength(160) or setKeyLength(224).
344     *
345     * Additional: In case of 160- and 224-bit keys, phpseclib will/can, for that reason, not use
346     *             the mcrypt php extension, even if available.
347     *             This results then in slower encryption.
348     *
349     * @access public
350     * @param Integer $length
351     */
352    function setKeyLength($length)
353    {
354        switch (true) {
355            case $length == 160:
356                $this->key_size = 20;
357                break;
358            case $length == 224:
359                $this->key_size = 28;
360                break;
361            case $length <= 128:
362                $this->key_size = 16;
363                break;
364            case $length <= 192:
365                $this->key_size = 24;
366                break;
367            default:
368                $this->key_size = 32;
369        }
370
371        $this->explicit_key_length = true;
372        $this->changed = true;
373        $this->_setEngine();
374    }
375
376    /**
377     * Sets the block length
378     *
379     * Valid block lengths are 128, 160, 192, 224, and 256.  If the length is less than 128, it will be rounded up to
380     * 128.  If the length is greater than 128 and invalid, it will be rounded down to the closest valid amount.
381     *
382     * @access public
383     * @param Integer $length
384     */
385    function setBlockLength($length)
386    {
387        $length >>= 5;
388        if ($length > 8) {
389            $length = 8;
390        } elseif ($length < 4) {
391            $length = 4;
392        }
393        $this->Nb = $length;
394        $this->block_size = $length << 2;
395        $this->changed = true;
396        $this->_setEngine();
397    }
398
399    /**
400     * Test for engine validity
401     *
402     * This is mainly just a wrapper to set things up for Crypt_Base::isValidEngine()
403     *
404     * @see Crypt_Base::Crypt_Base()
405     * @param Integer $engine
406     * @access public
407     * @return Boolean
408     */
409    function isValidEngine($engine)
410    {
411        switch ($engine) {
412            case CRYPT_ENGINE_OPENSSL:
413                if ($this->block_size != 16) {
414                    return false;
415                }
416                $this->cipher_name_openssl_ecb = 'aes-' . ($this->key_size << 3) . '-ecb';
417                $this->cipher_name_openssl = 'aes-' . ($this->key_size << 3) . '-' . $this->_openssl_translate_mode();
418                break;
419            case CRYPT_ENGINE_MCRYPT:
420                $this->cipher_name_mcrypt = 'rijndael-' . ($this->block_size << 3);
421                if ($this->key_size % 8) { // is it a 160/224-bit key?
422                    // mcrypt is not usable for them, only for 128/192/256-bit keys
423                    return false;
424                }
425        }
426
427        return parent::isValidEngine($engine);
428    }
429
430    /**
431     * Setup the CRYPT_ENGINE_MCRYPT $engine
432     *
433     * @see Crypt_Base::_setupMcrypt()
434     * @access private
435     */
436    function _setupMcrypt()
437    {
438        $this->key = str_pad(substr($this->key, 0, $this->key_size), $this->key_size, "\0");
439        parent::_setupMcrypt();
440    }
441
442    /**
443     * Encrypts a block
444     *
445     * @access private
446     * @param String $in
447     * @return String
448     */
449    function _encryptBlock($in)
450    {
451        static $tables;
452        if (empty($tables)) {
453            $tables = &$this->_getTables();
454        }
455        $t0   = $tables[0];
456        $t1   = $tables[1];
457        $t2   = $tables[2];
458        $t3   = $tables[3];
459        $sbox = $tables[4];
460
461        $state = array();
462        $words = unpack('N*', $in);
463
464        $c = $this->c;
465        $w = $this->w;
466        $Nb = $this->Nb;
467        $Nr = $this->Nr;
468
469        // addRoundKey
470        $wc = $Nb - 1;
471        foreach ($words as $word) {
472            $state[] = $word ^ $w[++$wc];
473        }
474
475        // fips-197.pdf#page=19, "Figure 5. Pseudo Code for the Cipher", states that this loop has four components -
476        // subBytes, shiftRows, mixColumns, and addRoundKey. fips-197.pdf#page=30, "Implementation Suggestions Regarding
477        // Various Platforms" suggests that performs enhanced implementations are described in Rijndael-ammended.pdf.
478        // Rijndael-ammended.pdf#page=20, "Implementation aspects / 32-bit processor", discusses such an optimization.
479        // Unfortunately, the description given there is not quite correct.  Per aes.spec.v316.pdf#page=19 [1],
480        // equation (7.4.7) is supposed to use addition instead of subtraction, so we'll do that here, as well.
481
482        // [1] http://fp.gladman.plus.com/cryptography_technology/rijndael/aes.spec.v316.pdf
483        $temp = array();
484        for ($round = 1; $round < $Nr; ++$round) {
485            $i = 0; // $c[0] == 0
486            $j = $c[1];
487            $k = $c[2];
488            $l = $c[3];
489
490            while ($i < $Nb) {
491                $temp[$i] = $t0[$state[$i] >> 24 & 0x000000FF] ^
492                            $t1[$state[$j] >> 16 & 0x000000FF] ^
493                            $t2[$state[$k] >>  8 & 0x000000FF] ^
494                            $t3[$state[$l]       & 0x000000FF] ^
495                            $w[++$wc];
496                ++$i;
497                $j = ($j + 1) % $Nb;
498                $k = ($k + 1) % $Nb;
499                $l = ($l + 1) % $Nb;
500            }
501            $state = $temp;
502        }
503
504        // subWord
505        for ($i = 0; $i < $Nb; ++$i) {
506            $state[$i] =   $sbox[$state[$i]       & 0x000000FF]        |
507                          ($sbox[$state[$i] >>  8 & 0x000000FF] <<  8) |
508                          ($sbox[$state[$i] >> 16 & 0x000000FF] << 16) |
509                          ($sbox[$state[$i] >> 24 & 0x000000FF] << 24);
510        }
511
512        // shiftRows + addRoundKey
513        $i = 0; // $c[0] == 0
514        $j = $c[1];
515        $k = $c[2];
516        $l = $c[3];
517        while ($i < $Nb) {
518            $temp[$i] = ($state[$i] & 0xFF000000) ^
519                        ($state[$j] & 0x00FF0000) ^
520                        ($state[$k] & 0x0000FF00) ^
521                        ($state[$l] & 0x000000FF) ^
522                         $w[$i];
523            ++$i;
524            $j = ($j + 1) % $Nb;
525            $k = ($k + 1) % $Nb;
526            $l = ($l + 1) % $Nb;
527        }
528
529        switch ($Nb) {
530            case 8:
531                return pack('N*', $temp[0], $temp[1], $temp[2], $temp[3], $temp[4], $temp[5], $temp[6], $temp[7]);
532            case 7:
533                return pack('N*', $temp[0], $temp[1], $temp[2], $temp[3], $temp[4], $temp[5], $temp[6]);
534            case 6:
535                return pack('N*', $temp[0], $temp[1], $temp[2], $temp[3], $temp[4], $temp[5]);
536            case 5:
537                return pack('N*', $temp[0], $temp[1], $temp[2], $temp[3], $temp[4]);
538            default:
539                return pack('N*', $temp[0], $temp[1], $temp[2], $temp[3]);
540        }
541    }
542
543    /**
544     * Decrypts a block
545     *
546     * @access private
547     * @param String $in
548     * @return String
549     */
550    function _decryptBlock($in)
551    {
552        static $invtables;
553        if (empty($invtables)) {
554            $invtables = &$this->_getInvTables();
555        }
556        $dt0   = $invtables[0];
557        $dt1   = $invtables[1];
558        $dt2   = $invtables[2];
559        $dt3   = $invtables[3];
560        $isbox = $invtables[4];
561
562        $state = array();
563        $words = unpack('N*', $in);
564
565        $c  = $this->c;
566        $dw = $this->dw;
567        $Nb = $this->Nb;
568        $Nr = $this->Nr;
569
570        // addRoundKey
571        $wc = $Nb - 1;
572        foreach ($words as $word) {
573            $state[] = $word ^ $dw[++$wc];
574        }
575
576        $temp = array();
577        for ($round = $Nr - 1; $round > 0; --$round) {
578            $i = 0; // $c[0] == 0
579            $j = $Nb - $c[1];
580            $k = $Nb - $c[2];
581            $l = $Nb - $c[3];
582
583            while ($i < $Nb) {
584                $temp[$i] = $dt0[$state[$i] >> 24 & 0x000000FF] ^
585                            $dt1[$state[$j] >> 16 & 0x000000FF] ^
586                            $dt2[$state[$k] >>  8 & 0x000000FF] ^
587                            $dt3[$state[$l]       & 0x000000FF] ^
588                            $dw[++$wc];
589                ++$i;
590                $j = ($j + 1) % $Nb;
591                $k = ($k + 1) % $Nb;
592                $l = ($l + 1) % $Nb;
593            }
594            $state = $temp;
595        }
596
597        // invShiftRows + invSubWord + addRoundKey
598        $i = 0; // $c[0] == 0
599        $j = $Nb - $c[1];
600        $k = $Nb - $c[2];
601        $l = $Nb - $c[3];
602
603        while ($i < $Nb) {
604            $word = ($state[$i] & 0xFF000000) |
605                    ($state[$j] & 0x00FF0000) |
606                    ($state[$k] & 0x0000FF00) |
607                    ($state[$l] & 0x000000FF);
608
609            $temp[$i] = $dw[$i] ^ ($isbox[$word       & 0x000000FF]        |
610                                  ($isbox[$word >>  8 & 0x000000FF] <<  8) |
611                                  ($isbox[$word >> 16 & 0x000000FF] << 16) |
612                                  ($isbox[$word >> 24 & 0x000000FF] << 24));
613            ++$i;
614            $j = ($j + 1) % $Nb;
615            $k = ($k + 1) % $Nb;
616            $l = ($l + 1) % $Nb;
617        }
618
619        switch ($Nb) {
620            case 8:
621                return pack('N*', $temp[0], $temp[1], $temp[2], $temp[3], $temp[4], $temp[5], $temp[6], $temp[7]);
622            case 7:
623                return pack('N*', $temp[0], $temp[1], $temp[2], $temp[3], $temp[4], $temp[5], $temp[6]);
624            case 6:
625                return pack('N*', $temp[0], $temp[1], $temp[2], $temp[3], $temp[4], $temp[5]);
626            case 5:
627                return pack('N*', $temp[0], $temp[1], $temp[2], $temp[3], $temp[4]);
628            default:
629                return pack('N*', $temp[0], $temp[1], $temp[2], $temp[3]);
630        }
631    }
632
633    /**
634     * Setup the key (expansion)
635     *
636     * @see Crypt_Base::_setupKey()
637     * @access private
638     */
639    function _setupKey()
640    {
641        // Each number in $rcon is equal to the previous number multiplied by two in Rijndael's finite field.
642        // See http://en.wikipedia.org/wiki/Finite_field_arithmetic#Multiplicative_inverse
643        static $rcon = array(0,
644            0x01000000, 0x02000000, 0x04000000, 0x08000000, 0x10000000,
645            0x20000000, 0x40000000, 0x80000000, 0x1B000000, 0x36000000,
646            0x6C000000, 0xD8000000, 0xAB000000, 0x4D000000, 0x9A000000,
647            0x2F000000, 0x5E000000, 0xBC000000, 0x63000000, 0xC6000000,
648            0x97000000, 0x35000000, 0x6A000000, 0xD4000000, 0xB3000000,
649            0x7D000000, 0xFA000000, 0xEF000000, 0xC5000000, 0x91000000
650        );
651
652        $this->key = str_pad(substr($this->key, 0, $this->key_size), $this->key_size, "\0");
653
654        if (isset($this->kl['key']) && $this->key === $this->kl['key'] && $this->key_size === $this->kl['key_size'] && $this->block_size === $this->kl['block_size']) {
655            // already expanded
656            return;
657        }
658        $this->kl = array('key' => $this->key, 'key_size' => $this->key_size, 'block_size' => $this->block_size);
659
660        $this->Nk = $this->key_size >> 2;
661        // see Rijndael-ammended.pdf#page=44
662        $this->Nr = max($this->Nk, $this->Nb) + 6;
663
664        // shift offsets for Nb = 5, 7 are defined in Rijndael-ammended.pdf#page=44,
665        //     "Table 8: Shift offsets in Shiftrow for the alternative block lengths"
666        // shift offsets for Nb = 4, 6, 8 are defined in Rijndael-ammended.pdf#page=14,
667        //     "Table 2: Shift offsets for different block lengths"
668        switch ($this->Nb) {
669            case 4:
670            case 5:
671            case 6:
672                $this->c = array(0, 1, 2, 3);
673                break;
674            case 7:
675                $this->c = array(0, 1, 2, 4);
676                break;
677            case 8:
678                $this->c = array(0, 1, 3, 4);
679        }
680
681        $w = array_values(unpack('N*words', $this->key));
682
683        $length = $this->Nb * ($this->Nr + 1);
684        for ($i = $this->Nk; $i < $length; $i++) {
685            $temp = $w[$i - 1];
686            if ($i % $this->Nk == 0) {
687                // according to <http://php.net/language.types.integer>, "the size of an integer is platform-dependent".
688                // on a 32-bit machine, it's 32-bits, and on a 64-bit machine, it's 64-bits. on a 32-bit machine,
689                // 0xFFFFFFFF << 8 == 0xFFFFFF00, but on a 64-bit machine, it equals 0xFFFFFFFF00. as such, doing 'and'
690                // with 0xFFFFFFFF (or 0xFFFFFF00) on a 32-bit machine is unnecessary, but on a 64-bit machine, it is.
691                $temp = (($temp << 8) & 0xFFFFFF00) | (($temp >> 24) & 0x000000FF); // rotWord
692                $temp = $this->_subWord($temp) ^ $rcon[$i / $this->Nk];
693            } elseif ($this->Nk > 6 && $i % $this->Nk == 4) {
694                $temp = $this->_subWord($temp);
695            }
696            $w[$i] = $w[$i - $this->Nk] ^ $temp;
697        }
698
699        // convert the key schedule from a vector of $Nb * ($Nr + 1) length to a matrix with $Nr + 1 rows and $Nb columns
700        // and generate the inverse key schedule.  more specifically,
701        // according to <http://csrc.nist.gov/archive/aes/rijndael/Rijndael-ammended.pdf#page=23> (section 5.3.3),
702        // "The key expansion for the Inverse Cipher is defined as follows:
703        //        1. Apply the Key Expansion.
704        //        2. Apply InvMixColumn to all Round Keys except the first and the last one."
705        // also, see fips-197.pdf#page=27, "5.3.5 Equivalent Inverse Cipher"
706        list($dt0, $dt1, $dt2, $dt3) = $this->_getInvTables();
707        $temp = $this->w = $this->dw = array();
708        for ($i = $row = $col = 0; $i < $length; $i++, $col++) {
709            if ($col == $this->Nb) {
710                if ($row == 0) {
711                    $this->dw[0] = $this->w[0];
712                } else {
713                    // subWord + invMixColumn + invSubWord = invMixColumn
714                    $j = 0;
715                    while ($j < $this->Nb) {
716                        $dw = $this->_subWord($this->w[$row][$j]);
717                        $temp[$j] = $dt0[$dw >> 24 & 0x000000FF] ^
718                                    $dt1[$dw >> 16 & 0x000000FF] ^
719                                    $dt2[$dw >>  8 & 0x000000FF] ^
720                                    $dt3[$dw       & 0x000000FF];
721                        $j++;
722                    }
723                    $this->dw[$row] = $temp;
724                }
725
726                $col = 0;
727                $row++;
728            }
729            $this->w[$row][$col] = $w[$i];
730        }
731
732        $this->dw[$row] = $this->w[$row];
733
734        // Converting to 1-dim key arrays (both ascending)
735        $this->dw = array_reverse($this->dw);
736        $w  = array_pop($this->w);
737        $dw = array_pop($this->dw);
738        foreach ($this->w as $r => $wr) {
739            foreach ($wr as $c => $wc) {
740                $w[]  = $wc;
741                $dw[] = $this->dw[$r][$c];
742            }
743        }
744        $this->w  = $w;
745        $this->dw = $dw;
746    }
747
748    /**
749     * Performs S-Box substitutions
750     *
751     * @access private
752     * @param Integer $word
753     */
754    function _subWord($word)
755    {
756        static $sbox;
757        if (empty($sbox)) {
758            list(,,,, $sbox) = $this->_getTables();
759        }
760
761        return  $sbox[$word       & 0x000000FF]        |
762               ($sbox[$word >>  8 & 0x000000FF] <<  8) |
763               ($sbox[$word >> 16 & 0x000000FF] << 16) |
764               ($sbox[$word >> 24 & 0x000000FF] << 24);
765    }
766
767    /**
768     * Provides the mixColumns and sboxes tables
769     *
770     * @see Crypt_Rijndael:_encryptBlock()
771     * @see Crypt_Rijndael:_setupInlineCrypt()
772     * @see Crypt_Rijndael:_subWord()
773     * @access private
774     * @return Array &$tables
775     */
776    function &_getTables()
777    {
778        static $tables;
779        if (empty($tables)) {
780            // according to <http://csrc.nist.gov/archive/aes/rijndael/Rijndael-ammended.pdf#page=19> (section 5.2.1),
781            // precomputed tables can be used in the mixColumns phase. in that example, they're assigned t0...t3, so
782            // those are the names we'll use.
783            $t3 = array_map('intval', array(
784                // with array_map('intval', ...) we ensure we have only int's and not
785                // some slower floats converted by php automatically on high values
786                0x6363A5C6, 0x7C7C84F8, 0x777799EE, 0x7B7B8DF6, 0xF2F20DFF, 0x6B6BBDD6, 0x6F6FB1DE, 0xC5C55491,
787                0x30305060, 0x01010302, 0x6767A9CE, 0x2B2B7D56, 0xFEFE19E7, 0xD7D762B5, 0xABABE64D, 0x76769AEC,
788                0xCACA458F, 0x82829D1F, 0xC9C94089, 0x7D7D87FA, 0xFAFA15EF, 0x5959EBB2, 0x4747C98E, 0xF0F00BFB,
789                0xADADEC41, 0xD4D467B3, 0xA2A2FD5F, 0xAFAFEA45, 0x9C9CBF23, 0xA4A4F753, 0x727296E4, 0xC0C05B9B,
790                0xB7B7C275, 0xFDFD1CE1, 0x9393AE3D, 0x26266A4C, 0x36365A6C, 0x3F3F417E, 0xF7F702F5, 0xCCCC4F83,
791                0x34345C68, 0xA5A5F451, 0xE5E534D1, 0xF1F108F9, 0x717193E2, 0xD8D873AB, 0x31315362, 0x15153F2A,
792                0x04040C08, 0xC7C75295, 0x23236546, 0xC3C35E9D, 0x18182830, 0x9696A137, 0x05050F0A, 0x9A9AB52F,
793                0x0707090E, 0x12123624, 0x80809B1B, 0xE2E23DDF, 0xEBEB26CD, 0x2727694E, 0xB2B2CD7F, 0x75759FEA,
794                0x09091B12, 0x83839E1D, 0x2C2C7458, 0x1A1A2E34, 0x1B1B2D36, 0x6E6EB2DC, 0x5A5AEEB4, 0xA0A0FB5B,
795                0x5252F6A4, 0x3B3B4D76, 0xD6D661B7, 0xB3B3CE7D, 0x29297B52, 0xE3E33EDD, 0x2F2F715E, 0x84849713,
796                0x5353F5A6, 0xD1D168B9, 0x00000000, 0xEDED2CC1, 0x20206040, 0xFCFC1FE3, 0xB1B1C879, 0x5B5BEDB6,
797                0x6A6ABED4, 0xCBCB468D, 0xBEBED967, 0x39394B72, 0x4A4ADE94, 0x4C4CD498, 0x5858E8B0, 0xCFCF4A85,
798                0xD0D06BBB, 0xEFEF2AC5, 0xAAAAE54F, 0xFBFB16ED, 0x4343C586, 0x4D4DD79A, 0x33335566, 0x85859411,
799                0x4545CF8A, 0xF9F910E9, 0x02020604, 0x7F7F81FE, 0x5050F0A0, 0x3C3C4478, 0x9F9FBA25, 0xA8A8E34B,
800                0x5151F3A2, 0xA3A3FE5D, 0x4040C080, 0x8F8F8A05, 0x9292AD3F, 0x9D9DBC21, 0x38384870, 0xF5F504F1,
801                0xBCBCDF63, 0xB6B6C177, 0xDADA75AF, 0x21216342, 0x10103020, 0xFFFF1AE5, 0xF3F30EFD, 0xD2D26DBF,
802                0xCDCD4C81, 0x0C0C1418, 0x13133526, 0xECEC2FC3, 0x5F5FE1BE, 0x9797A235, 0x4444CC88, 0x1717392E,
803                0xC4C45793, 0xA7A7F255, 0x7E7E82FC, 0x3D3D477A, 0x6464ACC8, 0x5D5DE7BA, 0x19192B32, 0x737395E6,
804                0x6060A0C0, 0x81819819, 0x4F4FD19E, 0xDCDC7FA3, 0x22226644, 0x2A2A7E54, 0x9090AB3B, 0x8888830B,
805                0x4646CA8C, 0xEEEE29C7, 0xB8B8D36B, 0x14143C28, 0xDEDE79A7, 0x5E5EE2BC, 0x0B0B1D16, 0xDBDB76AD,
806                0xE0E03BDB, 0x32325664, 0x3A3A4E74, 0x0A0A1E14, 0x4949DB92, 0x06060A0C, 0x24246C48, 0x5C5CE4B8,
807                0xC2C25D9F, 0xD3D36EBD, 0xACACEF43, 0x6262A6C4, 0x9191A839, 0x9595A431, 0xE4E437D3, 0x79798BF2,
808                0xE7E732D5, 0xC8C8438B, 0x3737596E, 0x6D6DB7DA, 0x8D8D8C01, 0xD5D564B1, 0x4E4ED29C, 0xA9A9E049,
809                0x6C6CB4D8, 0x5656FAAC, 0xF4F407F3, 0xEAEA25CF, 0x6565AFCA, 0x7A7A8EF4, 0xAEAEE947, 0x08081810,
810                0xBABAD56F, 0x787888F0, 0x25256F4A, 0x2E2E725C, 0x1C1C2438, 0xA6A6F157, 0xB4B4C773, 0xC6C65197,
811                0xE8E823CB, 0xDDDD7CA1, 0x74749CE8, 0x1F1F213E, 0x4B4BDD96, 0xBDBDDC61, 0x8B8B860D, 0x8A8A850F,
812                0x707090E0, 0x3E3E427C, 0xB5B5C471, 0x6666AACC, 0x4848D890, 0x03030506, 0xF6F601F7, 0x0E0E121C,
813                0x6161A3C2, 0x35355F6A, 0x5757F9AE, 0xB9B9D069, 0x86869117, 0xC1C15899, 0x1D1D273A, 0x9E9EB927,
814                0xE1E138D9, 0xF8F813EB, 0x9898B32B, 0x11113322, 0x6969BBD2, 0xD9D970A9, 0x8E8E8907, 0x9494A733,
815                0x9B9BB62D, 0x1E1E223C, 0x87879215, 0xE9E920C9, 0xCECE4987, 0x5555FFAA, 0x28287850, 0xDFDF7AA5,
816                0x8C8C8F03, 0xA1A1F859, 0x89898009, 0x0D0D171A, 0xBFBFDA65, 0xE6E631D7, 0x4242C684, 0x6868B8D0,
817                0x4141C382, 0x9999B029, 0x2D2D775A, 0x0F0F111E, 0xB0B0CB7B, 0x5454FCA8, 0xBBBBD66D, 0x16163A2C
818            ));
819
820            foreach ($t3 as $t3i) {
821                $t0[] = (($t3i << 24) & 0xFF000000) | (($t3i >>  8) & 0x00FFFFFF);
822                $t1[] = (($t3i << 16) & 0xFFFF0000) | (($t3i >> 16) & 0x0000FFFF);
823                $t2[] = (($t3i <<  8) & 0xFFFFFF00) | (($t3i >> 24) & 0x000000FF);
824            }
825
826            $tables = array(
827                // The Precomputed mixColumns tables t0 - t3
828                $t0,
829                $t1,
830                $t2,
831                $t3,
832                // The SubByte S-Box
833                array(
834                    0x63, 0x7C, 0x77, 0x7B, 0xF2, 0x6B, 0x6F, 0xC5, 0x30, 0x01, 0x67, 0x2B, 0xFE, 0xD7, 0xAB, 0x76,
835                    0xCA, 0x82, 0xC9, 0x7D, 0xFA, 0x59, 0x47, 0xF0, 0xAD, 0xD4, 0xA2, 0xAF, 0x9C, 0xA4, 0x72, 0xC0,
836                    0xB7, 0xFD, 0x93, 0x26, 0x36, 0x3F, 0xF7, 0xCC, 0x34, 0xA5, 0xE5, 0xF1, 0x71, 0xD8, 0x31, 0x15,
837                    0x04, 0xC7, 0x23, 0xC3, 0x18, 0x96, 0x05, 0x9A, 0x07, 0x12, 0x80, 0xE2, 0xEB, 0x27, 0xB2, 0x75,
838                    0x09, 0x83, 0x2C, 0x1A, 0x1B, 0x6E, 0x5A, 0xA0, 0x52, 0x3B, 0xD6, 0xB3, 0x29, 0xE3, 0x2F, 0x84,
839                    0x53, 0xD1, 0x00, 0xED, 0x20, 0xFC, 0xB1, 0x5B, 0x6A, 0xCB, 0xBE, 0x39, 0x4A, 0x4C, 0x58, 0xCF,
840                    0xD0, 0xEF, 0xAA, 0xFB, 0x43, 0x4D, 0x33, 0x85, 0x45, 0xF9, 0x02, 0x7F, 0x50, 0x3C, 0x9F, 0xA8,
841                    0x51, 0xA3, 0x40, 0x8F, 0x92, 0x9D, 0x38, 0xF5, 0xBC, 0xB6, 0xDA, 0x21, 0x10, 0xFF, 0xF3, 0xD2,
842                    0xCD, 0x0C, 0x13, 0xEC, 0x5F, 0x97, 0x44, 0x17, 0xC4, 0xA7, 0x7E, 0x3D, 0x64, 0x5D, 0x19, 0x73,
843                    0x60, 0x81, 0x4F, 0xDC, 0x22, 0x2A, 0x90, 0x88, 0x46, 0xEE, 0xB8, 0x14, 0xDE, 0x5E, 0x0B, 0xDB,
844                    0xE0, 0x32, 0x3A, 0x0A, 0x49, 0x06, 0x24, 0x5C, 0xC2, 0xD3, 0xAC, 0x62, 0x91, 0x95, 0xE4, 0x79,
845                    0xE7, 0xC8, 0x37, 0x6D, 0x8D, 0xD5, 0x4E, 0xA9, 0x6C, 0x56, 0xF4, 0xEA, 0x65, 0x7A, 0xAE, 0x08,
846                    0xBA, 0x78, 0x25, 0x2E, 0x1C, 0xA6, 0xB4, 0xC6, 0xE8, 0xDD, 0x74, 0x1F, 0x4B, 0xBD, 0x8B, 0x8A,
847                    0x70, 0x3E, 0xB5, 0x66, 0x48, 0x03, 0xF6, 0x0E, 0x61, 0x35, 0x57, 0xB9, 0x86, 0xC1, 0x1D, 0x9E,
848                    0xE1, 0xF8, 0x98, 0x11, 0x69, 0xD9, 0x8E, 0x94, 0x9B, 0x1E, 0x87, 0xE9, 0xCE, 0x55, 0x28, 0xDF,
849                    0x8C, 0xA1, 0x89, 0x0D, 0xBF, 0xE6, 0x42, 0x68, 0x41, 0x99, 0x2D, 0x0F, 0xB0, 0x54, 0xBB, 0x16
850                )
851            );
852        }
853        return $tables;
854    }
855
856    /**
857     * Provides the inverse mixColumns and inverse sboxes tables
858     *
859     * @see Crypt_Rijndael:_decryptBlock()
860     * @see Crypt_Rijndael:_setupInlineCrypt()
861     * @see Crypt_Rijndael:_setupKey()
862     * @access private
863     * @return Array &$tables
864     */
865    function &_getInvTables()
866    {
867        static $tables;
868        if (empty($tables)) {
869            $dt3 = array_map('intval', array(
870                0xF4A75051, 0x4165537E, 0x17A4C31A, 0x275E963A, 0xAB6BCB3B, 0x9D45F11F, 0xFA58ABAC, 0xE303934B,
871                0x30FA5520, 0x766DF6AD, 0xCC769188, 0x024C25F5, 0xE5D7FC4F, 0x2ACBD7C5, 0x35448026, 0x62A38FB5,
872                0xB15A49DE, 0xBA1B6725, 0xEA0E9845, 0xFEC0E15D, 0x2F7502C3, 0x4CF01281, 0x4697A38D, 0xD3F9C66B,
873                0x8F5FE703, 0x929C9515, 0x6D7AEBBF, 0x5259DA95, 0xBE832DD4, 0x7421D358, 0xE0692949, 0xC9C8448E,
874                0xC2896A75, 0x8E7978F4, 0x583E6B99, 0xB971DD27, 0xE14FB6BE, 0x88AD17F0, 0x20AC66C9, 0xCE3AB47D,
875                0xDF4A1863, 0x1A3182E5, 0x51336097, 0x537F4562, 0x6477E0B1, 0x6BAE84BB, 0x81A01CFE, 0x082B94F9,
876                0x48685870, 0x45FD198F, 0xDE6C8794, 0x7BF8B752, 0x73D323AB, 0x4B02E272, 0x1F8F57E3, 0x55AB2A66,
877                0xEB2807B2, 0xB5C2032F, 0xC57B9A86, 0x3708A5D3, 0x2887F230, 0xBFA5B223, 0x036ABA02, 0x16825CED,
878                0xCF1C2B8A, 0x79B492A7, 0x07F2F0F3, 0x69E2A14E, 0xDAF4CD65, 0x05BED506, 0x34621FD1, 0xA6FE8AC4,
879                0x2E539D34, 0xF355A0A2, 0x8AE13205, 0xF6EB75A4, 0x83EC390B, 0x60EFAA40, 0x719F065E, 0x6E1051BD,
880                0x218AF93E, 0xDD063D96, 0x3E05AEDD, 0xE6BD464D, 0x548DB591, 0xC45D0571, 0x06D46F04, 0x5015FF60,
881                0x98FB2419, 0xBDE997D6, 0x4043CC89, 0xD99E7767, 0xE842BDB0, 0x898B8807, 0x195B38E7, 0xC8EEDB79,
882                0x7C0A47A1, 0x420FE97C, 0x841EC9F8, 0x00000000, 0x80868309, 0x2BED4832, 0x1170AC1E, 0x5A724E6C,
883                0x0EFFFBFD, 0x8538560F, 0xAED51E3D, 0x2D392736, 0x0FD9640A, 0x5CA62168, 0x5B54D19B, 0x362E3A24,
884                0x0A67B10C, 0x57E70F93, 0xEE96D2B4, 0x9B919E1B, 0xC0C54F80, 0xDC20A261, 0x774B695A, 0x121A161C,
885                0x93BA0AE2, 0xA02AE5C0, 0x22E0433C, 0x1B171D12, 0x090D0B0E, 0x8BC7ADF2, 0xB6A8B92D, 0x1EA9C814,
886                0xF1198557, 0x75074CAF, 0x99DDBBEE, 0x7F60FDA3, 0x01269FF7, 0x72F5BC5C, 0x663BC544, 0xFB7E345B,
887                0x4329768B, 0x23C6DCCB, 0xEDFC68B6, 0xE4F163B8, 0x31DCCAD7, 0x63851042, 0x97224013, 0xC6112084,
888                0x4A247D85, 0xBB3DF8D2, 0xF93211AE, 0x29A16DC7, 0x9E2F4B1D, 0xB230F3DC, 0x8652EC0D, 0xC1E3D077,
889                0xB3166C2B, 0x70B999A9, 0x9448FA11, 0xE9642247, 0xFC8CC4A8, 0xF03F1AA0, 0x7D2CD856, 0x3390EF22,
890                0x494EC787, 0x38D1C1D9, 0xCAA2FE8C, 0xD40B3698, 0xF581CFA6, 0x7ADE28A5, 0xB78E26DA, 0xADBFA43F,
891                0x3A9DE42C, 0x78920D50, 0x5FCC9B6A, 0x7E466254, 0x8D13C2F6, 0xD8B8E890, 0x39F75E2E, 0xC3AFF582,
892                0x5D80BE9F, 0xD0937C69, 0xD52DA96F, 0x2512B3CF, 0xAC993BC8, 0x187DA710, 0x9C636EE8, 0x3BBB7BDB,
893                0x267809CD, 0x5918F46E, 0x9AB701EC, 0x4F9AA883, 0x956E65E6, 0xFFE67EAA, 0xBCCF0821, 0x15E8E6EF,
894                0xE79BD9BA, 0x6F36CE4A, 0x9F09D4EA, 0xB07CD629, 0xA4B2AF31, 0x3F23312A, 0xA59430C6, 0xA266C035,
895                0x4EBC3774, 0x82CAA6FC, 0x90D0B0E0, 0xA7D81533, 0x04984AF1, 0xECDAF741, 0xCD500E7F, 0x91F62F17,
896                0x4DD68D76, 0xEFB04D43, 0xAA4D54CC, 0x9604DFE4, 0xD1B5E39E, 0x6A881B4C, 0x2C1FB8C1, 0x65517F46,
897                0x5EEA049D, 0x8C355D01, 0x877473FA, 0x0B412EFB, 0x671D5AB3, 0xDBD25292, 0x105633E9, 0xD647136D,
898                0xD7618C9A, 0xA10C7A37, 0xF8148E59, 0x133C89EB, 0xA927EECE, 0x61C935B7, 0x1CE5EDE1, 0x47B13C7A,
899                0xD2DF599C, 0xF2733F55, 0x14CE7918, 0xC737BF73, 0xF7CDEA53, 0xFDAA5B5F, 0x3D6F14DF, 0x44DB8678,
900                0xAFF381CA, 0x68C43EB9, 0x24342C38, 0xA3405FC2, 0x1DC37216, 0xE2250CBC, 0x3C498B28, 0x0D9541FF,
901                0xA8017139, 0x0CB3DE08, 0xB4E49CD8, 0x56C19064, 0xCB84617B, 0x32B670D5, 0x6C5C7448, 0xB85742D0
902            ));
903
904            foreach ($dt3 as $dt3i) {
905                $dt0[] = (($dt3i << 24) & 0xFF000000) | (($dt3i >>  8) & 0x00FFFFFF);
906                $dt1[] = (($dt3i << 16) & 0xFFFF0000) | (($dt3i >> 16) & 0x0000FFFF);
907                $dt2[] = (($dt3i <<  8) & 0xFFFFFF00) | (($dt3i >> 24) & 0x000000FF);
908            };
909
910            $tables = array(
911                // The Precomputed inverse mixColumns tables dt0 - dt3
912                $dt0,
913                $dt1,
914                $dt2,
915                $dt3,
916                // The inverse SubByte S-Box
917                array(
918                    0x52, 0x09, 0x6A, 0xD5, 0x30, 0x36, 0xA5, 0x38, 0xBF, 0x40, 0xA3, 0x9E, 0x81, 0xF3, 0xD7, 0xFB,
919                    0x7C, 0xE3, 0x39, 0x82, 0x9B, 0x2F, 0xFF, 0x87, 0x34, 0x8E, 0x43, 0x44, 0xC4, 0xDE, 0xE9, 0xCB,
920                    0x54, 0x7B, 0x94, 0x32, 0xA6, 0xC2, 0x23, 0x3D, 0xEE, 0x4C, 0x95, 0x0B, 0x42, 0xFA, 0xC3, 0x4E,
921                    0x08, 0x2E, 0xA1, 0x66, 0x28, 0xD9, 0x24, 0xB2, 0x76, 0x5B, 0xA2, 0x49, 0x6D, 0x8B, 0xD1, 0x25,
922                    0x72, 0xF8, 0xF6, 0x64, 0x86, 0x68, 0x98, 0x16, 0xD4, 0xA4, 0x5C, 0xCC, 0x5D, 0x65, 0xB6, 0x92,
923                    0x6C, 0x70, 0x48, 0x50, 0xFD, 0xED, 0xB9, 0xDA, 0x5E, 0x15, 0x46, 0x57, 0xA7, 0x8D, 0x9D, 0x84,
924                    0x90, 0xD8, 0xAB, 0x00, 0x8C, 0xBC, 0xD3, 0x0A, 0xF7, 0xE4, 0x58, 0x05, 0xB8, 0xB3, 0x45, 0x06,
925                    0xD0, 0x2C, 0x1E, 0x8F, 0xCA, 0x3F, 0x0F, 0x02, 0xC1, 0xAF, 0xBD, 0x03, 0x01, 0x13, 0x8A, 0x6B,
926                    0x3A, 0x91, 0x11, 0x41, 0x4F, 0x67, 0xDC, 0xEA, 0x97, 0xF2, 0xCF, 0xCE, 0xF0, 0xB4, 0xE6, 0x73,
927                    0x96, 0xAC, 0x74, 0x22, 0xE7, 0xAD, 0x35, 0x85, 0xE2, 0xF9, 0x37, 0xE8, 0x1C, 0x75, 0xDF, 0x6E,
928                    0x47, 0xF1, 0x1A, 0x71, 0x1D, 0x29, 0xC5, 0x89, 0x6F, 0xB7, 0x62, 0x0E, 0xAA, 0x18, 0xBE, 0x1B,
929                    0xFC, 0x56, 0x3E, 0x4B, 0xC6, 0xD2, 0x79, 0x20, 0x9A, 0xDB, 0xC0, 0xFE, 0x78, 0xCD, 0x5A, 0xF4,
930                    0x1F, 0xDD, 0xA8, 0x33, 0x88, 0x07, 0xC7, 0x31, 0xB1, 0x12, 0x10, 0x59, 0x27, 0x80, 0xEC, 0x5F,
931                    0x60, 0x51, 0x7F, 0xA9, 0x19, 0xB5, 0x4A, 0x0D, 0x2D, 0xE5, 0x7A, 0x9F, 0x93, 0xC9, 0x9C, 0xEF,
932                    0xA0, 0xE0, 0x3B, 0x4D, 0xAE, 0x2A, 0xF5, 0xB0, 0xC8, 0xEB, 0xBB, 0x3C, 0x83, 0x53, 0x99, 0x61,
933                    0x17, 0x2B, 0x04, 0x7E, 0xBA, 0x77, 0xD6, 0x26, 0xE1, 0x69, 0x14, 0x63, 0x55, 0x21, 0x0C, 0x7D
934                )
935            );
936        }
937        return $tables;
938    }
939
940    /**
941     * Setup the performance-optimized function for de/encrypt()
942     *
943     * @see Crypt_Base::_setupInlineCrypt()
944     * @access private
945     */
946    function _setupInlineCrypt()
947    {
948        // Note: _setupInlineCrypt() will be called only if $this->changed === true
949        // So here we are'nt under the same heavy timing-stress as we are in _de/encryptBlock() or de/encrypt().
950        // However...the here generated function- $code, stored as php callback in $this->inline_crypt, must work as fast as even possible.
951
952        $lambda_functions =& Crypt_Rijndael::_getLambdaFunctions();
953
954        // We create max. 10 hi-optimized code for memory reason. Means: For each $key one ultra fast inline-crypt function.
955        // (Currently, for Crypt_Rijndael/AES, one generated $lambda_function cost on php5.5@32bit ~80kb unfreeable mem and ~130kb on php5.5@64bit)
956        // After that, we'll still create very fast optimized code but not the hi-ultimative code, for each $mode one.
957        $gen_hi_opt_code = (bool)( count($lambda_functions) < 10 );
958
959        // Generation of a uniqe hash for our generated code
960        $code_hash = "Crypt_Rijndael, {$this->mode}, {$this->Nr}, {$this->Nb}";
961        if ($gen_hi_opt_code) {
962            $code_hash = str_pad($code_hash, 32) . $this->_hashInlineCryptFunction($this->key);
963        }
964
965        if (!isset($lambda_functions[$code_hash])) {
966            switch (true) {
967                case $gen_hi_opt_code:
968                    // The hi-optimized $lambda_functions will use the key-words hardcoded for better performance.
969                    $w  = $this->w;
970                    $dw = $this->dw;
971                    $init_encrypt = '';
972                    $init_decrypt = '';
973                    break;
974                default:
975                    for ($i = 0, $cw = count($this->w); $i < $cw; ++$i) {
976                        $w[]  = '$w['  . $i . ']';
977                        $dw[] = '$dw[' . $i . ']';
978                    }
979                    $init_encrypt = '$w  = $self->w;';
980                    $init_decrypt = '$dw = $self->dw;';
981            }
982
983            $Nr = $this->Nr;
984            $Nb = $this->Nb;
985            $c  = $this->c;
986
987            // Generating encrypt code:
988            $init_encrypt.= '
989                static $tables;
990                if (empty($tables)) {
991                    $tables = &$self->_getTables();
992                }
993                $t0   = $tables[0];
994                $t1   = $tables[1];
995                $t2   = $tables[2];
996                $t3   = $tables[3];
997                $sbox = $tables[4];
998            ';
999
1000            $s  = 'e';
1001            $e  = 's';
1002            $wc = $Nb - 1;
1003
1004            // Preround: addRoundKey
1005            $encrypt_block = '$in = unpack("N*", $in);'."\n";
1006            for ($i = 0; $i < $Nb; ++$i) {
1007                $encrypt_block .= '$s'.$i.' = $in['.($i + 1).'] ^ '.$w[++$wc].";\n";
1008            }
1009
1010            // Mainrounds: shiftRows + subWord + mixColumns + addRoundKey
1011            for ($round = 1; $round < $Nr; ++$round) {
1012                list($s, $e) = array($e, $s);
1013                for ($i = 0; $i < $Nb; ++$i) {
1014                    $encrypt_block.=
1015                        '$'.$e.$i.' =
1016                        $t0[($'.$s.$i                  .' >> 24) & 0xff] ^
1017                        $t1[($'.$s.(($i + $c[1]) % $Nb).' >> 16) & 0xff] ^
1018                        $t2[($'.$s.(($i + $c[2]) % $Nb).' >>  8) & 0xff] ^
1019                        $t3[ $'.$s.(($i + $c[3]) % $Nb).'        & 0xff] ^
1020                        '.$w[++$wc].";\n";
1021                }
1022            }
1023
1024            // Finalround: subWord + shiftRows + addRoundKey
1025            for ($i = 0; $i < $Nb; ++$i) {
1026                $encrypt_block.=
1027                    '$'.$e.$i.' =
1028                     $sbox[ $'.$e.$i.'        & 0xff]        |
1029                    ($sbox[($'.$e.$i.' >>  8) & 0xff] <<  8) |
1030                    ($sbox[($'.$e.$i.' >> 16) & 0xff] << 16) |
1031                    ($sbox[($'.$e.$i.' >> 24) & 0xff] << 24);'."\n";
1032            }
1033            $encrypt_block .= '$in = pack("N*"'."\n";
1034            for ($i = 0; $i < $Nb; ++$i) {
1035                $encrypt_block.= ',
1036                    ($'.$e.$i                  .' & '.((int)0xFF000000).') ^
1037                    ($'.$e.(($i + $c[1]) % $Nb).' &         0x00FF0000   ) ^
1038                    ($'.$e.(($i + $c[2]) % $Nb).' &         0x0000FF00   ) ^
1039                    ($'.$e.(($i + $c[3]) % $Nb).' &         0x000000FF   ) ^
1040                    '.$w[$i]."\n";
1041            }
1042            $encrypt_block .= ');';
1043
1044            // Generating decrypt code:
1045            $init_decrypt.= '
1046                static $invtables;
1047                if (empty($invtables)) {
1048                    $invtables = &$self->_getInvTables();
1049                }
1050                $dt0   = $invtables[0];
1051                $dt1   = $invtables[1];
1052                $dt2   = $invtables[2];
1053                $dt3   = $invtables[3];
1054                $isbox = $invtables[4];
1055            ';
1056
1057            $s  = 'e';
1058            $e  = 's';
1059            $wc = $Nb - 1;
1060
1061            // Preround: addRoundKey
1062            $decrypt_block = '$in = unpack("N*", $in);'."\n";
1063            for ($i = 0; $i < $Nb; ++$i) {
1064                $decrypt_block .= '$s'.$i.' = $in['.($i + 1).'] ^ '.$dw[++$wc].';'."\n";
1065            }
1066
1067            // Mainrounds: shiftRows + subWord + mixColumns + addRoundKey
1068            for ($round = 1; $round < $Nr; ++$round) {
1069                list($s, $e) = array($e, $s);
1070                for ($i = 0; $i < $Nb; ++$i) {
1071                    $decrypt_block.=
1072                        '$'.$e.$i.' =
1073                        $dt0[($'.$s.$i                        .' >> 24) & 0xff] ^
1074                        $dt1[($'.$s.(($Nb + $i - $c[1]) % $Nb).' >> 16) & 0xff] ^
1075                        $dt2[($'.$s.(($Nb + $i - $c[2]) % $Nb).' >>  8) & 0xff] ^
1076                        $dt3[ $'.$s.(($Nb + $i - $c[3]) % $Nb).'        & 0xff] ^
1077                        '.$dw[++$wc].";\n";
1078                }
1079            }
1080
1081            // Finalround: subWord + shiftRows + addRoundKey
1082            for ($i = 0; $i < $Nb; ++$i) {
1083                $decrypt_block.=
1084                    '$'.$e.$i.' =
1085                     $isbox[ $'.$e.$i.'        & 0xff]        |
1086                    ($isbox[($'.$e.$i.' >>  8) & 0xff] <<  8) |
1087                    ($isbox[($'.$e.$i.' >> 16) & 0xff] << 16) |
1088                    ($isbox[($'.$e.$i.' >> 24) & 0xff] << 24);'."\n";
1089            }
1090            $decrypt_block .= '$in = pack("N*"'."\n";
1091            for ($i = 0; $i < $Nb; ++$i) {
1092                $decrypt_block.= ',
1093                    ($'.$e.$i.                        ' & '.((int)0xFF000000).') ^
1094                    ($'.$e.(($Nb + $i - $c[1]) % $Nb).' &         0x00FF0000   ) ^
1095                    ($'.$e.(($Nb + $i - $c[2]) % $Nb).' &         0x0000FF00   ) ^
1096                    ($'.$e.(($Nb + $i - $c[3]) % $Nb).' &         0x000000FF   ) ^
1097                    '.$dw[$i]."\n";
1098            }
1099            $decrypt_block .= ');';
1100
1101            $lambda_functions[$code_hash] = $this->_createInlineCryptFunction(
1102                array(
1103                   'init_crypt'    => '',
1104                   'init_encrypt'  => $init_encrypt,
1105                   'init_decrypt'  => $init_decrypt,
1106                   'encrypt_block' => $encrypt_block,
1107                   'decrypt_block' => $decrypt_block
1108                )
1109            );
1110        }
1111        $this->inline_crypt = $lambda_functions[$code_hash];
1112    }
1113}