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