1 2277c5d7 2004-03-21 devnull #include "os.h"
  2 db6608bd 2003-11-23 devnull #include <libsec.h>
  3 db6608bd 2003-11-23 devnull 
  4 db6608bd 2003-11-23 devnull static void encode(uchar*, u32int*, ulong);
  5 db6608bd 2003-11-23 devnull 
  6 db6608bd 2003-11-23 devnull extern void _sha1block(uchar*, ulong, u32int*);
  7 db6608bd 2003-11-23 devnull 
  8 db6608bd 2003-11-23 devnull /*
  9 db6608bd 2003-11-23 devnull  *  we require len to be a multiple of 64 for all but
 10 db6608bd 2003-11-23 devnull  *  the last call.  There must be room in the input buffer
 11 db6608bd 2003-11-23 devnull  *  to pad.
 12 db6608bd 2003-11-23 devnull  */
 13 db6608bd 2003-11-23 devnull SHA1state*
 14 db6608bd 2003-11-23 devnull sha1(uchar *p, ulong len, uchar *digest, SHA1state *s)
 15 db6608bd 2003-11-23 devnull {
 16 db6608bd 2003-11-23 devnull 	uchar buf[128];
 17 db6608bd 2003-11-23 devnull 	u32int x[16];
 18 db6608bd 2003-11-23 devnull 	int i;
 19 db6608bd 2003-11-23 devnull 	uchar *e;
 20 db6608bd 2003-11-23 devnull 
 21 db6608bd 2003-11-23 devnull 	if(s == nil){
 22 db6608bd 2003-11-23 devnull 		s = malloc(sizeof(*s));
 23 db6608bd 2003-11-23 devnull 		if(s == nil)
 24 db6608bd 2003-11-23 devnull 			return nil;
 25 db6608bd 2003-11-23 devnull 		memset(s, 0, sizeof(*s));
 26 db6608bd 2003-11-23 devnull 		s->malloced = 1;
 27 db6608bd 2003-11-23 devnull 	}
 28 db6608bd 2003-11-23 devnull 
 29 db6608bd 2003-11-23 devnull 	if(s->seeded == 0){
 30 db6608bd 2003-11-23 devnull 		/* seed the state, these constants would look nicer big-endian */
 31 db6608bd 2003-11-23 devnull 		s->state[0] = 0x67452301;
 32 db6608bd 2003-11-23 devnull 		s->state[1] = 0xefcdab89;
 33 db6608bd 2003-11-23 devnull 		s->state[2] = 0x98badcfe;
 34 db6608bd 2003-11-23 devnull 		s->state[3] = 0x10325476;
 35 db6608bd 2003-11-23 devnull 		s->state[4] = 0xc3d2e1f0;
 36 db6608bd 2003-11-23 devnull 		s->seeded = 1;
 37 db6608bd 2003-11-23 devnull 	}
 38 db6608bd 2003-11-23 devnull 
 39 db6608bd 2003-11-23 devnull 	/* fill out the partial 64 byte block from previous calls */
 40 db6608bd 2003-11-23 devnull 	if(s->blen){
 41 db6608bd 2003-11-23 devnull 		i = 64 - s->blen;
 42 db6608bd 2003-11-23 devnull 		if(len < i)
 43 db6608bd 2003-11-23 devnull 			i = len;
 44 db6608bd 2003-11-23 devnull 		memmove(s->buf + s->blen, p, i);
 45 db6608bd 2003-11-23 devnull 		len -= i;
 46 db6608bd 2003-11-23 devnull 		s->blen += i;
 47 db6608bd 2003-11-23 devnull 		p += i;
 48 db6608bd 2003-11-23 devnull 		if(s->blen == 64){
 49 db6608bd 2003-11-23 devnull 			_sha1block(s->buf, s->blen, s->state);
 50 db6608bd 2003-11-23 devnull 			s->len += s->blen;
 51 db6608bd 2003-11-23 devnull 			s->blen = 0;
 52 db6608bd 2003-11-23 devnull 		}
 53 db6608bd 2003-11-23 devnull 	}
 54 db6608bd 2003-11-23 devnull 
 55 db6608bd 2003-11-23 devnull 	/* do 64 byte blocks */
 56 db6608bd 2003-11-23 devnull 	i = len & ~0x3f;
 57 db6608bd 2003-11-23 devnull 	if(i){
 58 db6608bd 2003-11-23 devnull 		_sha1block(p, i, s->state);
 59 db6608bd 2003-11-23 devnull 		s->len += i;
 60 db6608bd 2003-11-23 devnull 		len -= i;
 61 db6608bd 2003-11-23 devnull 		p += i;
 62 db6608bd 2003-11-23 devnull 	}
 63 db6608bd 2003-11-23 devnull 
 64 db6608bd 2003-11-23 devnull 	/* save the left overs if not last call */
 65 db6608bd 2003-11-23 devnull 	if(digest == 0){
 66 db6608bd 2003-11-23 devnull 		if(len){
 67 db6608bd 2003-11-23 devnull 			memmove(s->buf, p, len);
 68 db6608bd 2003-11-23 devnull 			s->blen += len;
 69 db6608bd 2003-11-23 devnull 		}
 70 db6608bd 2003-11-23 devnull 		return s;
 71 db6608bd 2003-11-23 devnull 	}
 72 db6608bd 2003-11-23 devnull 
 73 db6608bd 2003-11-23 devnull 	/*
 74 db6608bd 2003-11-23 devnull 	 *  this is the last time through, pad what's left with 0x80,
 75 db6608bd 2003-11-23 devnull 	 *  0's, and the input count to create a multiple of 64 bytes
 76 db6608bd 2003-11-23 devnull 	 */
 77 db6608bd 2003-11-23 devnull 	if(s->blen){
 78 db6608bd 2003-11-23 devnull 		p = s->buf;
 79 db6608bd 2003-11-23 devnull 		len = s->blen;
 80 db6608bd 2003-11-23 devnull 	} else {
 81 db6608bd 2003-11-23 devnull 		memmove(buf, p, len);
 82 db6608bd 2003-11-23 devnull 		p = buf;
 83 db6608bd 2003-11-23 devnull 	}
 84 db6608bd 2003-11-23 devnull 	s->len += len;
 85 db6608bd 2003-11-23 devnull 	e = p + len;
 86 db6608bd 2003-11-23 devnull 	if(len < 56)
 87 db6608bd 2003-11-23 devnull 		i = 56 - len;
 88 db6608bd 2003-11-23 devnull 	else
 89 db6608bd 2003-11-23 devnull 		i = 120 - len;
 90 db6608bd 2003-11-23 devnull 	memset(e, 0, i);
 91 db6608bd 2003-11-23 devnull 	*e = 0x80;
 92 db6608bd 2003-11-23 devnull 	len += i;
 93 db6608bd 2003-11-23 devnull 
 94 db6608bd 2003-11-23 devnull 	/* append the count */
 95 db6608bd 2003-11-23 devnull 	x[0] = s->len>>29;
 96 db6608bd 2003-11-23 devnull 	x[1] = s->len<<3;
 97 db6608bd 2003-11-23 devnull 	encode(p+len, x, 8);
 98 db6608bd 2003-11-23 devnull 
 99 db6608bd 2003-11-23 devnull 	/* digest the last part */
100 db6608bd 2003-11-23 devnull 	_sha1block(p, len+8, s->state);
101 db6608bd 2003-11-23 devnull 	s->len += len+8;
102 db6608bd 2003-11-23 devnull 
103 db6608bd 2003-11-23 devnull 	/* return result and free state */
104 db6608bd 2003-11-23 devnull 	encode(digest, s->state, SHA1dlen);
105 db6608bd 2003-11-23 devnull 	if(s->malloced == 1)
106 db6608bd 2003-11-23 devnull 		free(s);
107 db6608bd 2003-11-23 devnull 	return nil;
108 db6608bd 2003-11-23 devnull }
109 db6608bd 2003-11-23 devnull 
110 db6608bd 2003-11-23 devnull /*
111 db6608bd 2003-11-23 devnull  *	encodes input (ulong) into output (uchar). Assumes len is
112 db6608bd 2003-11-23 devnull  *	a multiple of 4.
113 db6608bd 2003-11-23 devnull  */
114 db6608bd 2003-11-23 devnull static void
115 db6608bd 2003-11-23 devnull encode(uchar *output, u32int *input, ulong len)
116 db6608bd 2003-11-23 devnull {
117 db6608bd 2003-11-23 devnull 	u32int x;
118 db6608bd 2003-11-23 devnull 	uchar *e;
119 db6608bd 2003-11-23 devnull 
120 db6608bd 2003-11-23 devnull 	for(e = output + len; output < e;) {
121 db6608bd 2003-11-23 devnull 		x = *input++;
122 db6608bd 2003-11-23 devnull 		*output++ = x >> 24;
123 db6608bd 2003-11-23 devnull 		*output++ = x >> 16;
124 db6608bd 2003-11-23 devnull 		*output++ = x >> 8;
125 db6608bd 2003-11-23 devnull 		*output++ = x;
126 db6608bd 2003-11-23 devnull 	}
127 db6608bd 2003-11-23 devnull }