1 |
/* The blowfish algorithm |
2 |
* As described in the Schneier's book. Minor changes only |
3 |
* Changed to conform to the "new" blowfish posted in 30 Oct 1994 |
4 |
*/ |
5 |
|
6 |
/* $Id: blowfish.c,v 1.1.1.1 1999/10/15 22:49:23 nmav Exp $ */ |
7 |
|
8 |
#include "blowfish.h" |
9 |
#ifndef SWAP_H |
10 |
# define SWAP_H |
11 |
# include <swap.h> |
12 |
#endif |
13 |
|
14 |
/* |
15 |
typedef struct { |
16 |
word32 S[4][256],P[18]; |
17 |
} blf_ctx; |
18 |
*/ |
19 |
|
20 |
#define MAXKEYBYTES 56 /* 448 bits */ |
21 |
|
22 |
#define N 16 |
23 |
#define KEYBYTES 8 |
24 |
|
25 |
#ifdef WORDS_BIGENDIAN |
26 |
/* ABCD - big endian - motorola */ |
27 |
union aword { |
28 |
word32 word; |
29 |
word8 byte[4]; |
30 |
struct { |
31 |
unsigned int byte0:8; |
32 |
unsigned int byte1:8; |
33 |
unsigned int byte2:8; |
34 |
unsigned int byte3:8; |
35 |
} w; |
36 |
}; |
37 |
#else |
38 |
|
39 |
/* DCBA - little endian - intel */ |
40 |
union aword { |
41 |
word32 word; |
42 |
word8 byte[4]; |
43 |
struct { |
44 |
unsigned int byte3:8; |
45 |
unsigned int byte2:8; |
46 |
unsigned int byte1:8; |
47 |
unsigned int byte0:8; |
48 |
} w; |
49 |
}; |
50 |
#endif |
51 |
|
52 |
|
53 |
word32 F(blf_ctx * bc, word32 x) |
54 |
{ |
55 |
word16 a; |
56 |
word16 b; |
57 |
word16 c; |
58 |
word16 d; |
59 |
word32 y; |
60 |
|
61 |
union aword temp; |
62 |
|
63 |
temp.word = x; |
64 |
d = temp.w.byte3; |
65 |
c = temp.w.byte2; |
66 |
b = temp.w.byte1; |
67 |
a = temp.w.byte0; |
68 |
|
69 |
y = ((bc->S[0][a] + bc->S[1][b]) ^ bc->S[2][c]) + bc->S[3][d]; |
70 |
|
71 |
return y; |
72 |
} |
73 |
|
74 |
/* x should be a 64 bit integer */ |
75 |
void _mcrypt_enblf(blf_ctx * c, word32 * x) |
76 |
{ |
77 |
word32 Xl; |
78 |
word32 Xr, temp; |
79 |
short i; |
80 |
|
81 |
#ifndef WORDS_BIGENDIAN |
82 |
Xl = x[0]; |
83 |
Xr = x[1]; |
84 |
#else |
85 |
Xl = byteswap(x[0]); |
86 |
Xr = byteswap(x[1]); |
87 |
#endif |
88 |
|
89 |
for (i = 0; i < N; ++i) { |
90 |
Xl ^= c->P[i]; |
91 |
Xr ^= F(c, Xl); |
92 |
|
93 |
temp = Xl; |
94 |
Xl = Xr; |
95 |
Xr = temp; |
96 |
} |
97 |
|
98 |
temp = Xl; |
99 |
Xl = Xr; |
100 |
Xr = temp; |
101 |
|
102 |
Xr ^= c->P[N]; |
103 |
Xl ^= c->P[N + 1]; |
104 |
|
105 |
#ifndef WORDS_BIGENDIAN |
106 |
x[0] = Xl; |
107 |
x[1] = Xr; |
108 |
#else |
109 |
x[0] = byteswap(Xl); |
110 |
x[1] = byteswap(Xr); |
111 |
#endif |
112 |
|
113 |
} |
114 |
|
115 |
/* x should be a 64 bit integer */ |
116 |
void enblf_noswap(blf_ctx * c, word32 * x) |
117 |
{ /* Used internally */ |
118 |
word32 Xl; |
119 |
word32 Xr, temp; |
120 |
short i; |
121 |
|
122 |
Xl = x[0]; |
123 |
Xr = x[1]; |
124 |
|
125 |
for (i = 0; i < N; ++i) { |
126 |
Xl ^= c->P[i]; |
127 |
Xr ^= F(c, Xl); |
128 |
|
129 |
temp = Xl; |
130 |
Xl = Xr; |
131 |
Xr = temp; |
132 |
} |
133 |
|
134 |
temp = Xl; |
135 |
Xl = Xr; |
136 |
Xr = temp; |
137 |
|
138 |
Xr ^= c->P[N]; |
139 |
Xl ^= c->P[N + 1]; |
140 |
|
141 |
x[0] = Xl; |
142 |
x[1] = Xr; |
143 |
} |
144 |
|
145 |
void _mcrypt_deblf(blf_ctx * c, word32 * x) |
146 |
{ |
147 |
word32 Xl, Xr, temp; |
148 |
short i; |
149 |
|
150 |
#ifndef WORDS_BIGENDIAN |
151 |
Xl = x[0]; |
152 |
Xr = x[1]; |
153 |
#else |
154 |
Xl = byteswap(x[0]); |
155 |
Xr = byteswap(x[1]); |
156 |
#endif |
157 |
|
158 |
for (i = N + 1; i > 1; --i) { |
159 |
Xl ^= c->P[i]; |
160 |
Xr ^= F(c, Xl); |
161 |
|
162 |
temp = Xl; |
163 |
Xl = Xr; |
164 |
Xr = temp; |
165 |
} |
166 |
|
167 |
temp = Xl; |
168 |
Xl = Xr; |
169 |
Xr = temp; |
170 |
|
171 |
Xr ^= c->P[1]; |
172 |
Xl ^= c->P[0]; |
173 |
|
174 |
#ifndef WORDS_BIGENDIAN |
175 |
x[0] = Xl; |
176 |
x[1] = Xr; |
177 |
#else |
178 |
x[0] = byteswap(Xl); |
179 |
x[1] = byteswap(Xr); |
180 |
#endif |
181 |
} |
182 |
|
183 |
|
184 |
short initialize_blowfish(blf_ctx * c, char key[], short keybytes) |
185 |
{ |
186 |
short i, j; |
187 |
word32 data, datarl[2]; |
188 |
union aword temp; |
189 |
|
190 |
word32 ks0[] = { |
191 |
0xd1310ba6L, 0x98dfb5acL, 0x2ffd72dbL, 0xd01adfb7L, |
192 |
0xb8e1afedL, 0x6a267e96L, |
193 |
0xba7c9045L, 0xf12c7f99L, 0x24a19947L, 0xb3916cf7L, |
194 |
0x0801f2e2L, 0x858efc16L, |
195 |
0x636920d8L, 0x71574e69L, 0xa458fea3L, 0xf4933d7eL, |
196 |
0x0d95748fL, 0x728eb658L, |
197 |
0x718bcd58L, 0x82154aeeL, 0x7b54a41dL, 0xc25a59b5L, |
198 |
0x9c30d539L, 0x2af26013L, |
199 |
0xc5d1b023L, 0x286085f0L, 0xca417918L, 0xb8db38efL, |
200 |
0x8e79dcb0L, 0x603a180eL, |
201 |
0x6c9e0e8bL, 0xb01e8a3eL, 0xd71577c1L, 0xbd314b27L, |
202 |
0x78af2fdaL, 0x55605c60L, |
203 |
0xe65525f3L, 0xaa55ab94L, 0x57489862L, 0x63e81440L, |
204 |
0x55ca396aL, 0x2aab10b6L, |
205 |
0xb4cc5c34L, 0x1141e8ceL, 0xa15486afL, 0x7c72e993L, |
206 |
0xb3ee1411L, 0x636fbc2aL, |
207 |
0x2ba9c55dL, 0x741831f6L, 0xce5c3e16L, 0x9b87931eL, |
208 |
0xafd6ba33L, 0x6c24cf5cL, |
209 |
0x7a325381L, 0x28958677L, 0x3b8f4898L, 0x6b4bb9afL, |
210 |
0xc4bfe81bL, 0x66282193L, |
211 |
0x61d809ccL, 0xfb21a991L, 0x487cac60L, 0x5dec8032L, |
212 |
0xef845d5dL, 0xe98575b1L, |
213 |
0xdc262302L, 0xeb651b88L, 0x23893e81L, 0xd396acc5L, |
214 |
0x0f6d6ff3L, 0x83f44239L, |
215 |
0x2e0b4482L, 0xa4842004L, 0x69c8f04aL, 0x9e1f9b5eL, |
216 |
0x21c66842L, 0xf6e96c9aL, |
217 |
0x670c9c61L, 0xabd388f0L, 0x6a51a0d2L, 0xd8542f68L, |
218 |
0x960fa728L, 0xab5133a3L, |
219 |
0x6eef0b6cL, 0x137a3be4L, 0xba3bf050L, 0x7efb2a98L, |
220 |
0xa1f1651dL, 0x39af0176L, |
221 |
0x66ca593eL, 0x82430e88L, 0x8cee8619L, 0x456f9fb4L, |
222 |
0x7d84a5c3L, 0x3b8b5ebeL, |
223 |
0xe06f75d8L, 0x85c12073L, 0x401a449fL, 0x56c16aa6L, |
224 |
0x4ed3aa62L, 0x363f7706L, |
225 |
0x1bfedf72L, 0x429b023dL, 0x37d0d724L, 0xd00a1248L, |
226 |
0xdb0fead3L, 0x49f1c09bL, |
227 |
0x075372c9L, 0x80991b7bL, 0x25d479d8L, 0xf6e8def7L, |
228 |
0xe3fe501aL, 0xb6794c3bL, |
229 |
0x976ce0bdL, 0x04c006baL, 0xc1a94fb6L, 0x409f60c4L, |
230 |
0x5e5c9ec2L, 0x196a2463L, |
231 |
0x68fb6fafL, 0x3e6c53b5L, 0x1339b2ebL, 0x3b52ec6fL, |
232 |
0x6dfc511fL, 0x9b30952cL, |
233 |
0xcc814544L, 0xaf5ebd09L, 0xbee3d004L, 0xde334afdL, |
234 |
0x660f2807L, 0x192e4bb3L, |
235 |
0xc0cba857L, 0x45c8740fL, 0xd20b5f39L, 0xb9d3fbdbL, |
236 |
0x5579c0bdL, 0x1a60320aL, |
237 |
0xd6a100c6L, 0x402c7279L, 0x679f25feL, 0xfb1fa3ccL, |
238 |
0x8ea5e9f8L, 0xdb3222f8L, |
239 |
0x3c7516dfL, 0xfd616b15L, 0x2f501ec8L, 0xad0552abL, |
240 |
0x323db5faL, 0xfd238760L, |
241 |
0x53317b48L, 0x3e00df82L, 0x9e5c57bbL, 0xca6f8ca0L, |
242 |
0x1a87562eL, 0xdf1769dbL, |
243 |
0xd542a8f6L, 0x287effc3L, 0xac6732c6L, 0x8c4f5573L, |
244 |
0x695b27b0L, 0xbbca58c8L, |
245 |
0xe1ffa35dL, 0xb8f011a0L, 0x10fa3d98L, 0xfd2183b8L, |
246 |
0x4afcb56cL, 0x2dd1d35bL, |
247 |
0x9a53e479L, 0xb6f84565L, 0xd28e49bcL, 0x4bfb9790L, |
248 |
0xe1ddf2daL, 0xa4cb7e33L, |
249 |
0x62fb1341L, 0xcee4c6e8L, 0xef20cadaL, 0x36774c01L, |
250 |
0xd07e9efeL, 0x2bf11fb4L, |
251 |
0x95dbda4dL, 0xae909198L, 0xeaad8e71L, 0x6b93d5a0L, |
252 |
0xd08ed1d0L, 0xafc725e0L, |
253 |
0x8e3c5b2fL, 0x8e7594b7L, 0x8ff6e2fbL, 0xf2122b64L, |
254 |
0x8888b812L, 0x900df01cL, |
255 |
0x4fad5ea0L, 0x688fc31cL, 0xd1cff191L, 0xb3a8c1adL, |
256 |
0x2f2f2218L, 0xbe0e1777L, |
257 |
0xea752dfeL, 0x8b021fa1L, 0xe5a0cc0fL, 0xb56f74e8L, |
258 |
0x18acf3d6L, 0xce89e299L, |
259 |
0xb4a84fe0L, 0xfd13e0b7L, 0x7cc43b81L, 0xd2ada8d9L, |
260 |
0x165fa266L, 0x80957705L, |
261 |
0x93cc7314L, 0x211a1477L, 0xe6ad2065L, 0x77b5fa86L, |
262 |
0xc75442f5L, 0xfb9d35cfL, |
263 |
0xebcdaf0cL, 0x7b3e89a0L, 0xd6411bd3L, 0xae1e7e49L, |
264 |
0x00250e2dL, 0x2071b35eL, |
265 |
0x226800bbL, 0x57b8e0afL, 0x2464369bL, 0xf009b91eL, |
266 |
0x5563911dL, 0x59dfa6aaL, |
267 |
0x78c14389L, 0xd95a537fL, 0x207d5ba2L, 0x02e5b9c5L, |
268 |
0x83260376L, 0x6295cfa9L, |
269 |
0x11c81968L, 0x4e734a41L, 0xb3472dcaL, 0x7b14a94aL, |
270 |
0x1b510052L, 0x9a532915L, |
271 |
0xd60f573fL, 0xbc9bc6e4L, 0x2b60a476L, 0x81e67400L, |
272 |
0x08ba6fb5L, 0x571be91fL, |
273 |
0xf296ec6bL, 0x2a0dd915L, 0xb6636521L, 0xe7b9f9b6L, |
274 |
0xff34052eL, 0xc5855664L, |
275 |
0x53b02d5dL, 0xa99f8fa1L, 0x08ba4799L, 0x6e85076aL |
276 |
}; |
277 |
|
278 |
word32 ks1[] = { |
279 |
0x4b7a70e9L, 0xb5b32944L, 0xdb75092eL, 0xc4192623L, |
280 |
0xad6ea6b0L, 0x49a7df7dL, |
281 |
0x9cee60b8L, 0x8fedb266L, 0xecaa8c71L, 0x699a17ffL, |
282 |
0x5664526cL, 0xc2b19ee1L, |
283 |
0x193602a5L, 0x75094c29L, 0xa0591340L, 0xe4183a3eL, |
284 |
0x3f54989aL, 0x5b429d65L, |
285 |
0x6b8fe4d6L, 0x99f73fd6L, 0xa1d29c07L, 0xefe830f5L, |
286 |
0x4d2d38e6L, 0xf0255dc1L, |
287 |
0x4cdd2086L, 0x8470eb26L, 0x6382e9c6L, 0x021ecc5eL, |
288 |
0x09686b3fL, 0x3ebaefc9L, |
289 |
0x3c971814L, 0x6b6a70a1L, 0x687f3584L, 0x52a0e286L, |
290 |
0xb79c5305L, 0xaa500737L, |
291 |
0x3e07841cL, 0x7fdeae5cL, 0x8e7d44ecL, 0x5716f2b8L, |
292 |
0xb03ada37L, 0xf0500c0dL, |
293 |
0xf01c1f04L, 0x0200b3ffL, 0xae0cf51aL, 0x3cb574b2L, |
294 |
0x25837a58L, 0xdc0921bdL, |
295 |
0xd19113f9L, 0x7ca92ff6L, 0x94324773L, 0x22f54701L, |
296 |
0x3ae5e581L, 0x37c2dadcL, |
297 |
0xc8b57634L, 0x9af3dda7L, 0xa9446146L, 0x0fd0030eL, |
298 |
0xecc8c73eL, 0xa4751e41L, |
299 |
0xe238cd99L, 0x3bea0e2fL, 0x3280bba1L, 0x183eb331L, |
300 |
0x4e548b38L, 0x4f6db908L, |
301 |
0x6f420d03L, 0xf60a04bfL, 0x2cb81290L, 0x24977c79L, |
302 |
0x5679b072L, 0xbcaf89afL, |
303 |
0xde9a771fL, 0xd9930810L, 0xb38bae12L, 0xdccf3f2eL, |
304 |
0x5512721fL, 0x2e6b7124L, |
305 |
0x501adde6L, 0x9f84cd87L, 0x7a584718L, 0x7408da17L, |
306 |
0xbc9f9abcL, 0xe94b7d8cL, |
307 |
0xec7aec3aL, 0xdb851dfaL, 0x63094366L, 0xc464c3d2L, |
308 |
0xef1c1847L, 0x3215d908L, |
309 |
0xdd433b37L, 0x24c2ba16L, 0x12a14d43L, 0x2a65c451L, |
310 |
0x50940002L, 0x133ae4ddL, |
311 |
0x71dff89eL, 0x10314e55L, 0x81ac77d6L, 0x5f11199bL, |
312 |
0x043556f1L, 0xd7a3c76bL, |
313 |
0x3c11183bL, 0x5924a509L, 0xf28fe6edL, 0x97f1fbfaL, |
314 |
0x9ebabf2cL, 0x1e153c6eL, |
315 |
0x86e34570L, 0xeae96fb1L, 0x860e5e0aL, 0x5a3e2ab3L, |
316 |
0x771fe71cL, 0x4e3d06faL, |
317 |
0x2965dcb9L, 0x99e71d0fL, 0x803e89d6L, 0x5266c825L, |
318 |
0x2e4cc978L, 0x9c10b36aL, |
319 |
0xc6150ebaL, 0x94e2ea78L, 0xa5fc3c53L, 0x1e0a2df4L, |
320 |
0xf2f74ea7L, 0x361d2b3dL, |
321 |
0x1939260fL, 0x19c27960L, 0x5223a708L, 0xf71312b6L, |
322 |
0xebadfe6eL, 0xeac31f66L, |
323 |
0xe3bc4595L, 0xa67bc883L, 0xb17f37d1L, 0x018cff28L, |
324 |
0xc332ddefL, 0xbe6c5aa5L, |
325 |
0x65582185L, 0x68ab9802L, 0xeecea50fL, 0xdb2f953bL, |
326 |
0x2aef7dadL, 0x5b6e2f84L, |
327 |
0x1521b628L, 0x29076170L, 0xecdd4775L, 0x619f1510L, |
328 |
0x13cca830L, 0xeb61bd96L, |
329 |
0x0334fe1eL, 0xaa0363cfL, 0xb5735c90L, 0x4c70a239L, |
330 |
0xd59e9e0bL, 0xcbaade14L, |
331 |
0xeecc86bcL, 0x60622ca7L, 0x9cab5cabL, 0xb2f3846eL, |
332 |
0x648b1eafL, 0x19bdf0caL, |
333 |
0xa02369b9L, 0x655abb50L, 0x40685a32L, 0x3c2ab4b3L, |
334 |
0x319ee9d5L, 0xc021b8f7L, |
335 |
0x9b540b19L, 0x875fa099L, 0x95f7997eL, 0x623d7da8L, |
336 |
0xf837889aL, 0x97e32d77L, |
337 |
0x11ed935fL, 0x16681281L, 0x0e358829L, 0xc7e61fd6L, |
338 |
0x96dedfa1L, 0x7858ba99L, |
339 |
0x57f584a5L, 0x1b227263L, 0x9b83c3ffL, 0x1ac24696L, |
340 |
0xcdb30aebL, 0x532e3054L, |
341 |
0x8fd948e4L, 0x6dbc3128L, 0x58ebf2efL, 0x34c6ffeaL, |
342 |
0xfe28ed61L, 0xee7c3c73L, |
343 |
0x5d4a14d9L, 0xe864b7e3L, 0x42105d14L, 0x203e13e0L, |
344 |
0x45eee2b6L, 0xa3aaabeaL, |
345 |
0xdb6c4f15L, 0xfacb4fd0L, 0xc742f442L, 0xef6abbb5L, |
346 |
0x654f3b1dL, 0x41cd2105L, |
347 |
0xd81e799eL, 0x86854dc7L, 0xe44b476aL, 0x3d816250L, |
348 |
0xcf62a1f2L, 0x5b8d2646L, |
349 |
0xfc8883a0L, 0xc1c7b6a3L, 0x7f1524c3L, 0x69cb7492L, |
350 |
0x47848a0bL, 0x5692b285L, |
351 |
0x095bbf00L, 0xad19489dL, 0x1462b174L, 0x23820e00L, |
352 |
0x58428d2aL, 0x0c55f5eaL, |
353 |
0x1dadf43eL, 0x233f7061L, 0x3372f092L, 0x8d937e41L, |
354 |
0xd65fecf1L, 0x6c223bdbL, |
355 |
0x7cde3759L, 0xcbee7460L, 0x4085f2a7L, 0xce77326eL, |
356 |
0xa6078084L, 0x19f8509eL, |
357 |
0xe8efd855L, 0x61d99735L, 0xa969a7aaL, 0xc50c06c2L, |
358 |
0x5a04abfcL, 0x800bcadcL, |
359 |
0x9e447a2eL, 0xc3453484L, 0xfdd56705L, 0x0e1e9ec9L, |
360 |
0xdb73dbd3L, 0x105588cdL, |
361 |
0x675fda79L, 0xe3674340L, 0xc5c43465L, 0x713e38d8L, |
362 |
0x3d28f89eL, 0xf16dff20L, |
363 |
0x153e21e7L, 0x8fb03d4aL, 0xe6e39f2bL, 0xdb83adf7L |
364 |
}; |
365 |
|
366 |
word32 ks2[] = { |
367 |
0xe93d5a68L, 0x948140f7L, 0xf64c261cL, 0x94692934L, |
368 |
0x411520f7L, 0x7602d4f7L, |
369 |
0xbcf46b2eL, 0xd4a20068L, 0xd4082471L, 0x3320f46aL, |
370 |
0x43b7d4b7L, 0x500061afL, |
371 |
0x1e39f62eL, 0x97244546L, 0x14214f74L, 0xbf8b8840L, |
372 |
0x4d95fc1dL, 0x96b591afL, |
373 |
0x70f4ddd3L, 0x66a02f45L, 0xbfbc09ecL, 0x03bd9785L, |
374 |
0x7fac6dd0L, 0x31cb8504L, |
375 |
0x96eb27b3L, 0x55fd3941L, 0xda2547e6L, 0xabca0a9aL, |
376 |
0x28507825L, 0x530429f4L, |
377 |
0x0a2c86daL, 0xe9b66dfbL, 0x68dc1462L, 0xd7486900L, |
378 |
0x680ec0a4L, 0x27a18deeL, |
379 |
0x4f3ffea2L, 0xe887ad8cL, 0xb58ce006L, 0x7af4d6b6L, |
380 |
0xaace1e7cL, 0xd3375fecL, |
381 |
0xce78a399L, 0x406b2a42L, 0x20fe9e35L, 0xd9f385b9L, |
382 |
0xee39d7abL, 0x3b124e8bL, |
383 |
0x1dc9faf7L, 0x4b6d1856L, 0x26a36631L, 0xeae397b2L, |
384 |
0x3a6efa74L, 0xdd5b4332L, |
385 |
0x6841e7f7L, 0xca7820fbL, 0xfb0af54eL, 0xd8feb397L, |
386 |
0x454056acL, 0xba489527L, |
387 |
0x55533a3aL, 0x20838d87L, 0xfe6ba9b7L, 0xd096954bL, |
388 |
0x55a867bcL, 0xa1159a58L, |
389 |
0xcca92963L, 0x99e1db33L, 0xa62a4a56L, 0x3f3125f9L, |
390 |
0x5ef47e1cL, 0x9029317cL, |
391 |
0xfdf8e802L, 0x04272f70L, 0x80bb155cL, 0x05282ce3L, |
392 |
0x95c11548L, 0xe4c66d22L, |
393 |
0x48c1133fL, 0xc70f86dcL, 0x07f9c9eeL, 0x41041f0fL, |
394 |
0x404779a4L, 0x5d886e17L, |
395 |
0x325f51ebL, 0xd59bc0d1L, 0xf2bcc18fL, 0x41113564L, |
396 |
0x257b7834L, 0x602a9c60L, |
397 |
0xdff8e8a3L, 0x1f636c1bL, 0x0e12b4c2L, 0x02e1329eL, |
398 |
0xaf664fd1L, 0xcad18115L, |
399 |
0x6b2395e0L, 0x333e92e1L, 0x3b240b62L, 0xeebeb922L, |
400 |
0x85b2a20eL, 0xe6ba0d99L, |
401 |
0xde720c8cL, 0x2da2f728L, 0xd0127845L, 0x95b794fdL, |
402 |
0x647d0862L, 0xe7ccf5f0L, |
403 |
0x5449a36fL, 0x877d48faL, 0xc39dfd27L, 0xf33e8d1eL, |
404 |
0x0a476341L, 0x992eff74L, |
405 |
0x3a6f6eabL, 0xf4f8fd37L, 0xa812dc60L, 0xa1ebddf8L, |
406 |
0x991be14cL, 0xdb6e6b0dL, |
407 |
0xc67b5510L, 0x6d672c37L, 0x2765d43bL, 0xdcd0e804L, |
408 |
0xf1290dc7L, 0xcc00ffa3L, |
409 |
0xb5390f92L, 0x690fed0bL, 0x667b9ffbL, 0xcedb7d9cL, |
410 |
0xa091cf0bL, 0xd9155ea3L, |
411 |
0xbb132f88L, 0x515bad24L, 0x7b9479bfL, 0x763bd6ebL, |
412 |
0x37392eb3L, 0xcc115979L, |
413 |
0x8026e297L, 0xf42e312dL, 0x6842ada7L, 0xc66a2b3bL, |
414 |
0x12754cccL, 0x782ef11cL, |
415 |
0x6a124237L, 0xb79251e7L, 0x06a1bbe6L, 0x4bfb6350L, |
416 |
0x1a6b1018L, 0x11caedfaL, |
417 |
0x3d25bdd8L, 0xe2e1c3c9L, 0x44421659L, 0x0a121386L, |
418 |
0xd90cec6eL, 0xd5abea2aL, |
419 |
0x64af674eL, 0xda86a85fL, 0xbebfe988L, 0x64e4c3feL, |
420 |
0x9dbc8057L, 0xf0f7c086L, |
421 |
0x60787bf8L, 0x6003604dL, 0xd1fd8346L, 0xf6381fb0L, |
422 |
0x7745ae04L, 0xd736fcccL, |
423 |
0x83426b33L, 0xf01eab71L, 0xb0804187L, 0x3c005e5fL, |
424 |
0x77a057beL, 0xbde8ae24L, |
425 |
0x55464299L, 0xbf582e61L, 0x4e58f48fL, 0xf2ddfda2L, |
426 |
0xf474ef38L, 0x8789bdc2L, |
427 |
0x5366f9c3L, 0xc8b38e74L, 0xb475f255L, 0x46fcd9b9L, |
428 |
0x7aeb2661L, 0x8b1ddf84L, |
429 |
0x846a0e79L, 0x915f95e2L, 0x466e598eL, 0x20b45770L, |
430 |
0x8cd55591L, 0xc902de4cL, |
431 |
0xb90bace1L, 0xbb8205d0L, 0x11a86248L, 0x7574a99eL, |
432 |
0xb77f19b6L, 0xe0a9dc09L, |
433 |
0x662d09a1L, 0xc4324633L, 0xe85a1f02L, 0x09f0be8cL, |
434 |
0x4a99a025L, 0x1d6efe10L, |
435 |
0x1ab93d1dL, 0x0ba5a4dfL, 0xa186f20fL, 0x2868f169L, |
436 |
0xdcb7da83L, 0x573906feL, |
437 |
0xa1e2ce9bL, 0x4fcd7f52L, 0x50115e01L, 0xa70683faL, |
438 |
0xa002b5c4L, 0x0de6d027L, |
439 |
0x9af88c27L, 0x773f8641L, 0xc3604c06L, 0x61a806b5L, |
440 |
0xf0177a28L, 0xc0f586e0L, |
441 |
0x006058aaL, 0x30dc7d62L, 0x11e69ed7L, 0x2338ea63L, |
442 |
0x53c2dd94L, 0xc2c21634L, |
443 |
0xbbcbee56L, 0x90bcb6deL, 0xebfc7da1L, 0xce591d76L, |
444 |
0x6f05e409L, 0x4b7c0188L, |
445 |
0x39720a3dL, 0x7c927c24L, 0x86e3725fL, 0x724d9db9L, |
446 |
0x1ac15bb4L, 0xd39eb8fcL, |
447 |
0xed545578L, 0x08fca5b5L, 0xd83d7cd3L, 0x4dad0fc4L, |
448 |
0x1e50ef5eL, 0xb161e6f8L, |
449 |
0xa28514d9L, 0x6c51133cL, 0x6fd5c7e7L, 0x56e14ec4L, |
450 |
0x362abfceL, 0xddc6c837L, |
451 |
0xd79a3234L, 0x92638212L, 0x670efa8eL, 0x406000e0L |
452 |
}; |
453 |
|
454 |
word32 ks3[] = { |
455 |
0x3a39ce37L, 0xd3faf5cfL, 0xabc27737L, 0x5ac52d1bL, |
456 |
0x5cb0679eL, 0x4fa33742L, |
457 |
0xd3822740L, 0x99bc9bbeL, 0xd5118e9dL, 0xbf0f7315L, |
458 |
0xd62d1c7eL, 0xc700c47bL, |
459 |
0xb78c1b6bL, 0x21a19045L, 0xb26eb1beL, 0x6a366eb4L, |
460 |
0x5748ab2fL, 0xbc946e79L, |
461 |
0xc6a376d2L, 0x6549c2c8L, 0x530ff8eeL, 0x468dde7dL, |
462 |
0xd5730a1dL, 0x4cd04dc6L, |
463 |
0x2939bbdbL, 0xa9ba4650L, 0xac9526e8L, 0xbe5ee304L, |
464 |
0xa1fad5f0L, 0x6a2d519aL, |
465 |
0x63ef8ce2L, 0x9a86ee22L, 0xc089c2b8L, 0x43242ef6L, |
466 |
0xa51e03aaL, 0x9cf2d0a4L, |
467 |
0x83c061baL, 0x9be96a4dL, 0x8fe51550L, 0xba645bd6L, |
468 |
0x2826a2f9L, 0xa73a3ae1L, |
469 |
0x4ba99586L, 0xef5562e9L, 0xc72fefd3L, 0xf752f7daL, |
470 |
0x3f046f69L, 0x77fa0a59L, |
471 |
0x80e4a915L, 0x87b08601L, 0x9b09e6adL, 0x3b3ee593L, |
472 |
0xe990fd5aL, 0x9e34d797L, |
473 |
0x2cf0b7d9L, 0x022b8b51L, 0x96d5ac3aL, 0x017da67dL, |
474 |
0xd1cf3ed6L, 0x7c7d2d28L, |
475 |
0x1f9f25cfL, 0xadf2b89bL, 0x5ad6b472L, 0x5a88f54cL, |
476 |
0xe029ac71L, 0xe019a5e6L, |
477 |
0x47b0acfdL, 0xed93fa9bL, 0xe8d3c48dL, 0x283b57ccL, |
478 |
0xf8d56629L, 0x79132e28L, |
479 |
0x785f0191L, 0xed756055L, 0xf7960e44L, 0xe3d35e8cL, |
480 |
0x15056dd4L, 0x88f46dbaL, |
481 |
0x03a16125L, 0x0564f0bdL, 0xc3eb9e15L, 0x3c9057a2L, |
482 |
0x97271aecL, 0xa93a072aL, |
483 |
0x1b3f6d9bL, 0x1e6321f5L, 0xf59c66fbL, 0x26dcf319L, |
484 |
0x7533d928L, 0xb155fdf5L, |
485 |
0x03563482L, 0x8aba3cbbL, 0x28517711L, 0xc20ad9f8L, |
486 |
0xabcc5167L, 0xccad925fL, |
487 |
0x4de81751L, 0x3830dc8eL, 0x379d5862L, 0x9320f991L, |
488 |
0xea7a90c2L, 0xfb3e7bceL, |
489 |
0x5121ce64L, 0x774fbe32L, 0xa8b6e37eL, 0xc3293d46L, |
490 |
0x48de5369L, 0x6413e680L, |
491 |
0xa2ae0810L, 0xdd6db224L, 0x69852dfdL, 0x09072166L, |
492 |
0xb39a460aL, 0x6445c0ddL, |
493 |
0x586cdecfL, 0x1c20c8aeL, 0x5bbef7ddL, 0x1b588d40L, |
494 |
0xccd2017fL, 0x6bb4e3bbL, |
495 |
0xdda26a7eL, 0x3a59ff45L, 0x3e350a44L, 0xbcb4cdd5L, |
496 |
0x72eacea8L, 0xfa6484bbL, |
497 |
0x8d6612aeL, 0xbf3c6f47L, 0xd29be463L, 0x542f5d9eL, |
498 |
0xaec2771bL, 0xf64e6370L, |
499 |
0x740e0d8dL, 0xe75b1357L, 0xf8721671L, 0xaf537d5dL, |
500 |
0x4040cb08L, 0x4eb4e2ccL, |
501 |
0x34d2466aL, 0x0115af84L, 0xe1b00428L, 0x95983a1dL, |
502 |
0x06b89fb4L, 0xce6ea048L, |
503 |
0x6f3f3b82L, 0x3520ab82L, 0x011a1d4bL, 0x277227f8L, |
504 |
0x611560b1L, 0xe7933fdcL, |
505 |
0xbb3a792bL, 0x344525bdL, 0xa08839e1L, 0x51ce794bL, |
506 |
0x2f32c9b7L, 0xa01fbac9L, |
507 |
0xe01cc87eL, 0xbcc7d1f6L, 0xcf0111c3L, 0xa1e8aac7L, |
508 |
0x1a908749L, 0xd44fbd9aL, |
509 |
0xd0dadecbL, 0xd50ada38L, 0x0339c32aL, 0xc6913667L, |
510 |
0x8df9317cL, 0xe0b12b4fL, |
511 |
0xf79e59b7L, 0x43f5bb3aL, 0xf2d519ffL, 0x27d9459cL, |
512 |
0xbf97222cL, 0x15e6fc2aL, |
513 |
0x0f91fc71L, 0x9b941525L, 0xfae59361L, 0xceb69cebL, |
514 |
0xc2a86459L, 0x12baa8d1L, |
515 |
0xb6c1075eL, 0xe3056a0cL, 0x10d25065L, 0xcb03a442L, |
516 |
0xe0ec6e0eL, 0x1698db3bL, |
517 |
0x4c98a0beL, 0x3278e964L, 0x9f1f9532L, 0xe0d392dfL, |
518 |
0xd3a0342bL, 0x8971f21eL, |
519 |
0x1b0a7441L, 0x4ba3348cL, 0xc5be7120L, 0xc37632d8L, |
520 |
0xdf359f8dL, 0x9b992f2eL, |
521 |
0xe60b6f47L, 0x0fe3f11dL, 0xe54cda54L, 0x1edad891L, |
522 |
0xce6279cfL, 0xcd3e7e6fL, |
523 |
0x1618b166L, 0xfd2c1d05L, 0x848fd2c5L, 0xf6fb2299L, |
524 |
0xf523f357L, 0xa6327623L, |
525 |
0x93a83531L, 0x56cccd02L, 0xacf08162L, 0x5a75ebb5L, |
526 |
0x6e163697L, 0x88d273ccL, |
527 |
0xde966292L, 0x81b949d0L, 0x4c50901bL, 0x71c65614L, |
528 |
0xe6c6c7bdL, 0x327a140aL, |
529 |
0x45e1d006L, 0xc3f27b9aL, 0xc9aa53fdL, 0x62a80f00L, |
530 |
0xbb25bfe2L, 0x35bdd2f6L, |
531 |
0x71126905L, 0xb2040222L, 0xb6cbcf7cL, 0xcd769c2bL, |
532 |
0x53113ec0L, 0x1640e3d3L, |
533 |
0x38abbd60L, 0x2547adf0L, 0xba38209cL, 0xf746ce76L, |
534 |
0x77afa1c5L, 0x20756060L, |
535 |
0x85cbfe4eL, 0x8ae88dd8L, 0x7aaaf9b0L, 0x4cf9aa7eL, |
536 |
0x1948c25cL, 0x02fb8a8cL, |
537 |
0x01c36ae4L, 0xd6ebe1f9L, 0x90d4f869L, 0xa65cdea0L, |
538 |
0x3f09252dL, 0xc208e69fL, |
539 |
0xb74e6132L, 0xce77e25bL, 0x578fdfe3L, 0x3ac372e6L |
540 |
}; |
541 |
|
542 |
|
543 |
word32 pi[] = { |
544 |
0x243f6a88L, 0x85a308d3L, 0x13198a2eL, 0x03707344L, |
545 |
0xa4093822L, 0x299f31d0L, |
546 |
0x082efa98L, 0xec4e6c89L, 0x452821e6L, 0x38d01377L, |
547 |
0xbe5466cfL, 0x34e90c6cL, |
548 |
0xc0ac29b7L, 0xc97c50ddL, 0x3f84d5b5L, 0xb5470917L, |
549 |
0x9216d5d9L, 0x8979fb1bL |
550 |
}; |
551 |
|
552 |
|
553 |
/* Initialize s-boxes without file read. */ |
554 |
for (i = 0; i < 256; i++) { |
555 |
c->S[0][i] = ks0[i]; |
556 |
c->S[1][i] = ks1[i]; |
557 |
c->S[2][i] = ks2[i]; |
558 |
c->S[3][i] = ks3[i]; |
559 |
} |
560 |
|
561 |
/* P-boxes */ |
562 |
for (i = 0; i < 18; i++) { |
563 |
c->P[i] = pi[i]; |
564 |
} |
565 |
|
566 |
j = 0; |
567 |
for (i = 0; i < N + 2; ++i) { |
568 |
temp.word = 0; |
569 |
temp.w.byte0 = key[j]; |
570 |
temp.w.byte1 = key[(j + 1) % keybytes]; |
571 |
temp.w.byte2 = key[(j + 2) % keybytes]; |
572 |
temp.w.byte3 = key[(j + 3) % keybytes]; |
573 |
data = temp.word; |
574 |
|
575 |
c->P[i] = c->P[i] ^ data; |
576 |
j = (j + 4) % keybytes; |
577 |
} |
578 |
|
579 |
datarl[0] = 0x000000000; |
580 |
datarl[1] = 0x000000000; |
581 |
|
582 |
for (i = 0; i < N + 2; i += 2) { |
583 |
enblf_noswap(c, datarl); |
584 |
c->P[i] = datarl[0]; |
585 |
c->P[i + 1] = datarl[1]; |
586 |
} |
587 |
|
588 |
|
589 |
for (i = 0; i < 4; ++i) { |
590 |
for (j = 0; j < 256; j += 2) { |
591 |
|
592 |
enblf_noswap(c, datarl); |
593 |
c->S[i][j] = datarl[0]; |
594 |
c->S[i][j + 1] = datarl[1]; |
595 |
} |
596 |
} |
597 |
|
598 |
return 0; |
599 |
} |
600 |
|
601 |
void _mcrypt_blf_key(blf_ctx * c, char *k, int len) |
602 |
{ |
603 |
initialize_blowfish(c, k, len); |
604 |
} |