[Sommaire] [Imprimer]

   1  <?php
   2  /**
   3   * The Cipher_blowfish:: class implements the Cipher interface encryption data
   4   * using the Blowfish algorithm.
   5   *
   6   * $Horde: framework/Cipher/Cipher/blowfish.php,v 1.14.12.9 2006/01/01 21:28:10 jan Exp $
   7   *
   8   * Copyright 2002-2006 Mike Cochrane <mike@graftonhall.co.nz>
   9   *
  10   * See the enclosed file COPYING for license information (LGPL). If you
  11   * did not receive this file, see http://www.fsf.org/copyleft/lgpl.html.
  12   *
  13   * @author  Mike Cochrane <mike@graftonhall.co.nz>
  14   * @since   Horde 2.2
  15   * @package Horde_Cipher
  16   */
  17  class Horde_Cipher_blowfish extends Horde_Cipher {
  18  
  19      /**
  20       * Pi Array
  21       *
  22       * @var array
  23       */
  24      var $p = array(
  25          0x243F6A88, 0x85A308D3, 0x13198A2E, 0x03707344,
  26          0xA4093822, 0x299F31D0, 0x082EFA98, 0xEC4E6C89,
  27          0x452821E6, 0x38D01377, 0xBE5466CF, 0x34E90C6C,
  28          0xC0AC29B7, 0xC97C50DD, 0x3F84D5B5, 0xB5470917,
  29          0x9216D5D9, 0x8979FB1B);
  30  
  31      /**
  32       * S Box (s1)
  33       *
  34       * @var array
  35       */
  36      var $s1 = array(
  37          0xD1310BA6, 0x98DFB5AC, 0x2FFD72DB, 0xD01ADFB7,
  38          0xB8E1AFED, 0x6A267E96, 0xBA7C9045, 0xF12C7F99,
  39          0x24A19947, 0xB3916CF7, 0x0801F2E2, 0x858EFC16,
  40          0x636920D8, 0x71574E69, 0xA458FEA3, 0xF4933D7E,
  41          0x0D95748F, 0x728EB658, 0x718BCD58, 0x82154AEE,
  42          0x7B54A41D, 0xC25A59B5, 0x9C30D539, 0x2AF26013,
  43          0xC5D1B023, 0x286085F0, 0xCA417918, 0xB8DB38EF,
  44          0x8E79DCB0, 0x603A180E, 0x6C9E0E8B, 0xB01E8A3E,
  45          0xD71577C1, 0xBD314B27, 0x78AF2FDA, 0x55605C60,
  46          0xE65525F3, 0xAA55AB94, 0x57489862, 0x63E81440,
  47          0x55CA396A, 0x2AAB10B6, 0xB4CC5C34, 0x1141E8CE,
  48          0xA15486AF, 0x7C72E993, 0xB3EE1411, 0x636FBC2A,
  49          0x2BA9C55D, 0x741831F6, 0xCE5C3E16, 0x9B87931E,
  50          0xAFD6BA33, 0x6C24CF5C, 0x7A325381, 0x28958677,
  51          0x3B8F4898, 0x6B4BB9AF, 0xC4BFE81B, 0x66282193,
  52          0x61D809CC, 0xFB21A991, 0x487CAC60, 0x5DEC8032,
  53          0xEF845D5D, 0xE98575B1, 0xDC262302, 0xEB651B88,
  54          0x23893E81, 0xD396ACC5, 0x0F6D6FF3, 0x83F44239,
  55          0x2E0B4482, 0xA4842004, 0x69C8F04A, 0x9E1F9B5E,
  56          0x21C66842, 0xF6E96C9A, 0x670C9C61, 0xABD388F0,
  57          0x6A51A0D2, 0xD8542F68, 0x960FA728, 0xAB5133A3,
  58          0x6EEF0B6C, 0x137A3BE4, 0xBA3BF050, 0x7EFB2A98,
  59          0xA1F1651D, 0x39AF0176, 0x66CA593E, 0x82430E88,
  60          0x8CEE8619, 0x456F9FB4, 0x7D84A5C3, 0x3B8B5EBE,
  61          0xE06F75D8, 0x85C12073, 0x401A449F, 0x56C16AA6,
  62          0x4ED3AA62, 0x363F7706, 0x1BFEDF72, 0x429B023D,
  63          0x37D0D724, 0xD00A1248, 0xDB0FEAD3, 0x49F1C09B,
  64          0x075372C9, 0x80991B7B, 0x25D479D8, 0xF6E8DEF7,
  65          0xE3FE501A, 0xB6794C3B, 0x976CE0BD, 0x04C006BA,
  66          0xC1A94FB6, 0x409F60C4, 0x5E5C9EC2, 0x196A2463,
  67          0x68FB6FAF, 0x3E6C53B5, 0x1339B2EB, 0x3B52EC6F,
  68          0x6DFC511F, 0x9B30952C, 0xCC814544, 0xAF5EBD09,
  69          0xBEE3D004, 0xDE334AFD, 0x660F2807, 0x192E4BB3,
  70          0xC0CBA857, 0x45C8740F, 0xD20B5F39, 0xB9D3FBDB,
  71          0x5579C0BD, 0x1A60320A, 0xD6A100C6, 0x402C7279,
  72          0x679F25FE, 0xFB1FA3CC, 0x8EA5E9F8, 0xDB3222F8,
  73          0x3C7516DF, 0xFD616B15, 0x2F501EC8, 0xAD0552AB,
  74          0x323DB5FA, 0xFD238760, 0x53317B48, 0x3E00DF82,
  75          0x9E5C57BB, 0xCA6F8CA0, 0x1A87562E, 0xDF1769DB,
  76          0xD542A8F6, 0x287EFFC3, 0xAC6732C6, 0x8C4F5573,
  77          0x695B27B0, 0xBBCA58C8, 0xE1FFA35D, 0xB8F011A0,
  78          0x10FA3D98, 0xFD2183B8, 0x4AFCB56C, 0x2DD1D35B,
  79          0x9A53E479, 0xB6F84565, 0xD28E49BC, 0x4BFB9790,
  80          0xE1DDF2DA, 0xA4CB7E33, 0x62FB1341, 0xCEE4C6E8,
  81          0xEF20CADA, 0x36774C01, 0xD07E9EFE, 0x2BF11FB4,
  82          0x95DBDA4D, 0xAE909198, 0xEAAD8E71, 0x6B93D5A0,
  83          0xD08ED1D0, 0xAFC725E0, 0x8E3C5B2F, 0x8E7594B7,
  84          0x8FF6E2FB, 0xF2122B64, 0x8888B812, 0x900DF01C,
  85          0x4FAD5EA0, 0x688FC31C, 0xD1CFF191, 0xB3A8C1AD,
  86          0x2F2F2218, 0xBE0E1777, 0xEA752DFE, 0x8B021FA1,
  87          0xE5A0CC0F, 0xB56F74E8, 0x18ACF3D6, 0xCE89E299,
  88          0xB4A84FE0, 0xFD13E0B7, 0x7CC43B81, 0xD2ADA8D9,
  89          0x165FA266, 0x80957705, 0x93CC7314, 0x211A1477,
  90          0xE6AD2065, 0x77B5FA86, 0xC75442F5, 0xFB9D35CF,
  91          0xEBCDAF0C, 0x7B3E89A0, 0xD6411BD3, 0xAE1E7E49,
  92          0x00250E2D, 0x2071B35E, 0x226800BB, 0x57B8E0AF,
  93          0x2464369B, 0xF009B91E, 0x5563911D, 0x59DFA6AA,
  94          0x78C14389, 0xD95A537F, 0x207D5BA2, 0x02E5B9C5,
  95          0x83260376, 0x6295CFA9, 0x11C81968, 0x4E734A41,
  96          0xB3472DCA, 0x7B14A94A, 0x1B510052, 0x9A532915,
  97          0xD60F573F, 0xBC9BC6E4, 0x2B60A476, 0x81E67400,
  98          0x08BA6FB5, 0x571BE91F, 0xF296EC6B, 0x2A0DD915,
  99          0xB6636521, 0xE7B9F9B6, 0xFF34052E, 0xC5855664,
 100          0x53B02D5D, 0xA99F8FA1, 0x08BA4799, 0x6E85076A);
 101  
 102      /**
 103       * S Box (s2)
 104       *
 105       * @var array
 106       */
 107      var $s2 = array(
 108          0x4B7A70E9, 0xB5B32944, 0xDB75092E, 0xC4192623,
 109          0xAD6EA6B0, 0x49A7DF7D, 0x9CEE60B8, 0x8FEDB266,
 110          0xECAA8C71, 0x699A17FF, 0x5664526C, 0xC2B19EE1,
 111          0x193602A5, 0x75094C29, 0xA0591340, 0xE4183A3E,
 112          0x3F54989A, 0x5B429D65, 0x6B8FE4D6, 0x99F73FD6,
 113          0xA1D29C07, 0xEFE830F5, 0x4D2D38E6, 0xF0255DC1,
 114          0x4CDD2086, 0x8470EB26, 0x6382E9C6, 0x021ECC5E,
 115          0x09686B3F, 0x3EBAEFC9, 0x3C971814, 0x6B6A70A1,
 116          0x687F3584, 0x52A0E286, 0xB79C5305, 0xAA500737,
 117          0x3E07841C, 0x7FDEAE5C, 0x8E7D44EC, 0x5716F2B8,
 118          0xB03ADA37, 0xF0500C0D, 0xF01C1F04, 0x0200B3FF,
 119          0xAE0CF51A, 0x3CB574B2, 0x25837A58, 0xDC0921BD,
 120          0xD19113F9, 0x7CA92FF6, 0x94324773, 0x22F54701,
 121          0x3AE5E581, 0x37C2DADC, 0xC8B57634, 0x9AF3DDA7,
 122          0xA9446146, 0x0FD0030E, 0xECC8C73E, 0xA4751E41,
 123          0xE238CD99, 0x3BEA0E2F, 0x3280BBA1, 0x183EB331,
 124          0x4E548B38, 0x4F6DB908, 0x6F420D03, 0xF60A04BF,
 125          0x2CB81290, 0x24977C79, 0x5679B072, 0xBCAF89AF,
 126          0xDE9A771F, 0xD9930810, 0xB38BAE12, 0xDCCF3F2E,
 127          0x5512721F, 0x2E6B7124, 0x501ADDE6, 0x9F84CD87,
 128          0x7A584718, 0x7408DA17, 0xBC9F9ABC, 0xE94B7D8C,
 129          0xEC7AEC3A, 0xDB851DFA, 0x63094366, 0xC464C3D2,
 130          0xEF1C1847, 0x3215D908, 0xDD433B37, 0x24C2BA16,
 131          0x12A14D43, 0x2A65C451, 0x50940002, 0x133AE4DD,
 132          0x71DFF89E, 0x10314E55, 0x81AC77D6, 0x5F11199B,
 133          0x043556F1, 0xD7A3C76B, 0x3C11183B, 0x5924A509,
 134          0xF28FE6ED, 0x97F1FBFA, 0x9EBABF2C, 0x1E153C6E,
 135          0x86E34570, 0xEAE96FB1, 0x860E5E0A, 0x5A3E2AB3,
 136          0x771FE71C, 0x4E3D06FA, 0x2965DCB9, 0x99E71D0F,
 137          0x803E89D6, 0x5266C825, 0x2E4CC978, 0x9C10B36A,
 138          0xC6150EBA, 0x94E2EA78, 0xA5FC3C53, 0x1E0A2DF4,
 139          0xF2F74EA7, 0x361D2B3D, 0x1939260F, 0x19C27960,
 140          0x5223A708, 0xF71312B6, 0xEBADFE6E, 0xEAC31F66,
 141          0xE3BC4595, 0xA67BC883, 0xB17F37D1, 0x018CFF28,
 142          0xC332DDEF, 0xBE6C5AA5, 0x65582185, 0x68AB9802,
 143          0xEECEA50F, 0xDB2F953B, 0x2AEF7DAD, 0x5B6E2F84,
 144          0x1521B628, 0x29076170, 0xECDD4775, 0x619F1510,
 145          0x13CCA830, 0xEB61BD96, 0x0334FE1E, 0xAA0363CF,
 146          0xB5735C90, 0x4C70A239, 0xD59E9E0B, 0xCBAADE14,
 147          0xEECC86BC, 0x60622CA7, 0x9CAB5CAB, 0xB2F3846E,
 148          0x648B1EAF, 0x19BDF0CA, 0xA02369B9, 0x655ABB50,
 149          0x40685A32, 0x3C2AB4B3, 0x319EE9D5, 0xC021B8F7,
 150          0x9B540B19, 0x875FA099, 0x95F7997E, 0x623D7DA8,
 151          0xF837889A, 0x97E32D77, 0x11ED935F, 0x16681281,
 152          0x0E358829, 0xC7E61FD6, 0x96DEDFA1, 0x7858BA99,
 153          0x57F584A5, 0x1B227263, 0x9B83C3FF, 0x1AC24696,
 154          0xCDB30AEB, 0x532E3054, 0x8FD948E4, 0x6DBC3128,
 155          0x58EBF2EF, 0x34C6FFEA, 0xFE28ED61, 0xEE7C3C73,
 156          0x5D4A14D9, 0xE864B7E3, 0x42105D14, 0x203E13E0,
 157          0x45EEE2B6, 0xA3AAABEA, 0xDB6C4F15, 0xFACB4FD0,
 158          0xC742F442, 0xEF6ABBB5, 0x654F3B1D, 0x41CD2105,
 159          0xD81E799E, 0x86854DC7, 0xE44B476A, 0x3D816250,
 160          0xCF62A1F2, 0x5B8D2646, 0xFC8883A0, 0xC1C7B6A3,
 161          0x7F1524C3, 0x69CB7492, 0x47848A0B, 0x5692B285,
 162          0x095BBF00, 0xAD19489D, 0x1462B174, 0x23820E00,
 163          0x58428D2A, 0x0C55F5EA, 0x1DADF43E, 0x233F7061,
 164          0x3372F092, 0x8D937E41, 0xD65FECF1, 0x6C223BDB,
 165          0x7CDE3759, 0xCBEE7460, 0x4085F2A7, 0xCE77326E,
 166          0xA6078084, 0x19F8509E, 0xE8EFD855, 0x61D99735,
 167          0xA969A7AA, 0xC50C06C2, 0x5A04ABFC, 0x800BCADC,
 168          0x9E447A2E, 0xC3453484, 0xFDD56705, 0x0E1E9EC9,
 169          0xDB73DBD3, 0x105588CD, 0x675FDA79, 0xE3674340,
 170          0xC5C43465, 0x713E38D8, 0x3D28F89E, 0xF16DFF20,
 171          0x153E21E7, 0x8FB03D4A, 0xE6E39F2B, 0xDB83ADF7);
 172  
 173      /**
 174       * S Box (s3)
 175       *
 176       * @var array
 177       */
 178      var $s3 = array(
 179          0xE93D5A68, 0x948140F7, 0xF64C261C, 0x94692934,
 180          0x411520F7, 0x7602D4F7, 0xBCF46B2E, 0xD4A20068,
 181          0xD4082471, 0x3320F46A, 0x43B7D4B7, 0x500061AF,
 182          0x1E39F62E, 0x97244546, 0x14214F74, 0xBF8B8840,
 183          0x4D95FC1D, 0x96B591AF, 0x70F4DDD3, 0x66A02F45,
 184          0xBFBC09EC, 0x03BD9785, 0x7FAC6DD0, 0x31CB8504,
 185          0x96EB27B3, 0x55FD3941, 0xDA2547E6, 0xABCA0A9A,
 186          0x28507825, 0x530429F4, 0x0A2C86DA, 0xE9B66DFB,
 187          0x68DC1462, 0xD7486900, 0x680EC0A4, 0x27A18DEE,
 188          0x4F3FFEA2, 0xE887AD8C, 0xB58CE006, 0x7AF4D6B6,
 189          0xAACE1E7C, 0xD3375FEC, 0xCE78A399, 0x406B2A42,
 190          0x20FE9E35, 0xD9F385B9, 0xEE39D7AB, 0x3B124E8B,
 191          0x1DC9FAF7, 0x4B6D1856, 0x26A36631, 0xEAE397B2,
 192          0x3A6EFA74, 0xDD5B4332, 0x6841E7F7, 0xCA7820FB,
 193          0xFB0AF54E, 0xD8FEB397, 0x454056AC, 0xBA489527,
 194          0x55533A3A, 0x20838D87, 0xFE6BA9B7, 0xD096954B,
 195          0x55A867BC, 0xA1159A58, 0xCCA92963, 0x99E1DB33,
 196          0xA62A4A56, 0x3F3125F9, 0x5EF47E1C, 0x9029317C,
 197          0xFDF8E802, 0x04272F70, 0x80BB155C, 0x05282CE3,
 198          0x95C11548, 0xE4C66D22, 0x48C1133F, 0xC70F86DC,
 199          0x07F9C9EE, 0x41041F0F, 0x404779A4, 0x5D886E17,
 200          0x325F51EB, 0xD59BC0D1, 0xF2BCC18F, 0x41113564,
 201          0x257B7834, 0x602A9C60, 0xDFF8E8A3, 0x1F636C1B,
 202          0x0E12B4C2, 0x02E1329E, 0xAF664FD1, 0xCAD18115,
 203          0x6B2395E0, 0x333E92E1, 0x3B240B62, 0xEEBEB922,
 204          0x85B2A20E, 0xE6BA0D99, 0xDE720C8C, 0x2DA2F728,
 205          0xD0127845, 0x95B794FD, 0x647D0862, 0xE7CCF5F0,
 206          0x5449A36F, 0x877D48FA, 0xC39DFD27, 0xF33E8D1E,
 207          0x0A476341, 0x992EFF74, 0x3A6F6EAB, 0xF4F8FD37,
 208          0xA812DC60, 0xA1EBDDF8, 0x991BE14C, 0xDB6E6B0D,
 209          0xC67B5510, 0x6D672C37, 0x2765D43B, 0xDCD0E804,
 210          0xF1290DC7, 0xCC00FFA3, 0xB5390F92, 0x690FED0B,
 211          0x667B9FFB, 0xCEDB7D9C, 0xA091CF0B, 0xD9155EA3,
 212          0xBB132F88, 0x515BAD24, 0x7B9479BF, 0x763BD6EB,
 213          0x37392EB3, 0xCC115979, 0x8026E297, 0xF42E312D,
 214          0x6842ADA7, 0xC66A2B3B, 0x12754CCC, 0x782EF11C,
 215          0x6A124237, 0xB79251E7, 0x06A1BBE6, 0x4BFB6350,
 216          0x1A6B1018, 0x11CAEDFA, 0x3D25BDD8, 0xE2E1C3C9,
 217          0x44421659, 0x0A121386, 0xD90CEC6E, 0xD5ABEA2A,
 218          0x64AF674E, 0xDA86A85F, 0xBEBFE988, 0x64E4C3FE,
 219          0x9DBC8057, 0xF0F7C086, 0x60787BF8, 0x6003604D,
 220          0xD1FD8346, 0xF6381FB0, 0x7745AE04, 0xD736FCCC,
 221          0x83426B33, 0xF01EAB71, 0xB0804187, 0x3C005E5F,
 222          0x77A057BE, 0xBDE8AE24, 0x55464299, 0xBF582E61,
 223          0x4E58F48F, 0xF2DDFDA2, 0xF474EF38, 0x8789BDC2,
 224          0x5366F9C3, 0xC8B38E74, 0xB475F255, 0x46FCD9B9,
 225          0x7AEB2661, 0x8B1DDF84, 0x846A0E79, 0x915F95E2,
 226          0x466E598E, 0x20B45770, 0x8CD55591, 0xC902DE4C,
 227          0xB90BACE1, 0xBB8205D0, 0x11A86248, 0x7574A99E,
 228          0xB77F19B6, 0xE0A9DC09, 0x662D09A1, 0xC4324633,
 229          0xE85A1F02, 0x09F0BE8C, 0x4A99A025, 0x1D6EFE10,
 230          0x1AB93D1D, 0x0BA5A4DF, 0xA186F20F, 0x2868F169,
 231          0xDCB7DA83, 0x573906FE, 0xA1E2CE9B, 0x4FCD7F52,
 232          0x50115E01, 0xA70683FA, 0xA002B5C4, 0x0DE6D027,
 233          0x9AF88C27, 0x773F8641, 0xC3604C06, 0x61A806B5,
 234          0xF0177A28, 0xC0F586E0, 0x006058AA, 0x30DC7D62,
 235          0x11E69ED7, 0x2338EA63, 0x53C2DD94, 0xC2C21634,
 236          0xBBCBEE56, 0x90BCB6DE, 0xEBFC7DA1, 0xCE591D76,
 237          0x6F05E409, 0x4B7C0188, 0x39720A3D, 0x7C927C24,
 238          0x86E3725F, 0x724D9DB9, 0x1AC15BB4, 0xD39EB8FC,
 239          0xED545578, 0x08FCA5B5, 0xD83D7CD3, 0x4DAD0FC4,
 240          0x1E50EF5E, 0xB161E6F8, 0xA28514D9, 0x6C51133C,
 241          0x6FD5C7E7, 0x56E14EC4, 0x362ABFCE, 0xDDC6C837,
 242          0xD79A3234, 0x92638212, 0x670EFA8E, 0x406000E0);
 243  
 244      /**
 245       * S Box (s4)
 246       *
 247       * @var array
 248       */
 249      var $s4 = array(
 250          0x3A39CE37, 0xD3FAF5CF, 0xABC27737, 0x5AC52D1B,
 251          0x5CB0679E, 0x4FA33742, 0xD3822740, 0x99BC9BBE,
 252          0xD5118E9D, 0xBF0F7315, 0xD62D1C7E, 0xC700C47B,
 253          0xB78C1B6B, 0x21A19045, 0xB26EB1BE, 0x6A366EB4,
 254          0x5748AB2F, 0xBC946E79, 0xC6A376D2, 0x6549C2C8,
 255          0x530FF8EE, 0x468DDE7D, 0xD5730A1D, 0x4CD04DC6,
 256          0x2939BBDB, 0xA9BA4650, 0xAC9526E8, 0xBE5EE304,
 257          0xA1FAD5F0, 0x6A2D519A, 0x63EF8CE2, 0x9A86EE22,
 258          0xC089C2B8, 0x43242EF6, 0xA51E03AA, 0x9CF2D0A4,
 259          0x83C061BA, 0x9BE96A4D, 0x8FE51550, 0xBA645BD6,
 260          0x2826A2F9, 0xA73A3AE1, 0x4BA99586, 0xEF5562E9,
 261          0xC72FEFD3, 0xF752F7DA, 0x3F046F69, 0x77FA0A59,
 262          0x80E4A915, 0x87B08601, 0x9B09E6AD, 0x3B3EE593,
 263          0xE990FD5A, 0x9E34D797, 0x2CF0B7D9, 0x022B8B51,
 264          0x96D5AC3A, 0x017DA67D, 0xD1CF3ED6, 0x7C7D2D28,
 265          0x1F9F25CF, 0xADF2B89B, 0x5AD6B472, 0x5A88F54C,
 266          0xE029AC71, 0xE019A5E6, 0x47B0ACFD, 0xED93FA9B,
 267          0xE8D3C48D, 0x283B57CC, 0xF8D56629, 0x79132E28,
 268          0x785F0191, 0xED756055, 0xF7960E44, 0xE3D35E8C,
 269          0x15056DD4, 0x88F46DBA, 0x03A16125, 0x0564F0BD,
 270          0xC3EB9E15, 0x3C9057A2, 0x97271AEC, 0xA93A072A,
 271          0x1B3F6D9B, 0x1E6321F5, 0xF59C66FB, 0x26DCF319,
 272          0x7533D928, 0xB155FDF5, 0x03563482, 0x8ABA3CBB,
 273          0x28517711, 0xC20AD9F8, 0xABCC5167, 0xCCAD925F,
 274          0x4DE81751, 0x3830DC8E, 0x379D5862, 0x9320F991,
 275          0xEA7A90C2, 0xFB3E7BCE, 0x5121CE64, 0x774FBE32,
 276          0xA8B6E37E, 0xC3293D46, 0x48DE5369, 0x6413E680,
 277          0xA2AE0810, 0xDD6DB224, 0x69852DFD, 0x09072166,
 278          0xB39A460A, 0x6445C0DD, 0x586CDECF, 0x1C20C8AE,
 279          0x5BBEF7DD, 0x1B588D40, 0xCCD2017F, 0x6BB4E3BB,
 280          0xDDA26A7E, 0x3A59FF45, 0x3E350A44, 0xBCB4CDD5,
 281          0x72EACEA8, 0xFA6484BB, 0x8D6612AE, 0xBF3C6F47,
 282          0xD29BE463, 0x542F5D9E, 0xAEC2771B, 0xF64E6370,
 283          0x740E0D8D, 0xE75B1357, 0xF8721671, 0xAF537D5D,
 284          0x4040CB08, 0x4EB4E2CC, 0x34D2466A, 0x0115AF84,
 285          0xE1B00428, 0x95983A1D, 0x06B89FB4, 0xCE6EA048,
 286          0x6F3F3B82, 0x3520AB82, 0x011A1D4B, 0x277227F8,
 287          0x611560B1, 0xE7933FDC, 0xBB3A792B, 0x344525BD,
 288          0xA08839E1, 0x51CE794B, 0x2F32C9B7, 0xA01FBAC9,
 289          0xE01CC87E, 0xBCC7D1F6, 0xCF0111C3, 0xA1E8AAC7,
 290          0x1A908749, 0xD44FBD9A, 0xD0DADECB, 0xD50ADA38,
 291          0x0339C32A, 0xC6913667, 0x8DF9317C, 0xE0B12B4F,
 292          0xF79E59B7, 0x43F5BB3A, 0xF2D519FF, 0x27D9459C,
 293          0xBF97222C, 0x15E6FC2A, 0x0F91FC71, 0x9B941525,
 294          0xFAE59361, 0xCEB69CEB, 0xC2A86459, 0x12BAA8D1,
 295          0xB6C1075E, 0xE3056A0C, 0x10D25065, 0xCB03A442,
 296          0xE0EC6E0E, 0x1698DB3B, 0x4C98A0BE, 0x3278E964,
 297          0x9F1F9532, 0xE0D392DF, 0xD3A0342B, 0x8971F21E,
 298          0x1B0A7441, 0x4BA3348C, 0xC5BE7120, 0xC37632D8,
 299          0xDF359F8D, 0x9B992F2E, 0xE60B6F47, 0x0FE3F11D,
 300          0xE54CDA54, 0x1EDAD891, 0xCE6279CF, 0xCD3E7E6F,
 301          0x1618B166, 0xFD2C1D05, 0x848FD2C5, 0xF6FB2299,
 302          0xF523F357, 0xA6327623, 0x93A83531, 0x56CCCD02,
 303          0xACF08162, 0x5A75EBB5, 0x6E163697, 0x88D273CC,
 304          0xDE966292, 0x81B949D0, 0x4C50901B, 0x71C65614,
 305          0xE6C6C7BD, 0x327A140A, 0x45E1D006, 0xC3F27B9A,
 306          0xC9AA53FD, 0x62A80F00, 0xBB25BFE2, 0x35BDD2F6,
 307          0x71126905, 0xB2040222, 0xB6CBCF7C, 0xCD769C2B,
 308          0x53113EC0, 0x1640E3D3, 0x38ABBD60, 0x2547ADF0,
 309          0xBA38209C, 0xF746CE76, 0x77AFA1C5, 0x20756060,
 310          0x85CBFE4E, 0x8AE88DD8, 0x7AAAF9B0, 0x4CF9AA7E,
 311          0x1948C25C, 0x02FB8A8C, 0x01C36AE4, 0xD6EBE1F9,
 312          0x90D4F869, 0xA65CDEA0, 0x3F09252D, 0xC208E69F,
 313          0xB74E6132, 0xCE77E25B, 0x578FDFE3, 0x3AC372E6);
 314  
 315      /**
 316       * The number of rounds to do
 317       *
 318       * @var integer
 319       */
 320      var $_rounds = 16;
 321  
 322      /**
 323       * Set the key to be used for en/decryption.
 324       *
 325       * @param string $key  The key to use.
 326       */
 327      function setKey($key)
 328      {
 329          $key = $this->_formatKey($key);
 330          $keyPos = 0;
 331          $keyXor = 0;
 332  
 333          $iMax = count($this->p);
 334          $keyLen = count($key);
 335          for ($i = 0; $i < $iMax; $i++) {
 336              for ($t = 0; $t < 4; $t++) {
 337                  $keyXor = ($keyXor << 8) | (($key[$keyPos]) & 0x0ff);
 338                  if (++$keyPos == $keyLen) {
 339                      $keyPos = 0;
 340                  }
 341              }
 342              $this->p[$i] = $this->p[$i] ^ $keyXor;
 343          }
 344  
 345          $encZero = array('L' => 0, 'R' => 0);
 346          for ($i = 0; $i + 1 < $iMax; $i += 2) {
 347              $encZero = $this->_encryptBlock($encZero['L'], $encZero['R']);
 348              $this->p[$i] = $encZero['L'];
 349              $this->p[$i + 1] = $encZero['R'];
 350          }
 351  
 352          $iMax = count($this->s1);
 353          for ($i = 0; $i < $iMax; $i += 2) {
 354              $encZero = $this->_encryptBlock($encZero['L'], $encZero['R']);
 355              $this->s1[$i] = $encZero['L'];
 356              $this->s1[$i + 1] = $encZero['R'];
 357          }
 358  
 359          $iMax = count($this->s2);
 360          for ($i = 0; $i < $iMax; $i += 2) {
 361              $encZero = $this->_encryptBlock($encZero['L'], $encZero['R']);
 362              $this->s2[$i] = $encZero['L'];
 363              $this->s2[$i + 1] = $encZero['R'];
 364          }
 365  
 366          $iMax = count($this->s3);
 367          for ($i = 0; $i < $iMax; $i += 2) {
 368              $encZero = $this->_encryptBlock($encZero['L'], $encZero['R']);
 369              $this->s3[$i] = $encZero['L'];
 370              $this->s3[$i + 1] = $encZero['R'];
 371          }
 372  
 373          $iMax = count($this->s4);
 374          for ($i = 0; $i < $iMax; $i += 2) {
 375              $encZero = $this->_encryptBlock($encZero['L'], $encZero['R']);
 376              $this->s4[$i] = $encZero['L'];
 377              $this->s4[$i + 1] = $encZero['R'];
 378          }
 379      }
 380  
 381      /**
 382       * Return the size of the blocks that this cipher needs.
 383       *
 384       * @return integer  The number of characters per block.
 385       */
 386      function getBlockSize()
 387      {
 388          return 8;
 389      }
 390  
 391      /**
 392       * Encrypt a block of data.
 393       *
 394       * @param string $block      The data to encrypt.
 395       * @param string $key        The key to use.
 396       *
 397       * @return string  The encrypted output.
 398       */
 399      function encryptBlock($block, $key = null)
 400      {
 401          if (!is_null($key)) {
 402              $this->setKey($key);
 403          }
 404  
 405          list($L, $R) = array_values(unpack('N*', $block));
 406          $parts = $this->_encryptBlock($L, $R);
 407          return pack('NN', $parts['L'], $parts['R']);
 408      }
 409  
 410      /**
 411       * Encrypt left and right halves of a block of data.
 412       *
 413       * @access private
 414       *
 415       * @param integer $L  Left half of the data.
 416       * @param integer $R  Right half of the data.
 417       *
 418       * @return array  A hash, with keys 'L' and 'R', and the encrypted data as
 419       *                the values.
 420       */
 421      function _encryptBlock($L, $R)
 422      {
 423          $L ^= $this->p[0];
 424          $R ^= ((($this->s1[($L >> 24) & 0xFF] + $this->s2[($L >> 16) & 0x0ff]) ^ $this->s3[($L >> 8) & 0x0ff]) + $this->s4[$L & 0x0ff]) ^ $this->p[1];
 425          $L ^= ((($this->s1[($R >> 24) & 0xFF] + $this->s2[($R >> 16) & 0x0ff]) ^ $this->s3[($R >> 8) & 0x0ff]) + $this->s4[$R & 0x0ff]) ^ $this->p[2];
 426          $R ^= ((($this->s1[($L >> 24) & 0xFF] + $this->s2[($L >> 16) & 0x0ff]) ^ $this->s3[($L >> 8) & 0x0ff]) + $this->s4[$L & 0x0ff]) ^ $this->p[3];
 427          $L ^= ((($this->s1[($R >> 24) & 0xFF] + $this->s2[($R >> 16) & 0x0ff]) ^ $this->s3[($R >> 8) & 0x0ff]) + $this->s4[$R & 0x0ff]) ^ $this->p[4];
 428          $R ^= ((($this->s1[($L >> 24) & 0xFF] + $this->s2[($L >> 16) & 0x0ff]) ^ $this->s3[($L >> 8) & 0x0ff]) + $this->s4[$L & 0x0ff]) ^ $this->p[5];
 429          $L ^= ((($this->s1[($R >> 24) & 0xFF] + $this->s2[($R >> 16) & 0x0ff]) ^ $this->s3[($R >> 8) & 0x0ff]) + $this->s4[$R & 0x0ff]) ^ $this->p[6];
 430          $R ^= ((($this->s1[($L >> 24) & 0xFF] + $this->s2[($L >> 16) & 0x0ff]) ^ $this->s3[($L >> 8) & 0x0ff]) + $this->s4[$L & 0x0ff]) ^ $this->p[7];
 431          $L ^= ((($this->s1[($R >> 24) & 0xFF] + $this->s2[($R >> 16) & 0x0ff]) ^ $this->s3[($R >> 8) & 0x0ff]) + $this->s4[$R & 0x0ff]) ^ $this->p[8];
 432          $R ^= ((($this->s1[($L >> 24) & 0xFF] + $this->s2[($L >> 16) & 0x0ff]) ^ $this->s3[($L >> 8) & 0x0ff]) + $this->s4[$L & 0x0ff]) ^ $this->p[9];
 433          $L ^= ((($this->s1[($R >> 24) & 0xFF] + $this->s2[($R >> 16) & 0x0ff]) ^ $this->s3[($R >> 8) & 0x0ff]) + $this->s4[$R & 0x0ff]) ^ $this->p[10];
 434          $R ^= ((($this->s1[($L >> 24) & 0xFF] + $this->s2[($L >> 16) & 0x0ff]) ^ $this->s3[($L >> 8) & 0x0ff]) + $this->s4[$L & 0x0ff]) ^ $this->p[11];
 435          $L ^= ((($this->s1[($R >> 24) & 0xFF] + $this->s2[($R >> 16) & 0x0ff]) ^ $this->s3[($R >> 8) & 0x0ff]) + $this->s4[$R & 0x0ff]) ^ $this->p[12];
 436          $R ^= ((($this->s1[($L >> 24) & 0xFF] + $this->s2[($L >> 16) & 0x0ff]) ^ $this->s3[($L >> 8) & 0x0ff]) + $this->s4[$L & 0x0ff]) ^ $this->p[13];
 437          $L ^= ((($this->s1[($R >> 24) & 0xFF] + $this->s2[($R >> 16) & 0x0ff]) ^ $this->s3[($R >> 8) & 0x0ff]) + $this->s4[$R & 0x0ff]) ^ $this->p[14];
 438          $R ^= ((($this->s1[($L >> 24) & 0xFF] + $this->s2[($L >> 16) & 0x0ff]) ^ $this->s3[($L >> 8) & 0x0ff]) + $this->s4[$L & 0x0ff]) ^ $this->p[15];
 439          $L ^= ((($this->s1[($R >> 24) & 0xFF] + $this->s2[($R >> 16) & 0x0ff]) ^ $this->s3[($R >> 8) & 0x0ff]) + $this->s4[$R & 0x0ff]) ^ $this->p[16];
 440          $R ^= $this->p[17];
 441  
 442          return array('L' => $R, 'R' => $L);
 443      }
 444  
 445      /**
 446       * Decrypt a block of data.
 447       *
 448       * @param string $block  The data to decrypt.
 449       * @param string $key    The key to use.
 450       *
 451       * @return string  The decrypted output.
 452       */
 453      function decryptBlock($block, $key = null)
 454      {
 455          if (!is_null($key)) {
 456              $this->setKey($key);
 457          }
 458  
 459          list($L, $R) = array_values(unpack('N*', $block));
 460  
 461          $L ^= $this->p[17];
 462          $R ^= ((($this->s1[($L >> 24) & 0xFF] + $this->s2[($L >> 16) & 0x0ff]) ^ $this->s3[($L >> 8) & 0x0ff]) + $this->s4[$L & 0x0ff]) ^ $this->p[16];
 463          $L ^= ((($this->s1[($R >> 24) & 0xFF] + $this->s2[($R >> 16) & 0x0ff]) ^ $this->s3[($R >> 8) & 0x0ff]) + $this->s4[$R & 0x0ff]) ^ $this->p[15];
 464          $R ^= ((($this->s1[($L >> 24) & 0xFF] + $this->s2[($L >> 16) & 0x0ff]) ^ $this->s3[($L >> 8) & 0x0ff]) + $this->s4[$L & 0x0ff]) ^ $this->p[14];
 465          $L ^= ((($this->s1[($R >> 24) & 0xFF] + $this->s2[($R >> 16) & 0x0ff]) ^ $this->s3[($R >> 8) & 0x0ff]) + $this->s4[$R & 0x0ff]) ^ $this->p[13];
 466          $R ^= ((($this->s1[($L >> 24) & 0xFF] + $this->s2[($L >> 16) & 0x0ff]) ^ $this->s3[($L >> 8) & 0x0ff]) + $this->s4[$L & 0x0ff]) ^ $this->p[12];
 467          $L ^= ((($this->s1[($R >> 24) & 0xFF] + $this->s2[($R >> 16) & 0x0ff]) ^ $this->s3[($R >> 8) & 0x0ff]) + $this->s4[$R & 0x0ff]) ^ $this->p[11];
 468          $R ^= ((($this->s1[($L >> 24) & 0xFF] + $this->s2[($L >> 16) & 0x0ff]) ^ $this->s3[($L >> 8) & 0x0ff]) + $this->s4[$L & 0x0ff]) ^ $this->p[10];
 469          $L ^= ((($this->s1[($R >> 24) & 0xFF] + $this->s2[($R >> 16) & 0x0ff]) ^ $this->s3[($R >> 8) & 0x0ff]) + $this->s4[$R & 0x0ff]) ^ $this->p[9];
 470          $R ^= ((($this->s1[($L >> 24) & 0xFF] + $this->s2[($L >> 16) & 0x0ff]) ^ $this->s3[($L >> 8) & 0x0ff]) + $this->s4[$L & 0x0ff]) ^ $this->p[8];
 471          $L ^= ((($this->s1[($R >> 24) & 0xFF] + $this->s2[($R >> 16) & 0x0ff]) ^ $this->s3[($R >> 8) & 0x0ff]) + $this->s4[$R & 0x0ff]) ^ $this->p[7];
 472          $R ^= ((($this->s1[($L >> 24) & 0xFF] + $this->s2[($L >> 16) & 0x0ff]) ^ $this->s3[($L >> 8) & 0x0ff]) + $this->s4[$L & 0x0ff]) ^ $this->p[6];
 473          $L ^= ((($this->s1[($R >> 24) & 0xFF] + $this->s2[($R >> 16) & 0x0ff]) ^ $this->s3[($R >> 8) & 0x0ff]) + $this->s4[$R & 0x0ff]) ^ $this->p[5];
 474          $R ^= ((($this->s1[($L >> 24) & 0xFF] + $this->s2[($L >> 16) & 0x0ff]) ^ $this->s3[($L >> 8) & 0x0ff]) + $this->s4[$L & 0x0ff]) ^ $this->p[4];
 475          $L ^= ((($this->s1[($R >> 24) & 0xFF] + $this->s2[($R >> 16) & 0x0ff]) ^ $this->s3[($R >> 8) & 0x0ff]) + $this->s4[$R & 0x0ff]) ^ $this->p[3];
 476          $R ^= ((($this->s1[($L >> 24) & 0xFF] + $this->s2[($L >> 16) & 0x0ff]) ^ $this->s3[($L >> 8) & 0x0ff]) + $this->s4[$L & 0x0ff]) ^ $this->p[2];
 477          $L ^= ((($this->s1[($R >> 24) & 0xFF] + $this->s2[($R >> 16) & 0x0ff]) ^ $this->s3[($R >> 8) & 0x0ff]) + $this->s4[$R & 0x0ff]) ^ $this->p[1];
 478  
 479          $decrypted = pack("NN", $R ^ $this->p[0], $L);
 480          return $decrypted;
 481      }
 482  
 483      /**
 484       * Converts a text key into an array.
 485       *
 486       * @param string $key  Key in text format.
 487       *
 488       * @return array  The key in array format.
 489       */
 490      function _formatKey($key)
 491      {
 492          return array_values(unpack('C*', $key));
 493      }
 494  
 495  }