Update build for OpenSSL-1.0.0b import.
[dragonfly.git] / secure / lib / libcrypt / blowfish.c
CommitLineData
984263bc
MD
1/*
2 * Blowfish block cipher
3 * Copyright 1997 Niels Provos <provos@physnet.uni-hamburg.de>
4 * All rights reserved.
5 *
6 * Implementation advice by David Mazieres <dm@lcs.mit.edu>.
7 *
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions
10 * are met:
11 * 1. Redistributions of source code must retain the above copyright
12 * notice, this list of conditions and the following disclaimer.
13 * 2. Redistributions in binary form must reproduce the above copyright
14 * notice, this list of conditions and the following disclaimer in the
15 * documentation and/or other materials provided with the distribution.
16 * 3. All advertising materials mentioning features or use of this software
17 * must display the following acknowledgement:
18 * This product includes software developed by Niels Provos.
19 * 4. The name of the author may not be used to endorse or promote products
20 * derived from this software without specific prior written permission.
21 *
22 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
23 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
24 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
25 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
26 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
27 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
28 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
29 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
30 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
31 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
32 *
33 * $FreeBSD: src/secure/lib/libcrypt/blowfish.c,v 1.1.2.1 2001/05/24 12:20:03 markm Exp $
1de703da 34 * $DragonFly: src/secure/lib/libcrypt/blowfish.c,v 1.2 2003/06/17 04:27:48 dillon Exp $
984263bc
MD
35 */
36
37/*
38 * This code is derived from section 14.3 and the given source
39 * in section V of Applied Cryptography, second edition.
40 * Blowfish is an unpatented fast block cipher designed by
41 * Bruce Schneier.
42 */
43
44/*
45 * FreeBSD implementation by Paul Herman <pherman@frenchfries.net>
46 */
47
48#if 0
49#include <stdio.h> /* used for debugging */
50#include <string.h>
51#endif
52
53#include <sys/types.h>
54#include "blowfish.h"
55
56#undef inline
57#ifdef __GNUC__
58#define inline __inline
59#else /* !__GNUC__ */
60#define inline
61#endif /* !__GNUC__ */
62
63/* Function for Feistel Networks */
64
65#define F(s, x) ((((s)[ (((x)>>24)&0xFF)] \
66 + (s)[0x100 + (((x)>>16)&0xFF)]) \
67 ^ (s)[0x200 + (((x)>> 8)&0xFF)]) \
68 + (s)[0x300 + ( (x) &0xFF)])
69
70#define BLFRND(s,p,i,j,n) (i ^= F(s,j) ^ (p)[n])
71
72void
73Blowfish_encipher(c, xl, xr)
74 blf_ctx *c;
75 u_int32_t *xl;
76 u_int32_t *xr;
77{
78 u_int32_t Xl;
79 u_int32_t Xr;
80 u_int32_t *s = c->S[0];
81 u_int32_t *p = c->P;
82
83 Xl = *xl;
84 Xr = *xr;
85
86 Xl ^= p[0];
87 BLFRND(s, p, Xr, Xl, 1); BLFRND(s, p, Xl, Xr, 2);
88 BLFRND(s, p, Xr, Xl, 3); BLFRND(s, p, Xl, Xr, 4);
89 BLFRND(s, p, Xr, Xl, 5); BLFRND(s, p, Xl, Xr, 6);
90 BLFRND(s, p, Xr, Xl, 7); BLFRND(s, p, Xl, Xr, 8);
91 BLFRND(s, p, Xr, Xl, 9); BLFRND(s, p, Xl, Xr, 10);
92 BLFRND(s, p, Xr, Xl, 11); BLFRND(s, p, Xl, Xr, 12);
93 BLFRND(s, p, Xr, Xl, 13); BLFRND(s, p, Xl, Xr, 14);
94 BLFRND(s, p, Xr, Xl, 15); BLFRND(s, p, Xl, Xr, 16);
95
96 *xl = Xr ^ p[17];
97 *xr = Xl;
98}
99
100void
101Blowfish_decipher(c, xl, xr)
102 blf_ctx *c;
103 u_int32_t *xl;
104 u_int32_t *xr;
105{
106 u_int32_t Xl;
107 u_int32_t Xr;
108 u_int32_t *s = c->S[0];
109 u_int32_t *p = c->P;
110
111 Xl = *xl;
112 Xr = *xr;
113
114 Xl ^= p[17];
115 BLFRND(s, p, Xr, Xl, 16); BLFRND(s, p, Xl, Xr, 15);
116 BLFRND(s, p, Xr, Xl, 14); BLFRND(s, p, Xl, Xr, 13);
117 BLFRND(s, p, Xr, Xl, 12); BLFRND(s, p, Xl, Xr, 11);
118 BLFRND(s, p, Xr, Xl, 10); BLFRND(s, p, Xl, Xr, 9);
119 BLFRND(s, p, Xr, Xl, 8); BLFRND(s, p, Xl, Xr, 7);
120 BLFRND(s, p, Xr, Xl, 6); BLFRND(s, p, Xl, Xr, 5);
121 BLFRND(s, p, Xr, Xl, 4); BLFRND(s, p, Xl, Xr, 3);
122 BLFRND(s, p, Xr, Xl, 2); BLFRND(s, p, Xl, Xr, 1);
123
124 *xl = Xr ^ p[0];
125 *xr = Xl;
126}
127
128void
129Blowfish_initstate(c)
130 blf_ctx *c;
131{
132
133/* P-box and S-box tables initialized with digits of Pi */
134
135 const blf_ctx initstate =
136
137 { {
138 {
139 0xd1310ba6, 0x98dfb5ac, 0x2ffd72db, 0xd01adfb7,
140 0xb8e1afed, 0x6a267e96, 0xba7c9045, 0xf12c7f99,
141 0x24a19947, 0xb3916cf7, 0x0801f2e2, 0x858efc16,
142 0x636920d8, 0x71574e69, 0xa458fea3, 0xf4933d7e,
143 0x0d95748f, 0x728eb658, 0x718bcd58, 0x82154aee,
144 0x7b54a41d, 0xc25a59b5, 0x9c30d539, 0x2af26013,
145 0xc5d1b023, 0x286085f0, 0xca417918, 0xb8db38ef,
146 0x8e79dcb0, 0x603a180e, 0x6c9e0e8b, 0xb01e8a3e,
147 0xd71577c1, 0xbd314b27, 0x78af2fda, 0x55605c60,
148 0xe65525f3, 0xaa55ab94, 0x57489862, 0x63e81440,
149 0x55ca396a, 0x2aab10b6, 0xb4cc5c34, 0x1141e8ce,
150 0xa15486af, 0x7c72e993, 0xb3ee1411, 0x636fbc2a,
151 0x2ba9c55d, 0x741831f6, 0xce5c3e16, 0x9b87931e,
152 0xafd6ba33, 0x6c24cf5c, 0x7a325381, 0x28958677,
153 0x3b8f4898, 0x6b4bb9af, 0xc4bfe81b, 0x66282193,
154 0x61d809cc, 0xfb21a991, 0x487cac60, 0x5dec8032,
155 0xef845d5d, 0xe98575b1, 0xdc262302, 0xeb651b88,
156 0x23893e81, 0xd396acc5, 0x0f6d6ff3, 0x83f44239,
157 0x2e0b4482, 0xa4842004, 0x69c8f04a, 0x9e1f9b5e,
158 0x21c66842, 0xf6e96c9a, 0x670c9c61, 0xabd388f0,
159 0x6a51a0d2, 0xd8542f68, 0x960fa728, 0xab5133a3,
160 0x6eef0b6c, 0x137a3be4, 0xba3bf050, 0x7efb2a98,
161 0xa1f1651d, 0x39af0176, 0x66ca593e, 0x82430e88,
162 0x8cee8619, 0x456f9fb4, 0x7d84a5c3, 0x3b8b5ebe,
163 0xe06f75d8, 0x85c12073, 0x401a449f, 0x56c16aa6,
164 0x4ed3aa62, 0x363f7706, 0x1bfedf72, 0x429b023d,
165 0x37d0d724, 0xd00a1248, 0xdb0fead3, 0x49f1c09b,
166 0x075372c9, 0x80991b7b, 0x25d479d8, 0xf6e8def7,
167 0xe3fe501a, 0xb6794c3b, 0x976ce0bd, 0x04c006ba,
168 0xc1a94fb6, 0x409f60c4, 0x5e5c9ec2, 0x196a2463,
169 0x68fb6faf, 0x3e6c53b5, 0x1339b2eb, 0x3b52ec6f,
170 0x6dfc511f, 0x9b30952c, 0xcc814544, 0xaf5ebd09,
171 0xbee3d004, 0xde334afd, 0x660f2807, 0x192e4bb3,
172 0xc0cba857, 0x45c8740f, 0xd20b5f39, 0xb9d3fbdb,
173 0x5579c0bd, 0x1a60320a, 0xd6a100c6, 0x402c7279,
174 0x679f25fe, 0xfb1fa3cc, 0x8ea5e9f8, 0xdb3222f8,
175 0x3c7516df, 0xfd616b15, 0x2f501ec8, 0xad0552ab,
176 0x323db5fa, 0xfd238760, 0x53317b48, 0x3e00df82,
177 0x9e5c57bb, 0xca6f8ca0, 0x1a87562e, 0xdf1769db,
178 0xd542a8f6, 0x287effc3, 0xac6732c6, 0x8c4f5573,
179 0x695b27b0, 0xbbca58c8, 0xe1ffa35d, 0xb8f011a0,
180 0x10fa3d98, 0xfd2183b8, 0x4afcb56c, 0x2dd1d35b,
181 0x9a53e479, 0xb6f84565, 0xd28e49bc, 0x4bfb9790,
182 0xe1ddf2da, 0xa4cb7e33, 0x62fb1341, 0xcee4c6e8,
183 0xef20cada, 0x36774c01, 0xd07e9efe, 0x2bf11fb4,
184 0x95dbda4d, 0xae909198, 0xeaad8e71, 0x6b93d5a0,
185 0xd08ed1d0, 0xafc725e0, 0x8e3c5b2f, 0x8e7594b7,
186 0x8ff6e2fb, 0xf2122b64, 0x8888b812, 0x900df01c,
187 0x4fad5ea0, 0x688fc31c, 0xd1cff191, 0xb3a8c1ad,
188 0x2f2f2218, 0xbe0e1777, 0xea752dfe, 0x8b021fa1,
189 0xe5a0cc0f, 0xb56f74e8, 0x18acf3d6, 0xce89e299,
190 0xb4a84fe0, 0xfd13e0b7, 0x7cc43b81, 0xd2ada8d9,
191 0x165fa266, 0x80957705, 0x93cc7314, 0x211a1477,
192 0xe6ad2065, 0x77b5fa86, 0xc75442f5, 0xfb9d35cf,
193 0xebcdaf0c, 0x7b3e89a0, 0xd6411bd3, 0xae1e7e49,
194 0x00250e2d, 0x2071b35e, 0x226800bb, 0x57b8e0af,
195 0x2464369b, 0xf009b91e, 0x5563911d, 0x59dfa6aa,
196 0x78c14389, 0xd95a537f, 0x207d5ba2, 0x02e5b9c5,
197 0x83260376, 0x6295cfa9, 0x11c81968, 0x4e734a41,
198 0xb3472dca, 0x7b14a94a, 0x1b510052, 0x9a532915,
199 0xd60f573f, 0xbc9bc6e4, 0x2b60a476, 0x81e67400,
200 0x08ba6fb5, 0x571be91f, 0xf296ec6b, 0x2a0dd915,
201 0xb6636521, 0xe7b9f9b6, 0xff34052e, 0xc5855664,
202 0x53b02d5d, 0xa99f8fa1, 0x08ba4799, 0x6e85076a},
203 {
204 0x4b7a70e9, 0xb5b32944, 0xdb75092e, 0xc4192623,
205 0xad6ea6b0, 0x49a7df7d, 0x9cee60b8, 0x8fedb266,
206 0xecaa8c71, 0x699a17ff, 0x5664526c, 0xc2b19ee1,
207 0x193602a5, 0x75094c29, 0xa0591340, 0xe4183a3e,
208 0x3f54989a, 0x5b429d65, 0x6b8fe4d6, 0x99f73fd6,
209 0xa1d29c07, 0xefe830f5, 0x4d2d38e6, 0xf0255dc1,
210 0x4cdd2086, 0x8470eb26, 0x6382e9c6, 0x021ecc5e,
211 0x09686b3f, 0x3ebaefc9, 0x3c971814, 0x6b6a70a1,
212 0x687f3584, 0x52a0e286, 0xb79c5305, 0xaa500737,
213 0x3e07841c, 0x7fdeae5c, 0x8e7d44ec, 0x5716f2b8,
214 0xb03ada37, 0xf0500c0d, 0xf01c1f04, 0x0200b3ff,
215 0xae0cf51a, 0x3cb574b2, 0x25837a58, 0xdc0921bd,
216 0xd19113f9, 0x7ca92ff6, 0x94324773, 0x22f54701,
217 0x3ae5e581, 0x37c2dadc, 0xc8b57634, 0x9af3dda7,
218 0xa9446146, 0x0fd0030e, 0xecc8c73e, 0xa4751e41,
219 0xe238cd99, 0x3bea0e2f, 0x3280bba1, 0x183eb331,
220 0x4e548b38, 0x4f6db908, 0x6f420d03, 0xf60a04bf,
221 0x2cb81290, 0x24977c79, 0x5679b072, 0xbcaf89af,
222 0xde9a771f, 0xd9930810, 0xb38bae12, 0xdccf3f2e,
223 0x5512721f, 0x2e6b7124, 0x501adde6, 0x9f84cd87,
224 0x7a584718, 0x7408da17, 0xbc9f9abc, 0xe94b7d8c,
225 0xec7aec3a, 0xdb851dfa, 0x63094366, 0xc464c3d2,
226 0xef1c1847, 0x3215d908, 0xdd433b37, 0x24c2ba16,
227 0x12a14d43, 0x2a65c451, 0x50940002, 0x133ae4dd,
228 0x71dff89e, 0x10314e55, 0x81ac77d6, 0x5f11199b,
229 0x043556f1, 0xd7a3c76b, 0x3c11183b, 0x5924a509,
230 0xf28fe6ed, 0x97f1fbfa, 0x9ebabf2c, 0x1e153c6e,
231 0x86e34570, 0xeae96fb1, 0x860e5e0a, 0x5a3e2ab3,
232 0x771fe71c, 0x4e3d06fa, 0x2965dcb9, 0x99e71d0f,
233 0x803e89d6, 0x5266c825, 0x2e4cc978, 0x9c10b36a,
234 0xc6150eba, 0x94e2ea78, 0xa5fc3c53, 0x1e0a2df4,
235 0xf2f74ea7, 0x361d2b3d, 0x1939260f, 0x19c27960,
236 0x5223a708, 0xf71312b6, 0xebadfe6e, 0xeac31f66,
237 0xe3bc4595, 0xa67bc883, 0xb17f37d1, 0x018cff28,
238 0xc332ddef, 0xbe6c5aa5, 0x65582185, 0x68ab9802,
239 0xeecea50f, 0xdb2f953b, 0x2aef7dad, 0x5b6e2f84,
240 0x1521b628, 0x29076170, 0xecdd4775, 0x619f1510,
241 0x13cca830, 0xeb61bd96, 0x0334fe1e, 0xaa0363cf,
242 0xb5735c90, 0x4c70a239, 0xd59e9e0b, 0xcbaade14,
243 0xeecc86bc, 0x60622ca7, 0x9cab5cab, 0xb2f3846e,
244 0x648b1eaf, 0x19bdf0ca, 0xa02369b9, 0x655abb50,
245 0x40685a32, 0x3c2ab4b3, 0x319ee9d5, 0xc021b8f7,
246 0x9b540b19, 0x875fa099, 0x95f7997e, 0x623d7da8,
247 0xf837889a, 0x97e32d77, 0x11ed935f, 0x16681281,
248 0x0e358829, 0xc7e61fd6, 0x96dedfa1, 0x7858ba99,
249 0x57f584a5, 0x1b227263, 0x9b83c3ff, 0x1ac24696,
250 0xcdb30aeb, 0x532e3054, 0x8fd948e4, 0x6dbc3128,
251 0x58ebf2ef, 0x34c6ffea, 0xfe28ed61, 0xee7c3c73,
252 0x5d4a14d9, 0xe864b7e3, 0x42105d14, 0x203e13e0,
253 0x45eee2b6, 0xa3aaabea, 0xdb6c4f15, 0xfacb4fd0,
254 0xc742f442, 0xef6abbb5, 0x654f3b1d, 0x41cd2105,
255 0xd81e799e, 0x86854dc7, 0xe44b476a, 0x3d816250,
256 0xcf62a1f2, 0x5b8d2646, 0xfc8883a0, 0xc1c7b6a3,
257 0x7f1524c3, 0x69cb7492, 0x47848a0b, 0x5692b285,
258 0x095bbf00, 0xad19489d, 0x1462b174, 0x23820e00,
259 0x58428d2a, 0x0c55f5ea, 0x1dadf43e, 0x233f7061,
260 0x3372f092, 0x8d937e41, 0xd65fecf1, 0x6c223bdb,
261 0x7cde3759, 0xcbee7460, 0x4085f2a7, 0xce77326e,
262 0xa6078084, 0x19f8509e, 0xe8efd855, 0x61d99735,
263 0xa969a7aa, 0xc50c06c2, 0x5a04abfc, 0x800bcadc,
264 0x9e447a2e, 0xc3453484, 0xfdd56705, 0x0e1e9ec9,
265 0xdb73dbd3, 0x105588cd, 0x675fda79, 0xe3674340,
266 0xc5c43465, 0x713e38d8, 0x3d28f89e, 0xf16dff20,
267 0x153e21e7, 0x8fb03d4a, 0xe6e39f2b, 0xdb83adf7},
268 {
269 0xe93d5a68, 0x948140f7, 0xf64c261c, 0x94692934,
270 0x411520f7, 0x7602d4f7, 0xbcf46b2e, 0xd4a20068,
271 0xd4082471, 0x3320f46a, 0x43b7d4b7, 0x500061af,
272 0x1e39f62e, 0x97244546, 0x14214f74, 0xbf8b8840,
273 0x4d95fc1d, 0x96b591af, 0x70f4ddd3, 0x66a02f45,
274 0xbfbc09ec, 0x03bd9785, 0x7fac6dd0, 0x31cb8504,
275 0x96eb27b3, 0x55fd3941, 0xda2547e6, 0xabca0a9a,
276 0x28507825, 0x530429f4, 0x0a2c86da, 0xe9b66dfb,
277 0x68dc1462, 0xd7486900, 0x680ec0a4, 0x27a18dee,
278 0x4f3ffea2, 0xe887ad8c, 0xb58ce006, 0x7af4d6b6,
279 0xaace1e7c, 0xd3375fec, 0xce78a399, 0x406b2a42,
280 0x20fe9e35, 0xd9f385b9, 0xee39d7ab, 0x3b124e8b,
281 0x1dc9faf7, 0x4b6d1856, 0x26a36631, 0xeae397b2,
282 0x3a6efa74, 0xdd5b4332, 0x6841e7f7, 0xca7820fb,
283 0xfb0af54e, 0xd8feb397, 0x454056ac, 0xba489527,
284 0x55533a3a, 0x20838d87, 0xfe6ba9b7, 0xd096954b,
285 0x55a867bc, 0xa1159a58, 0xcca92963, 0x99e1db33,
286 0xa62a4a56, 0x3f3125f9, 0x5ef47e1c, 0x9029317c,
287 0xfdf8e802, 0x04272f70, 0x80bb155c, 0x05282ce3,
288 0x95c11548, 0xe4c66d22, 0x48c1133f, 0xc70f86dc,
289 0x07f9c9ee, 0x41041f0f, 0x404779a4, 0x5d886e17,
290 0x325f51eb, 0xd59bc0d1, 0xf2bcc18f, 0x41113564,
291 0x257b7834, 0x602a9c60, 0xdff8e8a3, 0x1f636c1b,
292 0x0e12b4c2, 0x02e1329e, 0xaf664fd1, 0xcad18115,
293 0x6b2395e0, 0x333e92e1, 0x3b240b62, 0xeebeb922,
294 0x85b2a20e, 0xe6ba0d99, 0xde720c8c, 0x2da2f728,
295 0xd0127845, 0x95b794fd, 0x647d0862, 0xe7ccf5f0,
296 0x5449a36f, 0x877d48fa, 0xc39dfd27, 0xf33e8d1e,
297 0x0a476341, 0x992eff74, 0x3a6f6eab, 0xf4f8fd37,
298 0xa812dc60, 0xa1ebddf8, 0x991be14c, 0xdb6e6b0d,
299 0xc67b5510, 0x6d672c37, 0x2765d43b, 0xdcd0e804,
300 0xf1290dc7, 0xcc00ffa3, 0xb5390f92, 0x690fed0b,
301 0x667b9ffb, 0xcedb7d9c, 0xa091cf0b, 0xd9155ea3,
302 0xbb132f88, 0x515bad24, 0x7b9479bf, 0x763bd6eb,
303 0x37392eb3, 0xcc115979, 0x8026e297, 0xf42e312d,
304 0x6842ada7, 0xc66a2b3b, 0x12754ccc, 0x782ef11c,
305 0x6a124237, 0xb79251e7, 0x06a1bbe6, 0x4bfb6350,
306 0x1a6b1018, 0x11caedfa, 0x3d25bdd8, 0xe2e1c3c9,
307 0x44421659, 0x0a121386, 0xd90cec6e, 0xd5abea2a,
308 0x64af674e, 0xda86a85f, 0xbebfe988, 0x64e4c3fe,
309 0x9dbc8057, 0xf0f7c086, 0x60787bf8, 0x6003604d,
310 0xd1fd8346, 0xf6381fb0, 0x7745ae04, 0xd736fccc,
311 0x83426b33, 0xf01eab71, 0xb0804187, 0x3c005e5f,
312 0x77a057be, 0xbde8ae24, 0x55464299, 0xbf582e61,
313 0x4e58f48f, 0xf2ddfda2, 0xf474ef38, 0x8789bdc2,
314 0x5366f9c3, 0xc8b38e74, 0xb475f255, 0x46fcd9b9,
315 0x7aeb2661, 0x8b1ddf84, 0x846a0e79, 0x915f95e2,
316 0x466e598e, 0x20b45770, 0x8cd55591, 0xc902de4c,
317 0xb90bace1, 0xbb8205d0, 0x11a86248, 0x7574a99e,
318 0xb77f19b6, 0xe0a9dc09, 0x662d09a1, 0xc4324633,
319 0xe85a1f02, 0x09f0be8c, 0x4a99a025, 0x1d6efe10,
320 0x1ab93d1d, 0x0ba5a4df, 0xa186f20f, 0x2868f169,
321 0xdcb7da83, 0x573906fe, 0xa1e2ce9b, 0x4fcd7f52,
322 0x50115e01, 0xa70683fa, 0xa002b5c4, 0x0de6d027,
323 0x9af88c27, 0x773f8641, 0xc3604c06, 0x61a806b5,
324 0xf0177a28, 0xc0f586e0, 0x006058aa, 0x30dc7d62,
325 0x11e69ed7, 0x2338ea63, 0x53c2dd94, 0xc2c21634,
326 0xbbcbee56, 0x90bcb6de, 0xebfc7da1, 0xce591d76,
327 0x6f05e409, 0x4b7c0188, 0x39720a3d, 0x7c927c24,
328 0x86e3725f, 0x724d9db9, 0x1ac15bb4, 0xd39eb8fc,
329 0xed545578, 0x08fca5b5, 0xd83d7cd3, 0x4dad0fc4,
330 0x1e50ef5e, 0xb161e6f8, 0xa28514d9, 0x6c51133c,
331 0x6fd5c7e7, 0x56e14ec4, 0x362abfce, 0xddc6c837,
332 0xd79a3234, 0x92638212, 0x670efa8e, 0x406000e0},
333 {
334 0x3a39ce37, 0xd3faf5cf, 0xabc27737, 0x5ac52d1b,
335 0x5cb0679e, 0x4fa33742, 0xd3822740, 0x99bc9bbe,
336 0xd5118e9d, 0xbf0f7315, 0xd62d1c7e, 0xc700c47b,
337 0xb78c1b6b, 0x21a19045, 0xb26eb1be, 0x6a366eb4,
338 0x5748ab2f, 0xbc946e79, 0xc6a376d2, 0x6549c2c8,
339 0x530ff8ee, 0x468dde7d, 0xd5730a1d, 0x4cd04dc6,
340 0x2939bbdb, 0xa9ba4650, 0xac9526e8, 0xbe5ee304,
341 0xa1fad5f0, 0x6a2d519a, 0x63ef8ce2, 0x9a86ee22,
342 0xc089c2b8, 0x43242ef6, 0xa51e03aa, 0x9cf2d0a4,
343 0x83c061ba, 0x9be96a4d, 0x8fe51550, 0xba645bd6,
344 0x2826a2f9, 0xa73a3ae1, 0x4ba99586, 0xef5562e9,
345 0xc72fefd3, 0xf752f7da, 0x3f046f69, 0x77fa0a59,
346 0x80e4a915, 0x87b08601, 0x9b09e6ad, 0x3b3ee593,
347 0xe990fd5a, 0x9e34d797, 0x2cf0b7d9, 0x022b8b51,
348 0x96d5ac3a, 0x017da67d, 0xd1cf3ed6, 0x7c7d2d28,
349 0x1f9f25cf, 0xadf2b89b, 0x5ad6b472, 0x5a88f54c,
350 0xe029ac71, 0xe019a5e6, 0x47b0acfd, 0xed93fa9b,
351 0xe8d3c48d, 0x283b57cc, 0xf8d56629, 0x79132e28,
352 0x785f0191, 0xed756055, 0xf7960e44, 0xe3d35e8c,
353 0x15056dd4, 0x88f46dba, 0x03a16125, 0x0564f0bd,
354 0xc3eb9e15, 0x3c9057a2, 0x97271aec, 0xa93a072a,
355 0x1b3f6d9b, 0x1e6321f5, 0xf59c66fb, 0x26dcf319,
356 0x7533d928, 0xb155fdf5, 0x03563482, 0x8aba3cbb,
357 0x28517711, 0xc20ad9f8, 0xabcc5167, 0xccad925f,
358 0x4de81751, 0x3830dc8e, 0x379d5862, 0x9320f991,
359 0xea7a90c2, 0xfb3e7bce, 0x5121ce64, 0x774fbe32,
360 0xa8b6e37e, 0xc3293d46, 0x48de5369, 0x6413e680,
361 0xa2ae0810, 0xdd6db224, 0x69852dfd, 0x09072166,
362 0xb39a460a, 0x6445c0dd, 0x586cdecf, 0x1c20c8ae,
363 0x5bbef7dd, 0x1b588d40, 0xccd2017f, 0x6bb4e3bb,
364 0xdda26a7e, 0x3a59ff45, 0x3e350a44, 0xbcb4cdd5,
365 0x72eacea8, 0xfa6484bb, 0x8d6612ae, 0xbf3c6f47,
366 0xd29be463, 0x542f5d9e, 0xaec2771b, 0xf64e6370,
367 0x740e0d8d, 0xe75b1357, 0xf8721671, 0xaf537d5d,
368 0x4040cb08, 0x4eb4e2cc, 0x34d2466a, 0x0115af84,
369 0xe1b00428, 0x95983a1d, 0x06b89fb4, 0xce6ea048,
370 0x6f3f3b82, 0x3520ab82, 0x011a1d4b, 0x277227f8,
371 0x611560b1, 0xe7933fdc, 0xbb3a792b, 0x344525bd,
372 0xa08839e1, 0x51ce794b, 0x2f32c9b7, 0xa01fbac9,
373 0xe01cc87e, 0xbcc7d1f6, 0xcf0111c3, 0xa1e8aac7,
374 0x1a908749, 0xd44fbd9a, 0xd0dadecb, 0xd50ada38,
375 0x0339c32a, 0xc6913667, 0x8df9317c, 0xe0b12b4f,
376 0xf79e59b7, 0x43f5bb3a, 0xf2d519ff, 0x27d9459c,
377 0xbf97222c, 0x15e6fc2a, 0x0f91fc71, 0x9b941525,
378 0xfae59361, 0xceb69ceb, 0xc2a86459, 0x12baa8d1,
379 0xb6c1075e, 0xe3056a0c, 0x10d25065, 0xcb03a442,
380 0xe0ec6e0e, 0x1698db3b, 0x4c98a0be, 0x3278e964,
381 0x9f1f9532, 0xe0d392df, 0xd3a0342b, 0x8971f21e,
382 0x1b0a7441, 0x4ba3348c, 0xc5be7120, 0xc37632d8,
383 0xdf359f8d, 0x9b992f2e, 0xe60b6f47, 0x0fe3f11d,
384 0xe54cda54, 0x1edad891, 0xce6279cf, 0xcd3e7e6f,
385 0x1618b166, 0xfd2c1d05, 0x848fd2c5, 0xf6fb2299,
386 0xf523f357, 0xa6327623, 0x93a83531, 0x56cccd02,
387 0xacf08162, 0x5a75ebb5, 0x6e163697, 0x88d273cc,
388 0xde966292, 0x81b949d0, 0x4c50901b, 0x71c65614,
389 0xe6c6c7bd, 0x327a140a, 0x45e1d006, 0xc3f27b9a,
390 0xc9aa53fd, 0x62a80f00, 0xbb25bfe2, 0x35bdd2f6,
391 0x71126905, 0xb2040222, 0xb6cbcf7c, 0xcd769c2b,
392 0x53113ec0, 0x1640e3d3, 0x38abbd60, 0x2547adf0,
393 0xba38209c, 0xf746ce76, 0x77afa1c5, 0x20756060,
394 0x85cbfe4e, 0x8ae88dd8, 0x7aaaf9b0, 0x4cf9aa7e,
395 0x1948c25c, 0x02fb8a8c, 0x01c36ae4, 0xd6ebe1f9,
396 0x90d4f869, 0xa65cdea0, 0x3f09252d, 0xc208e69f,
397 0xb74e6132, 0xce77e25b, 0x578fdfe3, 0x3ac372e6}
398 },
399 {
400 0x243f6a88, 0x85a308d3, 0x13198a2e, 0x03707344,
401 0xa4093822, 0x299f31d0, 0x082efa98, 0xec4e6c89,
402 0x452821e6, 0x38d01377, 0xbe5466cf, 0x34e90c6c,
403 0xc0ac29b7, 0xc97c50dd, 0x3f84d5b5, 0xb5470917,
404 0x9216d5d9, 0x8979fb1b
405 } };
406
407 *c = initstate;
408
409}
410
411#ifdef __STDC__
412u_int32_t
413Blowfish_stream2word(const u_int8_t *data, u_int16_t databytes, u_int16_t *current)
414#else
415u_int32_t
416Blowfish_stream2word(data, databytes, current)
417 const u_int8_t *data;
418 u_int16_t databytes;
419 u_int16_t *current;
420#endif
421{
422 u_int8_t i;
423 u_int16_t j;
424 u_int32_t temp;
425
426 temp = 0x00000000;
427 j = *current;
428
429 for (i = 0; i < 4; i++, j++) {
430 if (j >= databytes)
431 j = 0;
432 temp = (temp << 8) | data[j];
433 }
434
435 *current = j;
436 return temp;
437}
438
439#if __STDC__
440void
441Blowfish_expand0state(blf_ctx *c, const u_int8_t *key, u_int16_t keybytes)
442#else
443void
444Blowfish_expand0state(c, key, keybytes)
445 blf_ctx *c;
446 const u_int8_t *key;
447 u_int16_t keybytes;
448#endif
449{
450 u_int16_t i;
451 u_int16_t j;
452 u_int16_t k;
453 u_int32_t temp;
454 u_int32_t datal;
455 u_int32_t datar;
456
457 j = 0;
458 for (i = 0; i < BLF_N + 2; i++) {
459 /* Extract 4 int8 to 1 int32 from keystream */
460 temp = Blowfish_stream2word(key, keybytes, &j);
461 c->P[i] = c->P[i] ^ temp;
462 }
463
464 j = 0;
465 datal = 0x00000000;
466 datar = 0x00000000;
467 for (i = 0; i < BLF_N + 2; i += 2) {
468 Blowfish_encipher(c, &datal, &datar);
469
470 c->P[i] = datal;
471 c->P[i + 1] = datar;
472 }
473
474 for (i = 0; i < 4; i++) {
475 for (k = 0; k < 256; k += 2) {
476 Blowfish_encipher(c, &datal, &datar);
477
478 c->S[i][k] = datal;
479 c->S[i][k + 1] = datar;
480 }
481 }
482}
483
484
485#if __STDC__
486void
487Blowfish_expandstate(blf_ctx *c, const u_int8_t *data, u_int16_t databytes,
488 const u_int8_t *key, u_int16_t keybytes)
489#else
490void
491Blowfish_expandstate(c, data, databytes, key, keybytes)
492 blf_ctx *c;
493 const u_int8_t *data;
494 u_int16_t databytes;
495 const u_int8_t *key;
496 u_int16_t keybytes;
497#endif
498{
499 u_int16_t i;
500 u_int16_t j;
501 u_int16_t k;
502 u_int32_t temp;
503 u_int32_t datal;
504 u_int32_t datar;
505
506 j = 0;
507 for (i = 0; i < BLF_N + 2; i++) {
508 /* Extract 4 int8 to 1 int32 from keystream */
509 temp = Blowfish_stream2word(key, keybytes, &j);
510 c->P[i] = c->P[i] ^ temp;
511 }
512
513 j = 0;
514 datal = 0x00000000;
515 datar = 0x00000000;
516 for (i = 0; i < BLF_N + 2; i += 2) {
517 datal ^= Blowfish_stream2word(data, databytes, &j);
518 datar ^= Blowfish_stream2word(data, databytes, &j);
519 Blowfish_encipher(c, &datal, &datar);
520
521 c->P[i] = datal;
522 c->P[i + 1] = datar;
523 }
524
525 for (i = 0; i < 4; i++) {
526 for (k = 0; k < 256; k += 2) {
527 datal ^= Blowfish_stream2word(data, databytes, &j);
528 datar ^= Blowfish_stream2word(data, databytes, &j);
529 Blowfish_encipher(c, &datal, &datar);
530
531 c->S[i][k] = datal;
532 c->S[i][k + 1] = datar;
533 }
534 }
535
536}
537
538#if __STDC__
539void
540blf_key(blf_ctx *c, const u_int8_t *k, u_int16_t len)
541#else
542void
543blf_key(c, k, len)
544 blf_ctx *c;
545 const u_int8_t *k;
546 u_int16_t len;
547#endif
548{
549 /* Initalize S-boxes and subkeys with Pi */
550 Blowfish_initstate(c);
551
552 /* Transform S-boxes and subkeys with key */
553 Blowfish_expand0state(c, k, len);
554}
555
556#if __STDC__
557void
558blf_enc(blf_ctx *c, u_int32_t *data, u_int16_t blocks)
559#else
560void
561blf_enc(c, data, blocks)
562 blf_ctx *c;
563 u_int32_t *data;
564 u_int16_t blocks;
565#endif
566{
567 u_int32_t *d;
568 u_int16_t i;
569
570 d = data;
571 for (i = 0; i < blocks; i++) {
572 Blowfish_encipher(c, d, d + 1);
573 d += 2;
574 }
575}
576
577#if __STDC__
578void
579blf_dec(blf_ctx *c, u_int32_t *data, u_int16_t blocks)
580#else
581void
582blf_dec(c, data, blocks)
583 blf_ctx *c;
584 u_int32_t *data;
585 u_int16_t blocks;
586#endif
587{
588 u_int32_t *d;
589 u_int16_t i;
590
591 d = data;
592 for (i = 0; i < blocks; i++) {
593 Blowfish_decipher(c, d, d + 1);
594 d += 2;
595 }
596}
597
598#if __STDC__
599void
600blf_ecb_encrypt(blf_ctx *c, u_int8_t *data, u_int32_t len)
601#else
602void
603blf_ecb_encrypt(c, data, len)
604 blf_ctx *c;
605 u_int8_t *data;
606 u_int32_t len;
607#endif
608{
609 u_int32_t l, r;
610 u_int32_t i;
611
612 for (i = 0; i < len; i += 8) {
613 l = data[0] << 24 | data[1] << 16 | data[2] << 8 | data[3];
614 r = data[4] << 24 | data[5] << 16 | data[6] << 8 | data[7];
615 Blowfish_encipher(c, &l, &r);
616 data[0] = l >> 24 & 0xff;
617 data[1] = l >> 16 & 0xff;
618 data[2] = l >> 8 & 0xff;
619 data[3] = l & 0xff;
620 data[4] = r >> 24 & 0xff;
621 data[5] = r >> 16 & 0xff;
622 data[6] = r >> 8 & 0xff;
623 data[7] = r & 0xff;
624 data += 8;
625 }
626}
627
628#if __STDC__
629void
630blf_ecb_decrypt(blf_ctx *c, u_int8_t *data, u_int32_t len)
631#else
632void
633blf_ecb_decrypt(c, data, len)
634 blf_ctx *c;
635 u_int8_t *data;
636 u_int32_t len;
637#endif
638{
639 u_int32_t l, r;
640 u_int32_t i;
641
642 for (i = 0; i < len; i += 8) {
643 l = data[0] << 24 | data[1] << 16 | data[2] << 8 | data[3];
644 r = data[4] << 24 | data[5] << 16 | data[6] << 8 | data[7];
645 Blowfish_decipher(c, &l, &r);
646 data[0] = l >> 24 & 0xff;
647 data[1] = l >> 16 & 0xff;
648 data[2] = l >> 8 & 0xff;
649 data[3] = l & 0xff;
650 data[4] = r >> 24 & 0xff;
651 data[5] = r >> 16 & 0xff;
652 data[6] = r >> 8 & 0xff;
653 data[7] = r & 0xff;
654 data += 8;
655 }
656}
657
658#if __STDC__
659void
660blf_cbc_encrypt(blf_ctx *c, u_int8_t *iv, u_int8_t *data, u_int32_t len)
661#else
662void
663blf_cbc_encrypt(c, iv, data, len)
664 blf_ctx *c;
665 u_int8_t *iv;
666 u_int8_t *data;
667 u_int32_t len;
668#endif
669{
670 u_int32_t l, r;
671 u_int32_t i, j;
672
673 for (i = 0; i < len; i += 8) {
674 for (j = 0; j < 8; j++)
675 data[j] ^= iv[j];
676 l = data[0] << 24 | data[1] << 16 | data[2] << 8 | data[3];
677 r = data[4] << 24 | data[5] << 16 | data[6] << 8 | data[7];
678 Blowfish_encipher(c, &l, &r);
679 data[0] = l >> 24 & 0xff;
680 data[1] = l >> 16 & 0xff;
681 data[2] = l >> 8 & 0xff;
682 data[3] = l & 0xff;
683 data[4] = r >> 24 & 0xff;
684 data[5] = r >> 16 & 0xff;
685 data[6] = r >> 8 & 0xff;
686 data[7] = r & 0xff;
687 iv = data;
688 data += 8;
689 }
690}
691
692#if __STDC__
693void
694blf_cbc_decrypt(blf_ctx *c, u_int8_t *iva, u_int8_t *data, u_int32_t len)
695#else
696void
697blf_cbc_decrypt(c, iva, data, len)
698 blf_ctx *c;
699 u_int8_t *iva;
700 u_int8_t *data;
701 u_int32_t len;
702#endif
703{
704 u_int32_t l, r;
705 u_int8_t *iv;
706 u_int32_t i, j;
707
708 iv = data + len - 16;
709 data = data + len - 8;
710 for (i = len - 8; i >= 8; i -= 8) {
711 l = data[0] << 24 | data[1] << 16 | data[2] << 8 | data[3];
712 r = data[4] << 24 | data[5] << 16 | data[6] << 8 | data[7];
713 Blowfish_decipher(c, &l, &r);
714 data[0] = l >> 24 & 0xff;
715 data[1] = l >> 16 & 0xff;
716 data[2] = l >> 8 & 0xff;
717 data[3] = l & 0xff;
718 data[4] = r >> 24 & 0xff;
719 data[5] = r >> 16 & 0xff;
720 data[6] = r >> 8 & 0xff;
721 data[7] = r & 0xff;
722 for (j = 0; j < 8; j++)
723 data[j] ^= iv[j];
724 iv -= 8;
725 data -= 8;
726 }
727 l = data[0] << 24 | data[1] << 16 | data[2] << 8 | data[3];
728 r = data[4] << 24 | data[5] << 16 | data[6] << 8 | data[7];
729 Blowfish_decipher(c, &l, &r);
730 data[0] = l >> 24 & 0xff;
731 data[1] = l >> 16 & 0xff;
732 data[2] = l >> 8 & 0xff;
733 data[3] = l & 0xff;
734 data[4] = r >> 24 & 0xff;
735 data[5] = r >> 16 & 0xff;
736 data[6] = r >> 8 & 0xff;
737 data[7] = r & 0xff;
738 for (j = 0; j < 8; j++)
739 data[j] ^= iva[j];
740}
741
742#if 0
743void
744report(u_int32_t data[], u_int16_t len)
745{
746 u_int16_t i;
747 for (i = 0; i < len; i += 2)
748 printf("Block %0hd: %08lx %08lx.\n",
749 i / 2, data[i], data[i + 1]);
750}
751void
752main(void)
753{
754
755 blf_ctx c;
756 char key[] = "AAAAA";
757 char key2[] = "abcdefghijklmnopqrstuvwxyz";
758
759 u_int32_t data[10];
760 u_int32_t data2[] =
761 {0x424c4f57l, 0x46495348l};
762
763 u_int16_t i;
764
765 /* First test */
766 for (i = 0; i < 10; i++)
767 data[i] = i;
768
769 blf_key(&c, (u_int8_t *) key, 5);
770 blf_enc(&c, data, 5);
771 blf_dec(&c, data, 1);
772 blf_dec(&c, data + 2, 4);
773 printf("Should read as 0 - 9.\n");
774 report(data, 10);
775
776 /* Second test */
777 blf_key(&c, (u_int8_t *) key2, strlen(key2));
778 blf_enc(&c, data2, 1);
779 printf("\nShould read as: 0x324ed0fe 0xf413a203.\n");
780 report(data2, 2);
781 blf_dec(&c, data2, 1);
782 report(data2, 2);
783}
784#endif