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