1 2277c5d7 2004-03-21 devnull #include "os.h"
2 db6608bd 2003-11-23 devnull #include <libsec.h>
4 db6608bd 2003-11-23 devnull static void encode(uchar*, u32int*, ulong);
6 db6608bd 2003-11-23 devnull extern void _sha1block(uchar*, ulong, u32int*);
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.
13 db6608bd 2003-11-23 devnull SHA1state*
14 db6608bd 2003-11-23 devnull sha1(uchar *p, ulong len, uchar *digest, SHA1state *s)
16 db6608bd 2003-11-23 devnull uchar buf[128];
17 db6608bd 2003-11-23 devnull u32int x[16];
19 db6608bd 2003-11-23 devnull uchar *e;
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;
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;
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)
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;
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;
55 db6608bd 2003-11-23 devnull /* do 64 byte blocks */
56 db6608bd 2003-11-23 devnull i = len & ~0x3f;
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;
64 db6608bd 2003-11-23 devnull /* save the left overs if not last call */
65 db6608bd 2003-11-23 devnull if(digest == 0){
67 db6608bd 2003-11-23 devnull memmove(s->buf, p, len);
68 db6608bd 2003-11-23 devnull s->blen += len;
70 db6608bd 2003-11-23 devnull return s;
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
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;
81 db6608bd 2003-11-23 devnull memmove(buf, p, len);
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;
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;
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);
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;
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;
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.
114 db6608bd 2003-11-23 devnull static void
115 db6608bd 2003-11-23 devnull encode(uchar *output, u32int *input, ulong len)
117 db6608bd 2003-11-23 devnull u32int x;
118 db6608bd 2003-11-23 devnull uchar *e;
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;