dropbear: src/hashes/sha1.c annotate

annotate src/hashes/sha1.c @ 192:9cc34777b479 libtomcrypt

propagate from branch 'au.asn.ucc.matt.ltc-orig' (head 9ba8f01f44320e9cb9f19881105ae84f84a43ea9) to branch 'au.asn.ucc.matt.dropbear.ltc' (head dbf51c569bc34956ad948e4cc87a0eeb2170b768)

author	Matt Johnston <matt@ucc.asn.au>
date	Sun, 08 May 2005 06:36:47 +0000
parents	1c15b283127b
children	19e5d79b7190

rev	line source
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1 /* LibTomCrypt, modular cryptographic library -- Tom St Denis
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2 *
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3 * LibTomCrypt is a library that provides various cryptographic
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4 * algorithms in a highly modular and flexible manner.
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5 *
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6 * The library is free for all purposes without any express
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7 * guarantee it works.
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8 *
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9 * Tom St Denis, [email protected], http://libtomcrypt.org
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	10 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	11 #include "tomcrypt.h"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	12
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	13 /**
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	14 @file sha1.c
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	15 SHA1 code by Tom St Denis
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	16 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	17
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	18
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	19 #ifdef SHA1
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	20
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	21 const struct ltc_hash_descriptor sha1_desc =
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	22 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	23 "sha1",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	24 2,
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	25 20,
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	26 64,
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	27
192 9cc34777b479 propagate from branch 'au.asn.ucc.matt.ltc-orig' (head 9ba8f01f44320e9cb9f19881105ae84f84a43ea9) Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	28 #if 0
9cc34777b479 propagate from branch 'au.asn.ucc.matt.ltc-orig' (head 9ba8f01f44320e9cb9f19881105ae84f84a43ea9) Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	29 /* matt */
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	30 /* DER identifier */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	31 { 0x30, 0x21, 0x30, 0x09, 0x06, 0x05, 0x2B, 0x0E,
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	32 0x03, 0x02, 0x1A, 0x05, 0x00, 0x04, 0x14 },
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	33 15,
192 9cc34777b479 propagate from branch 'au.asn.ucc.matt.ltc-orig' (head 9ba8f01f44320e9cb9f19881105ae84f84a43ea9) Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	34 #endif
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	35
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	36 &sha1_init,
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	37 &sha1_process,
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	38 &sha1_done,
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	39 &sha1_test
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	40 };
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	41
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	42 #define F0(x,y,z) (z ^ (x & (y ^ z)))
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	43 #define F1(x,y,z) (x ^ y ^ z)
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	44 #define F2(x,y,z) ((x & y) \| (z & (x \| y)))
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	45 #define F3(x,y,z) (x ^ y ^ z)
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	46
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	47 #ifdef LTC_CLEAN_STACK
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	48 static int _sha1_compress(hash_state md, unsigned char buf)
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	49 #else
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	50 static int sha1_compress(hash_state md, unsigned char buf)
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	51 #endif
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	52 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	53 ulong32 a,b,c,d,e,W[80],i;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	54 #ifdef LTC_SMALL_CODE
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	55 ulong32 t;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	56 #endif
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	57
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	58 /* copy the state into 512-bits into W[0..15] */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	59 for (i = 0; i < 16; i++) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	60 LOAD32H(W[i], buf + (4*i));
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	61 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	62
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	63 /* copy state */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	64 a = md->sha1.state[0];
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	65 b = md->sha1.state[1];
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	66 c = md->sha1.state[2];
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	67 d = md->sha1.state[3];
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	68 e = md->sha1.state[4];
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	69
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	70 /* expand it */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	71 for (i = 16; i < 80; i++) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	72 W[i] = ROL(W[i-3] ^ W[i-8] ^ W[i-14] ^ W[i-16], 1);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	73 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	74
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	75 /* compress */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	76 /* round one */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	77 #define FF0(a,b,c,d,e,i) e = (ROLc(a, 5) + F0(b,c,d) + e + W[i] + 0x5a827999UL); b = ROLc(b, 30);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	78 #define FF1(a,b,c,d,e,i) e = (ROLc(a, 5) + F1(b,c,d) + e + W[i] + 0x6ed9eba1UL); b = ROLc(b, 30);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	79 #define FF2(a,b,c,d,e,i) e = (ROLc(a, 5) + F2(b,c,d) + e + W[i] + 0x8f1bbcdcUL); b = ROLc(b, 30);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	80 #define FF3(a,b,c,d,e,i) e = (ROLc(a, 5) + F3(b,c,d) + e + W[i] + 0xca62c1d6UL); b = ROLc(b, 30);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	81
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	82 #ifdef LTC_SMALL_CODE
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	83
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	84 for (i = 0; i < 20; ) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	85 FF0(a,b,c,d,e,i++); t = e; e = d; d = c; c = b; b = a; a = t;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	86 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	87
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	88 for (; i < 40; ) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	89 FF1(a,b,c,d,e,i++); t = e; e = d; d = c; c = b; b = a; a = t;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	90 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	91
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	92 for (; i < 60; ) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	93 FF2(a,b,c,d,e,i++); t = e; e = d; d = c; c = b; b = a; a = t;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	94 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	95
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	96 for (; i < 80; ) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	97 FF3(a,b,c,d,e,i++); t = e; e = d; d = c; c = b; b = a; a = t;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	98 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	99
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	100 #else
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	101
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	102 for (i = 0; i < 20; ) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	103 FF0(a,b,c,d,e,i++);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	104 FF0(e,a,b,c,d,i++);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	105 FF0(d,e,a,b,c,i++);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	106 FF0(c,d,e,a,b,i++);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	107 FF0(b,c,d,e,a,i++);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	108 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	109
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	110 /* round two */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	111 for (; i < 40; ) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	112 FF1(a,b,c,d,e,i++);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	113 FF1(e,a,b,c,d,i++);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	114 FF1(d,e,a,b,c,i++);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	115 FF1(c,d,e,a,b,i++);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	116 FF1(b,c,d,e,a,i++);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	117 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	118
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	119 /* round three */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	120 for (; i < 60; ) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	121 FF2(a,b,c,d,e,i++);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	122 FF2(e,a,b,c,d,i++);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	123 FF2(d,e,a,b,c,i++);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	124 FF2(c,d,e,a,b,i++);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	125 FF2(b,c,d,e,a,i++);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	126 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	127
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	128 /* round four */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	129 for (; i < 80; ) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	130 FF3(a,b,c,d,e,i++);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	131 FF3(e,a,b,c,d,i++);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	132 FF3(d,e,a,b,c,i++);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	133 FF3(c,d,e,a,b,i++);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	134 FF3(b,c,d,e,a,i++);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	135 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	136 #endif
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	137
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	138 #undef FF0
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	139 #undef FF1
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	140 #undef FF2
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	141 #undef FF3
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	142
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	143 /* store */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	144 md->sha1.state[0] = md->sha1.state[0] + a;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	145 md->sha1.state[1] = md->sha1.state[1] + b;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	146 md->sha1.state[2] = md->sha1.state[2] + c;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	147 md->sha1.state[3] = md->sha1.state[3] + d;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	148 md->sha1.state[4] = md->sha1.state[4] + e;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	149
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	150 return CRYPT_OK;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	151 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	152
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	153 #ifdef LTC_CLEAN_STACK
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	154 static int sha1_compress(hash_state md, unsigned char buf)
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	155 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	156 int err;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	157 err = _sha1_compress(md, buf);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	158 burn_stack(sizeof(ulong32) * 87);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	159 return err;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	160 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	161 #endif
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	162
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	163 /**
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	164 Initialize the hash state
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	165 @param md The hash state you wish to initialize
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	166 @return CRYPT_OK if successful
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	167 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	168 int sha1_init(hash_state * md)
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	169 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	170 LTC_ARGCHK(md != NULL);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	171 md->sha1.state[0] = 0x67452301UL;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	172 md->sha1.state[1] = 0xefcdab89UL;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	173 md->sha1.state[2] = 0x98badcfeUL;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	174 md->sha1.state[3] = 0x10325476UL;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	175 md->sha1.state[4] = 0xc3d2e1f0UL;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	176 md->sha1.curlen = 0;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	177 md->sha1.length = 0;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	178 return CRYPT_OK;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	179 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	180
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	181 /**
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	182 Process a block of memory though the hash
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	183 @param md The hash state
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	184 @param in The data to hash
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	185 @param inlen The length of the data (octets)
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	186 @return CRYPT_OK if successful
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	187 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	188 HASH_PROCESS(sha1_process, sha1_compress, sha1, 64)
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	189
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	190 /**
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	191 Terminate the hash to get the digest
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	192 @param md The hash state
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	193 @param out [out] The destination of the hash (20 bytes)
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	194 @return CRYPT_OK if successful
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	195 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	196 int sha1_done(hash_state * md, unsigned char *out)
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	197 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	198 int i;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	199
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	200 LTC_ARGCHK(md != NULL);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	201 LTC_ARGCHK(out != NULL);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	202
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	203 if (md->sha1.curlen >= sizeof(md->sha1.buf)) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	204 return CRYPT_INVALID_ARG;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	205 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	206
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	207 /* increase the length of the message */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	208 md->sha1.length += md->sha1.curlen * 8;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	209
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	210 /* append the '1' bit */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	211 md->sha1.buf[md->sha1.curlen++] = (unsigned char)0x80;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	212
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	213 /* if the length is currently above 56 bytes we append zeros
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	214 * then compress. Then we can fall back to padding zeros and length
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	215 * encoding like normal.
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	216 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	217 if (md->sha1.curlen > 56) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	218 while (md->sha1.curlen < 64) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	219 md->sha1.buf[md->sha1.curlen++] = (unsigned char)0;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	220 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	221 sha1_compress(md, md->sha1.buf);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	222 md->sha1.curlen = 0;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	223 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	224
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	225 /* pad upto 56 bytes of zeroes */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	226 while (md->sha1.curlen < 56) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	227 md->sha1.buf[md->sha1.curlen++] = (unsigned char)0;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	228 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	229
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	230 /* store length */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	231 STORE64H(md->sha1.length, md->sha1.buf+56);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	232 sha1_compress(md, md->sha1.buf);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	233
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	234 /* copy output */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	235 for (i = 0; i < 5; i++) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	236 STORE32H(md->sha1.state[i], out+(4*i));
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	237 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	238 #ifdef LTC_CLEAN_STACK
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	239 zeromem(md, sizeof(hash_state));
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	240 #endif
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	241 return CRYPT_OK;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	242 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	243
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	244 /**
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	245 Self-test the hash
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	246 @return CRYPT_OK if successful, CRYPT_NOP if self-tests have been disabled
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	247 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	248 int sha1_test(void)
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	249 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	250 #ifndef LTC_TEST
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	251 return CRYPT_NOP;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	252 #else
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	253 static const struct {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	254 char *msg;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	255 unsigned char hash[20];
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	256 } tests[] = {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	257 { "abc",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	258 { 0xa9, 0x99, 0x3e, 0x36, 0x47, 0x06, 0x81, 0x6a,
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	259 0xba, 0x3e, 0x25, 0x71, 0x78, 0x50, 0xc2, 0x6c,
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	260 0x9c, 0xd0, 0xd8, 0x9d }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	261 },
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	262 { "abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	263 { 0x84, 0x98, 0x3E, 0x44, 0x1C, 0x3B, 0xD2, 0x6E,
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	264 0xBA, 0xAE, 0x4A, 0xA1, 0xF9, 0x51, 0x29, 0xE5,
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	265 0xE5, 0x46, 0x70, 0xF1 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	266 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	267 };
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	268
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	269 int i;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	270 unsigned char tmp[20];
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	271 hash_state md;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	272
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	273 for (i = 0; i < (int)(sizeof(tests) / sizeof(tests[0])); i++) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	274 sha1_init(&md);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	275 sha1_process(&md, (unsigned char*)tests[i].msg, (unsigned long)strlen(tests[i].msg));
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	276 sha1_done(&md, tmp);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	277 if (memcmp(tmp, tests[i].hash, 20) != 0) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	278 return CRYPT_FAIL_TESTVECTOR;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	279 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	280 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	281 return CRYPT_OK;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	282 #endif
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	283 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	284
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	285 #endif
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	286
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	287

Mercurial > dropbear

annotate src/hashes/sha1.c @ 192:9cc34777b479 libtomcrypt