* sig-check.c (do_check, do_check_messages): Emit the usual sig warnings
[gnupg.git] / g10 / sig-check.c
1 /* sig-check.c -  Check a signature
2  * Copyright (C) 1998, 1999, 2000, 2001, 2002 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 <assert.h>
26 #include "util.h"
27 #include "packet.h"
28 #include "memory.h"
29 #include "mpi.h"
30 #include "keydb.h"
31 #include "cipher.h"
32 #include "main.h"
33 #include "status.h"
34 #include "i18n.h"
35 #include "options.h"
36
37 struct cmp_help_context_s {
38     PKT_signature *sig;
39     MD_HANDLE md;
40 };
41
42 static int do_check( PKT_public_key *pk, PKT_signature *sig,
43                                          MD_HANDLE digest, int *r_expired );
44
45 /****************
46  * Check the signature which is contained in SIG.
47  * The MD_HANDLE should be currently open, so that this function
48  * is able to append some data, before finalizing the digest.
49  */
50 int
51 signature_check( PKT_signature *sig, MD_HANDLE digest )
52 {
53     u32 dummy;
54     int dum2;
55     return signature_check2( sig, digest, &dummy, &dum2 );
56 }
57
58 int
59 signature_check2( PKT_signature *sig, MD_HANDLE digest,
60                   u32 *r_expiredate, int *r_expired )
61 {
62     PKT_public_key *pk = m_alloc_clear( sizeof *pk );
63     int rc=0;
64
65     *r_expiredate = 0;
66
67     /* Sanity check that the md has a context for the hash that the
68        sig is expecting.  This can happen if a onepass sig header does
69        not match the actual sig, and also if the clearsign "Hash:"
70        header is missing or does not match the actual sig. */
71
72     if(!md_algo_present(digest,sig->digest_algo)) {
73         log_info(_("WARNING: signature digest conflict in message\n"));
74         rc=G10ERR_BAD_SIGN;
75     }
76     else if( get_pubkey( pk, sig->keyid ) )
77         rc = G10ERR_NO_PUBKEY;
78     else if(!pk->is_valid &&
79             (pk->main_keyid[0]!=pk->keyid[0] ||
80              pk->main_keyid[1]!=pk->keyid[1]))
81         rc=G10ERR_BAD_PUBKEY; /* you cannot have a good sig from an
82                                  invalid subkey */
83     else {
84         *r_expiredate = pk->expiredate;
85         rc = do_check( pk, sig, digest, r_expired );
86     }
87
88     free_public_key( pk );
89
90     if( !rc && sig->sig_class < 2 && is_status_enabled() ) {
91         /* This signature id works best with DLP algorithms because
92          * they use a random parameter for every signature.  Instead of
93          * this sig-id we could have also used the hash of the document
94          * and the timestamp, but the drawback of this is, that it is
95          * not possible to sign more than one identical document within
96          * one second.  Some remote batch processing applications might
97          * like this feature here */
98         MD_HANDLE md;
99         u32 a = sig->timestamp;
100         int i, nsig = pubkey_get_nsig( sig->pubkey_algo );
101         byte *p, *buffer;
102
103         md = md_open( DIGEST_ALGO_RMD160, 0);
104         md_putc( digest, sig->pubkey_algo );
105         md_putc( digest, sig->digest_algo );
106         md_putc( digest, (a >> 24) & 0xff );
107         md_putc( digest, (a >> 16) & 0xff );
108         md_putc( digest, (a >>  8) & 0xff );
109         md_putc( digest,  a        & 0xff );
110         for(i=0; i < nsig; i++ ) {
111             unsigned n = mpi_get_nbits( sig->data[i]);
112
113             md_putc( md, n>>8);
114             md_putc( md, n );
115             p = mpi_get_buffer( sig->data[i], &n, NULL );
116             md_write( md, p, n );
117             m_free(p);
118         }
119         md_final( md );
120         p = make_radix64_string( md_read( md, 0 ), 20 );
121         buffer = m_alloc( strlen(p) + 60 );
122         sprintf( buffer, "%s %s %lu",
123                  p, strtimestamp( sig->timestamp ), (ulong)sig->timestamp );
124         write_status_text( STATUS_SIG_ID, buffer );
125         m_free(buffer);
126         m_free(p);
127         md_close(md);
128     }
129
130     return rc;
131 }
132
133
134 /****************
135  * This function gets called by pubkey_verify() if the algorithm needs it.
136  */
137 static int
138 cmp_help( void *opaque, MPI result )
139 {
140   #if 0 /* we do not use this anymore */
141     int rc=0, i, j, c, old_enc;
142     byte *dp;
143     const byte *asn;
144     size_t mdlen, asnlen;
145     struct cmp_help_context_s *ctx = opaque;
146     PKT_signature *sig = ctx->sig;
147     MD_HANDLE digest = ctx->md;
148
149     old_enc = 0;
150     for(i=j=0; (c=mpi_getbyte(result, i)) != -1; i++ ) {
151         if( !j ) {
152             if( !i && c != 1 )
153                 break;
154             else if( i && c == 0xff )
155                 ; /* skip the padding */
156             else if( i && !c )
157                 j++;
158             else
159                 break;
160         }
161         else if( ++j == 18 && c != 1 )
162             break;
163         else if( j == 19 && c == 0 ) {
164             old_enc++;
165             break;
166         }
167     }
168     if( old_enc ) {
169         log_error("old encoding scheme is not supported\n");
170         return G10ERR_GENERAL;
171     }
172
173     if( (rc=check_digest_algo(sig->digest_algo)) )
174         return rc; /* unsupported algo */
175     asn = md_asn_oid( sig->digest_algo, &asnlen, &mdlen );
176
177     for(i=mdlen,j=asnlen-1; (c=mpi_getbyte(result, i)) != -1 && j >= 0;
178                                                            i++, j-- )
179         if( asn[j] != c )
180             break;
181     if( j != -1 || mpi_getbyte(result, i) )
182         return G10ERR_BAD_PUBKEY;  /* ASN is wrong */
183     for(i++; (c=mpi_getbyte(result, i)) != -1; i++ )
184         if( c != 0xff  )
185             break;
186     i++;
187     if( c != sig->digest_algo || mpi_getbyte(result, i) ) {
188         /* Padding or leading bytes in signature is wrong */
189         return G10ERR_BAD_PUBKEY;
190     }
191     if( mpi_getbyte(result, mdlen-1) != sig->digest_start[0]
192         || mpi_getbyte(result, mdlen-2) != sig->digest_start[1] ) {
193         /* Wrong key used to check the signature */
194         return G10ERR_BAD_PUBKEY;
195     }
196
197     dp = md_read( digest, sig->digest_algo );
198     for(i=mdlen-1; i >= 0; i--, dp++ ) {
199         if( mpi_getbyte( result, i ) != *dp )
200             return G10ERR_BAD_SIGN;
201     }
202     return 0;
203   #else
204     return -1;
205   #endif
206 }
207
208 static int
209 do_check_messages( PKT_public_key *pk, PKT_signature *sig, int *r_expired )
210 {
211     u32 cur_time;
212
213     *r_expired = 0;
214     if( pk->version == 4 && pk->pubkey_algo == PUBKEY_ALGO_ELGAMAL_E ) {
215         log_info(_("this is a PGP generated "
216                   "ElGamal key which is NOT secure for signatures!\n"));
217         return G10ERR_PUBKEY_ALGO;
218     }
219
220     if( pk->timestamp > sig->timestamp ) {
221         ulong d = pk->timestamp - sig->timestamp;
222         log_info( d==1
223                   ? _("public key is %lu second newer than the signature\n")
224                   : _("public key is %lu seconds newer than the signature\n"),
225                        d );
226         if( !opt.ignore_time_conflict )
227             return G10ERR_TIME_CONFLICT; /* pubkey newer than signature */
228     }
229
230     cur_time = make_timestamp();
231     if( pk->timestamp > cur_time ) {
232         ulong d = pk->timestamp - cur_time;
233         log_info( d==1 ? _("key has been created %lu second "
234                            "in future (time warp or clock problem)\n")
235                        : _("key has been created %lu seconds "
236                            "in future (time warp or clock problem)\n"), d );
237         if( !opt.ignore_time_conflict )
238             return G10ERR_TIME_CONFLICT;
239     }
240
241     if( pk->expiredate && pk->expiredate < cur_time ) {
242         char buf[11];
243         if (opt.verbose) {
244             u32 tmp_kid[2];
245
246             keyid_from_pk( pk, tmp_kid );
247             log_info(_("NOTE: signature key %08lX expired %s\n"),
248                      (ulong)tmp_kid[1], asctimestamp( pk->expiredate ) );
249         }
250         /* SIGEXPIRED is deprecated.  Use KEYEXPIRED. */
251         sprintf(buf,"%lu",(ulong)pk->expiredate);
252         write_status_text(STATUS_KEYEXPIRED,buf);
253         write_status(STATUS_SIGEXPIRED);
254         *r_expired = 1;
255     }
256
257     return 0;
258 }
259
260
261 static int
262 do_check( PKT_public_key *pk, PKT_signature *sig, MD_HANDLE digest,
263                                                     int *r_expired )
264 {
265     MPI result = NULL;
266     int rc=0;
267     struct cmp_help_context_s ctx;
268
269     if( (rc=do_check_messages(pk,sig,r_expired)) )
270         return rc;
271     if( (rc=check_digest_algo(sig->digest_algo)) )
272         return rc;
273     if( (rc=check_pubkey_algo(sig->pubkey_algo)) )
274         return rc;
275
276     /* make sure the digest algo is enabled (in case of a detached signature)*/
277     md_enable( digest, sig->digest_algo );
278
279     /* complete the digest */
280     if( sig->version >= 4 )
281         md_putc( digest, sig->version );
282     md_putc( digest, sig->sig_class );
283     if( sig->version < 4 ) {
284         u32 a = sig->timestamp;
285         md_putc( digest, (a >> 24) & 0xff );
286         md_putc( digest, (a >> 16) & 0xff );
287         md_putc( digest, (a >>  8) & 0xff );
288         md_putc( digest,  a        & 0xff );
289     }
290     else {
291         byte buf[6];
292         size_t n;
293         md_putc( digest, sig->pubkey_algo );
294         md_putc( digest, sig->digest_algo );
295         if( sig->hashed ) {
296             n = sig->hashed->len;
297             md_putc (digest, (n >> 8) );
298             md_putc (digest,  n       );
299             md_write (digest, sig->hashed->data, n);
300             n += 6;
301         }
302         else {
303           /* Two octets for the (empty) length of the hashed
304              section. */
305           md_putc (digest, 0);
306           md_putc (digest, 0);
307           n = 6;
308         }
309         /* add some magic */
310         buf[0] = sig->version;
311         buf[1] = 0xff;
312         buf[2] = n >> 24;
313         buf[3] = n >> 16;
314         buf[4] = n >>  8;
315         buf[5] = n;
316         md_write( digest, buf, 6 );
317     }
318     md_final( digest );
319
320     result = encode_md_value( pk->pubkey_algo, digest, sig->digest_algo,
321                               mpi_get_nbits(pk->pkey[0]), 0 );
322     if (!result)
323         return G10ERR_GENERAL;
324     ctx.sig = sig;
325     ctx.md = digest;
326     rc = pubkey_verify( pk->pubkey_algo, result, sig->data, pk->pkey,
327                         cmp_help, &ctx );
328     mpi_free( result );
329     if( (opt.emulate_bugs & EMUBUG_MDENCODE)
330         && rc == G10ERR_BAD_SIGN && is_ELGAMAL(pk->pubkey_algo) ) {
331         /* In this case we try again because old GnuPG versions didn't encode
332          * the hash right. There is no problem with DSA however  */
333         result = encode_md_value( pk->pubkey_algo, digest, sig->digest_algo,
334                               mpi_get_nbits(pk->pkey[0]), (sig->version < 5) );
335         if (!result)
336             rc = G10ERR_GENERAL;
337         else {
338             ctx.sig = sig;
339             ctx.md = digest;
340             rc = pubkey_verify( pk->pubkey_algo, result, sig->data, pk->pkey,
341                                 cmp_help, &ctx );
342         }
343     }
344
345     if( !rc && sig->flags.unknown_critical ) {
346         log_info(_("assuming bad signature due to an unknown critical bit\n"));
347         rc = G10ERR_BAD_SIGN;
348     }
349
350     return rc;
351 }
352
353
354 static void
355 hash_uid_node( KBNODE unode, MD_HANDLE md, PKT_signature *sig )
356 {
357     PKT_user_id *uid = unode->pkt->pkt.user_id;
358
359     assert( unode->pkt->pkttype == PKT_USER_ID );
360     if( uid->attrib_data ) {
361         if( sig->version >=4 ) {
362             byte buf[5];
363             buf[0] = 0xd1;                   /* packet of type 17 */
364             buf[1] = uid->attrib_len >> 24;  /* always use 4 length bytes */
365             buf[2] = uid->attrib_len >> 16;
366             buf[3] = uid->attrib_len >>  8;
367             buf[4] = uid->attrib_len;
368             md_write( md, buf, 5 );
369         }
370         md_write( md, uid->attrib_data, uid->attrib_len );
371     }
372     else {
373         if( sig->version >=4 ) {
374             byte buf[5];
375             buf[0] = 0xb4;            /* indicates a userid packet */
376             buf[1] = uid->len >> 24;  /* always use 4 length bytes */
377             buf[2] = uid->len >> 16;
378             buf[3] = uid->len >>  8;
379             buf[4] = uid->len;
380             md_write( md, buf, 5 );
381         }
382         md_write( md, uid->name, uid->len );
383     }
384 }
385
386 static void
387 cache_sig_result ( PKT_signature *sig, int result )
388 {
389     if ( !result ) {
390         sig->flags.checked = 1;
391         sig->flags.valid = 1;
392     }
393     else if ( result == G10ERR_BAD_SIGN ) {
394         sig->flags.checked = 1;
395         sig->flags.valid = 0;
396     }
397     else {
398         sig->flags.checked = 0;
399         sig->flags.valid = 0;
400     }
401 }
402
403 /****************
404  * check the signature pointed to by NODE. This is a key signature.
405  * If the function detects a self-signature, it uses the PK from
406  * ROOT and does not read any public key.
407  */
408 int
409 check_key_signature( KBNODE root, KBNODE node, int *is_selfsig )
410 {
411     u32 dummy;
412     int dum2;
413     return check_key_signature2(root, node, is_selfsig, &dummy, &dum2 );
414 }
415
416 int
417 check_key_signature2( KBNODE root, KBNODE node, int *is_selfsig,
418                                        u32 *r_expiredate, int *r_expired )
419 {
420     MD_HANDLE md;
421     PKT_public_key *pk;
422     PKT_signature *sig;
423     int algo;
424     int rc;
425
426     if( is_selfsig )
427         *is_selfsig = 0;
428     *r_expiredate = 0;
429     *r_expired = 0;
430     assert( node->pkt->pkttype == PKT_SIGNATURE );
431     assert( root->pkt->pkttype == PKT_PUBLIC_KEY );
432
433     pk = root->pkt->pkt.public_key;
434     sig = node->pkt->pkt.signature;
435     algo = sig->digest_algo;
436
437     /* check whether we have cached the result of a previous signature check.*/
438     if ( !opt.no_sig_cache ) {
439         if (sig->flags.checked) { /*cached status available*/
440             if( is_selfsig ) {  
441                 u32 keyid[2];   
442
443                 keyid_from_pk( pk, keyid );
444                 if( keyid[0] == sig->keyid[0] && keyid[1] == sig->keyid[1] )
445                     *is_selfsig = 1;
446             }
447             if((rc=do_check_messages(pk,sig,r_expired)))
448               return rc;
449             return sig->flags.valid? 0 : G10ERR_BAD_SIGN;
450         }
451     }
452
453     if( (rc=check_digest_algo(algo)) )
454         return rc;
455
456     if( sig->sig_class == 0x20 ) { /* key revocation */
457         md = md_open( algo, 0 );
458         hash_public_key( md, pk );
459         rc = do_check( pk, sig, md, r_expired );
460         cache_sig_result ( sig, rc );
461         md_close(md);
462     }
463     else if( sig->sig_class == 0x28 ) { /* subkey revocation */
464         KBNODE snode = find_prev_kbnode( root, node, PKT_PUBLIC_SUBKEY );
465
466         if( snode ) {
467             md = md_open( algo, 0 );
468             hash_public_key( md, pk );
469             hash_public_key( md, snode->pkt->pkt.public_key );
470             rc = do_check( pk, sig, md, r_expired );
471             cache_sig_result ( sig, rc );
472             md_close(md);
473         }
474         else {
475             if (!opt.quiet)
476                 log_info ("key %08lX: no subkey for subkey revocation packet\n",
477                           (ulong)keyid_from_pk (pk, NULL));
478             rc = G10ERR_SIG_CLASS;
479         }
480     }
481     else if( sig->sig_class == 0x18 ) { /* key binding */
482         KBNODE snode = find_prev_kbnode( root, node, PKT_PUBLIC_SUBKEY );
483
484         if( snode ) {
485             if( is_selfsig ) {  /* does this make sense????? */
486                 u32 keyid[2];   /* it should always be a selfsig */
487
488                 keyid_from_pk( pk, keyid );
489                 if( keyid[0] == sig->keyid[0] && keyid[1] == sig->keyid[1] )
490                     *is_selfsig = 1;
491             }
492             md = md_open( algo, 0 );
493             hash_public_key( md, pk );
494             hash_public_key( md, snode->pkt->pkt.public_key );
495             rc = do_check( pk, sig, md, r_expired );
496             cache_sig_result ( sig, rc );
497             md_close(md);
498         }
499         else {
500             if (!opt.quiet)
501                 log_info ("key %08lX: no subkey for subkey binding packet\n",
502                           (ulong)keyid_from_pk (pk, NULL));
503             rc = G10ERR_SIG_CLASS;
504         }
505     }
506     else if( sig->sig_class == 0x1f ) { /* direct key signature */
507         md = md_open( algo, 0 );
508         hash_public_key( md, pk );
509         rc = do_check( pk, sig, md, r_expired );
510         cache_sig_result ( sig, rc );
511         md_close(md);
512     }
513     else { /* all other classes */
514         KBNODE unode = find_prev_kbnode( root, node, PKT_USER_ID );
515
516         if( unode ) {
517             u32 keyid[2];
518
519             keyid_from_pk( pk, keyid );
520             md = md_open( algo, 0 );
521             hash_public_key( md, pk );
522             hash_uid_node( unode, md, sig );
523             if( keyid[0] == sig->keyid[0] && keyid[1] == sig->keyid[1] ) {
524                 if( is_selfsig )
525                     *is_selfsig = 1;
526                 rc = do_check( pk, sig, md, r_expired );
527             }
528             else {
529                 rc = signature_check2( sig, md, r_expiredate, r_expired );
530             }
531             cache_sig_result ( sig, rc );
532             md_close(md);
533         }
534         else {
535             if (!opt.quiet)
536                 log_info ("key %08lX: no user ID for key signature packet "
537                           "of class %02x\n",
538                           (ulong)keyid_from_pk (pk, NULL), sig->sig_class );
539             rc = G10ERR_SIG_CLASS;
540         }
541     }
542
543     return rc;
544 }