crypto/cast5_generic.c

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