xref: /plan9/sys/src/cmd/unix/drawterm/posix-port/md5block.c (revision 96cbc34f1b36a29efdcfd47b10e70703a690febc)
1*96cbc34fSDavid du Colombier #include <u.h>
2*96cbc34fSDavid du Colombier #include <libc.h>
3*96cbc34fSDavid du Colombier #include <libsec.h>
4*96cbc34fSDavid du Colombier 
5*96cbc34fSDavid du Colombier /*
6*96cbc34fSDavid du Colombier  *  rfc1321 requires that I include this.  The code is new.  The constants
7*96cbc34fSDavid du Colombier  *  all come from the rfc (hence the copyright).  We trade a table for the
8*96cbc34fSDavid du Colombier  *  macros in rfc.  The total size is a lot less. -- presotto
9*96cbc34fSDavid du Colombier  *
10*96cbc34fSDavid du Colombier  *	Copyright (C) 1991-2, RSA Data Security, Inc. Created 1991. All
11*96cbc34fSDavid du Colombier  *	rights reserved.
12*96cbc34fSDavid du Colombier  *
13*96cbc34fSDavid du Colombier  *	License to copy and use this software is granted provided that it
14*96cbc34fSDavid du Colombier  *	is identified as the "RSA Data Security, Inc. MD5 Message-Digest
15*96cbc34fSDavid du Colombier  *	Algorithm" in all material mentioning or referencing this software
16*96cbc34fSDavid du Colombier  *	or this function.
17*96cbc34fSDavid du Colombier  *
18*96cbc34fSDavid du Colombier  *	License is also granted to make and use derivative works provided
19*96cbc34fSDavid du Colombier  *	that such works are identified as "derived from the RSA Data
20*96cbc34fSDavid du Colombier  *	Security, Inc. MD5 Message-Digest Algorithm" in all material
21*96cbc34fSDavid du Colombier  *	mentioning or referencing the derived work.
22*96cbc34fSDavid du Colombier  *
23*96cbc34fSDavid du Colombier  *	RSA Data Security, Inc. makes no representations concerning either
24*96cbc34fSDavid du Colombier  *	the merchantability of this software or the suitability of this
25*96cbc34fSDavid du Colombier  *	software forany particular purpose. It is provided "as is"
26*96cbc34fSDavid du Colombier  *	without express or implied warranty of any kind.
27*96cbc34fSDavid du Colombier  *	These notices must be retained in any copies of any part of this
28*96cbc34fSDavid du Colombier  *	documentation and/or software.
29*96cbc34fSDavid du Colombier  */
30*96cbc34fSDavid du Colombier 
31*96cbc34fSDavid du Colombier /*
32*96cbc34fSDavid du Colombier  *	Rotate ammounts used in the algorithm
33*96cbc34fSDavid du Colombier  */
34*96cbc34fSDavid du Colombier enum
35*96cbc34fSDavid du Colombier {
36*96cbc34fSDavid du Colombier 	S11=	7,
37*96cbc34fSDavid du Colombier 	S12=	12,
38*96cbc34fSDavid du Colombier 	S13=	17,
39*96cbc34fSDavid du Colombier 	S14=	22,
40*96cbc34fSDavid du Colombier 
41*96cbc34fSDavid du Colombier 	S21=	5,
42*96cbc34fSDavid du Colombier 	S22=	9,
43*96cbc34fSDavid du Colombier 	S23=	14,
44*96cbc34fSDavid du Colombier 	S24=	20,
45*96cbc34fSDavid du Colombier 
46*96cbc34fSDavid du Colombier 	S31=	4,
47*96cbc34fSDavid du Colombier 	S32=	11,
48*96cbc34fSDavid du Colombier 	S33=	16,
49*96cbc34fSDavid du Colombier 	S34=	23,
50*96cbc34fSDavid du Colombier 
51*96cbc34fSDavid du Colombier 	S41=	6,
52*96cbc34fSDavid du Colombier 	S42=	10,
53*96cbc34fSDavid du Colombier 	S43=	15,
54*96cbc34fSDavid du Colombier 	S44=	21,
55*96cbc34fSDavid du Colombier };
56*96cbc34fSDavid du Colombier 
57*96cbc34fSDavid du Colombier static u32int md5tab[] =
58*96cbc34fSDavid du Colombier {
59*96cbc34fSDavid du Colombier 	/* round 1 */
60*96cbc34fSDavid du Colombier /*[0]*/	0xd76aa478,
61*96cbc34fSDavid du Colombier 	0xe8c7b756,
62*96cbc34fSDavid du Colombier 	0x242070db,
63*96cbc34fSDavid du Colombier 	0xc1bdceee,
64*96cbc34fSDavid du Colombier 	0xf57c0faf,
65*96cbc34fSDavid du Colombier 	0x4787c62a,
66*96cbc34fSDavid du Colombier 	0xa8304613,
67*96cbc34fSDavid du Colombier 	0xfd469501,
68*96cbc34fSDavid du Colombier 	0x698098d8,
69*96cbc34fSDavid du Colombier 	0x8b44f7af,
70*96cbc34fSDavid du Colombier 	0xffff5bb1,
71*96cbc34fSDavid du Colombier 	0x895cd7be,
72*96cbc34fSDavid du Colombier 	0x6b901122,
73*96cbc34fSDavid du Colombier 	0xfd987193,
74*96cbc34fSDavid du Colombier 	0xa679438e,
75*96cbc34fSDavid du Colombier 	0x49b40821,
76*96cbc34fSDavid du Colombier 
77*96cbc34fSDavid du Colombier 	/* round 2 */
78*96cbc34fSDavid du Colombier /*[16]*/0xf61e2562,
79*96cbc34fSDavid du Colombier 	0xc040b340,
80*96cbc34fSDavid du Colombier 	0x265e5a51,
81*96cbc34fSDavid du Colombier 	0xe9b6c7aa,
82*96cbc34fSDavid du Colombier 	0xd62f105d,
83*96cbc34fSDavid du Colombier 	 0x2441453,
84*96cbc34fSDavid du Colombier 	0xd8a1e681,
85*96cbc34fSDavid du Colombier 	0xe7d3fbc8,
86*96cbc34fSDavid du Colombier 	0x21e1cde6,
87*96cbc34fSDavid du Colombier 	0xc33707d6,
88*96cbc34fSDavid du Colombier 	0xf4d50d87,
89*96cbc34fSDavid du Colombier 	0x455a14ed,
90*96cbc34fSDavid du Colombier 	0xa9e3e905,
91*96cbc34fSDavid du Colombier 	0xfcefa3f8,
92*96cbc34fSDavid du Colombier 	0x676f02d9,
93*96cbc34fSDavid du Colombier 	0x8d2a4c8a,
94*96cbc34fSDavid du Colombier 
95*96cbc34fSDavid du Colombier 	/* round 3 */
96*96cbc34fSDavid du Colombier /*[32]*/0xfffa3942,
97*96cbc34fSDavid du Colombier 	0x8771f681,
98*96cbc34fSDavid du Colombier 	0x6d9d6122,
99*96cbc34fSDavid du Colombier 	0xfde5380c,
100*96cbc34fSDavid du Colombier 	0xa4beea44,
101*96cbc34fSDavid du Colombier 	0x4bdecfa9,
102*96cbc34fSDavid du Colombier 	0xf6bb4b60,
103*96cbc34fSDavid du Colombier 	0xbebfbc70,
104*96cbc34fSDavid du Colombier 	0x289b7ec6,
105*96cbc34fSDavid du Colombier 	0xeaa127fa,
106*96cbc34fSDavid du Colombier 	0xd4ef3085,
107*96cbc34fSDavid du Colombier 	 0x4881d05,
108*96cbc34fSDavid du Colombier 	0xd9d4d039,
109*96cbc34fSDavid du Colombier 	0xe6db99e5,
110*96cbc34fSDavid du Colombier 	0x1fa27cf8,
111*96cbc34fSDavid du Colombier 	0xc4ac5665,
112*96cbc34fSDavid du Colombier 
113*96cbc34fSDavid du Colombier 	/* round 4 */
114*96cbc34fSDavid du Colombier /*[48]*/0xf4292244,
115*96cbc34fSDavid du Colombier 	0x432aff97,
116*96cbc34fSDavid du Colombier 	0xab9423a7,
117*96cbc34fSDavid du Colombier 	0xfc93a039,
118*96cbc34fSDavid du Colombier 	0x655b59c3,
119*96cbc34fSDavid du Colombier 	0x8f0ccc92,
120*96cbc34fSDavid du Colombier 	0xffeff47d,
121*96cbc34fSDavid du Colombier 	0x85845dd1,
122*96cbc34fSDavid du Colombier 	0x6fa87e4f,
123*96cbc34fSDavid du Colombier 	0xfe2ce6e0,
124*96cbc34fSDavid du Colombier 	0xa3014314,
125*96cbc34fSDavid du Colombier 	0x4e0811a1,
126*96cbc34fSDavid du Colombier 	0xf7537e82,
127*96cbc34fSDavid du Colombier 	0xbd3af235,
128*96cbc34fSDavid du Colombier 	0x2ad7d2bb,
129*96cbc34fSDavid du Colombier 	0xeb86d391,
130*96cbc34fSDavid du Colombier };
131*96cbc34fSDavid du Colombier 
132*96cbc34fSDavid du Colombier static void decode(u32int*, uchar*, ulong);
133*96cbc34fSDavid du Colombier extern void _md5block(uchar *p, ulong len, u32int *s);
134*96cbc34fSDavid du Colombier 
135*96cbc34fSDavid du Colombier void
_md5block(uchar * p,ulong len,u32int * s)136*96cbc34fSDavid du Colombier _md5block(uchar *p, ulong len, u32int *s)
137*96cbc34fSDavid du Colombier {
138*96cbc34fSDavid du Colombier 	u32int a, b, c, d, sh;
139*96cbc34fSDavid du Colombier 	u32int *t;
140*96cbc34fSDavid du Colombier 	uchar *end;
141*96cbc34fSDavid du Colombier 	u32int x[16];
142*96cbc34fSDavid du Colombier 
143*96cbc34fSDavid du Colombier 	for(end = p+len; p < end; p += 64){
144*96cbc34fSDavid du Colombier 		a = s[0];
145*96cbc34fSDavid du Colombier 		b = s[1];
146*96cbc34fSDavid du Colombier 		c = s[2];
147*96cbc34fSDavid du Colombier 		d = s[3];
148*96cbc34fSDavid du Colombier 
149*96cbc34fSDavid du Colombier 		decode(x, p, 64);
150*96cbc34fSDavid du Colombier 
151*96cbc34fSDavid du Colombier 		t = md5tab;
152*96cbc34fSDavid du Colombier 		sh = 0;
153*96cbc34fSDavid du Colombier 		for(; sh != 16; t += 4){
154*96cbc34fSDavid du Colombier 			a += ((c ^ d) & b) ^ d;
155*96cbc34fSDavid du Colombier 			a += x[sh] + t[0];
156*96cbc34fSDavid du Colombier 			a = (a << S11) | (a >> (32 - S11));
157*96cbc34fSDavid du Colombier 			a += b;
158*96cbc34fSDavid du Colombier 
159*96cbc34fSDavid du Colombier 			d += ((b ^ c) & a) ^ c;
160*96cbc34fSDavid du Colombier 			d += x[sh + 1] + t[1];
161*96cbc34fSDavid du Colombier 			d = (d << S12) | (d >> (32 - S12));
162*96cbc34fSDavid du Colombier 			d += a;
163*96cbc34fSDavid du Colombier 
164*96cbc34fSDavid du Colombier 			c += ((a ^ b) & d) ^ b;
165*96cbc34fSDavid du Colombier 			c += x[sh + 2] + t[2];
166*96cbc34fSDavid du Colombier 			c = (c << S13) | (c >> (32 - S13));
167*96cbc34fSDavid du Colombier 			c += d;
168*96cbc34fSDavid du Colombier 
169*96cbc34fSDavid du Colombier 			b += ((d ^ a) & c) ^ a;
170*96cbc34fSDavid du Colombier 			b += x[sh + 3] + t[3];
171*96cbc34fSDavid du Colombier 			b = (b << S14) | (b >> (32 - S14));
172*96cbc34fSDavid du Colombier 			b += c;
173*96cbc34fSDavid du Colombier 
174*96cbc34fSDavid du Colombier 			sh += 4;
175*96cbc34fSDavid du Colombier 		}
176*96cbc34fSDavid du Colombier 		sh = 1;
177*96cbc34fSDavid du Colombier 		for(; sh != 1+20*4; t += 4){
178*96cbc34fSDavid du Colombier 			a += ((b ^ c) & d) ^ c;
179*96cbc34fSDavid du Colombier 			a += x[sh & 0xf] + t[0];
180*96cbc34fSDavid du Colombier 			a = (a << S21) | (a >> (32 - S21));
181*96cbc34fSDavid du Colombier 			a += b;
182*96cbc34fSDavid du Colombier 
183*96cbc34fSDavid du Colombier 			d += ((a ^ b) & c) ^ b;
184*96cbc34fSDavid du Colombier 			d += x[(sh + 5) & 0xf] + t[1];
185*96cbc34fSDavid du Colombier 			d = (d << S22) | (d >> (32 - S22));
186*96cbc34fSDavid du Colombier 			d += a;
187*96cbc34fSDavid du Colombier 
188*96cbc34fSDavid du Colombier 			c += ((d ^ a) & b) ^ a;
189*96cbc34fSDavid du Colombier 			c += x[(sh + 10) & 0xf] + t[2];
190*96cbc34fSDavid du Colombier 			c = (c << S23) | (c >> (32 - S23));
191*96cbc34fSDavid du Colombier 			c += d;
192*96cbc34fSDavid du Colombier 
193*96cbc34fSDavid du Colombier 			b += ((c ^ d) & a) ^ d;
194*96cbc34fSDavid du Colombier 			b += x[(sh + 15) & 0xf] + t[3];
195*96cbc34fSDavid du Colombier 			b = (b << S24) | (b >> (32 - S24));
196*96cbc34fSDavid du Colombier 			b += c;
197*96cbc34fSDavid du Colombier 
198*96cbc34fSDavid du Colombier 			sh += 20;
199*96cbc34fSDavid du Colombier 		}
200*96cbc34fSDavid du Colombier 		sh = 5;
201*96cbc34fSDavid du Colombier 		for(; sh != 5+12*4; t += 4){
202*96cbc34fSDavid du Colombier 			a += b ^ c ^ d;
203*96cbc34fSDavid du Colombier 			a += x[sh & 0xf] + t[0];
204*96cbc34fSDavid du Colombier 			a = (a << S31) | (a >> (32 - S31));
205*96cbc34fSDavid du Colombier 			a += b;
206*96cbc34fSDavid du Colombier 
207*96cbc34fSDavid du Colombier 			d += a ^ b ^ c;
208*96cbc34fSDavid du Colombier 			d += x[(sh + 3) & 0xf] + t[1];
209*96cbc34fSDavid du Colombier 			d = (d << S32) | (d >> (32 - S32));
210*96cbc34fSDavid du Colombier 			d += a;
211*96cbc34fSDavid du Colombier 
212*96cbc34fSDavid du Colombier 			c += d ^ a ^ b;
213*96cbc34fSDavid du Colombier 			c += x[(sh + 6) & 0xf] + t[2];
214*96cbc34fSDavid du Colombier 			c = (c << S33) | (c >> (32 - S33));
215*96cbc34fSDavid du Colombier 			c += d;
216*96cbc34fSDavid du Colombier 
217*96cbc34fSDavid du Colombier 			b += c ^ d ^ a;
218*96cbc34fSDavid du Colombier 			b += x[(sh + 9) & 0xf] + t[3];
219*96cbc34fSDavid du Colombier 			b = (b << S34) | (b >> (32 - S34));
220*96cbc34fSDavid du Colombier 			b += c;
221*96cbc34fSDavid du Colombier 
222*96cbc34fSDavid du Colombier 			sh += 12;
223*96cbc34fSDavid du Colombier 		}
224*96cbc34fSDavid du Colombier 		sh = 0;
225*96cbc34fSDavid du Colombier 		for(; sh != 28*4; t += 4){
226*96cbc34fSDavid du Colombier 			a += c ^ (b | ~d);
227*96cbc34fSDavid du Colombier 			a += x[sh & 0xf] + t[0];
228*96cbc34fSDavid du Colombier 			a = (a << S41) | (a >> (32 - S41));
229*96cbc34fSDavid du Colombier 			a += b;
230*96cbc34fSDavid du Colombier 
231*96cbc34fSDavid du Colombier 			d += b ^ (a | ~c);
232*96cbc34fSDavid du Colombier 			d += x[(sh + 7) & 0xf] + t[1];
233*96cbc34fSDavid du Colombier 			d = (d << S42) | (d >> (32 - S42));
234*96cbc34fSDavid du Colombier 			d += a;
235*96cbc34fSDavid du Colombier 
236*96cbc34fSDavid du Colombier 			c += a ^ (d | ~b);
237*96cbc34fSDavid du Colombier 			c += x[(sh + 14) & 0xf] + t[2];
238*96cbc34fSDavid du Colombier 			c = (c << S43) | (c >> (32 - S43));
239*96cbc34fSDavid du Colombier 			c += d;
240*96cbc34fSDavid du Colombier 
241*96cbc34fSDavid du Colombier 			b += d ^ (c | ~a);
242*96cbc34fSDavid du Colombier 			b += x[(sh + 21) & 0xf] + t[3];
243*96cbc34fSDavid du Colombier 			b = (b << S44) | (b >> (32 - S44));
244*96cbc34fSDavid du Colombier 			b += c;
245*96cbc34fSDavid du Colombier 
246*96cbc34fSDavid du Colombier 			sh += 28;
247*96cbc34fSDavid du Colombier 		}
248*96cbc34fSDavid du Colombier 
249*96cbc34fSDavid du Colombier 		s[0] += a;
250*96cbc34fSDavid du Colombier 		s[1] += b;
251*96cbc34fSDavid du Colombier 		s[2] += c;
252*96cbc34fSDavid du Colombier 		s[3] += d;
253*96cbc34fSDavid du Colombier 	}
254*96cbc34fSDavid du Colombier }
255*96cbc34fSDavid du Colombier 
256*96cbc34fSDavid du Colombier /*
257*96cbc34fSDavid du Colombier  *	decodes input (uchar) into output (u32int). Assumes len is
258*96cbc34fSDavid du Colombier  *	a multiple of 4.
259*96cbc34fSDavid du Colombier  */
260*96cbc34fSDavid du Colombier static void
decode(u32int * output,uchar * input,ulong len)261*96cbc34fSDavid du Colombier decode(u32int *output, uchar *input, ulong len)
262*96cbc34fSDavid du Colombier {
263*96cbc34fSDavid du Colombier 	uchar *e;
264*96cbc34fSDavid du Colombier 
265*96cbc34fSDavid du Colombier 	for(e = input+len; input < e; input += 4)
266*96cbc34fSDavid du Colombier 		*output++ = input[0] | (input[1] << 8) |
267*96cbc34fSDavid du Colombier 			(input[2] << 16) | (input[3] << 24);
268*96cbc34fSDavid du Colombier }
269