securemail/vendor/phpseclib/phpseclib/phpseclib/Crypt/Blowfish.php

   1 <?php
   2
   3 /**
   4  * Pure-PHP implementation of Blowfish.
   5  *
   6  * Uses mcrypt, if available, and an internal implementation, otherwise.
   7  *
   8  * PHP versions 4 and 5
   9  *
  10  * Useful resources are as follows:
  11  *
  12  *  - {@link http://en.wikipedia.org/wiki/Blowfish_(cipher) Wikipedia description of Blowfish}
  13  *
  14  * Here's a short example of how to use this library:
  15  * <code>
  16  * <?php
  17  *    include 'Crypt/Blowfish.php';
  18  *
  19  *    $blowfish = new Crypt_Blowfish();
  20  *
  21  *    $blowfish->setKey('12345678901234567890123456789012');
  22  *
  23  *    $plaintext = str_repeat('a', 1024);
  24  *
  25  *    echo $blowfish->decrypt($blowfish->encrypt($plaintext));
  26  * ?>
  27  * </code>
  28  *
  29  * LICENSE: Permission is hereby granted, free of charge, to any person obtaining a copy
  30  * of this software and associated documentation files (the "Software"), to deal
  31  * in the Software without restriction, including without limitation the rights
  32  * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
  33  * copies of the Software, and to permit persons to whom the Software is
  34  * furnished to do so, subject to the following conditions:
  35  *
  36  * The above copyright notice and this permission notice shall be included in
  37  * all copies or substantial portions of the Software.
  38  *
  39  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  40  * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  41  * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
  42  * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
  43  * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
  44  * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
  45  * THE SOFTWARE.
  46  *
  47  * @category  Crypt
  48  * @package   Crypt_Blowfish
  49  * @author    Jim Wigginton <terrafrost@php.net>
  50  * @author    Hans-Juergen Petrich <petrich@tronic-media.com>
  51  * @copyright 2007 Jim Wigginton
  52  * @license   http://www.opensource.org/licenses/mit-license.html  MIT License
  53  * @link      http://phpseclib.sourceforge.net
  54  */
  55
  56 /**
  57  * Include Crypt_Base
  58  *
  59  * Base cipher class
  60  */
  61 if (!class_exists('Crypt_Base')) {
  62     include_once 'Base.php';
  63 }
  64
  65 /**#@+
  66  * @access public
  67  * @see Crypt_Blowfish::encrypt()
  68  * @see Crypt_Blowfish::decrypt()
  69  */
  70 /**
  71  * Encrypt / decrypt using the Counter mode.
  72  *
  73  * Set to -1 since that's what Crypt/Random.php uses to index the CTR mode.
  74  *
  75  * @link http://en.wikipedia.org/wiki/Block_cipher_modes_of_operation#Counter_.28CTR.29
  76  */
  77 define('CRYPT_BLOWFISH_MODE_CTR', CRYPT_MODE_CTR);
  78 /**
  79  * Encrypt / decrypt using the Electronic Code Book mode.
  80  *
  81  * @link http://en.wikipedia.org/wiki/Block_cipher_modes_of_operation#Electronic_codebook_.28ECB.29
  82  */
  83 define('CRYPT_BLOWFISH_MODE_ECB', CRYPT_MODE_ECB);
  84 /**
  85  * Encrypt / decrypt using the Code Book Chaining mode.
  86  *
  87  * @link http://en.wikipedia.org/wiki/Block_cipher_modes_of_operation#Cipher-block_chaining_.28CBC.29
  88  */
  89 define('CRYPT_BLOWFISH_MODE_CBC', CRYPT_MODE_CBC);
  90 /**
  91  * Encrypt / decrypt using the Cipher Feedback mode.
  92  *
  93  * @link http://en.wikipedia.org/wiki/Block_cipher_modes_of_operation#Cipher_feedback_.28CFB.29
  94  */
  95 define('CRYPT_BLOWFISH_MODE_CFB', CRYPT_MODE_CFB);
  96 /**
  97  * Encrypt / decrypt using the Cipher Feedback mode.
  98  *
  99  * @link http://en.wikipedia.org/wiki/Block_cipher_modes_of_operation#Output_feedback_.28OFB.29
 100  */
 101 define('CRYPT_BLOWFISH_MODE_OFB', CRYPT_MODE_OFB);
 102 /**#@-*/
 103
 104 /**#@+
 105  * @access private
 106  * @see Crypt_Base::Crypt_Base()
 107  */
 108 /**
 109  * Toggles the internal implementation
 110  */
 111 define('CRYPT_BLOWFISH_MODE_INTERNAL', CRYPT_MODE_INTERNAL);
 112 /**
 113  * Toggles the mcrypt implementation
 114  */
 115 define('CRYPT_BLOWFISH_MODE_MCRYPT', CRYPT_MODE_MCRYPT);
 116 /**#@-*/
 117
 118 /**
 119  * Pure-PHP implementation of Blowfish.
 120  *
 121  * @package Crypt_Blowfish
 122  * @author  Jim Wigginton <terrafrost@php.net>
 123  * @author  Hans-Juergen Petrich <petrich@tronic-media.com>
 124  * @access  public
 125  */
 126 class Crypt_Blowfish extends Crypt_Base
 127 {
 128     /**
 129      * Block Length of the cipher
 130      *
 131      * @see Crypt_Base::block_size
 132      * @var Integer
 133      * @access private
 134      */
 135     var $block_size = 8;
 136
 137     /**
 138      * The default password key_size used by setPassword()
 139      *
 140      * @see Crypt_Base::password_key_size
 141      * @see Crypt_Base::setPassword()
 142      * @var Integer
 143      * @access private
 144      */
 145     var $password_key_size = 56;
 146
 147     /**
 148      * The namespace used by the cipher for its constants.
 149      *
 150      * @see Crypt_Base::const_namespace
 151      * @var String
 152      * @access private
 153      */
 154     var $const_namespace = 'BLOWFISH';
 155
 156     /**
 157      * The mcrypt specific name of the cipher
 158      *
 159      * @see Crypt_Base::cipher_name_mcrypt
 160      * @var String
 161      * @access private
 162      */
 163     var $cipher_name_mcrypt = 'blowfish';
 164
 165     /**
 166      * Optimizing value while CFB-encrypting
 167      *
 168      * @see Crypt_Base::cfb_init_len
 169      * @var Integer
 170      * @access private
 171      */
 172     var $cfb_init_len = 500;
 173
 174     /**
 175      * The fixed subkeys boxes ($sbox0 - $sbox3) with 256 entries each
 176      *
 177      * S-Box 1
 178      *
 179      * @access private
 180      * @var    array
 181      */
 182     var $sbox0 = array (
 183         0xd1310ba6, 0x98dfb5ac, 0x2ffd72db, 0xd01adfb7, 0xb8e1afed, 0x6a267e96, 0xba7c9045, 0xf12c7f99,
 184         0x24a19947, 0xb3916cf7, 0x0801f2e2, 0x858efc16, 0x636920d8, 0x71574e69, 0xa458fea3, 0xf4933d7e,
 185         0x0d95748f, 0x728eb658, 0x718bcd58, 0x82154aee, 0x7b54a41d, 0xc25a59b5, 0x9c30d539, 0x2af26013,
 186         0xc5d1b023, 0x286085f0, 0xca417918, 0xb8db38ef, 0x8e79dcb0, 0x603a180e, 0x6c9e0e8b, 0xb01e8a3e,
 187         0xd71577c1, 0xbd314b27, 0x78af2fda, 0x55605c60, 0xe65525f3, 0xaa55ab94, 0x57489862, 0x63e81440,
 188         0x55ca396a, 0x2aab10b6, 0xb4cc5c34, 0x1141e8ce, 0xa15486af, 0x7c72e993, 0xb3ee1411, 0x636fbc2a,
 189         0x2ba9c55d, 0x741831f6, 0xce5c3e16, 0x9b87931e, 0xafd6ba33, 0x6c24cf5c, 0x7a325381, 0x28958677,
 190         0x3b8f4898, 0x6b4bb9af, 0xc4bfe81b, 0x66282193, 0x61d809cc, 0xfb21a991, 0x487cac60, 0x5dec8032,
 191         0xef845d5d, 0xe98575b1, 0xdc262302, 0xeb651b88, 0x23893e81, 0xd396acc5, 0x0f6d6ff3, 0x83f44239,
 192         0x2e0b4482, 0xa4842004, 0x69c8f04a, 0x9e1f9b5e, 0x21c66842, 0xf6e96c9a, 0x670c9c61, 0xabd388f0,
 193         0x6a51a0d2, 0xd8542f68, 0x960fa728, 0xab5133a3, 0x6eef0b6c, 0x137a3be4, 0xba3bf050, 0x7efb2a98,
 194         0xa1f1651d, 0x39af0176, 0x66ca593e, 0x82430e88, 0x8cee8619, 0x456f9fb4, 0x7d84a5c3, 0x3b8b5ebe,
 195         0xe06f75d8, 0x85c12073, 0x401a449f, 0x56c16aa6, 0x4ed3aa62, 0x363f7706, 0x1bfedf72, 0x429b023d,
 196         0x37d0d724, 0xd00a1248, 0xdb0fead3, 0x49f1c09b, 0x075372c9, 0x80991b7b, 0x25d479d8, 0xf6e8def7,
 197         0xe3fe501a, 0xb6794c3b, 0x976ce0bd, 0x04c006ba, 0xc1a94fb6, 0x409f60c4, 0x5e5c9ec2, 0x196a2463,
 198         0x68fb6faf, 0x3e6c53b5, 0x1339b2eb, 0x3b52ec6f, 0x6dfc511f, 0x9b30952c, 0xcc814544, 0xaf5ebd09,
 199         0xbee3d004, 0xde334afd, 0x660f2807, 0x192e4bb3, 0xc0cba857, 0x45c8740f, 0xd20b5f39, 0xb9d3fbdb,
 200         0x5579c0bd, 0x1a60320a, 0xd6a100c6, 0x402c7279, 0x679f25fe, 0xfb1fa3cc, 0x8ea5e9f8, 0xdb3222f8,
 201         0x3c7516df, 0xfd616b15, 0x2f501ec8, 0xad0552ab, 0x323db5fa, 0xfd238760, 0x53317b48, 0x3e00df82,
 202         0x9e5c57bb, 0xca6f8ca0, 0x1a87562e, 0xdf1769db, 0xd542a8f6, 0x287effc3, 0xac6732c6, 0x8c4f5573,
 203         0x695b27b0, 0xbbca58c8, 0xe1ffa35d, 0xb8f011a0, 0x10fa3d98, 0xfd2183b8, 0x4afcb56c, 0x2dd1d35b,
 204         0x9a53e479, 0xb6f84565, 0xd28e49bc, 0x4bfb9790, 0xe1ddf2da, 0xa4cb7e33, 0x62fb1341, 0xcee4c6e8,
 205         0xef20cada, 0x36774c01, 0xd07e9efe, 0x2bf11fb4, 0x95dbda4d, 0xae909198, 0xeaad8e71, 0x6b93d5a0,
 206         0xd08ed1d0, 0xafc725e0, 0x8e3c5b2f, 0x8e7594b7, 0x8ff6e2fb, 0xf2122b64, 0x8888b812, 0x900df01c,
 207         0x4fad5ea0, 0x688fc31c, 0xd1cff191, 0xb3a8c1ad, 0x2f2f2218, 0xbe0e1777, 0xea752dfe, 0x8b021fa1,
 208         0xe5a0cc0f, 0xb56f74e8, 0x18acf3d6, 0xce89e299, 0xb4a84fe0, 0xfd13e0b7, 0x7cc43b81, 0xd2ada8d9,
 209         0x165fa266, 0x80957705, 0x93cc7314, 0x211a1477, 0xe6ad2065, 0x77b5fa86, 0xc75442f5, 0xfb9d35cf,
 210         0xebcdaf0c, 0x7b3e89a0, 0xd6411bd3, 0xae1e7e49, 0x00250e2d, 0x2071b35e, 0x226800bb, 0x57b8e0af,
 211         0x2464369b, 0xf009b91e, 0x5563911d, 0x59dfa6aa, 0x78c14389, 0xd95a537f, 0x207d5ba2, 0x02e5b9c5,
 212         0x83260376, 0x6295cfa9, 0x11c81968, 0x4e734a41, 0xb3472dca, 0x7b14a94a, 0x1b510052, 0x9a532915,
 213         0xd60f573f, 0xbc9bc6e4, 0x2b60a476, 0x81e67400, 0x08ba6fb5, 0x571be91f, 0xf296ec6b, 0x2a0dd915,
 214         0xb6636521, 0xe7b9f9b6, 0xff34052e, 0xc5855664, 0x53b02d5d, 0xa99f8fa1, 0x08ba4799, 0x6e85076a
 215     );
 216
 217     /**
 218      * S-Box 1
 219      *
 220      * @access private
 221      * @var    array
 222      */
 223     var $sbox1 = array(
 224         0x4b7a70e9, 0xb5b32944, 0xdb75092e, 0xc4192623, 0xad6ea6b0, 0x49a7df7d, 0x9cee60b8, 0x8fedb266,
 225         0xecaa8c71, 0x699a17ff, 0x5664526c, 0xc2b19ee1, 0x193602a5, 0x75094c29, 0xa0591340, 0xe4183a3e,
 226         0x3f54989a, 0x5b429d65, 0x6b8fe4d6, 0x99f73fd6, 0xa1d29c07, 0xefe830f5, 0x4d2d38e6, 0xf0255dc1,
 227         0x4cdd2086, 0x8470eb26, 0x6382e9c6, 0x021ecc5e, 0x09686b3f, 0x3ebaefc9, 0x3c971814, 0x6b6a70a1,
 228         0x687f3584, 0x52a0e286, 0xb79c5305, 0xaa500737, 0x3e07841c, 0x7fdeae5c, 0x8e7d44ec, 0x5716f2b8,
 229         0xb03ada37, 0xf0500c0d, 0xf01c1f04, 0x0200b3ff, 0xae0cf51a, 0x3cb574b2, 0x25837a58, 0xdc0921bd,
 230         0xd19113f9, 0x7ca92ff6, 0x94324773, 0x22f54701, 0x3ae5e581, 0x37c2dadc, 0xc8b57634, 0x9af3dda7,
 231         0xa9446146, 0x0fd0030e, 0xecc8c73e, 0xa4751e41, 0xe238cd99, 0x3bea0e2f, 0x3280bba1, 0x183eb331,
 232         0x4e548b38, 0x4f6db908, 0x6f420d03, 0xf60a04bf, 0x2cb81290, 0x24977c79, 0x5679b072, 0xbcaf89af,
 233         0xde9a771f, 0xd9930810, 0xb38bae12, 0xdccf3f2e, 0x5512721f, 0x2e6b7124, 0x501adde6, 0x9f84cd87,
 234         0x7a584718, 0x7408da17, 0xbc9f9abc, 0xe94b7d8c, 0xec7aec3a, 0xdb851dfa, 0x63094366, 0xc464c3d2,
 235         0xef1c1847, 0x3215d908, 0xdd433b37, 0x24c2ba16, 0x12a14d43, 0x2a65c451, 0x50940002, 0x133ae4dd,
 236         0x71dff89e, 0x10314e55, 0x81ac77d6, 0x5f11199b, 0x043556f1, 0xd7a3c76b, 0x3c11183b, 0x5924a509,
 237         0xf28fe6ed, 0x97f1fbfa, 0x9ebabf2c, 0x1e153c6e, 0x86e34570, 0xeae96fb1, 0x860e5e0a, 0x5a3e2ab3,
 238         0x771fe71c, 0x4e3d06fa, 0x2965dcb9, 0x99e71d0f, 0x803e89d6, 0x5266c825, 0x2e4cc978, 0x9c10b36a,
 239         0xc6150eba, 0x94e2ea78, 0xa5fc3c53, 0x1e0a2df4, 0xf2f74ea7, 0x361d2b3d, 0x1939260f, 0x19c27960,
 240         0x5223a708, 0xf71312b6, 0xebadfe6e, 0xeac31f66, 0xe3bc4595, 0xa67bc883, 0xb17f37d1, 0x018cff28,
 241         0xc332ddef, 0xbe6c5aa5, 0x65582185, 0x68ab9802, 0xeecea50f, 0xdb2f953b, 0x2aef7dad, 0x5b6e2f84,
 242         0x1521b628, 0x29076170, 0xecdd4775, 0x619f1510, 0x13cca830, 0xeb61bd96, 0x0334fe1e, 0xaa0363cf,
 243         0xb5735c90, 0x4c70a239, 0xd59e9e0b, 0xcbaade14, 0xeecc86bc, 0x60622ca7, 0x9cab5cab, 0xb2f3846e,
 244         0x648b1eaf, 0x19bdf0ca, 0xa02369b9, 0x655abb50, 0x40685a32, 0x3c2ab4b3, 0x319ee9d5, 0xc021b8f7,
 245         0x9b540b19, 0x875fa099, 0x95f7997e, 0x623d7da8, 0xf837889a, 0x97e32d77, 0x11ed935f, 0x16681281,
 246         0x0e358829, 0xc7e61fd6, 0x96dedfa1, 0x7858ba99, 0x57f584a5, 0x1b227263, 0x9b83c3ff, 0x1ac24696,
 247         0xcdb30aeb, 0x532e3054, 0x8fd948e4, 0x6dbc3128, 0x58ebf2ef, 0x34c6ffea, 0xfe28ed61, 0xee7c3c73,
 248         0x5d4a14d9, 0xe864b7e3, 0x42105d14, 0x203e13e0, 0x45eee2b6, 0xa3aaabea, 0xdb6c4f15, 0xfacb4fd0,
 249         0xc742f442, 0xef6abbb5, 0x654f3b1d, 0x41cd2105, 0xd81e799e, 0x86854dc7, 0xe44b476a, 0x3d816250,
 250         0xcf62a1f2, 0x5b8d2646, 0xfc8883a0, 0xc1c7b6a3, 0x7f1524c3, 0x69cb7492, 0x47848a0b, 0x5692b285,
 251         0x095bbf00, 0xad19489d, 0x1462b174, 0x23820e00, 0x58428d2a, 0x0c55f5ea, 0x1dadf43e, 0x233f7061,
 252         0x3372f092, 0x8d937e41, 0xd65fecf1, 0x6c223bdb, 0x7cde3759, 0xcbee7460, 0x4085f2a7, 0xce77326e,
 253         0xa6078084, 0x19f8509e, 0xe8efd855, 0x61d99735, 0xa969a7aa, 0xc50c06c2, 0x5a04abfc, 0x800bcadc,
 254         0x9e447a2e, 0xc3453484, 0xfdd56705, 0x0e1e9ec9, 0xdb73dbd3, 0x105588cd, 0x675fda79, 0xe3674340,
 255         0xc5c43465, 0x713e38d8, 0x3d28f89e, 0xf16dff20, 0x153e21e7, 0x8fb03d4a, 0xe6e39f2b, 0xdb83adf7
 256     );
 257
 258     /**
 259      * S-Box 2
 260      *
 261      * @access private
 262      * @var    array
 263      */
 264     var $sbox2 = array(
 265         0xe93d5a68, 0x948140f7, 0xf64c261c, 0x94692934, 0x411520f7, 0x7602d4f7, 0xbcf46b2e, 0xd4a20068,
 266         0xd4082471, 0x3320f46a, 0x43b7d4b7, 0x500061af, 0x1e39f62e, 0x97244546, 0x14214f74, 0xbf8b8840,
 267         0x4d95fc1d, 0x96b591af, 0x70f4ddd3, 0x66a02f45, 0xbfbc09ec, 0x03bd9785, 0x7fac6dd0, 0x31cb8504,
 268         0x96eb27b3, 0x55fd3941, 0xda2547e6, 0xabca0a9a, 0x28507825, 0x530429f4, 0x0a2c86da, 0xe9b66dfb,
 269         0x68dc1462, 0xd7486900, 0x680ec0a4, 0x27a18dee, 0x4f3ffea2, 0xe887ad8c, 0xb58ce006, 0x7af4d6b6,
 270         0xaace1e7c, 0xd3375fec, 0xce78a399, 0x406b2a42, 0x20fe9e35, 0xd9f385b9, 0xee39d7ab, 0x3b124e8b,
 271         0x1dc9faf7, 0x4b6d1856, 0x26a36631, 0xeae397b2, 0x3a6efa74, 0xdd5b4332, 0x6841e7f7, 0xca7820fb,
 272         0xfb0af54e, 0xd8feb397, 0x454056ac, 0xba489527, 0x55533a3a, 0x20838d87, 0xfe6ba9b7, 0xd096954b,
 273         0x55a867bc, 0xa1159a58, 0xcca92963, 0x99e1db33, 0xa62a4a56, 0x3f3125f9, 0x5ef47e1c, 0x9029317c,
 274         0xfdf8e802, 0x04272f70, 0x80bb155c, 0x05282ce3, 0x95c11548, 0xe4c66d22, 0x48c1133f, 0xc70f86dc,
 275         0x07f9c9ee, 0x41041f0f, 0x404779a4, 0x5d886e17, 0x325f51eb, 0xd59bc0d1, 0xf2bcc18f, 0x41113564,
 276         0x257b7834, 0x602a9c60, 0xdff8e8a3, 0x1f636c1b, 0x0e12b4c2, 0x02e1329e, 0xaf664fd1, 0xcad18115,
 277         0x6b2395e0, 0x333e92e1, 0x3b240b62, 0xeebeb922, 0x85b2a20e, 0xe6ba0d99, 0xde720c8c, 0x2da2f728,
 278         0xd0127845, 0x95b794fd, 0x647d0862, 0xe7ccf5f0, 0x5449a36f, 0x877d48fa, 0xc39dfd27, 0xf33e8d1e,
 279         0x0a476341, 0x992eff74, 0x3a6f6eab, 0xf4f8fd37, 0xa812dc60, 0xa1ebddf8, 0x991be14c, 0xdb6e6b0d,
 280         0xc67b5510, 0x6d672c37, 0x2765d43b, 0xdcd0e804, 0xf1290dc7, 0xcc00ffa3, 0xb5390f92, 0x690fed0b,
 281         0x667b9ffb, 0xcedb7d9c, 0xa091cf0b, 0xd9155ea3, 0xbb132f88, 0x515bad24, 0x7b9479bf, 0x763bd6eb,
 282         0x37392eb3, 0xcc115979, 0x8026e297, 0xf42e312d, 0x6842ada7, 0xc66a2b3b, 0x12754ccc, 0x782ef11c,
 283         0x6a124237, 0xb79251e7, 0x06a1bbe6, 0x4bfb6350, 0x1a6b1018, 0x11caedfa, 0x3d25bdd8, 0xe2e1c3c9,
 284         0x44421659, 0x0a121386, 0xd90cec6e, 0xd5abea2a, 0x64af674e, 0xda86a85f, 0xbebfe988, 0x64e4c3fe,
 285         0x9dbc8057, 0xf0f7c086, 0x60787bf8, 0x6003604d, 0xd1fd8346, 0xf6381fb0, 0x7745ae04, 0xd736fccc,
 286         0x83426b33, 0xf01eab71, 0xb0804187, 0x3c005e5f, 0x77a057be, 0xbde8ae24, 0x55464299, 0xbf582e61,
 287         0x4e58f48f, 0xf2ddfda2, 0xf474ef38, 0x8789bdc2, 0x5366f9c3, 0xc8b38e74, 0xb475f255, 0x46fcd9b9,
 288         0x7aeb2661, 0x8b1ddf84, 0x846a0e79, 0x915f95e2, 0x466e598e, 0x20b45770, 0x8cd55591, 0xc902de4c,
 289         0xb90bace1, 0xbb8205d0, 0x11a86248, 0x7574a99e, 0xb77f19b6, 0xe0a9dc09, 0x662d09a1, 0xc4324633,
 290         0xe85a1f02, 0x09f0be8c, 0x4a99a025, 0x1d6efe10, 0x1ab93d1d, 0x0ba5a4df, 0xa186f20f, 0x2868f169,
 291         0xdcb7da83, 0x573906fe, 0xa1e2ce9b, 0x4fcd7f52, 0x50115e01, 0xa70683fa, 0xa002b5c4, 0x0de6d027,
 292         0x9af88c27, 0x773f8641, 0xc3604c06, 0x61a806b5, 0xf0177a28, 0xc0f586e0, 0x006058aa, 0x30dc7d62,
 293         0x11e69ed7, 0x2338ea63, 0x53c2dd94, 0xc2c21634, 0xbbcbee56, 0x90bcb6de, 0xebfc7da1, 0xce591d76,
 294         0x6f05e409, 0x4b7c0188, 0x39720a3d, 0x7c927c24, 0x86e3725f, 0x724d9db9, 0x1ac15bb4, 0xd39eb8fc,
 295         0xed545578, 0x08fca5b5, 0xd83d7cd3, 0x4dad0fc4, 0x1e50ef5e, 0xb161e6f8, 0xa28514d9, 0x6c51133c,
 296         0x6fd5c7e7, 0x56e14ec4, 0x362abfce, 0xddc6c837, 0xd79a3234, 0x92638212, 0x670efa8e, 0x406000e0
 297     );
 298
 299     /**
 300      * S-Box 3
 301      *
 302      * @access private
 303      * @var    array
 304      */
 305     var $sbox3 = array(
 306         0x3a39ce37, 0xd3faf5cf, 0xabc27737, 0x5ac52d1b, 0x5cb0679e, 0x4fa33742, 0xd3822740, 0x99bc9bbe,
 307         0xd5118e9d, 0xbf0f7315, 0xd62d1c7e, 0xc700c47b, 0xb78c1b6b, 0x21a19045, 0xb26eb1be, 0x6a366eb4,
 308         0x5748ab2f, 0xbc946e79, 0xc6a376d2, 0x6549c2c8, 0x530ff8ee, 0x468dde7d, 0xd5730a1d, 0x4cd04dc6,
 309         0x2939bbdb, 0xa9ba4650, 0xac9526e8, 0xbe5ee304, 0xa1fad5f0, 0x6a2d519a, 0x63ef8ce2, 0x9a86ee22,
 310         0xc089c2b8, 0x43242ef6, 0xa51e03aa, 0x9cf2d0a4, 0x83c061ba, 0x9be96a4d, 0x8fe51550, 0xba645bd6,
 311         0x2826a2f9, 0xa73a3ae1, 0x4ba99586, 0xef5562e9, 0xc72fefd3, 0xf752f7da, 0x3f046f69, 0x77fa0a59,
 312         0x80e4a915, 0x87b08601, 0x9b09e6ad, 0x3b3ee593, 0xe990fd5a, 0x9e34d797, 0x2cf0b7d9, 0x022b8b51,
 313         0x96d5ac3a, 0x017da67d, 0xd1cf3ed6, 0x7c7d2d28, 0x1f9f25cf, 0xadf2b89b, 0x5ad6b472, 0x5a88f54c,
 314         0xe029ac71, 0xe019a5e6, 0x47b0acfd, 0xed93fa9b, 0xe8d3c48d, 0x283b57cc, 0xf8d56629, 0x79132e28,
 315         0x785f0191, 0xed756055, 0xf7960e44, 0xe3d35e8c, 0x15056dd4, 0x88f46dba, 0x03a16125, 0x0564f0bd,
 316         0xc3eb9e15, 0x3c9057a2, 0x97271aec, 0xa93a072a, 0x1b3f6d9b, 0x1e6321f5, 0xf59c66fb, 0x26dcf319,
 317         0x7533d928, 0xb155fdf5, 0x03563482, 0x8aba3cbb, 0x28517711, 0xc20ad9f8, 0xabcc5167, 0xccad925f,
 318         0x4de81751, 0x3830dc8e, 0x379d5862, 0x9320f991, 0xea7a90c2, 0xfb3e7bce, 0x5121ce64, 0x774fbe32,
 319         0xa8b6e37e, 0xc3293d46, 0x48de5369, 0x6413e680, 0xa2ae0810, 0xdd6db224, 0x69852dfd, 0x09072166,
 320         0xb39a460a, 0x6445c0dd, 0x586cdecf, 0x1c20c8ae, 0x5bbef7dd, 0x1b588d40, 0xccd2017f, 0x6bb4e3bb,
 321         0xdda26a7e, 0x3a59ff45, 0x3e350a44, 0xbcb4cdd5, 0x72eacea8, 0xfa6484bb, 0x8d6612ae, 0xbf3c6f47,
 322         0xd29be463, 0x542f5d9e, 0xaec2771b, 0xf64e6370, 0x740e0d8d, 0xe75b1357, 0xf8721671, 0xaf537d5d,
 323         0x4040cb08, 0x4eb4e2cc, 0x34d2466a, 0x0115af84, 0xe1b00428, 0x95983a1d, 0x06b89fb4, 0xce6ea048,
 324         0x6f3f3b82, 0x3520ab82, 0x011a1d4b, 0x277227f8, 0x611560b1, 0xe7933fdc, 0xbb3a792b, 0x344525bd,
 325         0xa08839e1, 0x51ce794b, 0x2f32c9b7, 0xa01fbac9, 0xe01cc87e, 0xbcc7d1f6, 0xcf0111c3, 0xa1e8aac7,
 326         0x1a908749, 0xd44fbd9a, 0xd0dadecb, 0xd50ada38, 0x0339c32a, 0xc6913667, 0x8df9317c, 0xe0b12b4f,
 327         0xf79e59b7, 0x43f5bb3a, 0xf2d519ff, 0x27d9459c, 0xbf97222c, 0x15e6fc2a, 0x0f91fc71, 0x9b941525,
 328         0xfae59361, 0xceb69ceb, 0xc2a86459, 0x12baa8d1, 0xb6c1075e, 0xe3056a0c, 0x10d25065, 0xcb03a442,
 329         0xe0ec6e0e, 0x1698db3b, 0x4c98a0be, 0x3278e964, 0x9f1f9532, 0xe0d392df, 0xd3a0342b, 0x8971f21e,
 330         0x1b0a7441, 0x4ba3348c, 0xc5be7120, 0xc37632d8, 0xdf359f8d, 0x9b992f2e, 0xe60b6f47, 0x0fe3f11d,
 331         0xe54cda54, 0x1edad891, 0xce6279cf, 0xcd3e7e6f, 0x1618b166, 0xfd2c1d05, 0x848fd2c5, 0xf6fb2299,
 332         0xf523f357, 0xa6327623, 0x93a83531, 0x56cccd02, 0xacf08162, 0x5a75ebb5, 0x6e163697, 0x88d273cc,
 333         0xde966292, 0x81b949d0, 0x4c50901b, 0x71c65614, 0xe6c6c7bd, 0x327a140a, 0x45e1d006, 0xc3f27b9a,
 334         0xc9aa53fd, 0x62a80f00, 0xbb25bfe2, 0x35bdd2f6, 0x71126905, 0xb2040222, 0xb6cbcf7c, 0xcd769c2b,
 335         0x53113ec0, 0x1640e3d3, 0x38abbd60, 0x2547adf0, 0xba38209c, 0xf746ce76, 0x77afa1c5, 0x20756060,
 336         0x85cbfe4e, 0x8ae88dd8, 0x7aaaf9b0, 0x4cf9aa7e, 0x1948c25c, 0x02fb8a8c, 0x01c36ae4, 0xd6ebe1f9,
 337         0x90d4f869, 0xa65cdea0, 0x3f09252d, 0xc208e69f, 0xb74e6132, 0xce77e25b, 0x578fdfe3, 0x3ac372e6
 338     );
 339
 340     /**
 341      * P-Array consists of 18 32-bit subkeys
 342      *
 343      * @var array $parray
 344      * @access private
 345      */
 346     var $parray = array(
 347         0x243f6a88, 0x85a308d3, 0x13198a2e, 0x03707344, 0xa4093822, 0x299f31d0,
 348         0x082efa98, 0xec4e6c89, 0x452821e6, 0x38d01377, 0xbe5466cf, 0x34e90c6c,
 349         0xc0ac29b7, 0xc97c50dd, 0x3f84d5b5, 0xb5470917, 0x9216d5d9, 0x8979fb1b
 350     );
 351
 352     /**
 353      * The BCTX-working Array
 354      *
 355      * Holds the expanded key [p] and the key-depended s-boxes [sb]
 356      *
 357      * @var array $bctx
 358      * @access private
 359      */
 360     var $bctx;
 361
 362     /**
 363      * Holds the last used key
 364      *
 365      * @var Array
 366      * @access private
 367      */
 368     var $kl;
 369
 370     /**
 371      * Sets the key.
 372      *
 373      * Keys can be of any length.  Blowfish, itself, requires the use of a key between 32 and max. 448-bits long.
 374      * If the key is less than 32-bits we NOT fill the key to 32bit but let the key as it is to be compatible
 375      * with mcrypt because mcrypt act this way with blowfish key's < 32 bits.
 376      *
 377      * If the key is more than 448-bits, we trim the excess bits.
 378      *
 379      * If the key is not explicitly set, or empty, it'll be assumed a 128 bits key to be all null bytes.
 380      *
 381      * @access public
 382      * @see Crypt_Base::setKey()
 383      * @param String $key
 384      */
 385     function setKey($key)
 386     {
 387         $keylength = strlen($key);
 388
 389         if (!$keylength) {
 390             $key = "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0";
 391         } elseif ($keylength > 56) {
 392             $key = substr($key, 0, 56);
 393         }
 394
 395         parent::setKey($key);
 396     }
 397
 398     /**
 399      * Setup the key (expansion)
 400      *
 401      * @see Crypt_Base::_setupKey()
 402      * @access private
 403      */
 404     function _setupKey()
 405     {
 406         if (isset($this->kl['key']) && $this->key === $this->kl['key']) {
 407             // already expanded
 408             return;
 409         }
 410         $this->kl = array('key' => $this->key);
 411
 412         /* key-expanding p[] and S-Box building sb[] */
 413         $this->bctx = array(
 414             'p'  => array(),
 415             'sb' => array(
 416                 $this->sbox0,
 417                 $this->sbox1,
 418                 $this->sbox2,
 419                 $this->sbox3
 420             )
 421         );
 422
 423         // unpack binary string in unsigned chars
 424         $key  = array_values(unpack('C*', $this->key));
 425         $keyl = count($key);
 426         for ($j = 0, $i = 0; $i < 18; ++$i) {
 427             // xor P1 with the first 32-bits of the key, xor P2 with the second 32-bits ...
 428             for ($data = 0, $k = 0; $k < 4; ++$k) {
 429                 $data = ($data << 8) | $key[$j];
 430                 if (++$j >= $keyl) {
 431                     $j = 0;
 432                 }
 433             }
 434             $this->bctx['p'][] = $this->parray[$i] ^ $data;
 435         }
 436
 437         // encrypt the zero-string, replace P1 and P2 with the encrypted data,
 438         // encrypt P3 and P4 with the new P1 and P2, do it with all P-array and subkeys
 439         $data = "\0\0\0\0\0\0\0\0";
 440         for ($i = 0; $i < 18; $i += 2) {
 441             list($l, $r) = array_values(unpack('N*', $data = $this->_encryptBlock($data)));
 442             $this->bctx['p'][$i    ] = $l;
 443             $this->bctx['p'][$i + 1] = $r;
 444         }
 445         for ($i = 0; $i < 4; ++$i) {
 446             for ($j = 0; $j < 256; $j += 2) {
 447                 list($l, $r) = array_values(unpack('N*', $data = $this->_encryptBlock($data)));
 448                 $this->bctx['sb'][$i][$j    ] = $l;
 449                 $this->bctx['sb'][$i][$j + 1] = $r;
 450             }
 451         }
 452     }
 453
 454     /**
 455      * Encrypts a block
 456      *
 457      * @access private
 458      * @param String $in
 459      * @return String
 460      */
 461     function _encryptBlock($in)
 462     {
 463         $p = $this->bctx["p"];
 464         // extract($this->bctx["sb"], EXTR_PREFIX_ALL, "sb"); // slower
 465         $sb_0 = $this->bctx["sb"][0];
 466         $sb_1 = $this->bctx["sb"][1];
 467         $sb_2 = $this->bctx["sb"][2];
 468         $sb_3 = $this->bctx["sb"][3];
 469
 470         $in = unpack("N*", $in);
 471         $l = $in[1];
 472         $r = $in[2];
 473
 474         for ($i = 0; $i < 16; $i+= 2) {
 475                 $l^= $p[$i];
 476                 $r^= ($sb_0[$l >> 24 & 0xff]  +
 477                       $sb_1[$l >> 16 & 0xff]  ^
 478                       $sb_2[$l >>  8 & 0xff]) +
 479                       $sb_3[$l       & 0xff];
 480
 481                 $r^= $p[$i + 1];
 482                 $l^= ($sb_0[$r >> 24 & 0xff]  +
 483                       $sb_1[$r >> 16 & 0xff]  ^
 484                       $sb_2[$r >>  8 & 0xff]) +
 485                       $sb_3[$r       & 0xff];
 486         }
 487         return pack("N*", $r ^ $p[17], $l ^ $p[16]);
 488     }
 489
 490     /**
 491      * Decrypts a block
 492      *
 493      * @access private
 494      * @param String $in
 495      * @return String
 496      */
 497     function _decryptBlock($in)
 498     {
 499         $p = $this->bctx["p"];
 500         $sb_0 = $this->bctx["sb"][0];
 501         $sb_1 = $this->bctx["sb"][1];
 502         $sb_2 = $this->bctx["sb"][2];
 503         $sb_3 = $this->bctx["sb"][3];
 504
 505         $in = unpack("N*", $in);
 506         $l = $in[1];
 507         $r = $in[2];
 508
 509         for ($i = 17; $i > 2; $i-= 2) {
 510             $l^= $p[$i];
 511             $r^= ($sb_0[$l >> 24 & 0xff]  +
 512                   $sb_1[$l >> 16 & 0xff]  ^
 513                   $sb_2[$l >>  8 & 0xff]) +
 514                   $sb_3[$l       & 0xff];
 515
 516             $r^= $p[$i - 1];
 517             $l^= ($sb_0[$r >> 24 & 0xff]  +
 518                   $sb_1[$r >> 16 & 0xff]  ^
 519                   $sb_2[$r >>  8 & 0xff]) +
 520                   $sb_3[$r       & 0xff];
 521         }
 522
 523         return pack("N*", $r ^ $p[0], $l ^ $p[1]);
 524     }
 525
 526     /**
 527      * Setup the performance-optimized function for de/encrypt()
 528      *
 529      * @see Crypt_Base::_setupInlineCrypt()
 530      * @access private
 531      */
 532     function _setupInlineCrypt()
 533     {
 534         $lambda_functions =& Crypt_Blowfish::_getLambdaFunctions();
 535
 536         // We create max. 10 hi-optimized code for memory reason. Means: For each $key one ultra fast inline-crypt function.
 537         // After that, we'll still create very fast optimized code but not the hi-ultimative code, for each $mode one.
 538         $gen_hi_opt_code = (bool)( count($lambda_functions) < 10);
 539
 540         switch (true) {
 541             case $gen_hi_opt_code:
 542                 $code_hash = md5(str_pad("Crypt_Blowfish, {$this->mode}, ", 32, "\0") . $this->key);
 543                 break;
 544             default:
 545                 $code_hash = "Crypt_Blowfish, {$this->mode}";
 546         }
 547
 548         if (!isset($lambda_functions[$code_hash])) {
 549             switch (true) {
 550                 case $gen_hi_opt_code:
 551                     $p = $this->bctx['p'];
 552                     $init_crypt = '
 553                         static $sb_0, $sb_1, $sb_2, $sb_3;
 554                         if (!$sb_0) {
 555                             $sb_0 = $self->bctx["sb"][0];
 556                             $sb_1 = $self->bctx["sb"][1];
 557                             $sb_2 = $self->bctx["sb"][2];
 558                             $sb_3 = $self->bctx["sb"][3];
 559                         }
 560                     ';
 561                     break;
 562                 default:
 563                     $p   = array();
 564                     for ($i = 0; $i < 18; ++$i) {
 565                         $p[] = '$p_' . $i;
 566                     }
 567                     $init_crypt = '
 568                         list($sb_0, $sb_1, $sb_2, $sb_3) = $self->bctx["sb"];
 569                         list(' . implode(',', $p) . ') = $self->bctx["p"];
 570
 571                     ';
 572             }
 573
 574             // Generating encrypt code:
 575             $encrypt_block = '
 576                 $in = unpack("N*", $in);
 577                 $l = $in[1];
 578                 $r = $in[2];
 579             ';
 580             for ($i = 0; $i < 16; $i+= 2) {
 581                 $encrypt_block.= '
 582                     $l^= ' . $p[$i] . ';
 583                     $r^= ($sb_0[$l >> 24 & 0xff]  +
 584                           $sb_1[$l >> 16 & 0xff]  ^
 585                           $sb_2[$l >>  8 & 0xff]) +
 586                           $sb_3[$l       & 0xff];
 587
 588                     $r^= ' . $p[$i + 1] . ';
 589                     $l^= ($sb_0[$r >> 24 & 0xff]  +
 590                           $sb_1[$r >> 16 & 0xff]  ^
 591                           $sb_2[$r >>  8 & 0xff]) +
 592                           $sb_3[$r       & 0xff];
 593                 ';
 594             }
 595             $encrypt_block.= '
 596                 $in = pack("N*",
 597                     $r ^ ' . $p[17] . ',
 598                     $l ^ ' . $p[16] . '
 599                 );
 600             ';
 601
 602             // Generating decrypt code:
 603             $decrypt_block = '
 604                 $in = unpack("N*", $in);
 605                 $l = $in[1];
 606                 $r = $in[2];
 607             ';
 608
 609             for ($i = 17; $i > 2; $i-= 2) {
 610                 $decrypt_block.= '
 611                     $l^= ' . $p[$i] . ';
 612                     $r^= ($sb_0[$l >> 24 & 0xff]  +
 613                           $sb_1[$l >> 16 & 0xff]  ^
 614                           $sb_2[$l >>  8 & 0xff]) +
 615                           $sb_3[$l       & 0xff];
 616
 617                     $r^= ' . $p[$i - 1] . ';
 618                     $l^= ($sb_0[$r >> 24 & 0xff]  +
 619                           $sb_1[$r >> 16 & 0xff]  ^
 620                           $sb_2[$r >>  8 & 0xff]) +
 621                           $sb_3[$r       & 0xff];
 622                 ';
 623             }
 624
 625             $decrypt_block.= '
 626                 $in = pack("N*",
 627                     $r ^ ' . $p[0] . ',
 628                     $l ^ ' . $p[1] . '
 629                 );
 630             ';
 631
 632             $lambda_functions[$code_hash] = $this->_createInlineCryptFunction(
 633                 array(
 634                    'init_crypt'    => $init_crypt,
 635                    'init_encrypt'  => '',
 636                    'init_decrypt'  => '',
 637                    'encrypt_block' => $encrypt_block,
 638                    'decrypt_block' => $decrypt_block
 639                 )
 640             );
 641         }
 642         $this->inline_crypt = $lambda_functions[$code_hash];
 643     }
 644 }