diff options
Diffstat (limited to 'sys/crypto/cast128/cast128.c')
-rw-r--r-- | sys/crypto/cast128/cast128.c | 247 |
1 files changed, 0 insertions, 247 deletions
diff --git a/sys/crypto/cast128/cast128.c b/sys/crypto/cast128/cast128.c deleted file mode 100644 index 6260087..0000000 --- a/sys/crypto/cast128/cast128.c +++ /dev/null @@ -1,247 +0,0 @@ -/* $NetBSD: cast128.c,v 1.7 2003/08/26 20:03:57 thorpej Exp $ */ -/* $OpenBSD: cast.c,v 1.2 2000/06/06 06:49:47 deraadt Exp $ */ - -/* - * CAST-128 in C - * Written by Steve Reid <sreid@sea-to-sky.net> - * 100% Public Domain - no warranty - * Released 1997.10.11 - */ - -#include <sys/cdefs.h> -__FBSDID("$FreeBSD$"); - -#include <sys/types.h> -#include <crypto/cast128/cast128.h> -#include <crypto/cast128/cast128sb.h> - -/* Macros to access 8-bit bytes out of a 32-bit word */ -#define U_INT8_Ta(x) ( (u_int8_t) (x>>24) ) -#define U_INT8_Tb(x) ( (u_int8_t) ((x>>16)&255) ) -#define U_INT8_Tc(x) ( (u_int8_t) ((x>>8)&255) ) -#define U_INT8_Td(x) ( (u_int8_t) ((x)&255) ) - -/* Circular left shift */ -#define ROL(x, n) ( ((x)<<(n)) | ((x)>>(32-(n))) ) - -/* CAST-128 uses three different round functions */ -#define F1(l, r, i) \ - t = ROL(key->xkey[i] + r, key->xkey[i+16]); \ - l ^= ((cast_sbox1[U_INT8_Ta(t)] ^ cast_sbox2[U_INT8_Tb(t)]) - \ - cast_sbox3[U_INT8_Tc(t)]) + cast_sbox4[U_INT8_Td(t)]; -#define F2(l, r, i) \ - t = ROL(key->xkey[i] ^ r, key->xkey[i+16]); \ - l ^= ((cast_sbox1[U_INT8_Ta(t)] - cast_sbox2[U_INT8_Tb(t)]) + \ - cast_sbox3[U_INT8_Tc(t)]) ^ cast_sbox4[U_INT8_Td(t)]; -#define F3(l, r, i) \ - t = ROL(key->xkey[i] - r, key->xkey[i+16]); \ - l ^= ((cast_sbox1[U_INT8_Ta(t)] + cast_sbox2[U_INT8_Tb(t)]) ^ \ - cast_sbox3[U_INT8_Tc(t)]) - cast_sbox4[U_INT8_Td(t)]; - - -/***** Encryption Function *****/ - -void cast128_encrypt(const cast128_key* key, const u_int8_t* inblock, - u_int8_t* outblock) -{ -u_int32_t t, l, r; - - /* Get inblock into l,r */ - l = ((u_int32_t)inblock[0] << 24) | ((u_int32_t)inblock[1] << 16) | - ((u_int32_t)inblock[2] << 8) | (u_int32_t)inblock[3]; - r = ((u_int32_t)inblock[4] << 24) | ((u_int32_t)inblock[5] << 16) | - ((u_int32_t)inblock[6] << 8) | (u_int32_t)inblock[7]; - /* Do the work */ - F1(l, r, 0); - F2(r, l, 1); - F3(l, r, 2); - F1(r, l, 3); - F2(l, r, 4); - F3(r, l, 5); - F1(l, r, 6); - F2(r, l, 7); - F3(l, r, 8); - F1(r, l, 9); - F2(l, r, 10); - F3(r, l, 11); - /* Only do full 16 rounds if key length > 80 bits */ - if (key->rounds > 12) { - F1(l, r, 12); - F2(r, l, 13); - F3(l, r, 14); - F1(r, l, 15); - } - /* Put l,r into outblock */ - outblock[0] = U_INT8_Ta(r); - outblock[1] = U_INT8_Tb(r); - outblock[2] = U_INT8_Tc(r); - outblock[3] = U_INT8_Td(r); - outblock[4] = U_INT8_Ta(l); - outblock[5] = U_INT8_Tb(l); - outblock[6] = U_INT8_Tc(l); - outblock[7] = U_INT8_Td(l); - /* Wipe clean */ - t = l = r = 0; -} - - -/***** Decryption Function *****/ - -void cast128_decrypt(const cast128_key* key, const u_int8_t* inblock, - u_int8_t* outblock) -{ -u_int32_t t, l, r; - - /* Get inblock into l,r */ - r = ((u_int32_t)inblock[0] << 24) | ((u_int32_t)inblock[1] << 16) | - ((u_int32_t)inblock[2] << 8) | (u_int32_t)inblock[3]; - l = ((u_int32_t)inblock[4] << 24) | ((u_int32_t)inblock[5] << 16) | - ((u_int32_t)inblock[6] << 8) | (u_int32_t)inblock[7]; - /* Do the work */ - /* Only do full 16 rounds if key length > 80 bits */ - if (key->rounds > 12) { - F1(r, l, 15); - F3(l, r, 14); - F2(r, l, 13); - F1(l, r, 12); - } - F3(r, l, 11); - F2(l, r, 10); - F1(r, l, 9); - F3(l, r, 8); - F2(r, l, 7); - F1(l, r, 6); - F3(r, l, 5); - F2(l, r, 4); - F1(r, l, 3); - F3(l, r, 2); - F2(r, l, 1); - F1(l, r, 0); - /* Put l,r into outblock */ - outblock[0] = U_INT8_Ta(l); - outblock[1] = U_INT8_Tb(l); - outblock[2] = U_INT8_Tc(l); - outblock[3] = U_INT8_Td(l); - outblock[4] = U_INT8_Ta(r); - outblock[5] = U_INT8_Tb(r); - outblock[6] = U_INT8_Tc(r); - outblock[7] = U_INT8_Td(r); - /* Wipe clean */ - t = l = r = 0; -} - - -/***** Key Schedual *****/ - -void cast128_setkey(cast128_key* key, const u_int8_t* rawkey, int keybytes) -{ -u_int32_t t[4], z[4], x[4]; -int i; - - /* Set number of rounds to 12 or 16, depending on key length */ - key->rounds = (keybytes <= 10 ? 12 : 16); - - /* Copy key to workspace x */ - for (i = 0; i < 4; i++) { - x[i] = 0; - if ((i*4+0) < keybytes) x[i] = (u_int32_t)rawkey[i*4+0] << 24; - if ((i*4+1) < keybytes) x[i] |= (u_int32_t)rawkey[i*4+1] << 16; - if ((i*4+2) < keybytes) x[i] |= (u_int32_t)rawkey[i*4+2] << 8; - if ((i*4+3) < keybytes) x[i] |= (u_int32_t)rawkey[i*4+3]; - } - /* Generate 32 subkeys, four at a time */ - for (i = 0; i < 32; i+=4) { - switch (i & 4) { - case 0: - t[0] = z[0] = x[0] ^ cast_sbox5[U_INT8_Tb(x[3])] ^ - cast_sbox6[U_INT8_Td(x[3])] ^ cast_sbox7[U_INT8_Ta(x[3])] ^ - cast_sbox8[U_INT8_Tc(x[3])] ^ cast_sbox7[U_INT8_Ta(x[2])]; - t[1] = z[1] = x[2] ^ cast_sbox5[U_INT8_Ta(z[0])] ^ - cast_sbox6[U_INT8_Tc(z[0])] ^ cast_sbox7[U_INT8_Tb(z[0])] ^ - cast_sbox8[U_INT8_Td(z[0])] ^ cast_sbox8[U_INT8_Tc(x[2])]; - t[2] = z[2] = x[3] ^ cast_sbox5[U_INT8_Td(z[1])] ^ - cast_sbox6[U_INT8_Tc(z[1])] ^ cast_sbox7[U_INT8_Tb(z[1])] ^ - cast_sbox8[U_INT8_Ta(z[1])] ^ cast_sbox5[U_INT8_Tb(x[2])]; - t[3] = z[3] = x[1] ^ cast_sbox5[U_INT8_Tc(z[2])] ^ - cast_sbox6[U_INT8_Tb(z[2])] ^ cast_sbox7[U_INT8_Td(z[2])] ^ - cast_sbox8[U_INT8_Ta(z[2])] ^ cast_sbox6[U_INT8_Td(x[2])]; - break; - case 4: - t[0] = x[0] = z[2] ^ cast_sbox5[U_INT8_Tb(z[1])] ^ - cast_sbox6[U_INT8_Td(z[1])] ^ cast_sbox7[U_INT8_Ta(z[1])] ^ - cast_sbox8[U_INT8_Tc(z[1])] ^ cast_sbox7[U_INT8_Ta(z[0])]; - t[1] = x[1] = z[0] ^ cast_sbox5[U_INT8_Ta(x[0])] ^ - cast_sbox6[U_INT8_Tc(x[0])] ^ cast_sbox7[U_INT8_Tb(x[0])] ^ - cast_sbox8[U_INT8_Td(x[0])] ^ cast_sbox8[U_INT8_Tc(z[0])]; - t[2] = x[2] = z[1] ^ cast_sbox5[U_INT8_Td(x[1])] ^ - cast_sbox6[U_INT8_Tc(x[1])] ^ cast_sbox7[U_INT8_Tb(x[1])] ^ - cast_sbox8[U_INT8_Ta(x[1])] ^ cast_sbox5[U_INT8_Tb(z[0])]; - t[3] = x[3] = z[3] ^ cast_sbox5[U_INT8_Tc(x[2])] ^ - cast_sbox6[U_INT8_Tb(x[2])] ^ cast_sbox7[U_INT8_Td(x[2])] ^ - cast_sbox8[U_INT8_Ta(x[2])] ^ cast_sbox6[U_INT8_Td(z[0])]; - break; - } - switch (i & 12) { - case 0: - case 12: - key->xkey[i+0] = cast_sbox5[U_INT8_Ta(t[2])] ^ cast_sbox6[U_INT8_Tb(t[2])] ^ - cast_sbox7[U_INT8_Td(t[1])] ^ cast_sbox8[U_INT8_Tc(t[1])]; - key->xkey[i+1] = cast_sbox5[U_INT8_Tc(t[2])] ^ cast_sbox6[U_INT8_Td(t[2])] ^ - cast_sbox7[U_INT8_Tb(t[1])] ^ cast_sbox8[U_INT8_Ta(t[1])]; - key->xkey[i+2] = cast_sbox5[U_INT8_Ta(t[3])] ^ cast_sbox6[U_INT8_Tb(t[3])] ^ - cast_sbox7[U_INT8_Td(t[0])] ^ cast_sbox8[U_INT8_Tc(t[0])]; - key->xkey[i+3] = cast_sbox5[U_INT8_Tc(t[3])] ^ cast_sbox6[U_INT8_Td(t[3])] ^ - cast_sbox7[U_INT8_Tb(t[0])] ^ cast_sbox8[U_INT8_Ta(t[0])]; - break; - case 4: - case 8: - key->xkey[i+0] = cast_sbox5[U_INT8_Td(t[0])] ^ cast_sbox6[U_INT8_Tc(t[0])] ^ - cast_sbox7[U_INT8_Ta(t[3])] ^ cast_sbox8[U_INT8_Tb(t[3])]; - key->xkey[i+1] = cast_sbox5[U_INT8_Tb(t[0])] ^ cast_sbox6[U_INT8_Ta(t[0])] ^ - cast_sbox7[U_INT8_Tc(t[3])] ^ cast_sbox8[U_INT8_Td(t[3])]; - key->xkey[i+2] = cast_sbox5[U_INT8_Td(t[1])] ^ cast_sbox6[U_INT8_Tc(t[1])] ^ - cast_sbox7[U_INT8_Ta(t[2])] ^ cast_sbox8[U_INT8_Tb(t[2])]; - key->xkey[i+3] = cast_sbox5[U_INT8_Tb(t[1])] ^ cast_sbox6[U_INT8_Ta(t[1])] ^ - cast_sbox7[U_INT8_Tc(t[2])] ^ cast_sbox8[U_INT8_Td(t[2])]; - break; - } - switch (i & 12) { - case 0: - key->xkey[i+0] ^= cast_sbox5[U_INT8_Tc(z[0])]; - key->xkey[i+1] ^= cast_sbox6[U_INT8_Tc(z[1])]; - key->xkey[i+2] ^= cast_sbox7[U_INT8_Tb(z[2])]; - key->xkey[i+3] ^= cast_sbox8[U_INT8_Ta(z[3])]; - break; - case 4: - key->xkey[i+0] ^= cast_sbox5[U_INT8_Ta(x[2])]; - key->xkey[i+1] ^= cast_sbox6[U_INT8_Tb(x[3])]; - key->xkey[i+2] ^= cast_sbox7[U_INT8_Td(x[0])]; - key->xkey[i+3] ^= cast_sbox8[U_INT8_Td(x[1])]; - break; - case 8: - key->xkey[i+0] ^= cast_sbox5[U_INT8_Tb(z[2])]; - key->xkey[i+1] ^= cast_sbox6[U_INT8_Ta(z[3])]; - key->xkey[i+2] ^= cast_sbox7[U_INT8_Tc(z[0])]; - key->xkey[i+3] ^= cast_sbox8[U_INT8_Tc(z[1])]; - break; - case 12: - key->xkey[i+0] ^= cast_sbox5[U_INT8_Td(x[0])]; - key->xkey[i+1] ^= cast_sbox6[U_INT8_Td(x[1])]; - key->xkey[i+2] ^= cast_sbox7[U_INT8_Ta(x[2])]; - key->xkey[i+3] ^= cast_sbox8[U_INT8_Tb(x[3])]; - break; - } - if (i >= 16) { - key->xkey[i+0] &= 31; - key->xkey[i+1] &= 31; - key->xkey[i+2] &= 31; - key->xkey[i+3] &= 31; - } - } - /* Wipe clean */ - for (i = 0; i < 4; i++) { - t[i] = x[i] = z[i] = 0; - } -} - -/* Made in Canada */ |