Line data Source code
1 : /********************************************************************\
2 : *
3 : * FILE: rmd160.c
4 : *
5 : * CONTENTS: A sample C-implementation of the RIPEMD-160
6 : * hash-function.
7 : * TARGET: any computer with an ANSI C compiler
8 : *
9 : * AUTHOR: Antoon Bosselaers, ESAT-COSIC
10 : * DATE: 1 March 1996
11 : * VERSION: 1.0
12 : *
13 : * Copyright (c) 1996 Katholieke Universiteit Leuven
14 : *
15 : * Permission is hereby granted, free of charge, to any person
16 : * obtaining a copy of this software and associated documentation
17 : * files (the "Software"), to deal in the Software without restriction,
18 : * including without limitation the rights to use, copy, modify, merge,
19 : * publish, distribute, sublicense, and/or sell copies of the Software,
20 : * and to permit persons to whom the Software is furnished to do so,
21 : * subject to the following conditions:
22 : *
23 : * The above copyright notice and this permission notice shall be
24 : * included in all copies or substantial portions of the Software.
25 : *
26 : * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
27 : * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
28 : * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
29 : * IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
30 : * CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
31 : * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
32 : * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
33 : *
34 : \********************************************************************/
35 :
36 : /* header files */
37 : #include "monetdb_config.h"
38 : #include "rmd160.h"
39 :
40 : /********************************************************************/
41 :
42 38417 : void MDinit(dword *MDbuf)
43 : {
44 38417 : MDbuf[0] = 0x67452301UL;
45 38417 : MDbuf[1] = 0xefcdab89UL;
46 38417 : MDbuf[2] = 0x98badcfeUL;
47 38417 : MDbuf[3] = 0x10325476UL;
48 38417 : MDbuf[4] = 0xc3d2e1f0UL;
49 :
50 38417 : return;
51 : }
52 :
53 : /********************************************************************/
54 :
55 115248 : void MDcompress(dword *MDbuf, dword *X)
56 : {
57 115248 : dword aa = MDbuf[0], bb = MDbuf[1], cc = MDbuf[2],
58 115248 : dd = MDbuf[3], ee = MDbuf[4];
59 115248 : dword aaa = MDbuf[0], bbb = MDbuf[1], ccc = MDbuf[2],
60 115248 : ddd = MDbuf[3], eee = MDbuf[4];
61 :
62 : /* round 1 */
63 115248 : FF(aa, bb, cc, dd, ee, X[ 0], 11);
64 115248 : FF(ee, aa, bb, cc, dd, X[ 1], 14);
65 115248 : FF(dd, ee, aa, bb, cc, X[ 2], 15);
66 115248 : FF(cc, dd, ee, aa, bb, X[ 3], 12);
67 115248 : FF(bb, cc, dd, ee, aa, X[ 4], 5);
68 115248 : FF(aa, bb, cc, dd, ee, X[ 5], 8);
69 115248 : FF(ee, aa, bb, cc, dd, X[ 6], 7);
70 115248 : FF(dd, ee, aa, bb, cc, X[ 7], 9);
71 115248 : FF(cc, dd, ee, aa, bb, X[ 8], 11);
72 115248 : FF(bb, cc, dd, ee, aa, X[ 9], 13);
73 115248 : FF(aa, bb, cc, dd, ee, X[10], 14);
74 115248 : FF(ee, aa, bb, cc, dd, X[11], 15);
75 115248 : FF(dd, ee, aa, bb, cc, X[12], 6);
76 115248 : FF(cc, dd, ee, aa, bb, X[13], 7);
77 115248 : FF(bb, cc, dd, ee, aa, X[14], 9);
78 115248 : FF(aa, bb, cc, dd, ee, X[15], 8);
79 :
80 : /* round 2 */
81 115248 : GG(ee, aa, bb, cc, dd, X[ 7], 7);
82 115248 : GG(dd, ee, aa, bb, cc, X[ 4], 6);
83 115248 : GG(cc, dd, ee, aa, bb, X[13], 8);
84 115248 : GG(bb, cc, dd, ee, aa, X[ 1], 13);
85 115248 : GG(aa, bb, cc, dd, ee, X[10], 11);
86 115248 : GG(ee, aa, bb, cc, dd, X[ 6], 9);
87 115248 : GG(dd, ee, aa, bb, cc, X[15], 7);
88 115248 : GG(cc, dd, ee, aa, bb, X[ 3], 15);
89 115248 : GG(bb, cc, dd, ee, aa, X[12], 7);
90 115248 : GG(aa, bb, cc, dd, ee, X[ 0], 12);
91 115248 : GG(ee, aa, bb, cc, dd, X[ 9], 15);
92 115248 : GG(dd, ee, aa, bb, cc, X[ 5], 9);
93 115248 : GG(cc, dd, ee, aa, bb, X[ 2], 11);
94 115248 : GG(bb, cc, dd, ee, aa, X[14], 7);
95 115248 : GG(aa, bb, cc, dd, ee, X[11], 13);
96 115248 : GG(ee, aa, bb, cc, dd, X[ 8], 12);
97 :
98 : /* round 3 */
99 115248 : HH(dd, ee, aa, bb, cc, X[ 3], 11);
100 115248 : HH(cc, dd, ee, aa, bb, X[10], 13);
101 115248 : HH(bb, cc, dd, ee, aa, X[14], 6);
102 115248 : HH(aa, bb, cc, dd, ee, X[ 4], 7);
103 115248 : HH(ee, aa, bb, cc, dd, X[ 9], 14);
104 115248 : HH(dd, ee, aa, bb, cc, X[15], 9);
105 115248 : HH(cc, dd, ee, aa, bb, X[ 8], 13);
106 115248 : HH(bb, cc, dd, ee, aa, X[ 1], 15);
107 115248 : HH(aa, bb, cc, dd, ee, X[ 2], 14);
108 115248 : HH(ee, aa, bb, cc, dd, X[ 7], 8);
109 115248 : HH(dd, ee, aa, bb, cc, X[ 0], 13);
110 115248 : HH(cc, dd, ee, aa, bb, X[ 6], 6);
111 115248 : HH(bb, cc, dd, ee, aa, X[13], 5);
112 115248 : HH(aa, bb, cc, dd, ee, X[11], 12);
113 115248 : HH(ee, aa, bb, cc, dd, X[ 5], 7);
114 115248 : HH(dd, ee, aa, bb, cc, X[12], 5);
115 :
116 : /* round 4 */
117 115248 : II(cc, dd, ee, aa, bb, X[ 1], 11);
118 115248 : II(bb, cc, dd, ee, aa, X[ 9], 12);
119 115248 : II(aa, bb, cc, dd, ee, X[11], 14);
120 115248 : II(ee, aa, bb, cc, dd, X[10], 15);
121 115248 : II(dd, ee, aa, bb, cc, X[ 0], 14);
122 115248 : II(cc, dd, ee, aa, bb, X[ 8], 15);
123 115248 : II(bb, cc, dd, ee, aa, X[12], 9);
124 115248 : II(aa, bb, cc, dd, ee, X[ 4], 8);
125 115248 : II(ee, aa, bb, cc, dd, X[13], 9);
126 115248 : II(dd, ee, aa, bb, cc, X[ 3], 14);
127 115248 : II(cc, dd, ee, aa, bb, X[ 7], 5);
128 115248 : II(bb, cc, dd, ee, aa, X[15], 6);
129 115248 : II(aa, bb, cc, dd, ee, X[14], 8);
130 115248 : II(ee, aa, bb, cc, dd, X[ 5], 6);
131 115248 : II(dd, ee, aa, bb, cc, X[ 6], 5);
132 115248 : II(cc, dd, ee, aa, bb, X[ 2], 12);
133 :
134 : /* round 5 */
135 115248 : JJ(bb, cc, dd, ee, aa, X[ 4], 9);
136 115248 : JJ(aa, bb, cc, dd, ee, X[ 0], 15);
137 115248 : JJ(ee, aa, bb, cc, dd, X[ 5], 5);
138 115248 : JJ(dd, ee, aa, bb, cc, X[ 9], 11);
139 115248 : JJ(cc, dd, ee, aa, bb, X[ 7], 6);
140 115248 : JJ(bb, cc, dd, ee, aa, X[12], 8);
141 115248 : JJ(aa, bb, cc, dd, ee, X[ 2], 13);
142 115248 : JJ(ee, aa, bb, cc, dd, X[10], 12);
143 115248 : JJ(dd, ee, aa, bb, cc, X[14], 5);
144 115248 : JJ(cc, dd, ee, aa, bb, X[ 1], 12);
145 115248 : JJ(bb, cc, dd, ee, aa, X[ 3], 13);
146 115248 : JJ(aa, bb, cc, dd, ee, X[ 8], 14);
147 115248 : JJ(ee, aa, bb, cc, dd, X[11], 11);
148 115248 : JJ(dd, ee, aa, bb, cc, X[ 6], 8);
149 115248 : JJ(cc, dd, ee, aa, bb, X[15], 5);
150 115248 : JJ(bb, cc, dd, ee, aa, X[13], 6);
151 :
152 : /* parallel round 1 */
153 115248 : JJJ(aaa, bbb, ccc, ddd, eee, X[ 5], 8);
154 115248 : JJJ(eee, aaa, bbb, ccc, ddd, X[14], 9);
155 115248 : JJJ(ddd, eee, aaa, bbb, ccc, X[ 7], 9);
156 115248 : JJJ(ccc, ddd, eee, aaa, bbb, X[ 0], 11);
157 115248 : JJJ(bbb, ccc, ddd, eee, aaa, X[ 9], 13);
158 115248 : JJJ(aaa, bbb, ccc, ddd, eee, X[ 2], 15);
159 115248 : JJJ(eee, aaa, bbb, ccc, ddd, X[11], 15);
160 115248 : JJJ(ddd, eee, aaa, bbb, ccc, X[ 4], 5);
161 115248 : JJJ(ccc, ddd, eee, aaa, bbb, X[13], 7);
162 115248 : JJJ(bbb, ccc, ddd, eee, aaa, X[ 6], 7);
163 115248 : JJJ(aaa, bbb, ccc, ddd, eee, X[15], 8);
164 115248 : JJJ(eee, aaa, bbb, ccc, ddd, X[ 8], 11);
165 115248 : JJJ(ddd, eee, aaa, bbb, ccc, X[ 1], 14);
166 115248 : JJJ(ccc, ddd, eee, aaa, bbb, X[10], 14);
167 115248 : JJJ(bbb, ccc, ddd, eee, aaa, X[ 3], 12);
168 115248 : JJJ(aaa, bbb, ccc, ddd, eee, X[12], 6);
169 :
170 : /* parallel round 2 */
171 115248 : III(eee, aaa, bbb, ccc, ddd, X[ 6], 9);
172 115248 : III(ddd, eee, aaa, bbb, ccc, X[11], 13);
173 115248 : III(ccc, ddd, eee, aaa, bbb, X[ 3], 15);
174 115248 : III(bbb, ccc, ddd, eee, aaa, X[ 7], 7);
175 115248 : III(aaa, bbb, ccc, ddd, eee, X[ 0], 12);
176 115248 : III(eee, aaa, bbb, ccc, ddd, X[13], 8);
177 115248 : III(ddd, eee, aaa, bbb, ccc, X[ 5], 9);
178 115248 : III(ccc, ddd, eee, aaa, bbb, X[10], 11);
179 115248 : III(bbb, ccc, ddd, eee, aaa, X[14], 7);
180 115248 : III(aaa, bbb, ccc, ddd, eee, X[15], 7);
181 115248 : III(eee, aaa, bbb, ccc, ddd, X[ 8], 12);
182 115248 : III(ddd, eee, aaa, bbb, ccc, X[12], 7);
183 115248 : III(ccc, ddd, eee, aaa, bbb, X[ 4], 6);
184 115248 : III(bbb, ccc, ddd, eee, aaa, X[ 9], 15);
185 115248 : III(aaa, bbb, ccc, ddd, eee, X[ 1], 13);
186 115248 : III(eee, aaa, bbb, ccc, ddd, X[ 2], 11);
187 :
188 : /* parallel round 3 */
189 115248 : HHH(ddd, eee, aaa, bbb, ccc, X[15], 9);
190 115248 : HHH(ccc, ddd, eee, aaa, bbb, X[ 5], 7);
191 115248 : HHH(bbb, ccc, ddd, eee, aaa, X[ 1], 15);
192 115248 : HHH(aaa, bbb, ccc, ddd, eee, X[ 3], 11);
193 115248 : HHH(eee, aaa, bbb, ccc, ddd, X[ 7], 8);
194 115248 : HHH(ddd, eee, aaa, bbb, ccc, X[14], 6);
195 115248 : HHH(ccc, ddd, eee, aaa, bbb, X[ 6], 6);
196 115248 : HHH(bbb, ccc, ddd, eee, aaa, X[ 9], 14);
197 115248 : HHH(aaa, bbb, ccc, ddd, eee, X[11], 12);
198 115248 : HHH(eee, aaa, bbb, ccc, ddd, X[ 8], 13);
199 115248 : HHH(ddd, eee, aaa, bbb, ccc, X[12], 5);
200 115248 : HHH(ccc, ddd, eee, aaa, bbb, X[ 2], 14);
201 115248 : HHH(bbb, ccc, ddd, eee, aaa, X[10], 13);
202 115248 : HHH(aaa, bbb, ccc, ddd, eee, X[ 0], 13);
203 115248 : HHH(eee, aaa, bbb, ccc, ddd, X[ 4], 7);
204 115248 : HHH(ddd, eee, aaa, bbb, ccc, X[13], 5);
205 :
206 : /* parallel round 4 */
207 115248 : GGG(ccc, ddd, eee, aaa, bbb, X[ 8], 15);
208 115248 : GGG(bbb, ccc, ddd, eee, aaa, X[ 6], 5);
209 115248 : GGG(aaa, bbb, ccc, ddd, eee, X[ 4], 8);
210 115248 : GGG(eee, aaa, bbb, ccc, ddd, X[ 1], 11);
211 115248 : GGG(ddd, eee, aaa, bbb, ccc, X[ 3], 14);
212 115248 : GGG(ccc, ddd, eee, aaa, bbb, X[11], 14);
213 115248 : GGG(bbb, ccc, ddd, eee, aaa, X[15], 6);
214 115248 : GGG(aaa, bbb, ccc, ddd, eee, X[ 0], 14);
215 115248 : GGG(eee, aaa, bbb, ccc, ddd, X[ 5], 6);
216 115248 : GGG(ddd, eee, aaa, bbb, ccc, X[12], 9);
217 115248 : GGG(ccc, ddd, eee, aaa, bbb, X[ 2], 12);
218 115248 : GGG(bbb, ccc, ddd, eee, aaa, X[13], 9);
219 115248 : GGG(aaa, bbb, ccc, ddd, eee, X[ 9], 12);
220 115248 : GGG(eee, aaa, bbb, ccc, ddd, X[ 7], 5);
221 115248 : GGG(ddd, eee, aaa, bbb, ccc, X[10], 15);
222 115248 : GGG(ccc, ddd, eee, aaa, bbb, X[14], 8);
223 :
224 : /* parallel round 5 */
225 115248 : FFF(bbb, ccc, ddd, eee, aaa, X[12] , 8);
226 115248 : FFF(aaa, bbb, ccc, ddd, eee, X[15] , 5);
227 115248 : FFF(eee, aaa, bbb, ccc, ddd, X[10] , 12);
228 115248 : FFF(ddd, eee, aaa, bbb, ccc, X[ 4] , 9);
229 115248 : FFF(ccc, ddd, eee, aaa, bbb, X[ 1] , 12);
230 115248 : FFF(bbb, ccc, ddd, eee, aaa, X[ 5] , 5);
231 115248 : FFF(aaa, bbb, ccc, ddd, eee, X[ 8] , 14);
232 115248 : FFF(eee, aaa, bbb, ccc, ddd, X[ 7] , 6);
233 115248 : FFF(ddd, eee, aaa, bbb, ccc, X[ 6] , 8);
234 115248 : FFF(ccc, ddd, eee, aaa, bbb, X[ 2] , 13);
235 115248 : FFF(bbb, ccc, ddd, eee, aaa, X[13] , 6);
236 115248 : FFF(aaa, bbb, ccc, ddd, eee, X[14] , 5);
237 115248 : FFF(eee, aaa, bbb, ccc, ddd, X[ 0] , 15);
238 115248 : FFF(ddd, eee, aaa, bbb, ccc, X[ 3] , 13);
239 115248 : FFF(ccc, ddd, eee, aaa, bbb, X[ 9] , 11);
240 115248 : FFF(bbb, ccc, ddd, eee, aaa, X[11] , 11);
241 :
242 : /* combine results */
243 115248 : ddd += cc + MDbuf[1]; /* final result for MDbuf[0] */
244 115248 : MDbuf[1] = MDbuf[2] + dd + eee;
245 115248 : MDbuf[2] = MDbuf[3] + ee + aaa;
246 115248 : MDbuf[3] = MDbuf[4] + aa + bbb;
247 115248 : MDbuf[4] = MDbuf[0] + bb + ccc;
248 115248 : MDbuf[0] = ddd;
249 :
250 115248 : return;
251 : }
252 :
253 : /********************************************************************/
254 :
255 38416 : void MDfinish(dword *MDbuf, byte *strptr, dword lswlen, dword mswlen)
256 : {
257 38416 : unsigned int i; /* counter */
258 38416 : dword X[16]; /* message words */
259 :
260 38416 : memset(X, 0, 16*sizeof(dword));
261 :
262 : /* put bytes from strptr into X */
263 403187 : for (i=0; i<(lswlen&63); i++) {
264 : /* byte i goes into word X[i div 4] at pos. 8*(i mod 4) */
265 364771 : X[i>>2] ^= (dword) *strptr++ << (8 * (i&3));
266 : }
267 :
268 : /* append the bit m_n == 1 */
269 38416 : X[(lswlen>>2)&15] ^= (dword)1 << (8*(lswlen&3) + 7);
270 :
271 38416 : if ((lswlen & 63) > 55) {
272 : /* length goes to next block */
273 0 : MDcompress(MDbuf, X);
274 0 : memset(X, 0, 16*sizeof(dword));
275 : }
276 :
277 : /* append length in bits*/
278 38416 : X[14] = lswlen << 3;
279 38416 : X[15] = (lswlen >> 29) | (mswlen << 3);
280 38416 : MDcompress(MDbuf, X);
281 :
282 38416 : return;
283 : }
284 :
285 : /************************ end of file rmd160.c **********************/
|
