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