1 db6608bd 2003-11-23 devnull #include <u.h>
2 db6608bd 2003-11-23 devnull #include <libc.h>
3 db6608bd 2003-11-23 devnull #include <libsec.h>
5 db6608bd 2003-11-23 devnull static void encode(uchar*, u32int*, ulong);
7 db6608bd 2003-11-23 devnull extern void _sha1block(uchar*, ulong, u32int*);
10 db6608bd 2003-11-23 devnull * we require len to be a multiple of 64 for all but
11 db6608bd 2003-11-23 devnull * the last call. There must be room in the input buffer
12 db6608bd 2003-11-23 devnull * to pad.
14 db6608bd 2003-11-23 devnull ulong lastlen;
16 db6608bd 2003-11-23 devnull SHA1state*
17 db6608bd 2003-11-23 devnull sha1(uchar *p, ulong len, uchar *digest, SHA1state *s)
19 db6608bd 2003-11-23 devnull uchar buf[128];
20 db6608bd 2003-11-23 devnull u32int x[16];
22 db6608bd 2003-11-23 devnull uchar *e;
24 db6608bd 2003-11-23 devnull lastlen = len;
25 db6608bd 2003-11-23 devnull if(s == nil){
26 db6608bd 2003-11-23 devnull s = malloc(sizeof(*s));
27 db6608bd 2003-11-23 devnull if(s == nil)
28 db6608bd 2003-11-23 devnull return nil;
29 db6608bd 2003-11-23 devnull memset(s, 0, sizeof(*s));
30 db6608bd 2003-11-23 devnull s->malloced = 1;
31 db6608bd 2003-11-23 devnull assert(!s->seeded);
32 db6608bd 2003-11-23 devnull assert(!s->blen);
35 db6608bd 2003-11-23 devnull if(s->seeded == 0){
36 db6608bd 2003-11-23 devnull /* seed the state, these constants would look nicer big-endian */
37 db6608bd 2003-11-23 devnull s->state[0] = 0x67452301;
38 db6608bd 2003-11-23 devnull s->state[1] = 0xefcdab89;
39 db6608bd 2003-11-23 devnull s->state[2] = 0x98badcfe;
40 db6608bd 2003-11-23 devnull s->state[3] = 0x10325476;
41 db6608bd 2003-11-23 devnull s->state[4] = 0xc3d2e1f0;
42 db6608bd 2003-11-23 devnull s->seeded = 1;
45 db6608bd 2003-11-23 devnull assert(len < 100000);
47 db6608bd 2003-11-23 devnull /* fill out the partial 64 byte block from previous calls */
48 db6608bd 2003-11-23 devnull if(s->blen){
49 db6608bd 2003-11-23 devnull assert(s);
50 db6608bd 2003-11-23 devnull i = 64 - s->blen;
51 db6608bd 2003-11-23 devnull if(len < i)
53 db6608bd 2003-11-23 devnull memmove(s->buf + s->blen, p, i);
54 db6608bd 2003-11-23 devnull len -= i;
55 db6608bd 2003-11-23 devnull s->blen += i;
57 db6608bd 2003-11-23 devnull if(s->blen == 64){
58 db6608bd 2003-11-23 devnull _sha1block(s->buf, s->blen, s->state);
59 db6608bd 2003-11-23 devnull s->len += s->blen;
60 db6608bd 2003-11-23 devnull s->blen = 0;
64 db6608bd 2003-11-23 devnull assert(len < 1000000);
65 db6608bd 2003-11-23 devnull /* do 64 byte blocks */
66 db6608bd 2003-11-23 devnull i = len & ~0x3f;
68 db6608bd 2003-11-23 devnull assert(i < 1000000);
69 db6608bd 2003-11-23 devnull _sha1block(p, i, s->state);
70 db6608bd 2003-11-23 devnull s->len += i;
71 db6608bd 2003-11-23 devnull len -= i;
75 db6608bd 2003-11-23 devnull /* save the left overs if not last call */
76 db6608bd 2003-11-23 devnull if(digest == 0){
78 db6608bd 2003-11-23 devnull memmove(s->buf, p, len);
79 db6608bd 2003-11-23 devnull s->blen += len;
81 db6608bd 2003-11-23 devnull return s;
85 db6608bd 2003-11-23 devnull * this is the last time through, pad what's left with 0x80,
86 db6608bd 2003-11-23 devnull * 0's, and the input count to create a multiple of 64 bytes
88 db6608bd 2003-11-23 devnull if(s->blen){
89 db6608bd 2003-11-23 devnull p = s->buf;
90 db6608bd 2003-11-23 devnull len = s->blen;
92 db6608bd 2003-11-23 devnull memmove(buf, p, len);
95 db6608bd 2003-11-23 devnull s->len += len;
96 db6608bd 2003-11-23 devnull e = p + len;
97 db6608bd 2003-11-23 devnull if(len < 56)
98 db6608bd 2003-11-23 devnull i = 56 - len;
100 db6608bd 2003-11-23 devnull i = 120 - len;
101 db6608bd 2003-11-23 devnull memset(e, 0, i);
102 db6608bd 2003-11-23 devnull *e = 0x80;
103 db6608bd 2003-11-23 devnull len += i;
105 db6608bd 2003-11-23 devnull /* append the count */
106 db6608bd 2003-11-23 devnull x[0] = s->len>>29;
107 db6608bd 2003-11-23 devnull x[1] = s->len<<3;
108 db6608bd 2003-11-23 devnull encode(p+len, x, 8);
110 db6608bd 2003-11-23 devnull /* digest the last part */
111 db6608bd 2003-11-23 devnull _sha1block(p, len+8, s->state);
112 db6608bd 2003-11-23 devnull s->len += len+8;
114 db6608bd 2003-11-23 devnull /* return result and free state */
115 db6608bd 2003-11-23 devnull encode(digest, s->state, SHA1dlen);
116 db6608bd 2003-11-23 devnull if(s->malloced == 1)
117 db6608bd 2003-11-23 devnull free(s);
118 db6608bd 2003-11-23 devnull return nil;
122 db6608bd 2003-11-23 devnull * encodes input (ulong) into output (uchar). Assumes len is
123 db6608bd 2003-11-23 devnull * a multiple of 4.
125 db6608bd 2003-11-23 devnull static void
126 db6608bd 2003-11-23 devnull encode(uchar *output, u32int *input, ulong len)
128 db6608bd 2003-11-23 devnull u32int x;
129 db6608bd 2003-11-23 devnull uchar *e;
131 db6608bd 2003-11-23 devnull for(e = output + len; output < e;) {
132 db6608bd 2003-11-23 devnull x = *input++;
133 db6608bd 2003-11-23 devnull *output++ = x >> 24;
134 db6608bd 2003-11-23 devnull *output++ = x >> 16;
135 db6608bd 2003-11-23 devnull *output++ = x >> 8;
136 db6608bd 2003-11-23 devnull *output++ = x;