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