dropbear: libtomcrypt/src/ciphers/safer/saferp.c annotate

annotate libtomcrypt/src/ciphers/safer/saferp.c @ 1938:77bc00dcc19f default tip main master

Bump version to 2022.82

author	Matt Johnston <matt@ucc.asn.au>
date	Fri, 01 Apr 2022 14:43:27 +0800
parents	6dba84798cd5
children

rev	line source
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1 /* LibTomCrypt, modular cryptographic library -- Tom St Denis
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2 *
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3 * LibTomCrypt is a library that provides various cryptographic
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4 * algorithms in a highly modular and flexible manner.
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5 *
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6 * The library is free for all purposes without any express
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7 * guarantee it works.
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8 */
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	10 /**
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	11 @file saferp.c
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	12 LTC_SAFER+ Implementation by Tom St Denis
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	13 */
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	14 #include "tomcrypt.h"
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	15
1435 f849a5ca2efc update to libtomcrypt 1.17 (with Dropbear changes) Matt Johnston <matt@ucc.asn.au> parents: 382 diff changeset	16 #ifdef LTC_SAFERP
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	17
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	18 #define __LTC_SAFER_TAB_C__
6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	19 #include "safer_tab.c"
6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	20
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	21 const struct ltc_cipher_descriptor saferp_desc =
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	22 {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	23 "safer+",
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	24 4,
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	25 16, 32, 16, 8,
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	26 &saferp_setup,
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	27 &saferp_ecb_encrypt,
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	28 &saferp_ecb_decrypt,
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	29 &saferp_test,
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	30 &saferp_done,
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	31 &saferp_keysize,
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	32 NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	33 };
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	34
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	35 /* ROUND(b,i)
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	36 *
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	37 * This is one forward key application. Note the basic form is
6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	38 * key addition, substitution, key addition. The safer_ebox and safer_lbox
6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	39 * are the exponentiation box and logarithm boxes respectively.
6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	40 * The value of 'i' is the current round number which allows this
6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	41 * function to be unrolled massively. Most of LTC_SAFER+'s speed
6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	42 * comes from not having to compute indirect accesses into the
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	43 * array of 16 bytes b[0..15] which is the block of data
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	44 */
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	45
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	46 #define ROUND(b, i) do { \
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	47 b[0] = (safer_ebox[(b[0] ^ skey->saferp.K[i][0]) & 255] + skey->saferp.K[i+1][0]) & 255; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	48 b[1] = safer_lbox[(b[1] + skey->saferp.K[i][1]) & 255] ^ skey->saferp.K[i+1][1]; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	49 b[2] = safer_lbox[(b[2] + skey->saferp.K[i][2]) & 255] ^ skey->saferp.K[i+1][2]; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	50 b[3] = (safer_ebox[(b[3] ^ skey->saferp.K[i][3]) & 255] + skey->saferp.K[i+1][3]) & 255; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	51 b[4] = (safer_ebox[(b[4] ^ skey->saferp.K[i][4]) & 255] + skey->saferp.K[i+1][4]) & 255; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	52 b[5] = safer_lbox[(b[5] + skey->saferp.K[i][5]) & 255] ^ skey->saferp.K[i+1][5]; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	53 b[6] = safer_lbox[(b[6] + skey->saferp.K[i][6]) & 255] ^ skey->saferp.K[i+1][6]; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	54 b[7] = (safer_ebox[(b[7] ^ skey->saferp.K[i][7]) & 255] + skey->saferp.K[i+1][7]) & 255; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	55 b[8] = (safer_ebox[(b[8] ^ skey->saferp.K[i][8]) & 255] + skey->saferp.K[i+1][8]) & 255; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	56 b[9] = safer_lbox[(b[9] + skey->saferp.K[i][9]) & 255] ^ skey->saferp.K[i+1][9]; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	57 b[10] = safer_lbox[(b[10] + skey->saferp.K[i][10]) & 255] ^ skey->saferp.K[i+1][10]; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	58 b[11] = (safer_ebox[(b[11] ^ skey->saferp.K[i][11]) & 255] + skey->saferp.K[i+1][11]) & 255; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	59 b[12] = (safer_ebox[(b[12] ^ skey->saferp.K[i][12]) & 255] + skey->saferp.K[i+1][12]) & 255; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	60 b[13] = safer_lbox[(b[13] + skey->saferp.K[i][13]) & 255] ^ skey->saferp.K[i+1][13]; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	61 b[14] = safer_lbox[(b[14] + skey->saferp.K[i][14]) & 255] ^ skey->saferp.K[i+1][14]; \
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	62 b[15] = (safer_ebox[(b[15] ^ skey->saferp.K[i][15]) & 255] + skey->saferp.K[i+1][15]) & 255; \
6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	63 } while (0)
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	64
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	65 /* This is one inverse key application */
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	66 #define iROUND(b, i) do { \
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	67 b[0] = safer_lbox[(b[0] - skey->saferp.K[i+1][0]) & 255] ^ skey->saferp.K[i][0]; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	68 b[1] = (safer_ebox[(b[1] ^ skey->saferp.K[i+1][1]) & 255] - skey->saferp.K[i][1]) & 255; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	69 b[2] = (safer_ebox[(b[2] ^ skey->saferp.K[i+1][2]) & 255] - skey->saferp.K[i][2]) & 255; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	70 b[3] = safer_lbox[(b[3] - skey->saferp.K[i+1][3]) & 255] ^ skey->saferp.K[i][3]; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	71 b[4] = safer_lbox[(b[4] - skey->saferp.K[i+1][4]) & 255] ^ skey->saferp.K[i][4]; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	72 b[5] = (safer_ebox[(b[5] ^ skey->saferp.K[i+1][5]) & 255] - skey->saferp.K[i][5]) & 255; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	73 b[6] = (safer_ebox[(b[6] ^ skey->saferp.K[i+1][6]) & 255] - skey->saferp.K[i][6]) & 255; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	74 b[7] = safer_lbox[(b[7] - skey->saferp.K[i+1][7]) & 255] ^ skey->saferp.K[i][7]; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	75 b[8] = safer_lbox[(b[8] - skey->saferp.K[i+1][8]) & 255] ^ skey->saferp.K[i][8]; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	76 b[9] = (safer_ebox[(b[9] ^ skey->saferp.K[i+1][9]) & 255] - skey->saferp.K[i][9]) & 255; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	77 b[10] = (safer_ebox[(b[10] ^ skey->saferp.K[i+1][10]) & 255] - skey->saferp.K[i][10]) & 255; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	78 b[11] = safer_lbox[(b[11] - skey->saferp.K[i+1][11]) & 255] ^ skey->saferp.K[i][11]; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	79 b[12] = safer_lbox[(b[12] - skey->saferp.K[i+1][12]) & 255] ^ skey->saferp.K[i][12]; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	80 b[13] = (safer_ebox[(b[13] ^ skey->saferp.K[i+1][13]) & 255] - skey->saferp.K[i][13]) & 255; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	81 b[14] = (safer_ebox[(b[14] ^ skey->saferp.K[i+1][14]) & 255] - skey->saferp.K[i][14]) & 255; \
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	82 b[15] = safer_lbox[(b[15] - skey->saferp.K[i+1][15]) & 255] ^ skey->saferp.K[i][15]; \
6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	83 } while (0)
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	84
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	85 /* This is a forward single layer PHT transform. */
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	86 #define PHT(b) do { \
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	87 b[0] = (b[0] + (b[1] = (b[0] + b[1]) & 255)) & 255; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	88 b[2] = (b[2] + (b[3] = (b[3] + b[2]) & 255)) & 255; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	89 b[4] = (b[4] + (b[5] = (b[5] + b[4]) & 255)) & 255; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	90 b[6] = (b[6] + (b[7] = (b[7] + b[6]) & 255)) & 255; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	91 b[8] = (b[8] + (b[9] = (b[9] + b[8]) & 255)) & 255; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	92 b[10] = (b[10] + (b[11] = (b[11] + b[10]) & 255)) & 255; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	93 b[12] = (b[12] + (b[13] = (b[13] + b[12]) & 255)) & 255; \
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	94 b[14] = (b[14] + (b[15] = (b[15] + b[14]) & 255)) & 255; \
6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	95 } while (0)
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	96
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	97 /* This is an inverse single layer PHT transform */
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	98 #define iPHT(b) do { \
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	99 b[15] = (b[15] - (b[14] = (b[14] - b[15]) & 255)) & 255; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	100 b[13] = (b[13] - (b[12] = (b[12] - b[13]) & 255)) & 255; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	101 b[11] = (b[11] - (b[10] = (b[10] - b[11]) & 255)) & 255; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	102 b[9] = (b[9] - (b[8] = (b[8] - b[9]) & 255)) & 255; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	103 b[7] = (b[7] - (b[6] = (b[6] - b[7]) & 255)) & 255; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	104 b[5] = (b[5] - (b[4] = (b[4] - b[5]) & 255)) & 255; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	105 b[3] = (b[3] - (b[2] = (b[2] - b[3]) & 255)) & 255; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	106 b[1] = (b[1] - (b[0] = (b[0] - b[1]) & 255)) & 255; \
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	107 } while (0)
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	108
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	109 /* This is the "Armenian" Shuffle. It takes the input from b and stores it in b2 */
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	110 #define SHUF(b, b2) do { \
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	111 b2[0] = b[8]; b2[1] = b[11]; b2[2] = b[12]; b2[3] = b[15]; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	112 b2[4] = b[2]; b2[5] = b[1]; b2[6] = b[6]; b2[7] = b[5]; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	113 b2[8] = b[10]; b2[9] = b[9]; b2[10] = b[14]; b2[11] = b[13]; \
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	114 b2[12] = b[0]; b2[13] = b[7]; b2[14] = b[4]; b2[15] = b[3]; \
6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	115 } while (0)
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	116
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	117 /* This is the inverse shuffle. It takes from b and gives to b2 */
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	118 #define iSHUF(b, b2) do { \
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	119 b2[0] = b[12]; b2[1] = b[5]; b2[2] = b[4]; b2[3] = b[15]; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	120 b2[4] = b[14]; b2[5] = b[7]; b2[6] = b[6]; b2[7] = b[13]; \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	121 b2[8] = b[0]; b2[9] = b[9]; b2[10] = b[8]; b2[11] = b[1]; \
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	122 b2[12] = b[2]; b2[13] = b[11]; b2[14] = b[10]; b2[15] = b[3]; \
6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	123 } while (0)
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	124
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	125 /* The complete forward Linear Transform layer.
6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	126 * Note that alternating usage of b and b2.
6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	127 * Each round of LT starts in 'b' and ends in 'b2'.
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	128 */
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	129 #define LT(b, b2) do { \
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	130 PHT(b); SHUF(b, b2); \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	131 PHT(b2); SHUF(b2, b); \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	132 PHT(b); SHUF(b, b2); \
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	133 PHT(b2); \
6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	134 } while (0)
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	135
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	136 /* This is the inverse linear transform layer. */
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	137 #define iLT(b, b2) do { \
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	138 iPHT(b); \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	139 iSHUF(b, b2); iPHT(b2); \
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	140 iSHUF(b2, b); iPHT(b); \
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	141 iSHUF(b, b2); iPHT(b2); \
6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	142 } while (0)
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	143
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	144 #ifdef LTC_SMALL_CODE
6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	145
6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	146 static void _round(unsigned char b, int i, symmetric_key skey)
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	147 {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	148 ROUND(b, i);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	149 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	150
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	151 static void _iround(unsigned char b, int i, symmetric_key skey)
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	152 {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	153 iROUND(b, i);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	154 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	155
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	156 static void _lt(unsigned char b, unsigned char b2)
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	157 {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	158 LT(b, b2);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	159 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	160
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	161 static void _ilt(unsigned char b, unsigned char b2)
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	162 {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	163 iLT(b, b2);
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	164 }
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	165
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	166 #undef ROUND
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	167 #define ROUND(b, i) _round(b, i, skey)
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	168
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	169 #undef iROUND
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	170 #define iROUND(b, i) _iround(b, i, skey)
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	171
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	172 #undef LT
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	173 #define LT(b, b2) _lt(b, b2)
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	174
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	175 #undef iLT
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	176 #define iLT(b, b2) _ilt(b, b2)
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	177
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	178 #endif
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	179
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	180 /* These are the 33, 128-bit bias words for the key schedule */
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	181 static const unsigned char safer_bias[33][16] = {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	182 { 70, 151, 177, 186, 163, 183, 16, 10, 197, 55, 179, 201, 90, 40, 172, 100},
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	183 { 236, 171, 170, 198, 103, 149, 88, 13, 248, 154, 246, 110, 102, 220, 5, 61},
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	184 { 138, 195, 216, 137, 106, 233, 54, 73, 67, 191, 235, 212, 150, 155, 104, 160},
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	185 { 93, 87, 146, 31, 213, 113, 92, 187, 34, 193, 190, 123, 188, 153, 99, 148},
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	186 { 42, 97, 184, 52, 50, 25, 253, 251, 23, 64, 230, 81, 29, 65, 68, 143},
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	187 { 221, 4, 128, 222, 231, 49, 214, 127, 1, 162, 247, 57, 218, 111, 35, 202},
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	188 { 58, 208, 28, 209, 48, 62, 18, 161, 205, 15, 224, 168, 175, 130, 89, 44},
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	189 { 125, 173, 178, 239, 194, 135, 206, 117, 6, 19, 2, 144, 79, 46, 114, 51},
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	190 { 192, 141, 207, 169, 129, 226, 196, 39, 47, 108, 122, 159, 82, 225, 21, 56},
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	191 { 252, 32, 66, 199, 8, 228, 9, 85, 94, 140, 20, 118, 96, 255, 223, 215},
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	192 { 250, 11, 33, 0, 26, 249, 166, 185, 232, 158, 98, 76, 217, 145, 80, 210},
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	193 { 24, 180, 7, 132, 234, 91, 164, 200, 14, 203, 72, 105, 75, 78, 156, 53},
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	194 { 69, 77, 84, 229, 37, 60, 12, 74, 139, 63, 204, 167, 219, 107, 174, 244},
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	195 { 45, 243, 124, 109, 157, 181, 38, 116, 242, 147, 83, 176, 240, 17, 237, 131},
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	196 { 182, 3, 22, 115, 59, 30, 142, 112, 189, 134, 27, 71, 126, 36, 86, 241},
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	197 { 136, 70, 151, 177, 186, 163, 183, 16, 10, 197, 55, 179, 201, 90, 40, 172},
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	198 { 220, 134, 119, 215, 166, 17, 251, 244, 186, 146, 145, 100, 131, 241, 51, 239},
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	199 { 44, 181, 178, 43, 136, 209, 153, 203, 140, 132, 29, 20, 129, 151, 113, 202},
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	200 { 163, 139, 87, 60, 130, 196, 82, 92, 28, 232, 160, 4, 180, 133, 74, 246},
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	201 { 84, 182, 223, 12, 26, 142, 222, 224, 57, 252, 32, 155, 36, 78, 169, 152},
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	202 { 171, 242, 96, 208, 108, 234, 250, 199, 217, 0, 212, 31, 110, 67, 188, 236},
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	203 { 137, 254, 122, 93, 73, 201, 50, 194, 249, 154, 248, 109, 22, 219, 89, 150},
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	204 { 233, 205, 230, 70, 66, 143, 10, 193, 204, 185, 101, 176, 210, 198, 172, 30},
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	205 { 98, 41, 46, 14, 116, 80, 2, 90, 195, 37, 123, 138, 42, 91, 240, 6},
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	206 { 71, 111, 112, 157, 126, 16, 206, 18, 39, 213, 76, 79, 214, 121, 48, 104},
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	207 { 117, 125, 228, 237, 128, 106, 144, 55, 162, 94, 118, 170, 197, 127, 61, 175},
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	208 { 229, 25, 97, 253, 77, 124, 183, 11, 238, 173, 75, 34, 245, 231, 115, 35},
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	209 { 200, 5, 225, 102, 221, 179, 88, 105, 99, 86, 15, 161, 49, 149, 23, 7},
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	210 { 40, 1, 45, 226, 147, 190, 69, 21, 174, 120, 3, 135, 164, 184, 56, 207},
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	211 { 8, 103, 9, 148, 235, 38, 168, 107, 189, 24, 52, 27, 187, 191, 114, 247},
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	212 { 53, 72, 156, 81, 47, 59, 85, 227, 192, 159, 216, 211, 243, 141, 177, 255},
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	213 { 62, 220, 134, 119, 215, 166, 17, 251, 244, 186, 146, 145, 100, 131, 241, 51}};
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	214
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	215 /**
1435 f849a5ca2efc update to libtomcrypt 1.17 (with Dropbear changes) Matt Johnston <matt@ucc.asn.au> parents: 382 diff changeset	216 Initialize the LTC_SAFER+ block cipher
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	217 @param key The symmetric key you wish to pass
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	218 @param keylen The key length in bytes
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	219 @param num_rounds The number of rounds desired (0 for default)
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	220 @param skey The key in as scheduled by this function.
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	221 @return CRYPT_OK if successful
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	222 */
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	223 int saferp_setup(const unsigned char key, int keylen, int num_rounds, symmetric_key skey)
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	224 {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	225 unsigned x, y, z;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	226 unsigned char t[33];
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	227 static const int rounds[3] = { 8, 12, 16 };
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	228
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	229 LTC_ARGCHK(key != NULL);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	230 LTC_ARGCHK(skey != NULL);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	231
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	232 /* check arguments */
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	233 if (keylen != 16 && keylen != 24 && keylen != 32) {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	234 return CRYPT_INVALID_KEYSIZE;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	235 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	236
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	237 /* Is the number of rounds valid? Either use zero for default or
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	238 * 8,12,16 rounds for 16,24,32 byte keys
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	239 */
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	240 if (num_rounds != 0 && num_rounds != rounds[(keylen/8)-2]) {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	241 return CRYPT_INVALID_ROUNDS;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	242 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	243
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	244 /* 128 bit key version */
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	245 if (keylen == 16) {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	246 /* copy key into t */
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	247 for (x = y = 0; x < 16; x++) {
6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	248 t[x] = key[x];
6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	249 y ^= key[x];
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	250 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	251 t[16] = y;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	252
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	253 /* make round keys */
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	254 for (x = 0; x < 16; x++) {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	255 skey->saferp.K[0][x] = t[x];
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	256 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	257
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	258 /* make the 16 other keys as a transformation of the first key */
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	259 for (x = 1; x < 17; x++) {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	260 /* rotate 3 bits each */
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	261 for (y = 0; y < 17; y++) {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	262 t[y] = ((t[y]<<3)\|(t[y]>>5)) & 255;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	263 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	264
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	265 /* select and add */
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	266 z = x;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	267 for (y = 0; y < 16; y++) {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	268 skey->saferp.K[x][y] = (t[z] + safer_bias[x-1][y]) & 255;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	269 if (++z == 17) { z = 0; }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	270 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	271 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	272 skey->saferp.rounds = 8;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	273 } else if (keylen == 24) {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	274 /* copy key into t */
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	275 for (x = y = 0; x < 24; x++) {
6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	276 t[x] = key[x];
6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	277 y ^= key[x];
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	278 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	279 t[24] = y;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	280
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	281 /* make round keys */
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	282 for (x = 0; x < 16; x++) {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	283 skey->saferp.K[0][x] = t[x];
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	284 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	285
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	286 for (x = 1; x < 25; x++) {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	287 /* rotate 3 bits each */
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	288 for (y = 0; y < 25; y++) {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	289 t[y] = ((t[y]<<3)\|(t[y]>>5)) & 255;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	290 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	291
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	292 /* select and add */
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	293 z = x;
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	294 for (y = 0; y < 16; y++) {
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	295 skey->saferp.K[x][y] = (t[z] + safer_bias[x-1][y]) & 255;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	296 if (++z == 25) { z = 0; }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	297 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	298 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	299 skey->saferp.rounds = 12;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	300 } else {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	301 /* copy key into t */
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	302 for (x = y = 0; x < 32; x++) {
6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	303 t[x] = key[x];
6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	304 y ^= key[x];
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	305 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	306 t[32] = y;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	307
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	308 /* make round keys */
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	309 for (x = 0; x < 16; x++) {
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	310 skey->saferp.K[0][x] = t[x];
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	311 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	312
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	313 for (x = 1; x < 33; x++) {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	314 /* rotate 3 bits each */
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	315 for (y = 0; y < 33; y++) {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	316 t[y] = ((t[y]<<3)\|(t[y]>>5)) & 255;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	317 }
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	318
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	319 /* select and add */
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	320 z = x;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	321 for (y = 0; y < 16; y++) {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	322 skey->saferp.K[x][y] = (t[z] + safer_bias[x-1][y]) & 255;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	323 if (++z == 33) { z = 0; }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	324 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	325 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	326 skey->saferp.rounds = 16;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	327 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	328 #ifdef LTC_CLEAN_STACK
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	329 zeromem(t, sizeof(t));
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	330 #endif
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	331 return CRYPT_OK;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	332 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	333
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	334 /**
1435 f849a5ca2efc update to libtomcrypt 1.17 (with Dropbear changes) Matt Johnston <matt@ucc.asn.au> parents: 382 diff changeset	335 Encrypts a block of text with LTC_SAFER+
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	336 @param pt The input plaintext (16 bytes)
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	337 @param ct The output ciphertext (16 bytes)
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	338 @param skey The key as scheduled
382 0cbe8f6dbf9e propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 2af22fb4e878750b88f80f90d439b316d229796f) Matt Johnston <matt@ucc.asn.au> parents: 285 diff changeset	339 @return CRYPT_OK if successful
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	340 */
382 0cbe8f6dbf9e propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 2af22fb4e878750b88f80f90d439b316d229796f) Matt Johnston <matt@ucc.asn.au> parents: 285 diff changeset	341 int saferp_ecb_encrypt(const unsigned char pt, unsigned char ct, symmetric_key *skey)
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	342 {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	343 unsigned char b[16];
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	344 int x;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	345
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	346 LTC_ARGCHK(pt != NULL);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	347 LTC_ARGCHK(ct != NULL);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	348 LTC_ARGCHK(skey != NULL);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	349
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	350 /* do eight rounds */
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	351 for (x = 0; x < 16; x++) {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	352 b[x] = pt[x];
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	353 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	354 ROUND(b, 0); LT(b, ct);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	355 ROUND(ct, 2); LT(ct, b);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	356 ROUND(b, 4); LT(b, ct);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	357 ROUND(ct, 6); LT(ct, b);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	358 ROUND(b, 8); LT(b, ct);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	359 ROUND(ct, 10); LT(ct, b);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	360 ROUND(b, 12); LT(b, ct);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	361 ROUND(ct, 14); LT(ct, b);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	362 /* 192-bit key? */
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	363 if (skey->saferp.rounds > 8) {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	364 ROUND(b, 16); LT(b, ct);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	365 ROUND(ct, 18); LT(ct, b);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	366 ROUND(b, 20); LT(b, ct);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	367 ROUND(ct, 22); LT(ct, b);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	368 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	369 /* 256-bit key? */
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	370 if (skey->saferp.rounds > 12) {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	371 ROUND(b, 24); LT(b, ct);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	372 ROUND(ct, 26); LT(ct, b);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	373 ROUND(b, 28); LT(b, ct);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	374 ROUND(ct, 30); LT(ct, b);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	375 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	376 ct[0] = b[0] ^ skey->saferp.K[skey->saferp.rounds*2][0];
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	377 ct[1] = (b[1] + skey->saferp.K[skey->saferp.rounds*2][1]) & 255;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	378 ct[2] = (b[2] + skey->saferp.K[skey->saferp.rounds*2][2]) & 255;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	379 ct[3] = b[3] ^ skey->saferp.K[skey->saferp.rounds*2][3];
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	380 ct[4] = b[4] ^ skey->saferp.K[skey->saferp.rounds*2][4];
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	381 ct[5] = (b[5] + skey->saferp.K[skey->saferp.rounds*2][5]) & 255;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	382 ct[6] = (b[6] + skey->saferp.K[skey->saferp.rounds*2][6]) & 255;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	383 ct[7] = b[7] ^ skey->saferp.K[skey->saferp.rounds*2][7];
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	384 ct[8] = b[8] ^ skey->saferp.K[skey->saferp.rounds*2][8];
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	385 ct[9] = (b[9] + skey->saferp.K[skey->saferp.rounds*2][9]) & 255;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	386 ct[10] = (b[10] + skey->saferp.K[skey->saferp.rounds*2][10]) & 255;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	387 ct[11] = b[11] ^ skey->saferp.K[skey->saferp.rounds*2][11];
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	388 ct[12] = b[12] ^ skey->saferp.K[skey->saferp.rounds*2][12];
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	389 ct[13] = (b[13] + skey->saferp.K[skey->saferp.rounds*2][13]) & 255;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	390 ct[14] = (b[14] + skey->saferp.K[skey->saferp.rounds*2][14]) & 255;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	391 ct[15] = b[15] ^ skey->saferp.K[skey->saferp.rounds*2][15];
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	392 #ifdef LTC_CLEAN_STACK
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	393 zeromem(b, sizeof(b));
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	394 #endif
382 0cbe8f6dbf9e propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 2af22fb4e878750b88f80f90d439b316d229796f) Matt Johnston <matt@ucc.asn.au> parents: 285 diff changeset	395 return CRYPT_OK;
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	396 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	397
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	398 /**
1435 f849a5ca2efc update to libtomcrypt 1.17 (with Dropbear changes) Matt Johnston <matt@ucc.asn.au> parents: 382 diff changeset	399 Decrypts a block of text with LTC_SAFER+
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	400 @param ct The input ciphertext (16 bytes)
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	401 @param pt The output plaintext (16 bytes)
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	402 @param skey The key as scheduled
382 0cbe8f6dbf9e propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 2af22fb4e878750b88f80f90d439b316d229796f) Matt Johnston <matt@ucc.asn.au> parents: 285 diff changeset	403 @return CRYPT_OK if successful
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	404 */
382 0cbe8f6dbf9e propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 2af22fb4e878750b88f80f90d439b316d229796f) Matt Johnston <matt@ucc.asn.au> parents: 285 diff changeset	405 int saferp_ecb_decrypt(const unsigned char ct, unsigned char pt, symmetric_key *skey)
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	406 {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	407 unsigned char b[16];
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	408 int x;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	409
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	410 LTC_ARGCHK(pt != NULL);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	411 LTC_ARGCHK(ct != NULL);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	412 LTC_ARGCHK(skey != NULL);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	413
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	414 /* do eight rounds */
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	415 b[0] = ct[0] ^ skey->saferp.K[skey->saferp.rounds*2][0];
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	416 b[1] = (ct[1] - skey->saferp.K[skey->saferp.rounds*2][1]) & 255;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	417 b[2] = (ct[2] - skey->saferp.K[skey->saferp.rounds*2][2]) & 255;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	418 b[3] = ct[3] ^ skey->saferp.K[skey->saferp.rounds*2][3];
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	419 b[4] = ct[4] ^ skey->saferp.K[skey->saferp.rounds*2][4];
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	420 b[5] = (ct[5] - skey->saferp.K[skey->saferp.rounds*2][5]) & 255;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	421 b[6] = (ct[6] - skey->saferp.K[skey->saferp.rounds*2][6]) & 255;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	422 b[7] = ct[7] ^ skey->saferp.K[skey->saferp.rounds*2][7];
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	423 b[8] = ct[8] ^ skey->saferp.K[skey->saferp.rounds*2][8];
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	424 b[9] = (ct[9] - skey->saferp.K[skey->saferp.rounds*2][9]) & 255;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	425 b[10] = (ct[10] - skey->saferp.K[skey->saferp.rounds*2][10]) & 255;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	426 b[11] = ct[11] ^ skey->saferp.K[skey->saferp.rounds*2][11];
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	427 b[12] = ct[12] ^ skey->saferp.K[skey->saferp.rounds*2][12];
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	428 b[13] = (ct[13] - skey->saferp.K[skey->saferp.rounds*2][13]) & 255;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	429 b[14] = (ct[14] - skey->saferp.K[skey->saferp.rounds*2][14]) & 255;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	430 b[15] = ct[15] ^ skey->saferp.K[skey->saferp.rounds*2][15];
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	431 /* 256-bit key? */
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	432 if (skey->saferp.rounds > 12) {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	433 iLT(b, pt); iROUND(pt, 30);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	434 iLT(pt, b); iROUND(b, 28);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	435 iLT(b, pt); iROUND(pt, 26);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	436 iLT(pt, b); iROUND(b, 24);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	437 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	438 /* 192-bit key? */
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	439 if (skey->saferp.rounds > 8) {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	440 iLT(b, pt); iROUND(pt, 22);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	441 iLT(pt, b); iROUND(b, 20);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	442 iLT(b, pt); iROUND(pt, 18);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	443 iLT(pt, b); iROUND(b, 16);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	444 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	445 iLT(b, pt); iROUND(pt, 14);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	446 iLT(pt, b); iROUND(b, 12);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	447 iLT(b, pt); iROUND(pt,10);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	448 iLT(pt, b); iROUND(b, 8);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	449 iLT(b, pt); iROUND(pt,6);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	450 iLT(pt, b); iROUND(b, 4);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	451 iLT(b, pt); iROUND(pt,2);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	452 iLT(pt, b); iROUND(b, 0);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	453 for (x = 0; x < 16; x++) {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	454 pt[x] = b[x];
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	455 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	456 #ifdef LTC_CLEAN_STACK
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	457 zeromem(b, sizeof(b));
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	458 #endif
382 0cbe8f6dbf9e propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 2af22fb4e878750b88f80f90d439b316d229796f) Matt Johnston <matt@ucc.asn.au> parents: 285 diff changeset	459 return CRYPT_OK;
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	460 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	461
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	462 /**
1435 f849a5ca2efc update to libtomcrypt 1.17 (with Dropbear changes) Matt Johnston <matt@ucc.asn.au> parents: 382 diff changeset	463 Performs a self-test of the LTC_SAFER+ block cipher
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	464 @return CRYPT_OK if functional, CRYPT_NOP if self-test has been disabled
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	465 */
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	466 int saferp_test(void)
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	467 {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	468 #ifndef LTC_TEST
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	469 return CRYPT_NOP;
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	470 #else
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	471 static const struct {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	472 int keylen;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	473 unsigned char key[32], pt[16], ct[16];
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	474 } tests[] = {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	475 {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	476 16,
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	477 { 41, 35, 190, 132, 225, 108, 214, 174,
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	478 82, 144, 73, 241, 241, 187, 233, 235 },
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	479 { 179, 166, 219, 60, 135, 12, 62, 153,
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	480 36, 94, 13, 28, 6, 183, 71, 222 },
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	481 { 224, 31, 182, 10, 12, 255, 84, 70,
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	482 127, 13, 89, 249, 9, 57, 165, 220 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	483 }, {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	484 24,
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	485 { 72, 211, 143, 117, 230, 217, 29, 42,
6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	486 229, 192, 247, 43, 120, 129, 135, 68,
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	487 14, 95, 80, 0, 212, 97, 141, 190 },
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	488 { 123, 5, 21, 7, 59, 51, 130, 31,
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	489 24, 112, 146, 218, 100, 84, 206, 177 },
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	490 { 92, 136, 4, 63, 57, 95, 100, 0,
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	491 150, 130, 130, 16, 193, 111, 219, 133 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	492 }, {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	493 32,
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	494 { 243, 168, 141, 254, 190, 242, 235, 113,
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	495 255, 160, 208, 59, 117, 6, 140, 126,
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	496 135, 120, 115, 77, 208, 190, 130, 190,
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	497 219, 194, 70, 65, 43, 140, 250, 48 },
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	498 { 127, 112, 240, 167, 84, 134, 50, 149,
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	499 170, 91, 104, 19, 11, 230, 252, 245 },
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	500 { 88, 11, 25, 36, 172, 229, 202, 213,
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	501 170, 65, 105, 153, 220, 104, 153, 138 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	502 }
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	503 };
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	504
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	505 unsigned char tmp[2][16];
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	506 symmetric_key skey;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	507 int err, i, y;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	508
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	509 for (i = 0; i < (int)(sizeof(tests) / sizeof(tests[0])); i++) {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	510 if ((err = saferp_setup(tests[i].key, tests[i].keylen, 0, &skey)) != CRYPT_OK) {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	511 return err;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	512 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	513 saferp_ecb_encrypt(tests[i].pt, tmp[0], &skey);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	514 saferp_ecb_decrypt(tmp[0], tmp[1], &skey);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	515
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	516 /* compare */
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	517 if (compare_testvector(tmp[0], 16, tests[i].ct, 16, "Safer+ Encrypt", i) \|\|
6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	518 compare_testvector(tmp[1], 16, tests[i].pt, 16, "Safer+ Decrypt", i)) {
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	519 return CRYPT_FAIL_TESTVECTOR;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	520 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	521
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	522 /* now see if we can encrypt all zero bytes 1000 times, decrypt and come back where we started */
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	523 for (y = 0; y < 16; y++) tmp[0][y] = 0;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	524 for (y = 0; y < 1000; y++) saferp_ecb_encrypt(tmp[0], tmp[0], &skey);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	525 for (y = 0; y < 1000; y++) saferp_ecb_decrypt(tmp[0], tmp[0], &skey);
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	526 for (y = 0; y < 16; y++) if (tmp[0][y] != 0) return CRYPT_FAIL_TESTVECTOR;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	527 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	528
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	529 return CRYPT_OK;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	530 #endif
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	531 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	532
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	533 /** Terminate the context
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	534 @param skey The scheduled key
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	535 */
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	536 void saferp_done(symmetric_key *skey)
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	537 {
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	538 LTC_UNUSED_PARAM(skey);
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	539 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	540
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	541 /**
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	542 Gets suitable key size
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	543 @param keysize [in/out] The length of the recommended key (in bytes). This function will store the suitable size back in this variable.
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	544 @return CRYPT_OK if the input key size is acceptable.
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	545 */
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	546 int saferp_keysize(int *keysize)
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	547 {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	548 LTC_ARGCHK(keysize != NULL);
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	549
285 1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	550 if (*keysize < 16)
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	551 return CRYPT_INVALID_KEYSIZE;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	552 if (*keysize < 24) {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	553 *keysize = 16;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	554 } else if (*keysize < 32) {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	555 *keysize = 24;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	556 } else {
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	557 *keysize = 32;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	558 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	559 return CRYPT_OK;
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	560 }
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	561
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	562 #endif
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	563
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	564
1b9e69c058d2 propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3) Matt Johnston <matt@ucc.asn.au> parents: diff changeset	565
1471 6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	566 /* ref: $Format:%D$ */
6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	567 /* git commit: $Format:%H$ */
6dba84798cd5 Update to libtomcrypt 1.18.1, merged with Dropbear changes Matt Johnston <matt@ucc.asn.au> parents: 1435 diff changeset	568 /* commit time: $Format:%ai$ */

Mercurial > dropbear

annotate libtomcrypt/src/ciphers/safer/saferp.c @ 1938:77bc00dcc19f default tip main master