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