xref: /linux/crypto/cast5_generic.c (revision 3e14dcf7cb80b34a1f38b55bc96f02d23fdaaaaf)
1 /* Kernel cryptographic api.
2 * cast5.c - Cast5 cipher algorithm (rfc2144).
3 *
4 * Derived from GnuPG implementation of cast5.
5 *
6 * Major Changes.
7 *	Complete conformance to rfc2144.
8 *	Supports key size from 40 to 128 bits.
9 *
10 * Copyright (C) 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
11 * Copyright (C) 2003 Kartikey Mahendra Bhatt <kartik_me@hotmail.com>.
12 *
13 * This program is free software; you can redistribute it and/or modify it
14 * under the terms of GNU General Public License as published by the Free
15 * Software Foundation; either version 2 of the License, or (at your option)
16 * any later version.
17 *
18 * You should have received a copy of the GNU General Public License
19 * along with this program; if not, write to the Free Software
20 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
21 */
22 
23 
24 #include <asm/byteorder.h>
25 #include <linux/init.h>
26 #include <linux/crypto.h>
27 #include <linux/module.h>
28 #include <linux/errno.h>
29 #include <linux/string.h>
30 #include <linux/types.h>
31 #include <crypto/cast5.h>
32 
33 static const u32 s5[256] = {
34 	0x7ec90c04, 0x2c6e74b9, 0x9b0e66df, 0xa6337911, 0xb86a7fff,
35 	0x1dd358f5, 0x44dd9d44, 0x1731167f,
36 	0x08fbf1fa, 0xe7f511cc, 0xd2051b00, 0x735aba00, 0x2ab722d8,
37 	0x386381cb, 0xacf6243a, 0x69befd7a,
38 	0xe6a2e77f, 0xf0c720cd, 0xc4494816, 0xccf5c180, 0x38851640,
39 	0x15b0a848, 0xe68b18cb, 0x4caadeff,
40 	0x5f480a01, 0x0412b2aa, 0x259814fc, 0x41d0efe2, 0x4e40b48d,
41 	0x248eb6fb, 0x8dba1cfe, 0x41a99b02,
42 	0x1a550a04, 0xba8f65cb, 0x7251f4e7, 0x95a51725, 0xc106ecd7,
43 	0x97a5980a, 0xc539b9aa, 0x4d79fe6a,
44 	0xf2f3f763, 0x68af8040, 0xed0c9e56, 0x11b4958b, 0xe1eb5a88,
45 	0x8709e6b0, 0xd7e07156, 0x4e29fea7,
46 	0x6366e52d, 0x02d1c000, 0xc4ac8e05, 0x9377f571, 0x0c05372a,
47 	0x578535f2, 0x2261be02, 0xd642a0c9,
48 	0xdf13a280, 0x74b55bd2, 0x682199c0, 0xd421e5ec, 0x53fb3ce8,
49 	0xc8adedb3, 0x28a87fc9, 0x3d959981,
50 	0x5c1ff900, 0xfe38d399, 0x0c4eff0b, 0x062407ea, 0xaa2f4fb1,
51 	0x4fb96976, 0x90c79505, 0xb0a8a774,
52 	0xef55a1ff, 0xe59ca2c2, 0xa6b62d27, 0xe66a4263, 0xdf65001f,
53 	0x0ec50966, 0xdfdd55bc, 0x29de0655,
54 	0x911e739a, 0x17af8975, 0x32c7911c, 0x89f89468, 0x0d01e980,
55 	0x524755f4, 0x03b63cc9, 0x0cc844b2,
56 	0xbcf3f0aa, 0x87ac36e9, 0xe53a7426, 0x01b3d82b, 0x1a9e7449,
57 	0x64ee2d7e, 0xcddbb1da, 0x01c94910,
58 	0xb868bf80, 0x0d26f3fd, 0x9342ede7, 0x04a5c284, 0x636737b6,
59 	0x50f5b616, 0xf24766e3, 0x8eca36c1,
60 	0x136e05db, 0xfef18391, 0xfb887a37, 0xd6e7f7d4, 0xc7fb7dc9,
61 	0x3063fcdf, 0xb6f589de, 0xec2941da,
62 	0x26e46695, 0xb7566419, 0xf654efc5, 0xd08d58b7, 0x48925401,
63 	0xc1bacb7f, 0xe5ff550f, 0xb6083049,
64 	0x5bb5d0e8, 0x87d72e5a, 0xab6a6ee1, 0x223a66ce, 0xc62bf3cd,
65 	0x9e0885f9, 0x68cb3e47, 0x086c010f,
66 	0xa21de820, 0xd18b69de, 0xf3f65777, 0xfa02c3f6, 0x407edac3,
67 	0xcbb3d550, 0x1793084d, 0xb0d70eba,
68 	0x0ab378d5, 0xd951fb0c, 0xded7da56, 0x4124bbe4, 0x94ca0b56,
69 	0x0f5755d1, 0xe0e1e56e, 0x6184b5be,
70 	0x580a249f, 0x94f74bc0, 0xe327888e, 0x9f7b5561, 0xc3dc0280,
71 	0x05687715, 0x646c6bd7, 0x44904db3,
72 	0x66b4f0a3, 0xc0f1648a, 0x697ed5af, 0x49e92ff6, 0x309e374f,
73 	0x2cb6356a, 0x85808573, 0x4991f840,
74 	0x76f0ae02, 0x083be84d, 0x28421c9a, 0x44489406, 0x736e4cb8,
75 	0xc1092910, 0x8bc95fc6, 0x7d869cf4,
76 	0x134f616f, 0x2e77118d, 0xb31b2be1, 0xaa90b472, 0x3ca5d717,
77 	0x7d161bba, 0x9cad9010, 0xaf462ba2,
78 	0x9fe459d2, 0x45d34559, 0xd9f2da13, 0xdbc65487, 0xf3e4f94e,
79 	0x176d486f, 0x097c13ea, 0x631da5c7,
80 	0x445f7382, 0x175683f4, 0xcdc66a97, 0x70be0288, 0xb3cdcf72,
81 	0x6e5dd2f3, 0x20936079, 0x459b80a5,
82 	0xbe60e2db, 0xa9c23101, 0xeba5315c, 0x224e42f2, 0x1c5c1572,
83 	0xf6721b2c, 0x1ad2fff3, 0x8c25404e,
84 	0x324ed72f, 0x4067b7fd, 0x0523138e, 0x5ca3bc78, 0xdc0fd66e,
85 	0x75922283, 0x784d6b17, 0x58ebb16e,
86 	0x44094f85, 0x3f481d87, 0xfcfeae7b, 0x77b5ff76, 0x8c2302bf,
87 	0xaaf47556, 0x5f46b02a, 0x2b092801,
88 	0x3d38f5f7, 0x0ca81f36, 0x52af4a8a, 0x66d5e7c0, 0xdf3b0874,
89 	0x95055110, 0x1b5ad7a8, 0xf61ed5ad,
90 	0x6cf6e479, 0x20758184, 0xd0cefa65, 0x88f7be58, 0x4a046826,
91 	0x0ff6f8f3, 0xa09c7f70, 0x5346aba0,
92 	0x5ce96c28, 0xe176eda3, 0x6bac307f, 0x376829d2, 0x85360fa9,
93 	0x17e3fe2a, 0x24b79767, 0xf5a96b20,
94 	0xd6cd2595, 0x68ff1ebf, 0x7555442c, 0xf19f06be, 0xf9e0659a,
95 	0xeeb9491d, 0x34010718, 0xbb30cab8,
96 	0xe822fe15, 0x88570983, 0x750e6249, 0xda627e55, 0x5e76ffa8,
97 	0xb1534546, 0x6d47de08, 0xefe9e7d4
98 };
99 static const u32 s6[256] = {
100 	0xf6fa8f9d, 0x2cac6ce1, 0x4ca34867, 0xe2337f7c, 0x95db08e7,
101 	0x016843b4, 0xeced5cbc, 0x325553ac,
102 	0xbf9f0960, 0xdfa1e2ed, 0x83f0579d, 0x63ed86b9, 0x1ab6a6b8,
103 	0xde5ebe39, 0xf38ff732, 0x8989b138,
104 	0x33f14961, 0xc01937bd, 0xf506c6da, 0xe4625e7e, 0xa308ea99,
105 	0x4e23e33c, 0x79cbd7cc, 0x48a14367,
106 	0xa3149619, 0xfec94bd5, 0xa114174a, 0xeaa01866, 0xa084db2d,
107 	0x09a8486f, 0xa888614a, 0x2900af98,
108 	0x01665991, 0xe1992863, 0xc8f30c60, 0x2e78ef3c, 0xd0d51932,
109 	0xcf0fec14, 0xf7ca07d2, 0xd0a82072,
110 	0xfd41197e, 0x9305a6b0, 0xe86be3da, 0x74bed3cd, 0x372da53c,
111 	0x4c7f4448, 0xdab5d440, 0x6dba0ec3,
112 	0x083919a7, 0x9fbaeed9, 0x49dbcfb0, 0x4e670c53, 0x5c3d9c01,
113 	0x64bdb941, 0x2c0e636a, 0xba7dd9cd,
114 	0xea6f7388, 0xe70bc762, 0x35f29adb, 0x5c4cdd8d, 0xf0d48d8c,
115 	0xb88153e2, 0x08a19866, 0x1ae2eac8,
116 	0x284caf89, 0xaa928223, 0x9334be53, 0x3b3a21bf, 0x16434be3,
117 	0x9aea3906, 0xefe8c36e, 0xf890cdd9,
118 	0x80226dae, 0xc340a4a3, 0xdf7e9c09, 0xa694a807, 0x5b7c5ecc,
119 	0x221db3a6, 0x9a69a02f, 0x68818a54,
120 	0xceb2296f, 0x53c0843a, 0xfe893655, 0x25bfe68a, 0xb4628abc,
121 	0xcf222ebf, 0x25ac6f48, 0xa9a99387,
122 	0x53bddb65, 0xe76ffbe7, 0xe967fd78, 0x0ba93563, 0x8e342bc1,
123 	0xe8a11be9, 0x4980740d, 0xc8087dfc,
124 	0x8de4bf99, 0xa11101a0, 0x7fd37975, 0xda5a26c0, 0xe81f994f,
125 	0x9528cd89, 0xfd339fed, 0xb87834bf,
126 	0x5f04456d, 0x22258698, 0xc9c4c83b, 0x2dc156be, 0x4f628daa,
127 	0x57f55ec5, 0xe2220abe, 0xd2916ebf,
128 	0x4ec75b95, 0x24f2c3c0, 0x42d15d99, 0xcd0d7fa0, 0x7b6e27ff,
129 	0xa8dc8af0, 0x7345c106, 0xf41e232f,
130 	0x35162386, 0xe6ea8926, 0x3333b094, 0x157ec6f2, 0x372b74af,
131 	0x692573e4, 0xe9a9d848, 0xf3160289,
132 	0x3a62ef1d, 0xa787e238, 0xf3a5f676, 0x74364853, 0x20951063,
133 	0x4576698d, 0xb6fad407, 0x592af950,
134 	0x36f73523, 0x4cfb6e87, 0x7da4cec0, 0x6c152daa, 0xcb0396a8,
135 	0xc50dfe5d, 0xfcd707ab, 0x0921c42f,
136 	0x89dff0bb, 0x5fe2be78, 0x448f4f33, 0x754613c9, 0x2b05d08d,
137 	0x48b9d585, 0xdc049441, 0xc8098f9b,
138 	0x7dede786, 0xc39a3373, 0x42410005, 0x6a091751, 0x0ef3c8a6,
139 	0x890072d6, 0x28207682, 0xa9a9f7be,
140 	0xbf32679d, 0xd45b5b75, 0xb353fd00, 0xcbb0e358, 0x830f220a,
141 	0x1f8fb214, 0xd372cf08, 0xcc3c4a13,
142 	0x8cf63166, 0x061c87be, 0x88c98f88, 0x6062e397, 0x47cf8e7a,
143 	0xb6c85283, 0x3cc2acfb, 0x3fc06976,
144 	0x4e8f0252, 0x64d8314d, 0xda3870e3, 0x1e665459, 0xc10908f0,
145 	0x513021a5, 0x6c5b68b7, 0x822f8aa0,
146 	0x3007cd3e, 0x74719eef, 0xdc872681, 0x073340d4, 0x7e432fd9,
147 	0x0c5ec241, 0x8809286c, 0xf592d891,
148 	0x08a930f6, 0x957ef305, 0xb7fbffbd, 0xc266e96f, 0x6fe4ac98,
149 	0xb173ecc0, 0xbc60b42a, 0x953498da,
150 	0xfba1ae12, 0x2d4bd736, 0x0f25faab, 0xa4f3fceb, 0xe2969123,
151 	0x257f0c3d, 0x9348af49, 0x361400bc,
152 	0xe8816f4a, 0x3814f200, 0xa3f94043, 0x9c7a54c2, 0xbc704f57,
153 	0xda41e7f9, 0xc25ad33a, 0x54f4a084,
154 	0xb17f5505, 0x59357cbe, 0xedbd15c8, 0x7f97c5ab, 0xba5ac7b5,
155 	0xb6f6deaf, 0x3a479c3a, 0x5302da25,
156 	0x653d7e6a, 0x54268d49, 0x51a477ea, 0x5017d55b, 0xd7d25d88,
157 	0x44136c76, 0x0404a8c8, 0xb8e5a121,
158 	0xb81a928a, 0x60ed5869, 0x97c55b96, 0xeaec991b, 0x29935913,
159 	0x01fdb7f1, 0x088e8dfa, 0x9ab6f6f5,
160 	0x3b4cbf9f, 0x4a5de3ab, 0xe6051d35, 0xa0e1d855, 0xd36b4cf1,
161 	0xf544edeb, 0xb0e93524, 0xbebb8fbd,
162 	0xa2d762cf, 0x49c92f54, 0x38b5f331, 0x7128a454, 0x48392905,
163 	0xa65b1db8, 0x851c97bd, 0xd675cf2f
164 };
165 static const u32 s7[256] = {
166 	0x85e04019, 0x332bf567, 0x662dbfff, 0xcfc65693, 0x2a8d7f6f,
167 	0xab9bc912, 0xde6008a1, 0x2028da1f,
168 	0x0227bce7, 0x4d642916, 0x18fac300, 0x50f18b82, 0x2cb2cb11,
169 	0xb232e75c, 0x4b3695f2, 0xb28707de,
170 	0xa05fbcf6, 0xcd4181e9, 0xe150210c, 0xe24ef1bd, 0xb168c381,
171 	0xfde4e789, 0x5c79b0d8, 0x1e8bfd43,
172 	0x4d495001, 0x38be4341, 0x913cee1d, 0x92a79c3f, 0x089766be,
173 	0xbaeeadf4, 0x1286becf, 0xb6eacb19,
174 	0x2660c200, 0x7565bde4, 0x64241f7a, 0x8248dca9, 0xc3b3ad66,
175 	0x28136086, 0x0bd8dfa8, 0x356d1cf2,
176 	0x107789be, 0xb3b2e9ce, 0x0502aa8f, 0x0bc0351e, 0x166bf52a,
177 	0xeb12ff82, 0xe3486911, 0xd34d7516,
178 	0x4e7b3aff, 0x5f43671b, 0x9cf6e037, 0x4981ac83, 0x334266ce,
179 	0x8c9341b7, 0xd0d854c0, 0xcb3a6c88,
180 	0x47bc2829, 0x4725ba37, 0xa66ad22b, 0x7ad61f1e, 0x0c5cbafa,
181 	0x4437f107, 0xb6e79962, 0x42d2d816,
182 	0x0a961288, 0xe1a5c06e, 0x13749e67, 0x72fc081a, 0xb1d139f7,
183 	0xf9583745, 0xcf19df58, 0xbec3f756,
184 	0xc06eba30, 0x07211b24, 0x45c28829, 0xc95e317f, 0xbc8ec511,
185 	0x38bc46e9, 0xc6e6fa14, 0xbae8584a,
186 	0xad4ebc46, 0x468f508b, 0x7829435f, 0xf124183b, 0x821dba9f,
187 	0xaff60ff4, 0xea2c4e6d, 0x16e39264,
188 	0x92544a8b, 0x009b4fc3, 0xaba68ced, 0x9ac96f78, 0x06a5b79a,
189 	0xb2856e6e, 0x1aec3ca9, 0xbe838688,
190 	0x0e0804e9, 0x55f1be56, 0xe7e5363b, 0xb3a1f25d, 0xf7debb85,
191 	0x61fe033c, 0x16746233, 0x3c034c28,
192 	0xda6d0c74, 0x79aac56c, 0x3ce4e1ad, 0x51f0c802, 0x98f8f35a,
193 	0x1626a49f, 0xeed82b29, 0x1d382fe3,
194 	0x0c4fb99a, 0xbb325778, 0x3ec6d97b, 0x6e77a6a9, 0xcb658b5c,
195 	0xd45230c7, 0x2bd1408b, 0x60c03eb7,
196 	0xb9068d78, 0xa33754f4, 0xf430c87d, 0xc8a71302, 0xb96d8c32,
197 	0xebd4e7be, 0xbe8b9d2d, 0x7979fb06,
198 	0xe7225308, 0x8b75cf77, 0x11ef8da4, 0xe083c858, 0x8d6b786f,
199 	0x5a6317a6, 0xfa5cf7a0, 0x5dda0033,
200 	0xf28ebfb0, 0xf5b9c310, 0xa0eac280, 0x08b9767a, 0xa3d9d2b0,
201 	0x79d34217, 0x021a718d, 0x9ac6336a,
202 	0x2711fd60, 0x438050e3, 0x069908a8, 0x3d7fedc4, 0x826d2bef,
203 	0x4eeb8476, 0x488dcf25, 0x36c9d566,
204 	0x28e74e41, 0xc2610aca, 0x3d49a9cf, 0xbae3b9df, 0xb65f8de6,
205 	0x92aeaf64, 0x3ac7d5e6, 0x9ea80509,
206 	0xf22b017d, 0xa4173f70, 0xdd1e16c3, 0x15e0d7f9, 0x50b1b887,
207 	0x2b9f4fd5, 0x625aba82, 0x6a017962,
208 	0x2ec01b9c, 0x15488aa9, 0xd716e740, 0x40055a2c, 0x93d29a22,
209 	0xe32dbf9a, 0x058745b9, 0x3453dc1e,
210 	0xd699296e, 0x496cff6f, 0x1c9f4986, 0xdfe2ed07, 0xb87242d1,
211 	0x19de7eae, 0x053e561a, 0x15ad6f8c,
212 	0x66626c1c, 0x7154c24c, 0xea082b2a, 0x93eb2939, 0x17dcb0f0,
213 	0x58d4f2ae, 0x9ea294fb, 0x52cf564c,
214 	0x9883fe66, 0x2ec40581, 0x763953c3, 0x01d6692e, 0xd3a0c108,
215 	0xa1e7160e, 0xe4f2dfa6, 0x693ed285,
216 	0x74904698, 0x4c2b0edd, 0x4f757656, 0x5d393378, 0xa132234f,
217 	0x3d321c5d, 0xc3f5e194, 0x4b269301,
218 	0xc79f022f, 0x3c997e7e, 0x5e4f9504, 0x3ffafbbd, 0x76f7ad0e,
219 	0x296693f4, 0x3d1fce6f, 0xc61e45be,
220 	0xd3b5ab34, 0xf72bf9b7, 0x1b0434c0, 0x4e72b567, 0x5592a33d,
221 	0xb5229301, 0xcfd2a87f, 0x60aeb767,
222 	0x1814386b, 0x30bcc33d, 0x38a0c07d, 0xfd1606f2, 0xc363519b,
223 	0x589dd390, 0x5479f8e6, 0x1cb8d647,
224 	0x97fd61a9, 0xea7759f4, 0x2d57539d, 0x569a58cf, 0xe84e63ad,
225 	0x462e1b78, 0x6580f87e, 0xf3817914,
226 	0x91da55f4, 0x40a230f3, 0xd1988f35, 0xb6e318d2, 0x3ffa50bc,
227 	0x3d40f021, 0xc3c0bdae, 0x4958c24c,
228 	0x518f36b2, 0x84b1d370, 0x0fedce83, 0x878ddada, 0xf2a279c7,
229 	0x94e01be8, 0x90716f4b, 0x954b8aa3
230 };
231 static const u32 sb8[256] = {
232 	0xe216300d, 0xbbddfffc, 0xa7ebdabd, 0x35648095, 0x7789f8b7,
233 	0xe6c1121b, 0x0e241600, 0x052ce8b5,
234 	0x11a9cfb0, 0xe5952f11, 0xece7990a, 0x9386d174, 0x2a42931c,
235 	0x76e38111, 0xb12def3a, 0x37ddddfc,
236 	0xde9adeb1, 0x0a0cc32c, 0xbe197029, 0x84a00940, 0xbb243a0f,
237 	0xb4d137cf, 0xb44e79f0, 0x049eedfd,
238 	0x0b15a15d, 0x480d3168, 0x8bbbde5a, 0x669ded42, 0xc7ece831,
239 	0x3f8f95e7, 0x72df191b, 0x7580330d,
240 	0x94074251, 0x5c7dcdfa, 0xabbe6d63, 0xaa402164, 0xb301d40a,
241 	0x02e7d1ca, 0x53571dae, 0x7a3182a2,
242 	0x12a8ddec, 0xfdaa335d, 0x176f43e8, 0x71fb46d4, 0x38129022,
243 	0xce949ad4, 0xb84769ad, 0x965bd862,
244 	0x82f3d055, 0x66fb9767, 0x15b80b4e, 0x1d5b47a0, 0x4cfde06f,
245 	0xc28ec4b8, 0x57e8726e, 0x647a78fc,
246 	0x99865d44, 0x608bd593, 0x6c200e03, 0x39dc5ff6, 0x5d0b00a3,
247 	0xae63aff2, 0x7e8bd632, 0x70108c0c,
248 	0xbbd35049, 0x2998df04, 0x980cf42a, 0x9b6df491, 0x9e7edd53,
249 	0x06918548, 0x58cb7e07, 0x3b74ef2e,
250 	0x522fffb1, 0xd24708cc, 0x1c7e27cd, 0xa4eb215b, 0x3cf1d2e2,
251 	0x19b47a38, 0x424f7618, 0x35856039,
252 	0x9d17dee7, 0x27eb35e6, 0xc9aff67b, 0x36baf5b8, 0x09c467cd,
253 	0xc18910b1, 0xe11dbf7b, 0x06cd1af8,
254 	0x7170c608, 0x2d5e3354, 0xd4de495a, 0x64c6d006, 0xbcc0c62c,
255 	0x3dd00db3, 0x708f8f34, 0x77d51b42,
256 	0x264f620f, 0x24b8d2bf, 0x15c1b79e, 0x46a52564, 0xf8d7e54e,
257 	0x3e378160, 0x7895cda5, 0x859c15a5,
258 	0xe6459788, 0xc37bc75f, 0xdb07ba0c, 0x0676a3ab, 0x7f229b1e,
259 	0x31842e7b, 0x24259fd7, 0xf8bef472,
260 	0x835ffcb8, 0x6df4c1f2, 0x96f5b195, 0xfd0af0fc, 0xb0fe134c,
261 	0xe2506d3d, 0x4f9b12ea, 0xf215f225,
262 	0xa223736f, 0x9fb4c428, 0x25d04979, 0x34c713f8, 0xc4618187,
263 	0xea7a6e98, 0x7cd16efc, 0x1436876c,
264 	0xf1544107, 0xbedeee14, 0x56e9af27, 0xa04aa441, 0x3cf7c899,
265 	0x92ecbae6, 0xdd67016d, 0x151682eb,
266 	0xa842eedf, 0xfdba60b4, 0xf1907b75, 0x20e3030f, 0x24d8c29e,
267 	0xe139673b, 0xefa63fb8, 0x71873054,
268 	0xb6f2cf3b, 0x9f326442, 0xcb15a4cc, 0xb01a4504, 0xf1e47d8d,
269 	0x844a1be5, 0xbae7dfdc, 0x42cbda70,
270 	0xcd7dae0a, 0x57e85b7a, 0xd53f5af6, 0x20cf4d8c, 0xcea4d428,
271 	0x79d130a4, 0x3486ebfb, 0x33d3cddc,
272 	0x77853b53, 0x37effcb5, 0xc5068778, 0xe580b3e6, 0x4e68b8f4,
273 	0xc5c8b37e, 0x0d809ea2, 0x398feb7c,
274 	0x132a4f94, 0x43b7950e, 0x2fee7d1c, 0x223613bd, 0xdd06caa2,
275 	0x37df932b, 0xc4248289, 0xacf3ebc3,
276 	0x5715f6b7, 0xef3478dd, 0xf267616f, 0xc148cbe4, 0x9052815e,
277 	0x5e410fab, 0xb48a2465, 0x2eda7fa4,
278 	0xe87b40e4, 0xe98ea084, 0x5889e9e1, 0xefd390fc, 0xdd07d35b,
279 	0xdb485694, 0x38d7e5b2, 0x57720101,
280 	0x730edebc, 0x5b643113, 0x94917e4f, 0x503c2fba, 0x646f1282,
281 	0x7523d24a, 0xe0779695, 0xf9c17a8f,
282 	0x7a5b2121, 0xd187b896, 0x29263a4d, 0xba510cdf, 0x81f47c9f,
283 	0xad1163ed, 0xea7b5965, 0x1a00726e,
284 	0x11403092, 0x00da6d77, 0x4a0cdd61, 0xad1f4603, 0x605bdfb0,
285 	0x9eedc364, 0x22ebe6a8, 0xcee7d28a,
286 	0xa0e736a0, 0x5564a6b9, 0x10853209, 0xc7eb8f37, 0x2de705ca,
287 	0x8951570f, 0xdf09822b, 0xbd691a6c,
288 	0xaa12e4f2, 0x87451c0f, 0xe0f6a27a, 0x3ada4819, 0x4cf1764f,
289 	0x0d771c2b, 0x67cdb156, 0x350d8384,
290 	0x5938fa0f, 0x42399ef3, 0x36997b07, 0x0e84093d, 0x4aa93e61,
291 	0x8360d87b, 0x1fa98b0c, 0x1149382c,
292 	0xe97625a5, 0x0614d1b7, 0x0e25244b, 0x0c768347, 0x589e8d82,
293 	0x0d2059d1, 0xa466bb1e, 0xf8da0a82,
294 	0x04f19130, 0xba6e4ec0, 0x99265164, 0x1ee7230d, 0x50b2ad80,
295 	0xeaee6801, 0x8db2a283, 0xea8bf59e
296 };
297 
298 #define s1 cast_s1
299 #define s2 cast_s2
300 #define s3 cast_s3
301 #define s4 cast_s4
302 
303 #define F1(D, m, r)  ((I = ((m) + (D))), (I = rol32(I, (r))),   \
304 	(((s1[I >> 24] ^ s2[(I>>16)&0xff]) - s3[(I>>8)&0xff]) + s4[I&0xff]))
305 #define F2(D, m, r)  ((I = ((m) ^ (D))), (I = rol32(I, (r))),   \
306 	(((s1[I >> 24] - s2[(I>>16)&0xff]) + s3[(I>>8)&0xff]) ^ s4[I&0xff]))
307 #define F3(D, m, r)  ((I = ((m) - (D))), (I = rol32(I, (r))),   \
308 	(((s1[I >> 24] + s2[(I>>16)&0xff]) ^ s3[(I>>8)&0xff]) - s4[I&0xff]))
309 
310 
311 void __cast5_encrypt(struct cast5_ctx *c, u8 *outbuf, const u8 *inbuf)
312 {
313 	const __be32 *src = (const __be32 *)inbuf;
314 	__be32 *dst = (__be32 *)outbuf;
315 	u32 l, r, t;
316 	u32 I;			/* used by the Fx macros */
317 	u32 *Km;
318 	u8 *Kr;
319 
320 	Km = c->Km;
321 	Kr = c->Kr;
322 
323 	/* (L0,R0) <-- (m1...m64).  (Split the plaintext into left and
324 	 * right 32-bit halves L0 = m1...m32 and R0 = m33...m64.)
325 	 */
326 	l = be32_to_cpu(src[0]);
327 	r = be32_to_cpu(src[1]);
328 
329 	/* (16 rounds) for i from 1 to 16, compute Li and Ri as follows:
330 	 *  Li = Ri-1;
331 	 *  Ri = Li-1 ^ f(Ri-1,Kmi,Kri), where f is defined in Section 2.2
332 	 * Rounds 1, 4, 7, 10, 13, and 16 use f function Type 1.
333 	 * Rounds 2, 5, 8, 11, and 14 use f function Type 2.
334 	 * Rounds 3, 6, 9, 12, and 15 use f function Type 3.
335 	 */
336 
337 	t = l; l = r; r = t ^ F1(r, Km[0], Kr[0]);
338 	t = l; l = r; r = t ^ F2(r, Km[1], Kr[1]);
339 	t = l; l = r; r = t ^ F3(r, Km[2], Kr[2]);
340 	t = l; l = r; r = t ^ F1(r, Km[3], Kr[3]);
341 	t = l; l = r; r = t ^ F2(r, Km[4], Kr[4]);
342 	t = l; l = r; r = t ^ F3(r, Km[5], Kr[5]);
343 	t = l; l = r; r = t ^ F1(r, Km[6], Kr[6]);
344 	t = l; l = r; r = t ^ F2(r, Km[7], Kr[7]);
345 	t = l; l = r; r = t ^ F3(r, Km[8], Kr[8]);
346 	t = l; l = r; r = t ^ F1(r, Km[9], Kr[9]);
347 	t = l; l = r; r = t ^ F2(r, Km[10], Kr[10]);
348 	t = l; l = r; r = t ^ F3(r, Km[11], Kr[11]);
349 	if (!(c->rr)) {
350 		t = l; l = r; r = t ^ F1(r, Km[12], Kr[12]);
351 		t = l; l = r; r = t ^ F2(r, Km[13], Kr[13]);
352 		t = l; l = r; r = t ^ F3(r, Km[14], Kr[14]);
353 		t = l; l = r; r = t ^ F1(r, Km[15], Kr[15]);
354 	}
355 
356 	/* c1...c64 <-- (R16,L16).  (Exchange final blocks L16, R16 and
357 	 *  concatenate to form the ciphertext.) */
358 	dst[0] = cpu_to_be32(r);
359 	dst[1] = cpu_to_be32(l);
360 }
361 EXPORT_SYMBOL_GPL(__cast5_encrypt);
362 
363 static void cast5_encrypt(struct crypto_tfm *tfm, u8 *outbuf, const u8 *inbuf)
364 {
365 	__cast5_encrypt(crypto_tfm_ctx(tfm), outbuf, inbuf);
366 }
367 
368 void __cast5_decrypt(struct cast5_ctx *c, u8 *outbuf, const u8 *inbuf)
369 {
370 	const __be32 *src = (const __be32 *)inbuf;
371 	__be32 *dst = (__be32 *)outbuf;
372 	u32 l, r, t;
373 	u32 I;
374 	u32 *Km;
375 	u8 *Kr;
376 
377 	Km = c->Km;
378 	Kr = c->Kr;
379 
380 	l = be32_to_cpu(src[0]);
381 	r = be32_to_cpu(src[1]);
382 
383 	if (!(c->rr)) {
384 		t = l; l = r; r = t ^ F1(r, Km[15], Kr[15]);
385 		t = l; l = r; r = t ^ F3(r, Km[14], Kr[14]);
386 		t = l; l = r; r = t ^ F2(r, Km[13], Kr[13]);
387 		t = l; l = r; r = t ^ F1(r, Km[12], Kr[12]);
388 	}
389 	t = l; l = r; r = t ^ F3(r, Km[11], Kr[11]);
390 	t = l; l = r; r = t ^ F2(r, Km[10], Kr[10]);
391 	t = l; l = r; r = t ^ F1(r, Km[9], Kr[9]);
392 	t = l; l = r; r = t ^ F3(r, Km[8], Kr[8]);
393 	t = l; l = r; r = t ^ F2(r, Km[7], Kr[7]);
394 	t = l; l = r; r = t ^ F1(r, Km[6], Kr[6]);
395 	t = l; l = r; r = t ^ F3(r, Km[5], Kr[5]);
396 	t = l; l = r; r = t ^ F2(r, Km[4], Kr[4]);
397 	t = l; l = r; r = t ^ F1(r, Km[3], Kr[3]);
398 	t = l; l = r; r = t ^ F3(r, Km[2], Kr[2]);
399 	t = l; l = r; r = t ^ F2(r, Km[1], Kr[1]);
400 	t = l; l = r; r = t ^ F1(r, Km[0], Kr[0]);
401 
402 	dst[0] = cpu_to_be32(r);
403 	dst[1] = cpu_to_be32(l);
404 }
405 EXPORT_SYMBOL_GPL(__cast5_decrypt);
406 
407 static void cast5_decrypt(struct crypto_tfm *tfm, u8 *outbuf, const u8 *inbuf)
408 {
409 	__cast5_decrypt(crypto_tfm_ctx(tfm), outbuf, inbuf);
410 }
411 
412 static void key_schedule(u32 *x, u32 *z, u32 *k)
413 {
414 
415 #define xi(i)   ((x[(i)/4] >> (8*(3-((i)%4)))) & 0xff)
416 #define zi(i)   ((z[(i)/4] >> (8*(3-((i)%4)))) & 0xff)
417 
418 	z[0] = x[0] ^ s5[xi(13)] ^ s6[xi(15)] ^ s7[xi(12)] ^ sb8[xi(14)] ^
419 	    s7[xi(8)];
420 	z[1] = x[2] ^ s5[zi(0)] ^ s6[zi(2)] ^ s7[zi(1)] ^ sb8[zi(3)] ^
421 	    sb8[xi(10)];
422 	z[2] = x[3] ^ s5[zi(7)] ^ s6[zi(6)] ^ s7[zi(5)] ^ sb8[zi(4)] ^
423 	    s5[xi(9)];
424 	z[3] = x[1] ^ s5[zi(10)] ^ s6[zi(9)] ^ s7[zi(11)] ^ sb8[zi(8)] ^
425 	    s6[xi(11)];
426 	k[0] = s5[zi(8)] ^ s6[zi(9)] ^ s7[zi(7)] ^ sb8[zi(6)] ^ s5[zi(2)];
427 	k[1] = s5[zi(10)] ^ s6[zi(11)] ^ s7[zi(5)] ^ sb8[zi(4)] ^
428 	    s6[zi(6)];
429 	k[2] = s5[zi(12)] ^ s6[zi(13)] ^ s7[zi(3)] ^ sb8[zi(2)] ^
430 	    s7[zi(9)];
431 	k[3] = s5[zi(14)] ^ s6[zi(15)] ^ s7[zi(1)] ^ sb8[zi(0)] ^
432 	    sb8[zi(12)];
433 
434 	x[0] = z[2] ^ s5[zi(5)] ^ s6[zi(7)] ^ s7[zi(4)] ^ sb8[zi(6)] ^
435 	    s7[zi(0)];
436 	x[1] = z[0] ^ s5[xi(0)] ^ s6[xi(2)] ^ s7[xi(1)] ^ sb8[xi(3)] ^
437 	    sb8[zi(2)];
438 	x[2] = z[1] ^ s5[xi(7)] ^ s6[xi(6)] ^ s7[xi(5)] ^ sb8[xi(4)] ^
439 	    s5[zi(1)];
440 	x[3] = z[3] ^ s5[xi(10)] ^ s6[xi(9)] ^ s7[xi(11)] ^ sb8[xi(8)] ^
441 	    s6[zi(3)];
442 	k[4] = s5[xi(3)] ^ s6[xi(2)] ^ s7[xi(12)] ^ sb8[xi(13)] ^
443 	    s5[xi(8)];
444 	k[5] = s5[xi(1)] ^ s6[xi(0)] ^ s7[xi(14)] ^ sb8[xi(15)] ^
445 	    s6[xi(13)];
446 	k[6] = s5[xi(7)] ^ s6[xi(6)] ^ s7[xi(8)] ^ sb8[xi(9)] ^ s7[xi(3)];
447 	k[7] = s5[xi(5)] ^ s6[xi(4)] ^ s7[xi(10)] ^ sb8[xi(11)] ^
448 	    sb8[xi(7)];
449 
450 	z[0] = x[0] ^ s5[xi(13)] ^ s6[xi(15)] ^ s7[xi(12)] ^ sb8[xi(14)] ^
451 	    s7[xi(8)];
452 	z[1] = x[2] ^ s5[zi(0)] ^ s6[zi(2)] ^ s7[zi(1)] ^ sb8[zi(3)] ^
453 	    sb8[xi(10)];
454 	z[2] = x[3] ^ s5[zi(7)] ^ s6[zi(6)] ^ s7[zi(5)] ^ sb8[zi(4)] ^
455 	    s5[xi(9)];
456 	z[3] = x[1] ^ s5[zi(10)] ^ s6[zi(9)] ^ s7[zi(11)] ^ sb8[zi(8)] ^
457 	    s6[xi(11)];
458 	k[8] = s5[zi(3)] ^ s6[zi(2)] ^ s7[zi(12)] ^ sb8[zi(13)] ^
459 	    s5[zi(9)];
460 	k[9] = s5[zi(1)] ^ s6[zi(0)] ^ s7[zi(14)] ^ sb8[zi(15)] ^
461 	    s6[zi(12)];
462 	k[10] = s5[zi(7)] ^ s6[zi(6)] ^ s7[zi(8)] ^ sb8[zi(9)] ^ s7[zi(2)];
463 	k[11] = s5[zi(5)] ^ s6[zi(4)] ^ s7[zi(10)] ^ sb8[zi(11)] ^
464 	    sb8[zi(6)];
465 
466 	x[0] = z[2] ^ s5[zi(5)] ^ s6[zi(7)] ^ s7[zi(4)] ^ sb8[zi(6)] ^
467 	    s7[zi(0)];
468 	x[1] = z[0] ^ s5[xi(0)] ^ s6[xi(2)] ^ s7[xi(1)] ^ sb8[xi(3)] ^
469 	    sb8[zi(2)];
470 	x[2] = z[1] ^ s5[xi(7)] ^ s6[xi(6)] ^ s7[xi(5)] ^ sb8[xi(4)] ^
471 	    s5[zi(1)];
472 	x[3] = z[3] ^ s5[xi(10)] ^ s6[xi(9)] ^ s7[xi(11)] ^ sb8[xi(8)] ^
473 	    s6[zi(3)];
474 	k[12] = s5[xi(8)] ^ s6[xi(9)] ^ s7[xi(7)] ^ sb8[xi(6)] ^ s5[xi(3)];
475 	k[13] = s5[xi(10)] ^ s6[xi(11)] ^ s7[xi(5)] ^ sb8[xi(4)] ^
476 	    s6[xi(7)];
477 	k[14] = s5[xi(12)] ^ s6[xi(13)] ^ s7[xi(3)] ^ sb8[xi(2)] ^
478 	    s7[xi(8)];
479 	k[15] = s5[xi(14)] ^ s6[xi(15)] ^ s7[xi(1)] ^ sb8[xi(0)] ^
480 	    sb8[xi(13)];
481 
482 #undef xi
483 #undef zi
484 }
485 
486 
487 int cast5_setkey(struct crypto_tfm *tfm, const u8 *key, unsigned int key_len)
488 {
489 	struct cast5_ctx *c = crypto_tfm_ctx(tfm);
490 	int i;
491 	u32 x[4];
492 	u32 z[4];
493 	u32 k[16];
494 	__be32 p_key[4];
495 
496 	c->rr = key_len <= 10 ? 1 : 0;
497 
498 	memset(p_key, 0, 16);
499 	memcpy(p_key, key, key_len);
500 
501 
502 	x[0] = be32_to_cpu(p_key[0]);
503 	x[1] = be32_to_cpu(p_key[1]);
504 	x[2] = be32_to_cpu(p_key[2]);
505 	x[3] = be32_to_cpu(p_key[3]);
506 
507 	key_schedule(x, z, k);
508 	for (i = 0; i < 16; i++)
509 		c->Km[i] = k[i];
510 	key_schedule(x, z, k);
511 	for (i = 0; i < 16; i++)
512 		c->Kr[i] = k[i] & 0x1f;
513 	return 0;
514 }
515 EXPORT_SYMBOL_GPL(cast5_setkey);
516 
517 static struct crypto_alg alg = {
518 	.cra_name		= "cast5",
519 	.cra_driver_name	= "cast5-generic",
520 	.cra_priority		= 100,
521 	.cra_flags		= CRYPTO_ALG_TYPE_CIPHER,
522 	.cra_blocksize		= CAST5_BLOCK_SIZE,
523 	.cra_ctxsize		= sizeof(struct cast5_ctx),
524 	.cra_alignmask		= 3,
525 	.cra_module		= THIS_MODULE,
526 	.cra_u			= {
527 		.cipher = {
528 			.cia_min_keysize = CAST5_MIN_KEY_SIZE,
529 			.cia_max_keysize = CAST5_MAX_KEY_SIZE,
530 			.cia_setkey  = cast5_setkey,
531 			.cia_encrypt = cast5_encrypt,
532 			.cia_decrypt = cast5_decrypt
533 		}
534 	}
535 };
536 
537 static int __init cast5_mod_init(void)
538 {
539 	return crypto_register_alg(&alg);
540 }
541 
542 static void __exit cast5_mod_fini(void)
543 {
544 	crypto_unregister_alg(&alg);
545 }
546 
547 module_init(cast5_mod_init);
548 module_exit(cast5_mod_fini);
549 
550 MODULE_LICENSE("GPL");
551 MODULE_DESCRIPTION("Cast5 Cipher Algorithm");
552 MODULE_ALIAS_CRYPTO("cast5");
553 MODULE_ALIAS_CRYPTO("cast5-generic");
554