lib/silccrypt/blowfish.c

   1 /*
   2  * This implementation was taken from the International Kernel (kerneli)
   3  * patch for Linux kernel. The author is unknown to me. This
   4  * implementation is under the same license as it is in the kerneli patch.
   5  * I've modified it a bit to fit to SILC. -Pekka
   6  */
   7 /*
   8  * blowfish.c
   9  *
  10  * Permission is hereby granted, free of charge, to any person obtaining a
  11  * copy of this software and associated documentation files (the
  12  * "Software"), to deal in the Software without restriction, including
  13  * without limitation the rights to use, copy, modify, merge, publish, dis-
  14  * tribute, sublicense, and/or sell copies of the Software, and to permit
  15  * persons to whom the Software is furnished to do so, subject to the fol-
  16  * lowing conditions:
  17  *
  18  * The above copyright notice and this permission notice shall be included
  19  * in all copies or substantial portions of the Software.
  20  *
  21  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
  22  * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABIL-
  23  * ITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT
  24  * SHALL THE OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABIL-
  25  * ITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
  26  * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS
  27  * IN THE SOFTWARE.
  28  *
  29  * Except as contained in this notice, the name of the authors shall
  30  * not be used in advertising or otherwise to promote the sale, use or
  31  * other dealings in this Software without prior written authorization from
  32  * the authors.
  33  *
  34  */
  35
  36 #include "silccrypto.h"
  37 #include "blowfish_internal.h"
  38 #include "blowfish.h"
  39
  40 /*
  41  * SILC Crypto API for Blowfish
  42  */
  43
  44 /* Sets the key for the cipher. */
  45
  46 SILC_CIPHER_API_SET_KEY(blowfish_cbc)
  47 {
  48   blowfish_set_key((BlowfishContext *)context, (unsigned char *)key, keylen);
  49   return TRUE;
  50 }
  51
  52 /* Sets IV for the cipher. */
  53
  54 SILC_CIPHER_API_SET_IV(blowfish_cbc)
  55 {
  56
  57 }
  58
  59 /* Returns the size of the cipher context. */
  60
  61 SILC_CIPHER_API_CONTEXT_LEN(blowfish_cbc)
  62 {
  63   return sizeof(BlowfishContext);
  64 }
  65
  66 /* Encrypts with the cipher in CBC mode. Source and destination buffers
  67    maybe one and same. */
  68
  69 SILC_CIPHER_API_ENCRYPT(blowfish_cbc)
  70 {
  71   SilcUInt32 tiv[4];
  72   int i;
  73
  74   SILC_CBC_GET_IV(tiv, iv);
  75
  76   SILC_CBC_ENC_PRE(tiv, src);
  77   blowfish_encrypt((BlowfishContext *)context, tiv, tiv, 16);
  78   SILC_CBC_ENC_POST(tiv, dst, src);
  79
  80   for (i = 16; i < len; i += 16) {
  81     SILC_CBC_ENC_PRE(tiv, src);
  82     blowfish_encrypt((BlowfishContext *)context, tiv, tiv, 16);
  83     SILC_CBC_ENC_POST(tiv, dst, src);
  84   }
  85
  86   SILC_CBC_PUT_IV(tiv, iv);
  87
  88   return TRUE;
  89 }
  90
  91 /* Decrypts with the cipher in CBC mode. Source and destination buffers
  92    maybe one and same. */
  93
  94 SILC_CIPHER_API_DECRYPT(blowfish_cbc)
  95 {
  96   SilcUInt32 tmp[4], tmp2[4], tiv[4];
  97   int i;
  98
  99   SILC_CBC_GET_IV(tiv, iv);
 100
 101   SILC_CBC_DEC_PRE(tmp, src);
 102   blowfish_decrypt((BlowfishContext *)context, tmp, tmp2, 16);
 103   SILC_CBC_DEC_POST(tmp2, dst, src, tmp, tiv);
 104
 105   for (i = 16; i < len; i += 16) {
 106     SILC_CBC_DEC_PRE(tmp, src);
 107     blowfish_decrypt((BlowfishContext *)context, tmp, tmp2, 16);
 108     SILC_CBC_DEC_POST(tmp2, dst, src, tmp, tiv);
 109   }
 110
 111   SILC_CBC_PUT_IV(tiv, iv);
 112
 113   return TRUE;
 114 }
 115
 116 static u32 bf_pbox[16 + 2] =
 117 {
 118     0x243f6a88, 0x85a308d3, 0x13198a2e, 0x03707344,
 119     0xa4093822, 0x299f31d0, 0x082efa98, 0xec4e6c89,
 120     0x452821e6, 0x38d01377, 0xbe5466cf, 0x34e90c6c,
 121     0xc0ac29b7, 0xc97c50dd, 0x3f84d5b5, 0xb5470917,
 122     0x9216d5d9, 0x8979fb1b,
 123 };
 124
 125 static u32 bf_sbox[256 * 4] =
 126 {
 127     0xd1310ba6, 0x98dfb5ac, 0x2ffd72db, 0xd01adfb7,
 128     0xb8e1afed, 0x6a267e96, 0xba7c9045, 0xf12c7f99,
 129     0x24a19947, 0xb3916cf7, 0x0801f2e2, 0x858efc16,
 130     0x636920d8, 0x71574e69, 0xa458fea3, 0xf4933d7e,
 131     0x0d95748f, 0x728eb658, 0x718bcd58, 0x82154aee,
 132     0x7b54a41d, 0xc25a59b5, 0x9c30d539, 0x2af26013,
 133     0xc5d1b023, 0x286085f0, 0xca417918, 0xb8db38ef,
 134     0x8e79dcb0, 0x603a180e, 0x6c9e0e8b, 0xb01e8a3e,
 135     0xd71577c1, 0xbd314b27, 0x78af2fda, 0x55605c60,
 136     0xe65525f3, 0xaa55ab94, 0x57489862, 0x63e81440,
 137     0x55ca396a, 0x2aab10b6, 0xb4cc5c34, 0x1141e8ce,
 138     0xa15486af, 0x7c72e993, 0xb3ee1411, 0x636fbc2a,
 139     0x2ba9c55d, 0x741831f6, 0xce5c3e16, 0x9b87931e,
 140     0xafd6ba33, 0x6c24cf5c, 0x7a325381, 0x28958677,
 141     0x3b8f4898, 0x6b4bb9af, 0xc4bfe81b, 0x66282193,
 142     0x61d809cc, 0xfb21a991, 0x487cac60, 0x5dec8032,
 143     0xef845d5d, 0xe98575b1, 0xdc262302, 0xeb651b88,
 144     0x23893e81, 0xd396acc5, 0x0f6d6ff3, 0x83f44239,
 145     0x2e0b4482, 0xa4842004, 0x69c8f04a, 0x9e1f9b5e,
 146     0x21c66842, 0xf6e96c9a, 0x670c9c61, 0xabd388f0,
 147     0x6a51a0d2, 0xd8542f68, 0x960fa728, 0xab5133a3,
 148     0x6eef0b6c, 0x137a3be4, 0xba3bf050, 0x7efb2a98,
 149     0xa1f1651d, 0x39af0176, 0x66ca593e, 0x82430e88,
 150     0x8cee8619, 0x456f9fb4, 0x7d84a5c3, 0x3b8b5ebe,
 151     0xe06f75d8, 0x85c12073, 0x401a449f, 0x56c16aa6,
 152     0x4ed3aa62, 0x363f7706, 0x1bfedf72, 0x429b023d,
 153     0x37d0d724, 0xd00a1248, 0xdb0fead3, 0x49f1c09b,
 154     0x075372c9, 0x80991b7b, 0x25d479d8, 0xf6e8def7,
 155     0xe3fe501a, 0xb6794c3b, 0x976ce0bd, 0x04c006ba,
 156     0xc1a94fb6, 0x409f60c4, 0x5e5c9ec2, 0x196a2463,
 157     0x68fb6faf, 0x3e6c53b5, 0x1339b2eb, 0x3b52ec6f,
 158     0x6dfc511f, 0x9b30952c, 0xcc814544, 0xaf5ebd09,
 159     0xbee3d004, 0xde334afd, 0x660f2807, 0x192e4bb3,
 160     0xc0cba857, 0x45c8740f, 0xd20b5f39, 0xb9d3fbdb,
 161     0x5579c0bd, 0x1a60320a, 0xd6a100c6, 0x402c7279,
 162     0x679f25fe, 0xfb1fa3cc, 0x8ea5e9f8, 0xdb3222f8,
 163     0x3c7516df, 0xfd616b15, 0x2f501ec8, 0xad0552ab,
 164     0x323db5fa, 0xfd238760, 0x53317b48, 0x3e00df82,
 165     0x9e5c57bb, 0xca6f8ca0, 0x1a87562e, 0xdf1769db,
 166     0xd542a8f6, 0x287effc3, 0xac6732c6, 0x8c4f5573,
 167     0x695b27b0, 0xbbca58c8, 0xe1ffa35d, 0xb8f011a0,
 168     0x10fa3d98, 0xfd2183b8, 0x4afcb56c, 0x2dd1d35b,
 169     0x9a53e479, 0xb6f84565, 0xd28e49bc, 0x4bfb9790,
 170     0xe1ddf2da, 0xa4cb7e33, 0x62fb1341, 0xcee4c6e8,
 171     0xef20cada, 0x36774c01, 0xd07e9efe, 0x2bf11fb4,
 172     0x95dbda4d, 0xae909198, 0xeaad8e71, 0x6b93d5a0,
 173     0xd08ed1d0, 0xafc725e0, 0x8e3c5b2f, 0x8e7594b7,
 174     0x8ff6e2fb, 0xf2122b64, 0x8888b812, 0x900df01c,
 175     0x4fad5ea0, 0x688fc31c, 0xd1cff191, 0xb3a8c1ad,
 176     0x2f2f2218, 0xbe0e1777, 0xea752dfe, 0x8b021fa1,
 177     0xe5a0cc0f, 0xb56f74e8, 0x18acf3d6, 0xce89e299,
 178     0xb4a84fe0, 0xfd13e0b7, 0x7cc43b81, 0xd2ada8d9,
 179     0x165fa266, 0x80957705, 0x93cc7314, 0x211a1477,
 180     0xe6ad2065, 0x77b5fa86, 0xc75442f5, 0xfb9d35cf,
 181     0xebcdaf0c, 0x7b3e89a0, 0xd6411bd3, 0xae1e7e49,
 182     0x00250e2d, 0x2071b35e, 0x226800bb, 0x57b8e0af,
 183     0x2464369b, 0xf009b91e, 0x5563911d, 0x59dfa6aa,
 184     0x78c14389, 0xd95a537f, 0x207d5ba2, 0x02e5b9c5,
 185     0x83260376, 0x6295cfa9, 0x11c81968, 0x4e734a41,
 186     0xb3472dca, 0x7b14a94a, 0x1b510052, 0x9a532915,
 187     0xd60f573f, 0xbc9bc6e4, 0x2b60a476, 0x81e67400,
 188     0x08ba6fb5, 0x571be91f, 0xf296ec6b, 0x2a0dd915,
 189     0xb6636521, 0xe7b9f9b6, 0xff34052e, 0xc5855664,
 190     0x53b02d5d, 0xa99f8fa1, 0x08ba4799, 0x6e85076a,
 191     0x4b7a70e9, 0xb5b32944, 0xdb75092e, 0xc4192623,
 192     0xad6ea6b0, 0x49a7df7d, 0x9cee60b8, 0x8fedb266,
 193     0xecaa8c71, 0x699a17ff, 0x5664526c, 0xc2b19ee1,
 194     0x193602a5, 0x75094c29, 0xa0591340, 0xe4183a3e,
 195     0x3f54989a, 0x5b429d65, 0x6b8fe4d6, 0x99f73fd6,
 196     0xa1d29c07, 0xefe830f5, 0x4d2d38e6, 0xf0255dc1,
 197     0x4cdd2086, 0x8470eb26, 0x6382e9c6, 0x021ecc5e,
 198     0x09686b3f, 0x3ebaefc9, 0x3c971814, 0x6b6a70a1,
 199     0x687f3584, 0x52a0e286, 0xb79c5305, 0xaa500737,
 200     0x3e07841c, 0x7fdeae5c, 0x8e7d44ec, 0x5716f2b8,
 201     0xb03ada37, 0xf0500c0d, 0xf01c1f04, 0x0200b3ff,
 202     0xae0cf51a, 0x3cb574b2, 0x25837a58, 0xdc0921bd,
 203     0xd19113f9, 0x7ca92ff6, 0x94324773, 0x22f54701,
 204     0x3ae5e581, 0x37c2dadc, 0xc8b57634, 0x9af3dda7,
 205     0xa9446146, 0x0fd0030e, 0xecc8c73e, 0xa4751e41,
 206     0xe238cd99, 0x3bea0e2f, 0x3280bba1, 0x183eb331,
 207     0x4e548b38, 0x4f6db908, 0x6f420d03, 0xf60a04bf,
 208     0x2cb81290, 0x24977c79, 0x5679b072, 0xbcaf89af,
 209     0xde9a771f, 0xd9930810, 0xb38bae12, 0xdccf3f2e,
 210     0x5512721f, 0x2e6b7124, 0x501adde6, 0x9f84cd87,
 211     0x7a584718, 0x7408da17, 0xbc9f9abc, 0xe94b7d8c,
 212     0xec7aec3a, 0xdb851dfa, 0x63094366, 0xc464c3d2,
 213     0xef1c1847, 0x3215d908, 0xdd433b37, 0x24c2ba16,
 214     0x12a14d43, 0x2a65c451, 0x50940002, 0x133ae4dd,
 215     0x71dff89e, 0x10314e55, 0x81ac77d6, 0x5f11199b,
 216     0x043556f1, 0xd7a3c76b, 0x3c11183b, 0x5924a509,
 217     0xf28fe6ed, 0x97f1fbfa, 0x9ebabf2c, 0x1e153c6e,
 218     0x86e34570, 0xeae96fb1, 0x860e5e0a, 0x5a3e2ab3,
 219     0x771fe71c, 0x4e3d06fa, 0x2965dcb9, 0x99e71d0f,
 220     0x803e89d6, 0x5266c825, 0x2e4cc978, 0x9c10b36a,
 221     0xc6150eba, 0x94e2ea78, 0xa5fc3c53, 0x1e0a2df4,
 222     0xf2f74ea7, 0x361d2b3d, 0x1939260f, 0x19c27960,
 223     0x5223a708, 0xf71312b6, 0xebadfe6e, 0xeac31f66,
 224     0xe3bc4595, 0xa67bc883, 0xb17f37d1, 0x018cff28,
 225     0xc332ddef, 0xbe6c5aa5, 0x65582185, 0x68ab9802,
 226     0xeecea50f, 0xdb2f953b, 0x2aef7dad, 0x5b6e2f84,
 227     0x1521b628, 0x29076170, 0xecdd4775, 0x619f1510,
 228     0x13cca830, 0xeb61bd96, 0x0334fe1e, 0xaa0363cf,
 229     0xb5735c90, 0x4c70a239, 0xd59e9e0b, 0xcbaade14,
 230     0xeecc86bc, 0x60622ca7, 0x9cab5cab, 0xb2f3846e,
 231     0x648b1eaf, 0x19bdf0ca, 0xa02369b9, 0x655abb50,
 232     0x40685a32, 0x3c2ab4b3, 0x319ee9d5, 0xc021b8f7,
 233     0x9b540b19, 0x875fa099, 0x95f7997e, 0x623d7da8,
 234     0xf837889a, 0x97e32d77, 0x11ed935f, 0x16681281,
 235     0x0e358829, 0xc7e61fd6, 0x96dedfa1, 0x7858ba99,
 236     0x57f584a5, 0x1b227263, 0x9b83c3ff, 0x1ac24696,
 237     0xcdb30aeb, 0x532e3054, 0x8fd948e4, 0x6dbc3128,
 238     0x58ebf2ef, 0x34c6ffea, 0xfe28ed61, 0xee7c3c73,
 239     0x5d4a14d9, 0xe864b7e3, 0x42105d14, 0x203e13e0,
 240     0x45eee2b6, 0xa3aaabea, 0xdb6c4f15, 0xfacb4fd0,
 241     0xc742f442, 0xef6abbb5, 0x654f3b1d, 0x41cd2105,
 242     0xd81e799e, 0x86854dc7, 0xe44b476a, 0x3d816250,
 243     0xcf62a1f2, 0x5b8d2646, 0xfc8883a0, 0xc1c7b6a3,
 244     0x7f1524c3, 0x69cb7492, 0x47848a0b, 0x5692b285,
 245     0x095bbf00, 0xad19489d, 0x1462b174, 0x23820e00,
 246     0x58428d2a, 0x0c55f5ea, 0x1dadf43e, 0x233f7061,
 247     0x3372f092, 0x8d937e41, 0xd65fecf1, 0x6c223bdb,
 248     0x7cde3759, 0xcbee7460, 0x4085f2a7, 0xce77326e,
 249     0xa6078084, 0x19f8509e, 0xe8efd855, 0x61d99735,
 250     0xa969a7aa, 0xc50c06c2, 0x5a04abfc, 0x800bcadc,
 251     0x9e447a2e, 0xc3453484, 0xfdd56705, 0x0e1e9ec9,
 252     0xdb73dbd3, 0x105588cd, 0x675fda79, 0xe3674340,
 253     0xc5c43465, 0x713e38d8, 0x3d28f89e, 0xf16dff20,
 254     0x153e21e7, 0x8fb03d4a, 0xe6e39f2b, 0xdb83adf7,
 255     0xe93d5a68, 0x948140f7, 0xf64c261c, 0x94692934,
 256     0x411520f7, 0x7602d4f7, 0xbcf46b2e, 0xd4a20068,
 257     0xd4082471, 0x3320f46a, 0x43b7d4b7, 0x500061af,
 258     0x1e39f62e, 0x97244546, 0x14214f74, 0xbf8b8840,
 259     0x4d95fc1d, 0x96b591af, 0x70f4ddd3, 0x66a02f45,
 260     0xbfbc09ec, 0x03bd9785, 0x7fac6dd0, 0x31cb8504,
 261     0x96eb27b3, 0x55fd3941, 0xda2547e6, 0xabca0a9a,
 262     0x28507825, 0x530429f4, 0x0a2c86da, 0xe9b66dfb,
 263     0x68dc1462, 0xd7486900, 0x680ec0a4, 0x27a18dee,
 264     0x4f3ffea2, 0xe887ad8c, 0xb58ce006, 0x7af4d6b6,
 265     0xaace1e7c, 0xd3375fec, 0xce78a399, 0x406b2a42,
 266     0x20fe9e35, 0xd9f385b9, 0xee39d7ab, 0x3b124e8b,
 267     0x1dc9faf7, 0x4b6d1856, 0x26a36631, 0xeae397b2,
 268     0x3a6efa74, 0xdd5b4332, 0x6841e7f7, 0xca7820fb,
 269     0xfb0af54e, 0xd8feb397, 0x454056ac, 0xba489527,
 270     0x55533a3a, 0x20838d87, 0xfe6ba9b7, 0xd096954b,
 271     0x55a867bc, 0xa1159a58, 0xcca92963, 0x99e1db33,
 272     0xa62a4a56, 0x3f3125f9, 0x5ef47e1c, 0x9029317c,
 273     0xfdf8e802, 0x04272f70, 0x80bb155c, 0x05282ce3,
 274     0x95c11548, 0xe4c66d22, 0x48c1133f, 0xc70f86dc,
 275     0x07f9c9ee, 0x41041f0f, 0x404779a4, 0x5d886e17,
 276     0x325f51eb, 0xd59bc0d1, 0xf2bcc18f, 0x41113564,
 277     0x257b7834, 0x602a9c60, 0xdff8e8a3, 0x1f636c1b,
 278     0x0e12b4c2, 0x02e1329e, 0xaf664fd1, 0xcad18115,
 279     0x6b2395e0, 0x333e92e1, 0x3b240b62, 0xeebeb922,
 280     0x85b2a20e, 0xe6ba0d99, 0xde720c8c, 0x2da2f728,
 281     0xd0127845, 0x95b794fd, 0x647d0862, 0xe7ccf5f0,
 282     0x5449a36f, 0x877d48fa, 0xc39dfd27, 0xf33e8d1e,
 283     0x0a476341, 0x992eff74, 0x3a6f6eab, 0xf4f8fd37,
 284     0xa812dc60, 0xa1ebddf8, 0x991be14c, 0xdb6e6b0d,
 285     0xc67b5510, 0x6d672c37, 0x2765d43b, 0xdcd0e804,
 286     0xf1290dc7, 0xcc00ffa3, 0xb5390f92, 0x690fed0b,
 287     0x667b9ffb, 0xcedb7d9c, 0xa091cf0b, 0xd9155ea3,
 288     0xbb132f88, 0x515bad24, 0x7b9479bf, 0x763bd6eb,
 289     0x37392eb3, 0xcc115979, 0x8026e297, 0xf42e312d,
 290     0x6842ada7, 0xc66a2b3b, 0x12754ccc, 0x782ef11c,
 291     0x6a124237, 0xb79251e7, 0x06a1bbe6, 0x4bfb6350,
 292     0x1a6b1018, 0x11caedfa, 0x3d25bdd8, 0xe2e1c3c9,
 293     0x44421659, 0x0a121386, 0xd90cec6e, 0xd5abea2a,
 294     0x64af674e, 0xda86a85f, 0xbebfe988, 0x64e4c3fe,
 295     0x9dbc8057, 0xf0f7c086, 0x60787bf8, 0x6003604d,
 296     0xd1fd8346, 0xf6381fb0, 0x7745ae04, 0xd736fccc,
 297     0x83426b33, 0xf01eab71, 0xb0804187, 0x3c005e5f,
 298     0x77a057be, 0xbde8ae24, 0x55464299, 0xbf582e61,
 299     0x4e58f48f, 0xf2ddfda2, 0xf474ef38, 0x8789bdc2,
 300     0x5366f9c3, 0xc8b38e74, 0xb475f255, 0x46fcd9b9,
 301     0x7aeb2661, 0x8b1ddf84, 0x846a0e79, 0x915f95e2,
 302     0x466e598e, 0x20b45770, 0x8cd55591, 0xc902de4c,
 303     0xb90bace1, 0xbb8205d0, 0x11a86248, 0x7574a99e,
 304     0xb77f19b6, 0xe0a9dc09, 0x662d09a1, 0xc4324633,
 305     0xe85a1f02, 0x09f0be8c, 0x4a99a025, 0x1d6efe10,
 306     0x1ab93d1d, 0x0ba5a4df, 0xa186f20f, 0x2868f169,
 307     0xdcb7da83, 0x573906fe, 0xa1e2ce9b, 0x4fcd7f52,
 308     0x50115e01, 0xa70683fa, 0xa002b5c4, 0x0de6d027,
 309     0x9af88c27, 0x773f8641, 0xc3604c06, 0x61a806b5,
 310     0xf0177a28, 0xc0f586e0, 0x006058aa, 0x30dc7d62,
 311     0x11e69ed7, 0x2338ea63, 0x53c2dd94, 0xc2c21634,
 312     0xbbcbee56, 0x90bcb6de, 0xebfc7da1, 0xce591d76,
 313     0x6f05e409, 0x4b7c0188, 0x39720a3d, 0x7c927c24,
 314     0x86e3725f, 0x724d9db9, 0x1ac15bb4, 0xd39eb8fc,
 315     0xed545578, 0x08fca5b5, 0xd83d7cd3, 0x4dad0fc4,
 316     0x1e50ef5e, 0xb161e6f8, 0xa28514d9, 0x6c51133c,
 317     0x6fd5c7e7, 0x56e14ec4, 0x362abfce, 0xddc6c837,
 318     0xd79a3234, 0x92638212, 0x670efa8e, 0x406000e0,
 319     0x3a39ce37, 0xd3faf5cf, 0xabc27737, 0x5ac52d1b,
 320     0x5cb0679e, 0x4fa33742, 0xd3822740, 0x99bc9bbe,
 321     0xd5118e9d, 0xbf0f7315, 0xd62d1c7e, 0xc700c47b,
 322     0xb78c1b6b, 0x21a19045, 0xb26eb1be, 0x6a366eb4,
 323     0x5748ab2f, 0xbc946e79, 0xc6a376d2, 0x6549c2c8,
 324     0x530ff8ee, 0x468dde7d, 0xd5730a1d, 0x4cd04dc6,
 325     0x2939bbdb, 0xa9ba4650, 0xac9526e8, 0xbe5ee304,
 326     0xa1fad5f0, 0x6a2d519a, 0x63ef8ce2, 0x9a86ee22,
 327     0xc089c2b8, 0x43242ef6, 0xa51e03aa, 0x9cf2d0a4,
 328     0x83c061ba, 0x9be96a4d, 0x8fe51550, 0xba645bd6,
 329     0x2826a2f9, 0xa73a3ae1, 0x4ba99586, 0xef5562e9,
 330     0xc72fefd3, 0xf752f7da, 0x3f046f69, 0x77fa0a59,
 331     0x80e4a915, 0x87b08601, 0x9b09e6ad, 0x3b3ee593,
 332     0xe990fd5a, 0x9e34d797, 0x2cf0b7d9, 0x022b8b51,
 333     0x96d5ac3a, 0x017da67d, 0xd1cf3ed6, 0x7c7d2d28,
 334     0x1f9f25cf, 0xadf2b89b, 0x5ad6b472, 0x5a88f54c,
 335     0xe029ac71, 0xe019a5e6, 0x47b0acfd, 0xed93fa9b,
 336     0xe8d3c48d, 0x283b57cc, 0xf8d56629, 0x79132e28,
 337     0x785f0191, 0xed756055, 0xf7960e44, 0xe3d35e8c,
 338     0x15056dd4, 0x88f46dba, 0x03a16125, 0x0564f0bd,
 339     0xc3eb9e15, 0x3c9057a2, 0x97271aec, 0xa93a072a,
 340     0x1b3f6d9b, 0x1e6321f5, 0xf59c66fb, 0x26dcf319,
 341     0x7533d928, 0xb155fdf5, 0x03563482, 0x8aba3cbb,
 342     0x28517711, 0xc20ad9f8, 0xabcc5167, 0xccad925f,
 343     0x4de81751, 0x3830dc8e, 0x379d5862, 0x9320f991,
 344     0xea7a90c2, 0xfb3e7bce, 0x5121ce64, 0x774fbe32,
 345     0xa8b6e37e, 0xc3293d46, 0x48de5369, 0x6413e680,
 346     0xa2ae0810, 0xdd6db224, 0x69852dfd, 0x09072166,
 347     0xb39a460a, 0x6445c0dd, 0x586cdecf, 0x1c20c8ae,
 348     0x5bbef7dd, 0x1b588d40, 0xccd2017f, 0x6bb4e3bb,
 349     0xdda26a7e, 0x3a59ff45, 0x3e350a44, 0xbcb4cdd5,
 350     0x72eacea8, 0xfa6484bb, 0x8d6612ae, 0xbf3c6f47,
 351     0xd29be463, 0x542f5d9e, 0xaec2771b, 0xf64e6370,
 352     0x740e0d8d, 0xe75b1357, 0xf8721671, 0xaf537d5d,
 353     0x4040cb08, 0x4eb4e2cc, 0x34d2466a, 0x0115af84,
 354     0xe1b00428, 0x95983a1d, 0x06b89fb4, 0xce6ea048,
 355     0x6f3f3b82, 0x3520ab82, 0x011a1d4b, 0x277227f8,
 356     0x611560b1, 0xe7933fdc, 0xbb3a792b, 0x344525bd,
 357     0xa08839e1, 0x51ce794b, 0x2f32c9b7, 0xa01fbac9,
 358     0xe01cc87e, 0xbcc7d1f6, 0xcf0111c3, 0xa1e8aac7,
 359     0x1a908749, 0xd44fbd9a, 0xd0dadecb, 0xd50ada38,
 360     0x0339c32a, 0xc6913667, 0x8df9317c, 0xe0b12b4f,
 361     0xf79e59b7, 0x43f5bb3a, 0xf2d519ff, 0x27d9459c,
 362     0xbf97222c, 0x15e6fc2a, 0x0f91fc71, 0x9b941525,
 363     0xfae59361, 0xceb69ceb, 0xc2a86459, 0x12baa8d1,
 364     0xb6c1075e, 0xe3056a0c, 0x10d25065, 0xcb03a442,
 365     0xe0ec6e0e, 0x1698db3b, 0x4c98a0be, 0x3278e964,
 366     0x9f1f9532, 0xe0d392df, 0xd3a0342b, 0x8971f21e,
 367     0x1b0a7441, 0x4ba3348c, 0xc5be7120, 0xc37632d8,
 368     0xdf359f8d, 0x9b992f2e, 0xe60b6f47, 0x0fe3f11d,
 369     0xe54cda54, 0x1edad891, 0xce6279cf, 0xcd3e7e6f,
 370     0x1618b166, 0xfd2c1d05, 0x848fd2c5, 0xf6fb2299,
 371     0xf523f357, 0xa6327623, 0x93a83531, 0x56cccd02,
 372     0xacf08162, 0x5a75ebb5, 0x6e163697, 0x88d273cc,
 373     0xde966292, 0x81b949d0, 0x4c50901b, 0x71c65614,
 374     0xe6c6c7bd, 0x327a140a, 0x45e1d006, 0xc3f27b9a,
 375     0xc9aa53fd, 0x62a80f00, 0xbb25bfe2, 0x35bdd2f6,
 376     0x71126905, 0xb2040222, 0xb6cbcf7c, 0xcd769c2b,
 377     0x53113ec0, 0x1640e3d3, 0x38abbd60, 0x2547adf0,
 378     0xba38209c, 0xf746ce76, 0x77afa1c5, 0x20756060,
 379     0x85cbfe4e, 0x8ae88dd8, 0x7aaaf9b0, 0x4cf9aa7e,
 380     0x1948c25c, 0x02fb8a8c, 0x01c36ae4, 0xd6ebe1f9,
 381     0x90d4f869, 0xa65cdea0, 0x3f09252d, 0xc208e69f,
 382     0xb74e6132, 0xce77e25b, 0x578fdfe3, 0x3ac372e6,
 383 };
 384
 385 /*
 386  * Round loop unrolling macros, S is a pointer to a S-Box array
 387  * organized in 4 SilcUInt32s at a row.
 388  */
 389
 390 #define GET32_3(x) (((x) & 0xff))
 391 #define GET32_2(x) (((x) >> (8)) & (0xff))
 392 #define GET32_1(x) (((x) >> (16)) & (0xff))
 393 #define GET32_0(x) (((x) >> (24)) & (0xff))
 394
 395 #define bf_F(x) (((S[GET32_0(x)] + S[256 + GET32_1(x)]) ^ \
 396           S[512 + GET32_2(x)]) + S[768 + GET32_3(x)])
 397
 398 #define ROUND(a, b, n) b^=P[n];a ^= bf_F(b)
 399
 400 /*
 401  * The blowfish encipher, processes 64-bit blocks.
 402  * NOTE: This function MUSTN'T respect endianess
 403  */
 404
 405 int blowfish_encrypt(BlowfishContext *ctx,
 406                      u32 *in_blk, u32 *out_blk, int size)
 407 {
 408     u32 yl,yr;
 409
 410     u32 *P = ctx->P;
 411     u32 *S = ctx->S;
 412
 413     for (; size >= 8; size -= 8) {
 414         yl = *(in_blk++);
 415         yr = *(in_blk++);
 416
 417         ROUND(yr, yl, 0);
 418         ROUND(yl, yr, 1);
 419         ROUND(yr, yl, 2);
 420         ROUND(yl, yr, 3);
 421         ROUND(yr, yl, 4);
 422         ROUND(yl, yr, 5);
 423         ROUND(yr, yl, 6);
 424         ROUND(yl, yr, 7);
 425         ROUND(yr, yl, 8);
 426         ROUND(yl, yr, 9);
 427         ROUND(yr, yl, 10);
 428         ROUND(yl, yr, 11);
 429         ROUND(yr, yl, 12);
 430         ROUND(yl, yr, 13);
 431         ROUND(yr, yl, 14);
 432         ROUND(yl, yr, 15);
 433
 434         /* yl and yr are switched */
 435         yl ^= P[16];
 436         yr ^= P[17];
 437
 438         *(out_blk++) = yr;
 439         *(out_blk++) = yl;
 440     }
 441
 442     return 0;
 443 }
 444
 445 int blowfish_decrypt(BlowfishContext *ctx,
 446                      u32 *in_blk, u32 *out_blk, int size)
 447 {
 448     u32 yl,yr;
 449
 450     u32 *P = ctx->P;
 451     u32 *S = ctx->S;
 452
 453     for (; size >= 8; size -= 8) {
 454         yl = *(in_blk++);
 455         yr = *(in_blk++);
 456
 457         ROUND(yr, yl, 17);
 458         ROUND(yl, yr, 16);
 459         ROUND(yr, yl, 15);
 460         ROUND(yl, yr, 14);
 461         ROUND(yr, yl, 13);
 462         ROUND(yl, yr, 12);
 463         ROUND(yr, yl, 11);
 464         ROUND(yl, yr, 10);
 465         ROUND(yr, yl, 9);
 466         ROUND(yl, yr, 8);
 467         ROUND(yr, yl, 7);
 468         ROUND(yl, yr, 6);
 469         ROUND(yr, yl, 5);
 470         ROUND(yl, yr, 4);
 471         ROUND(yr, yl, 3);
 472         ROUND(yl, yr, 2);
 473
 474         /* yl and yr are switched */
 475         yl ^= P[1];
 476         yr ^= P[0];
 477
 478         *(out_blk++) = yr;
 479         *(out_blk++) = yl;
 480     }
 481
 482     return 0;
 483 }
 484
 485 /* Sets the blowfish S and P boxes for encryption and decryption. */
 486
 487 int blowfish_set_key(BlowfishContext *ctx,
 488                      unsigned char *key, int keybytes)
 489 {
 490     short i;
 491     short j;
 492     short count;
 493     u32 data[2];
 494     u32 temp;
 495     u32 *P = ctx->P;
 496     u32 *S = ctx->S;
 497
 498     /* Copy the initialization s-boxes */
 499
 500     for (i = 0, count = 0; i < 256; i++)
 501         for (j = 0; j < 4; j++, count++)
 502             S[count] = bf_sbox[count];
 503
 504     /* Set the p-boxes */
 505
 506     for (i = 0; i < 16 + 2; i++)
 507         P[i] = bf_pbox[i];
 508
 509     /* Actual subkey generation */
 510
 511     for (j = 0, i = 0; i < 16 + 2; i++)
 512     {
 513         temp = (((u32) key[j] << 24) |
 514                 ((u32) key[(j + 1) % keybytes] << 16) |
 515                 ((u32) key[(j + 2) % keybytes] << 8) |
 516                 ((u32) key[(j + 3) % keybytes] ));
 517
 518         P[i] = P[i] ^ temp;
 519         j = (j + 4) % keybytes;
 520     }
 521
 522     data[0] = 0x00000000;
 523     data[1] = 0x00000000;
 524
 525     for (i = 0; i < 16 + 2; i += 2)
 526     {
 527         blowfish_encrypt(ctx, data, data, 8);
 528
 529         P[i] = data[0];
 530         P[i + 1] = data[1];
 531     }
 532
 533     for (i = 0; i < 4; i++)
 534     {
 535         for (j = 0, count = i * 256; j < 256; j += 2, count += 2)
 536         {
 537             blowfish_encrypt(ctx, data, data, 8);
 538
 539             S[count] = data[0];
 540             S[count + 1] = data[1];
 541         }
 542     }
 543     return 0;
 544 }