xref: /freebsd/lib/libmd/rmd160c.c (revision f4b37ed0f8b307b1f3f0f630ca725d68f1dff30d)
1 /* crypto/ripemd/rmd_dgst.c */
2 /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
3  * All rights reserved.
4  *
5  * This package is an SSL implementation written
6  * by Eric Young (eay@cryptsoft.com).
7  * The implementation was written so as to conform with Netscapes SSL.
8  *
9  * This library is free for commercial and non-commercial use as long as
10  * the following conditions are aheared to.  The following conditions
11  * apply to all code found in this distribution, be it the RC4, RSA,
12  * lhash, DES, etc., code; not just the SSL code.  The SSL documentation
13  * included with this distribution is covered by the same copyright terms
14  * except that the holder is Tim Hudson (tjh@cryptsoft.com).
15  *
16  * Copyright remains Eric Young's, and as such any Copyright notices in
17  * the code are not to be removed.
18  * If this package is used in a product, Eric Young should be given attribution
19  * as the author of the parts of the library used.
20  * This can be in the form of a textual message at program startup or
21  * in documentation (online or textual) provided with the package.
22  *
23  * Redistribution and use in source and binary forms, with or without
24  * modification, are permitted provided that the following conditions
25  * are met:
26  * 1. Redistributions of source code must retain the copyright
27  *    notice, this list of conditions and the following disclaimer.
28  * 2. Redistributions in binary form must reproduce the above copyright
29  *    notice, this list of conditions and the following disclaimer in the
30  *    documentation and/or other materials provided with the distribution.
31  * 3. All advertising materials mentioning features or use of this software
32  *    must display the following acknowledgement:
33  *    "This product includes cryptographic software written by
34  *     Eric Young (eay@cryptsoft.com)"
35  *    The word 'cryptographic' can be left out if the rouines from the library
36  *    being used are not cryptographic related :-).
37  * 4. If you include any Windows specific code (or a derivative thereof) from
38  *    the apps directory (application code) you must include an acknowledgement:
39  *    "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
40  *
41  * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
42  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
43  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
44  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
45  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
46  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
47  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
48  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
49  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
50  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
51  * SUCH DAMAGE.
52  *
53  * The licence and distribution terms for any publically available version or
54  * derivative of this code cannot be changed.  i.e. this code cannot simply be
55  * copied and put under another distribution licence
56  * [including the GNU Public Licence.]
57  */
58 
59 #include <sys/cdefs.h>
60 __FBSDID("$FreeBSD$");
61 
62 #include <sys/types.h>
63 
64 #include <stdio.h>
65 #include <string.h>
66 
67 #if 0
68 #include <machine/ansi.h>	/* we use the __ variants of bit-sized types */
69 #endif
70 #include <machine/endian.h>
71 
72 #include "rmd_locl.h"
73 
74 /*
75  * The assembly-language code is not position-independent, so don't
76  * try to use it in a shared library.
77  */
78 #ifdef PIC
79 #undef RMD160_ASM
80 #endif
81 
82 char *RMD160_version="RIPEMD160 part of SSLeay 0.9.0b 11-Oct-1998";
83 
84 #ifdef RMD160_ASM
85 void ripemd160_block_x86(RIPEMD160_CTX *c, const u_int32_t *p,int num);
86 #define ripemd160_block ripemd160_block_x86
87 #else
88 void ripemd160_block(RIPEMD160_CTX *c, const u_int32_t *p,int num);
89 #endif
90 
91 void RIPEMD160_Init(c)
92 RIPEMD160_CTX *c;
93 	{
94 	c->A=RIPEMD160_A;
95 	c->B=RIPEMD160_B;
96 	c->C=RIPEMD160_C;
97 	c->D=RIPEMD160_D;
98 	c->E=RIPEMD160_E;
99 	c->Nl=0;
100 	c->Nh=0;
101 	c->num=0;
102 	}
103 
104 void RIPEMD160_Update(c, in, len)
105 RIPEMD160_CTX *c;
106 const void *in;
107 size_t len;
108 	{
109 	u_int32_t *p;
110 	int sw,sc;
111 	u_int32_t l;
112 	const unsigned char *data = in;
113 
114 	if (len == 0) return;
115 
116 	l=(c->Nl+(len<<3))&0xffffffffL;
117 	if (l < c->Nl) /* overflow */
118 		c->Nh++;
119 	c->Nh+=(len>>29);
120 	c->Nl=l;
121 
122 	if (c->num != 0)
123 		{
124 		p=c->data;
125 		sw=c->num>>2;
126 		sc=c->num&0x03;
127 
128 		if ((c->num+len) >= RIPEMD160_CBLOCK)
129 			{
130 			l= p[sw];
131 			p_c2l(data,l,sc);
132 			p[sw++]=l;
133 			for (; sw<RIPEMD160_LBLOCK; sw++)
134 				{
135 				c2l(data,l);
136 				p[sw]=l;
137 				}
138 			len-=(RIPEMD160_CBLOCK-c->num);
139 
140 			ripemd160_block(c,p,64);
141 			c->num=0;
142 			/* drop through and do the rest */
143 			}
144 		else
145 			{
146 			int ew,ec;
147 
148 			c->num+=(int)len;
149 			if ((sc+len) < 4) /* ugly, add char's to a word */
150 				{
151 				l= p[sw];
152 				p_c2l_p(data,l,sc,len);
153 				p[sw]=l;
154 				}
155 			else
156 				{
157 				ew=(c->num>>2);
158 				ec=(c->num&0x03);
159 				l= p[sw];
160 				p_c2l(data,l,sc);
161 				p[sw++]=l;
162 				for (; sw < ew; sw++)
163 					{ c2l(data,l); p[sw]=l; }
164 				if (ec)
165 					{
166 					c2l_p(data,l,ec);
167 					p[sw]=l;
168 					}
169 				}
170 			return;
171 			}
172 		}
173 	/* we now can process the input data in blocks of RIPEMD160_CBLOCK
174 	 * chars and save the leftovers to c->data. */
175 #if BYTE_ORDER == LITTLE_ENDIAN
176 	if ((((unsigned long)data)%sizeof(u_int32_t)) == 0)
177 		{
178 		sw=(int)len/RIPEMD160_CBLOCK;
179 		if (sw > 0)
180 			{
181 			sw*=RIPEMD160_CBLOCK;
182 			ripemd160_block(c,(u_int32_t *)data,sw);
183 			data+=sw;
184 			len-=sw;
185 			}
186 		}
187 #endif
188 	p=c->data;
189 	while (len >= RIPEMD160_CBLOCK)
190 		{
191 #if BYTE_ORDER == LITTLE_ENDIAN || BYTE_ORDER == BIG_ENDIAN
192 		if (p != (u_int32_t *)data)
193 			memcpy(p,data,RIPEMD160_CBLOCK);
194 		data+=RIPEMD160_CBLOCK;
195 #if BYTE_ORDER == BIG_ENDIAN
196 		for (sw=(RIPEMD160_LBLOCK/4); sw; sw--)
197 			{
198 			Endian_Reverse32(p[0]);
199 			Endian_Reverse32(p[1]);
200 			Endian_Reverse32(p[2]);
201 			Endian_Reverse32(p[3]);
202 			p+=4;
203 			}
204 #endif
205 #else
206 		for (sw=(RIPEMD160_LBLOCK/4); sw; sw--)
207 			{
208 			c2l(data,l); *(p++)=l;
209 			c2l(data,l); *(p++)=l;
210 			c2l(data,l); *(p++)=l;
211 			c2l(data,l); *(p++)=l;
212 			}
213 #endif
214 		p=c->data;
215 		ripemd160_block(c,p,64);
216 		len-=RIPEMD160_CBLOCK;
217 		}
218 	sc=(int)len;
219 	c->num=sc;
220 	if (sc)
221 		{
222 		sw=sc>>2;	/* words to copy */
223 #if BYTE_ORDER == LITTLE_ENDIAN
224 		p[sw]=0;
225 		memcpy(p,data,sc);
226 #else
227 		sc&=0x03;
228 		for ( ; sw; sw--)
229 			{ c2l(data,l); *(p++)=l; }
230 		c2l_p(data,l,sc);
231 		*p=l;
232 #endif
233 		}
234 	}
235 
236 void RIPEMD160_Transform(c,b)
237 RIPEMD160_CTX *c;
238 unsigned char *b;
239 	{
240 	u_int32_t p[16];
241 #if BYTE_ORDER != LITTLE_ENDIAN
242 	u_int32_t *q;
243 	int i;
244 #endif
245 
246 #if BYTE_ORDER == BIG_ENDIAN || BYTE_ORDER == LITTLE_ENDIAN
247 	memcpy(p,b,64);
248 #if BYTE_ORDER == BIG_ENDIAN
249 	q=p;
250 	for (i=(RIPEMD160_LBLOCK/4); i; i--)
251 		{
252 		Endian_Reverse32(q[0]);
253 		Endian_Reverse32(q[1]);
254 		Endian_Reverse32(q[2]);
255 		Endian_Reverse32(q[3]);
256 		q+=4;
257 		}
258 #endif
259 #else
260 	q=p;
261 	for (i=(RIPEMD160_LBLOCK/4); i; i--)
262 		{
263 		u_int32_t l;
264 		c2l(b,l); *(q++)=l;
265 		c2l(b,l); *(q++)=l;
266 		c2l(b,l); *(q++)=l;
267 		c2l(b,l); *(q++)=l;
268 		}
269 #endif
270 	ripemd160_block(c,p,64);
271 	}
272 
273 #ifndef RMD160_ASM
274 
275 void ripemd160_block(ctx, X, num)
276 RIPEMD160_CTX *ctx;
277 const u_int32_t *X;
278 int num;
279 	{
280 	u_int32_t A,B,C,D,E;
281 	u_int32_t a,b,c,d,e;
282 
283 	for (;;)
284 		{
285 		A=ctx->A; B=ctx->B; C=ctx->C; D=ctx->D; E=ctx->E;
286 
287 	RIP1(A,B,C,D,E,WL00,SL00);
288 	RIP1(E,A,B,C,D,WL01,SL01);
289 	RIP1(D,E,A,B,C,WL02,SL02);
290 	RIP1(C,D,E,A,B,WL03,SL03);
291 	RIP1(B,C,D,E,A,WL04,SL04);
292 	RIP1(A,B,C,D,E,WL05,SL05);
293 	RIP1(E,A,B,C,D,WL06,SL06);
294 	RIP1(D,E,A,B,C,WL07,SL07);
295 	RIP1(C,D,E,A,B,WL08,SL08);
296 	RIP1(B,C,D,E,A,WL09,SL09);
297 	RIP1(A,B,C,D,E,WL10,SL10);
298 	RIP1(E,A,B,C,D,WL11,SL11);
299 	RIP1(D,E,A,B,C,WL12,SL12);
300 	RIP1(C,D,E,A,B,WL13,SL13);
301 	RIP1(B,C,D,E,A,WL14,SL14);
302 	RIP1(A,B,C,D,E,WL15,SL15);
303 
304 	RIP2(E,A,B,C,D,WL16,SL16,KL1);
305 	RIP2(D,E,A,B,C,WL17,SL17,KL1);
306 	RIP2(C,D,E,A,B,WL18,SL18,KL1);
307 	RIP2(B,C,D,E,A,WL19,SL19,KL1);
308 	RIP2(A,B,C,D,E,WL20,SL20,KL1);
309 	RIP2(E,A,B,C,D,WL21,SL21,KL1);
310 	RIP2(D,E,A,B,C,WL22,SL22,KL1);
311 	RIP2(C,D,E,A,B,WL23,SL23,KL1);
312 	RIP2(B,C,D,E,A,WL24,SL24,KL1);
313 	RIP2(A,B,C,D,E,WL25,SL25,KL1);
314 	RIP2(E,A,B,C,D,WL26,SL26,KL1);
315 	RIP2(D,E,A,B,C,WL27,SL27,KL1);
316 	RIP2(C,D,E,A,B,WL28,SL28,KL1);
317 	RIP2(B,C,D,E,A,WL29,SL29,KL1);
318 	RIP2(A,B,C,D,E,WL30,SL30,KL1);
319 	RIP2(E,A,B,C,D,WL31,SL31,KL1);
320 
321 	RIP3(D,E,A,B,C,WL32,SL32,KL2);
322 	RIP3(C,D,E,A,B,WL33,SL33,KL2);
323 	RIP3(B,C,D,E,A,WL34,SL34,KL2);
324 	RIP3(A,B,C,D,E,WL35,SL35,KL2);
325 	RIP3(E,A,B,C,D,WL36,SL36,KL2);
326 	RIP3(D,E,A,B,C,WL37,SL37,KL2);
327 	RIP3(C,D,E,A,B,WL38,SL38,KL2);
328 	RIP3(B,C,D,E,A,WL39,SL39,KL2);
329 	RIP3(A,B,C,D,E,WL40,SL40,KL2);
330 	RIP3(E,A,B,C,D,WL41,SL41,KL2);
331 	RIP3(D,E,A,B,C,WL42,SL42,KL2);
332 	RIP3(C,D,E,A,B,WL43,SL43,KL2);
333 	RIP3(B,C,D,E,A,WL44,SL44,KL2);
334 	RIP3(A,B,C,D,E,WL45,SL45,KL2);
335 	RIP3(E,A,B,C,D,WL46,SL46,KL2);
336 	RIP3(D,E,A,B,C,WL47,SL47,KL2);
337 
338 	RIP4(C,D,E,A,B,WL48,SL48,KL3);
339 	RIP4(B,C,D,E,A,WL49,SL49,KL3);
340 	RIP4(A,B,C,D,E,WL50,SL50,KL3);
341 	RIP4(E,A,B,C,D,WL51,SL51,KL3);
342 	RIP4(D,E,A,B,C,WL52,SL52,KL3);
343 	RIP4(C,D,E,A,B,WL53,SL53,KL3);
344 	RIP4(B,C,D,E,A,WL54,SL54,KL3);
345 	RIP4(A,B,C,D,E,WL55,SL55,KL3);
346 	RIP4(E,A,B,C,D,WL56,SL56,KL3);
347 	RIP4(D,E,A,B,C,WL57,SL57,KL3);
348 	RIP4(C,D,E,A,B,WL58,SL58,KL3);
349 	RIP4(B,C,D,E,A,WL59,SL59,KL3);
350 	RIP4(A,B,C,D,E,WL60,SL60,KL3);
351 	RIP4(E,A,B,C,D,WL61,SL61,KL3);
352 	RIP4(D,E,A,B,C,WL62,SL62,KL3);
353 	RIP4(C,D,E,A,B,WL63,SL63,KL3);
354 
355 	RIP5(B,C,D,E,A,WL64,SL64,KL4);
356 	RIP5(A,B,C,D,E,WL65,SL65,KL4);
357 	RIP5(E,A,B,C,D,WL66,SL66,KL4);
358 	RIP5(D,E,A,B,C,WL67,SL67,KL4);
359 	RIP5(C,D,E,A,B,WL68,SL68,KL4);
360 	RIP5(B,C,D,E,A,WL69,SL69,KL4);
361 	RIP5(A,B,C,D,E,WL70,SL70,KL4);
362 	RIP5(E,A,B,C,D,WL71,SL71,KL4);
363 	RIP5(D,E,A,B,C,WL72,SL72,KL4);
364 	RIP5(C,D,E,A,B,WL73,SL73,KL4);
365 	RIP5(B,C,D,E,A,WL74,SL74,KL4);
366 	RIP5(A,B,C,D,E,WL75,SL75,KL4);
367 	RIP5(E,A,B,C,D,WL76,SL76,KL4);
368 	RIP5(D,E,A,B,C,WL77,SL77,KL4);
369 	RIP5(C,D,E,A,B,WL78,SL78,KL4);
370 	RIP5(B,C,D,E,A,WL79,SL79,KL4);
371 
372 	a=A; b=B; c=C; d=D; e=E;
373 	/* Do other half */
374 	A=ctx->A; B=ctx->B; C=ctx->C; D=ctx->D; E=ctx->E;
375 
376 	RIP5(A,B,C,D,E,WR00,SR00,KR0);
377 	RIP5(E,A,B,C,D,WR01,SR01,KR0);
378 	RIP5(D,E,A,B,C,WR02,SR02,KR0);
379 	RIP5(C,D,E,A,B,WR03,SR03,KR0);
380 	RIP5(B,C,D,E,A,WR04,SR04,KR0);
381 	RIP5(A,B,C,D,E,WR05,SR05,KR0);
382 	RIP5(E,A,B,C,D,WR06,SR06,KR0);
383 	RIP5(D,E,A,B,C,WR07,SR07,KR0);
384 	RIP5(C,D,E,A,B,WR08,SR08,KR0);
385 	RIP5(B,C,D,E,A,WR09,SR09,KR0);
386 	RIP5(A,B,C,D,E,WR10,SR10,KR0);
387 	RIP5(E,A,B,C,D,WR11,SR11,KR0);
388 	RIP5(D,E,A,B,C,WR12,SR12,KR0);
389 	RIP5(C,D,E,A,B,WR13,SR13,KR0);
390 	RIP5(B,C,D,E,A,WR14,SR14,KR0);
391 	RIP5(A,B,C,D,E,WR15,SR15,KR0);
392 
393 	RIP4(E,A,B,C,D,WR16,SR16,KR1);
394 	RIP4(D,E,A,B,C,WR17,SR17,KR1);
395 	RIP4(C,D,E,A,B,WR18,SR18,KR1);
396 	RIP4(B,C,D,E,A,WR19,SR19,KR1);
397 	RIP4(A,B,C,D,E,WR20,SR20,KR1);
398 	RIP4(E,A,B,C,D,WR21,SR21,KR1);
399 	RIP4(D,E,A,B,C,WR22,SR22,KR1);
400 	RIP4(C,D,E,A,B,WR23,SR23,KR1);
401 	RIP4(B,C,D,E,A,WR24,SR24,KR1);
402 	RIP4(A,B,C,D,E,WR25,SR25,KR1);
403 	RIP4(E,A,B,C,D,WR26,SR26,KR1);
404 	RIP4(D,E,A,B,C,WR27,SR27,KR1);
405 	RIP4(C,D,E,A,B,WR28,SR28,KR1);
406 	RIP4(B,C,D,E,A,WR29,SR29,KR1);
407 	RIP4(A,B,C,D,E,WR30,SR30,KR1);
408 	RIP4(E,A,B,C,D,WR31,SR31,KR1);
409 
410 	RIP3(D,E,A,B,C,WR32,SR32,KR2);
411 	RIP3(C,D,E,A,B,WR33,SR33,KR2);
412 	RIP3(B,C,D,E,A,WR34,SR34,KR2);
413 	RIP3(A,B,C,D,E,WR35,SR35,KR2);
414 	RIP3(E,A,B,C,D,WR36,SR36,KR2);
415 	RIP3(D,E,A,B,C,WR37,SR37,KR2);
416 	RIP3(C,D,E,A,B,WR38,SR38,KR2);
417 	RIP3(B,C,D,E,A,WR39,SR39,KR2);
418 	RIP3(A,B,C,D,E,WR40,SR40,KR2);
419 	RIP3(E,A,B,C,D,WR41,SR41,KR2);
420 	RIP3(D,E,A,B,C,WR42,SR42,KR2);
421 	RIP3(C,D,E,A,B,WR43,SR43,KR2);
422 	RIP3(B,C,D,E,A,WR44,SR44,KR2);
423 	RIP3(A,B,C,D,E,WR45,SR45,KR2);
424 	RIP3(E,A,B,C,D,WR46,SR46,KR2);
425 	RIP3(D,E,A,B,C,WR47,SR47,KR2);
426 
427 	RIP2(C,D,E,A,B,WR48,SR48,KR3);
428 	RIP2(B,C,D,E,A,WR49,SR49,KR3);
429 	RIP2(A,B,C,D,E,WR50,SR50,KR3);
430 	RIP2(E,A,B,C,D,WR51,SR51,KR3);
431 	RIP2(D,E,A,B,C,WR52,SR52,KR3);
432 	RIP2(C,D,E,A,B,WR53,SR53,KR3);
433 	RIP2(B,C,D,E,A,WR54,SR54,KR3);
434 	RIP2(A,B,C,D,E,WR55,SR55,KR3);
435 	RIP2(E,A,B,C,D,WR56,SR56,KR3);
436 	RIP2(D,E,A,B,C,WR57,SR57,KR3);
437 	RIP2(C,D,E,A,B,WR58,SR58,KR3);
438 	RIP2(B,C,D,E,A,WR59,SR59,KR3);
439 	RIP2(A,B,C,D,E,WR60,SR60,KR3);
440 	RIP2(E,A,B,C,D,WR61,SR61,KR3);
441 	RIP2(D,E,A,B,C,WR62,SR62,KR3);
442 	RIP2(C,D,E,A,B,WR63,SR63,KR3);
443 
444 	RIP1(B,C,D,E,A,WR64,SR64);
445 	RIP1(A,B,C,D,E,WR65,SR65);
446 	RIP1(E,A,B,C,D,WR66,SR66);
447 	RIP1(D,E,A,B,C,WR67,SR67);
448 	RIP1(C,D,E,A,B,WR68,SR68);
449 	RIP1(B,C,D,E,A,WR69,SR69);
450 	RIP1(A,B,C,D,E,WR70,SR70);
451 	RIP1(E,A,B,C,D,WR71,SR71);
452 	RIP1(D,E,A,B,C,WR72,SR72);
453 	RIP1(C,D,E,A,B,WR73,SR73);
454 	RIP1(B,C,D,E,A,WR74,SR74);
455 	RIP1(A,B,C,D,E,WR75,SR75);
456 	RIP1(E,A,B,C,D,WR76,SR76);
457 	RIP1(D,E,A,B,C,WR77,SR77);
458 	RIP1(C,D,E,A,B,WR78,SR78);
459 	RIP1(B,C,D,E,A,WR79,SR79);
460 
461 	D     =ctx->B+c+D;
462 	ctx->B=ctx->C+d+E;
463 	ctx->C=ctx->D+e+A;
464 	ctx->D=ctx->E+a+B;
465 	ctx->E=ctx->A+b+C;
466 	ctx->A=D;
467 
468 	X+=16;
469 	num-=64;
470 	if (num <= 0) break;
471 		}
472 	}
473 #endif
474 
475 void RIPEMD160_Final(md, c)
476 unsigned char *md;
477 RIPEMD160_CTX *c;
478 	{
479 	int i,j;
480 	u_int32_t l;
481 	u_int32_t *p;
482 	static unsigned char end[4]={0x80,0x00,0x00,0x00};
483 	unsigned char *cp=end;
484 
485 	/* c->num should definitly have room for at least one more byte. */
486 	p=c->data;
487 	j=c->num;
488 	i=j>>2;
489 
490 	/* purify often complains about the following line as an
491 	 * Uninitialized Memory Read.  While this can be true, the
492 	 * following p_c2l macro will reset l when that case is true.
493 	 * This is because j&0x03 contains the number of 'valid' bytes
494 	 * already in p[i].  If and only if j&0x03 == 0, the UMR will
495 	 * occur but this is also the only time p_c2l will do
496 	 * l= *(cp++) instead of l|= *(cp++)
497 	 * Many thanks to Alex Tang <altitude@cic.net> for pickup this
498 	 * 'potential bug' */
499 #ifdef PURIFY
500 	if ((j&0x03) == 0) p[i]=0;
501 #endif
502 	l=p[i];
503 	p_c2l(cp,l,j&0x03);
504 	p[i]=l;
505 	i++;
506 	/* i is the next 'undefined word' */
507 	if (c->num >= RIPEMD160_LAST_BLOCK)
508 		{
509 		for (; i<RIPEMD160_LBLOCK; i++)
510 			p[i]=0;
511 		ripemd160_block(c,p,64);
512 		i=0;
513 		}
514 	for (; i<(RIPEMD160_LBLOCK-2); i++)
515 		p[i]=0;
516 	p[RIPEMD160_LBLOCK-2]=c->Nl;
517 	p[RIPEMD160_LBLOCK-1]=c->Nh;
518 	ripemd160_block(c,p,64);
519 	cp=md;
520 	l=c->A; l2c(l,cp);
521 	l=c->B; l2c(l,cp);
522 	l=c->C; l2c(l,cp);
523 	l=c->D; l2c(l,cp);
524 	l=c->E; l2c(l,cp);
525 
526 	/* clear stuff, ripemd160_block may be leaving some stuff on the stack
527 	 * but I'm not worried :-) */
528 	c->num=0;
529 /*	memset((char *)&c,0,sizeof(c));*/
530 	}
531 
532 #ifdef undef
533 int printit(l)
534 unsigned long *l;
535 	{
536 	int i,ii;
537 
538 	for (i=0; i<2; i++)
539 		{
540 		for (ii=0; ii<8; ii++)
541 			{
542 			fprintf(stderr,"%08lx ",l[i*8+ii]);
543 			}
544 		fprintf(stderr,"\n");
545 		}
546 	}
547 #endif
548 
549 #ifdef WEAK_REFS
550 /* When building libmd, provide weak references. Note: this is not
551    activated in the context of compiling these sources for internal
552    use in libcrypt.
553  */
554 #undef RIPEMD160_Init
555 __weak_reference(_libmd_RIPEMD160_Init, RIPEMD160_Init);
556 #undef RIPEMD160_Update
557 __weak_reference(_libmd_RIPEMD160_Update, RIPEMD160_Update);
558 #undef RIPEMD160_Final
559 __weak_reference(_libmd_RIPEMD160_Final, RIPEMD160_Final);
560 #undef RIPEMD160_Transform
561 __weak_reference(_libmd_RIPEMD160_Transform, RIPEMD160_Transform);
562 #undef RMD160_version
563 __weak_reference(_libmd_RMD160_version, RMD160_version);
564 #undef ripemd160_block
565 __weak_reference(_libmd_ripemd160_block, ripemd160_block);
566 #endif
567