extensions are now working and fixed a lot of bugs
[gnupg.git] / g10 / sig-check.c
1 /* sig-check.c -  Check a signature
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 <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
35 struct cmp_help_context_s {
36     PKT_signature *sig;
37     MD_HANDLE md;
38 };
39
40
41 static int do_check( PKT_public_cert *pkc, PKT_signature *sig,
42                                                 MD_HANDLE digest );
43
44
45 /****************
46  * Check the signature which is contained in SIG.
47  * The md5handle 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     PKT_public_cert *pkc = m_alloc_clear( sizeof *pkc );
54     int rc=0;
55
56
57     if( is_RSA(sig->pubkey_algo) )
58         write_status(STATUS_RSA_OR_IDEA);
59
60     if( get_pubkey( pkc, sig->keyid ) )
61         rc = G10ERR_NO_PUBKEY;
62     else
63         rc = do_check( pkc, sig, digest );
64
65     free_public_cert( pkc );
66     return rc;
67 }
68
69
70 /****************
71  * This function gets called by pubkey_verify() if the algorithm needs it.
72  */
73 static int
74 cmp_help( void *opaque, MPI result )
75 {
76   #if 0 /* we do not use this anymore */
77     int rc=0, i, j, c, old_enc;
78     byte *dp;
79     const byte *asn;
80     size_t mdlen, asnlen;
81     struct cmp_help_context_s *ctx = opaque;
82     PKT_signature *sig = ctx->sig;
83     MD_HANDLE digest = ctx->md;
84
85     old_enc = 0;
86     for(i=j=0; (c=mpi_getbyte(result, i)) != -1; i++ ) {
87         if( !j ) {
88             if( !i && c != 1 )
89                 break;
90             else if( i && c == 0xff )
91                 ; /* skip the padding */
92             else if( i && !c )
93                 j++;
94             else
95                 break;
96         }
97         else if( ++j == 18 && c != 1 )
98             break;
99         else if( j == 19 && c == 0 ) {
100             old_enc++;
101             break;
102         }
103     }
104     if( old_enc ) {
105         log_error("old encoding scheme is not supported\n");
106         return G10ERR_GENERAL;
107     }
108
109     if( (rc=check_digest_algo(sig->digest_algo)) )
110         return rc; /* unsupported algo */
111     asn = md_asn_oid( sig->digest_algo, &asnlen, &mdlen );
112
113     for(i=mdlen,j=asnlen-1; (c=mpi_getbyte(result, i)) != -1 && j >= 0;
114                                                            i++, j-- )
115         if( asn[j] != c )
116             break;
117     if( j != -1 || mpi_getbyte(result, i) )
118         return G10ERR_BAD_PUBKEY;  /* ASN is wrong */
119     for(i++; (c=mpi_getbyte(result, i)) != -1; i++ )
120         if( c != 0xff  )
121             break;
122     i++;
123     if( c != sig->digest_algo || mpi_getbyte(result, i) ) {
124         /* Padding or leading bytes in signature is wrong */
125         return G10ERR_BAD_PUBKEY;
126     }
127     if( mpi_getbyte(result, mdlen-1) != sig->digest_start[0]
128         || mpi_getbyte(result, mdlen-2) != sig->digest_start[1] ) {
129         /* Wrong key used to check the signature */
130         return G10ERR_BAD_PUBKEY;
131     }
132
133     dp = md_read( digest, sig->digest_algo );
134     for(i=mdlen-1; i >= 0; i--, dp++ ) {
135         if( mpi_getbyte( result, i ) != *dp )
136             return G10ERR_BAD_SIGN;
137     }
138     return 0;
139   #else
140     return -1;
141   #endif
142 }
143
144
145 static int
146 do_check( PKT_public_cert *pkc, PKT_signature *sig, MD_HANDLE digest )
147 {
148     MPI result = NULL;
149     int rc=0;
150     struct cmp_help_context_s ctx;
151
152     if( pkc->version == 4 && pkc->pubkey_algo == PUBKEY_ALGO_ELGAMAL_E ) {
153         log_info("this is a PGP generated "
154                  "ElGamal key which is NOT secure for signatures!\n");
155         return G10ERR_PUBKEY_ALGO;
156     }
157
158     if( pkc->timestamp > sig->timestamp )
159         return G10ERR_TIME_CONFLICT; /* pubkey newer that signature */
160
161     if( (rc=check_digest_algo(sig->digest_algo)) )
162         return rc;
163     if( (rc=check_pubkey_algo(sig->pubkey_algo)) )
164         return rc;
165
166     /* make sure the digest algo is enabled (in case of a detached signature)*/
167     md_enable( digest, sig->digest_algo );
168
169     /* complete the digest */
170     if( sig->version >= 4 )
171         md_putc( digest, sig->version );
172     md_putc( digest, sig->sig_class );
173     if( sig->version < 4 ) {
174         u32 a = sig->timestamp;
175         md_putc( digest, (a >> 24) & 0xff );
176         md_putc( digest, (a >> 16) & 0xff );
177         md_putc( digest, (a >>  8) & 0xff );
178         md_putc( digest,  a        & 0xff );
179     }
180     else {
181         byte buf[6];
182         size_t n;
183         md_putc( digest, sig->pubkey_algo );
184         md_putc( digest, sig->digest_algo );
185         if( sig->hashed_data ) {
186             n = (sig->hashed_data[0] << 8) | sig->hashed_data[1];
187             md_write( digest, sig->hashed_data, n+2 );
188             n += 6;
189         }
190         else
191             n = 6;
192         /* add some magic */
193         buf[0] = sig->version;
194         buf[1] = 0xff;
195         buf[2] = n >> 24;
196         buf[3] = n >> 16;
197         buf[4] = n >>  8;
198         buf[5] = n;
199         md_write( digest, buf, 6 );
200     }
201     md_final( digest );
202
203     result = encode_md_value( pkc->pubkey_algo, digest, sig->digest_algo,
204                                       mpi_get_nbits(pkc->pkey[0]));
205     ctx.sig = sig;
206     ctx.md = digest;
207     rc = pubkey_verify( pkc->pubkey_algo, result, sig->data, pkc->pkey,
208                         cmp_help, &ctx );
209     mpi_free( result );
210
211     return rc;
212 }
213
214
215 static void
216 hash_uid_node( KBNODE unode, MD_HANDLE md, PKT_signature *sig )
217 {
218     PKT_user_id *uid = unode->pkt->pkt.user_id;
219
220     assert( unode->pkt->pkttype == PKT_USER_ID );
221     if( sig->version >=4 ) {
222         byte buf[5];
223         buf[0] = 0xb4; /* indicates a userid packet */
224         buf[1] = uid->len >> 24;  /* always use 4 length bytes */
225         buf[2] = uid->len >> 16;
226         buf[3] = uid->len >>  8;
227         buf[4] = uid->len;
228         md_write( md, buf, 5 );
229     }
230     md_write( md, uid->name, uid->len );
231 }
232
233 /****************
234  * check the signature pointed to by NODE. This is a key signature.
235  * If the function detects a self-signature, it uses the PKC from
236  * NODE and does not read any public key.
237  */
238 int
239 check_key_signature( KBNODE root, KBNODE node, int *is_selfsig )
240 {
241     MD_HANDLE md;
242     PKT_public_cert *pkc;
243     PKT_signature *sig;
244     int algo;
245     int rc;
246
247     if( is_selfsig )
248         *is_selfsig = 0;
249     assert( node->pkt->pkttype == PKT_SIGNATURE );
250     assert( root->pkt->pkttype == PKT_PUBLIC_CERT );
251
252     pkc = root->pkt->pkt.public_cert;
253     sig = node->pkt->pkt.signature;
254     algo = sig->digest_algo;
255     if( (rc=check_digest_algo(algo)) )
256         return rc;
257
258     if( sig->sig_class == 0x20 ) {
259         md = md_open( algo, 0 );
260         hash_public_cert( md, pkc );
261         rc = do_check( pkc, sig, md );
262         md_close(md);
263     }
264     else if( sig->sig_class == 0x18 ) {
265         KBNODE snode = find_prev_kbnode( root, node, PKT_PUBKEY_SUBCERT );
266
267         if( snode ) {
268             if( is_selfsig ) {
269                 u32 keyid[2];
270
271                 keyid_from_pkc( pkc, keyid );
272                 if( keyid[0] == sig->keyid[0] && keyid[1] == sig->keyid[1] )
273                     *is_selfsig = 1;
274             }
275             md = md_open( algo, 0 );
276             hash_public_cert( md, pkc );
277             hash_public_cert( md, snode->pkt->pkt.public_cert );
278             rc = do_check( pkc, sig, md );
279             md_close(md);
280         }
281         else {
282             log_error("no subkey for key signature packet\n");
283             rc = G10ERR_SIG_CLASS;
284         }
285     }
286     else {
287         KBNODE unode = find_prev_kbnode( root, node, PKT_USER_ID );
288
289         if( unode ) {
290             u32 keyid[2];
291
292             keyid_from_pkc( pkc, keyid );
293             md = md_open( algo, 0 );
294             /*md_start_debug(md, "check");*/
295             hash_public_cert( md, pkc );
296             hash_uid_node( unode, md, sig );
297             if( keyid[0] == sig->keyid[0] && keyid[1] == sig->keyid[1] ) {
298                 if( is_selfsig )
299                     *is_selfsig = 1;
300                 rc = do_check( pkc, sig, md );
301             }
302             else
303                 rc = signature_check( sig, md );
304             md_close(md);
305         }
306         else {
307             log_error("no user id for key signature packet\n");
308             rc = G10ERR_SIG_CLASS;
309         }
310     }
311
312     return rc;
313 }
314
315