can create v4 signatures
[libgcrypt.git] / cipher / md.c
1 /* md.c  -  message digest dispatcher
2  *      Copyright (C) 1998 Free Software Foundation, Inc.
3  *
4  * This file is part of GNUPG.
5  *
6  * GNUPG is free software; you can redistribute it and/or modify
7  * it under the terms of the GNU General Public License as published by
8  * the Free Software Foundation; either version 2 of the License, or
9  * (at your option) any later version.
10  *
11  * GNUPG is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14  * GNU General Public License for more details.
15  *
16  * You should have received a copy of the GNU General Public License
17  * along with this program; if not, write to the Free Software
18  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
19  */
20
21 #include <config.h>
22 #include <stdio.h>
23 #include <stdlib.h>
24 #include <string.h>
25 #include <errno.h>
26 #include "util.h"
27 #include "cipher.h"
28 #include "errors.h"
29
30 /****************
31  * Open a message digest handle for use with algorithm ALGO.
32  * More algorithms may be added by md_enable(). The initial algorithm
33  * may be 0.
34  */
35 MD_HANDLE
36 md_open( int algo, int secure )
37 {
38     MD_HANDLE hd;
39
40     hd = secure ? m_alloc_secure_clear( sizeof *hd )
41                 : m_alloc_clear( sizeof *hd );
42     hd->secure = secure;
43     if( algo )
44         md_enable( hd, algo );
45     fast_random_poll();
46     return hd;
47 }
48
49 void
50 md_enable( MD_HANDLE h, int algo )
51 {
52     if( algo == DIGEST_ALGO_MD5 ) {
53         if( !h->use_md5 )
54             md5_init( &h->md5 );
55         h->use_md5 = 1;
56     }
57     else if( algo == DIGEST_ALGO_RMD160 ) {
58         if( !h->use_rmd160 )
59             rmd160_init( &h->rmd160 );
60         h->use_rmd160 = 1;
61     }
62     else if( algo == DIGEST_ALGO_SHA1 ) {
63         if( !h->use_sha1 )
64             sha1_init( &h->sha1 );
65         h->use_sha1 = 1;
66     }
67   #ifdef WITH_TIGER_HASH
68     else if( algo == DIGEST_ALGO_TIGER ) {
69         if( !h->use_tiger )
70             tiger_init( &h->tiger );
71         h->use_tiger = 1;
72     }
73   #endif
74     else
75         log_bug("md_enable(%d)", algo );
76 }
77
78
79 MD_HANDLE
80 md_copy( MD_HANDLE a )
81 {
82     MD_HANDLE b;
83
84     b = a->secure ? m_alloc_secure( sizeof *b )
85                   : m_alloc( sizeof *b );
86     memcpy( b, a, sizeof *a );
87     return b;
88 }
89
90
91 void
92 md_close(MD_HANDLE a)
93 {
94     if( !a )
95         return;
96     if( a->debug )
97         md_stop_debug(a);
98     m_free(a);
99 }
100
101
102 void
103 md_write( MD_HANDLE a, byte *inbuf, size_t inlen)
104 {
105     if( a->debug ) {
106         if( a->bufcount && fwrite(a->buffer, a->bufcount, 1, a->debug ) != 1 )
107             BUG();
108         if( inlen && fwrite(inbuf, inlen, 1, a->debug ) != 1 )
109             BUG();
110     }
111     if( a->use_rmd160 ) {
112         rmd160_write( &a->rmd160, a->buffer, a->bufcount );
113         rmd160_write( &a->rmd160, inbuf, inlen  );
114     }
115     if( a->use_sha1 ) {
116         sha1_write( &a->sha1, a->buffer, a->bufcount );
117         sha1_write( &a->sha1, inbuf, inlen  );
118     }
119   #ifdef WITH_TIGER_HASH
120     if( a->use_tiger ) {
121         tiger_write( &a->tiger, a->buffer, a->bufcount );
122         tiger_write( &a->tiger, inbuf, inlen  );
123     }
124   #endif
125     if( a->use_md5 ) {
126         md5_write( &a->md5, a->buffer, a->bufcount );
127         md5_write( &a->md5, inbuf, inlen  );
128     }
129     a->bufcount = 0;
130 }
131
132
133
134 void
135 md_final(MD_HANDLE a)
136 {
137     if( a->bufcount )
138         md_write( a, NULL, 0 );
139     if( a->use_rmd160 )
140         rmd160_final( &a->rmd160 );
141     if( a->use_sha1 )
142         sha1_final( &a->sha1 );
143   #ifdef WITH_TIGER_HASH
144     if( a->use_tiger )
145         tiger_final( &a->tiger );
146   #endif
147     if( a->use_md5 )
148         md5_final( &a->md5 );
149 }
150
151
152 /****************
153  * if ALGO is null get the digest for the used algo (which should be only one)
154  */
155 byte *
156 md_read( MD_HANDLE a, int algo )
157 {
158     if( !algo ) {
159         if( a->use_rmd160 )
160             return rmd160_read( &a->rmd160 );
161         if( a->use_sha1 )
162             return sha1_read( &a->sha1 );
163       #ifdef WITH_TIGER_HASH
164         if( a->use_tiger )
165             return tiger_read( &a->tiger );
166       #endif
167         if( a->use_md5 )
168             return md5_read( &a->md5 );
169     }
170     else {
171         if( algo == DIGEST_ALGO_RMD160 )
172             return rmd160_read( &a->rmd160 );
173         if( algo == DIGEST_ALGO_SHA1 )
174             return sha1_read( &a->sha1 );
175       #ifdef WITH_TIGER_HASH
176         if( algo == DIGEST_ALGO_TIGER )
177             return tiger_read( &a->tiger );
178       #endif
179         if( algo == DIGEST_ALGO_MD5 )
180             return md5_read( &a->md5 );
181     }
182     BUG();
183 }
184
185 int
186 md_get_algo( MD_HANDLE a )
187 {
188     if( a->use_rmd160 )
189         return DIGEST_ALGO_RMD160;
190     if( a->use_sha1 )
191         return DIGEST_ALGO_SHA1;
192   #ifdef WITH_TIGER_HASH
193     if( a->use_tiger )
194         return DIGEST_ALGO_TIGER;
195   #endif
196     if( a->use_md5 )
197         return DIGEST_ALGO_MD5;
198     return 0;
199 }
200
201 /****************
202  * Return the length of the digest
203  */
204 int
205 md_digest_length( int algo )
206 {
207     switch( algo ) {
208       case DIGEST_ALGO_TIGER:
209         return 24;
210       case DIGEST_ALGO_RMD160:
211       case DIGEST_ALGO_SHA1:
212         return 20;
213       default:
214         return 16;
215     }
216 }
217
218
219 const byte *
220 md_asn_oid( int algo, size_t *asnlen, size_t *mdlen )
221 {
222     size_t alen, mlen;
223     byte *p;
224
225     if( algo == DIGEST_ALGO_MD5 ) {
226         static byte asn[18] = /* Object ID is 1.2.840.113549.2.5 */
227                     { 0x30, 0x20, 0x30, 0x0c, 0x06, 0x08, 0x2a, 0x86,0x48,
228                       0x86, 0xf7, 0x0d, 0x02, 0x05, 0x05, 0x00, 0x04, 0x10 };
229         mlen = 16; alen = DIM(asn); p = asn;
230     }
231     else if( algo == DIGEST_ALGO_RMD160 ) {
232         static byte asn[15] = /* Object ID is 1.3.36.3.2.1 */
233           { 0x30, 0x21, 0x30, 0x09, 0x06, 0x05, 0x2b, 0x24, 0x03,
234             0x02, 0x01, 0x05, 0x00, 0x04, 0x14 };
235         mlen = 20; alen = DIM(asn); p = asn;
236     }
237     else if( algo == DIGEST_ALGO_TIGER ) {
238         static byte asn[15] = /* FIXME: Object ID is ???????????? */
239           { 0x42, 0x42, 0x42, 0x42, 0x42, 0x42, 0x42, 0x42, 0x42,
240             0x42, 0x42, 0x42, 0x42, 0x42, 0x42 };
241         mlen = 24; alen = DIM(asn); p = asn;
242     }
243     else if( algo == DIGEST_ALGO_SHA1 ) {
244         static byte asn[15] = /* Objet ID is 1.3.14.3.2.26 */
245                     { 0x30, 0x21, 0x30, 0x09, 0x06, 0x05, 0x2b, 0x0e, 0x03,
246                       0x02, 0x1a, 0x05, 0x00, 0x04, 0x14 };
247         mlen = 20; alen = DIM(asn); p = asn;
248     }
249     else
250         log_bug("md_asn_oid(%d)", algo );
251
252     if( asnlen )
253         *asnlen = alen;
254     if( mdlen )
255         *mdlen = mlen;
256     return p;
257 }
258
259
260 void
261 md_start_debug( MD_HANDLE md, const char *suffix )
262 {
263     static int index=0;
264     char buf[25];
265
266     if( md->debug ) {
267         log_debug("Oops: md debug already started\n");
268         return;
269     }
270     index++;
271     sprintf(buf, "dbgmd-%05d.%.10s", index, suffix );
272     md->debug = fopen(buf, "w");
273     if( !md->debug )
274         log_debug("md debug: can't open %s\n", buf );
275 }
276
277 void
278 md_stop_debug( MD_HANDLE md )
279 {
280     if( md->debug ) {
281         fclose(md->debug);
282         md->debug = NULL;
283     }
284 }
285