* options.h, main.h, export.c (parse_export_options, do_export_stream),
[gnupg.git] / g10 / free-packet.c
1 /* free-packet.c - cleanup stuff for packets
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
27 #include "packet.h"
28 #include "iobuf.h"
29 #include "mpi.h"
30 #include "util.h"
31 #include "cipher.h"
32 #include "memory.h"
33 #include "options.h"
34
35 void
36 free_symkey_enc( PKT_symkey_enc *enc )
37 {
38     m_free(enc);
39 }
40
41 void
42 free_pubkey_enc( PKT_pubkey_enc *enc )
43 {
44     int n, i;
45     n = pubkey_get_nenc( enc->pubkey_algo );
46     if( !n )
47         mpi_free(enc->data[0]);
48     for(i=0; i < n; i++ )
49         mpi_free( enc->data[i] );
50     m_free(enc);
51 }
52
53 void
54 free_seckey_enc( PKT_signature *sig )
55 {
56   int n, i;
57
58   n = pubkey_get_nsig( sig->pubkey_algo );
59   if( !n )
60     mpi_free(sig->data[0]);
61   for(i=0; i < n; i++ )
62     mpi_free( sig->data[i] );
63   
64   m_free(sig->revkey);
65   m_free(sig->hashed);
66   m_free(sig->unhashed);
67   m_free(sig);
68 }
69
70
71
72 void
73 release_public_key_parts( PKT_public_key *pk )
74 {
75     int n, i;
76     n = pubkey_get_npkey( pk->pubkey_algo );
77     if( !n )
78         mpi_free(pk->pkey[0]);
79     for(i=0; i < n; i++ ) {
80         mpi_free( pk->pkey[i] );
81         pk->pkey[i] = NULL;
82     }
83     if (pk->prefs) {
84         m_free (pk->prefs);
85         pk->prefs = NULL;
86     }
87     if( pk->namehash ) {
88         m_free(pk->namehash);
89         pk->namehash = NULL;
90     }
91     if (pk->user_id) {
92         free_user_id (pk->user_id);
93         pk->user_id = NULL;
94     }
95     if (pk->revkey) {
96         m_free(pk->revkey);
97         pk->revkey=NULL;
98         pk->numrevkeys=0;
99     }
100 }
101
102
103 void
104 free_public_key( PKT_public_key *pk )
105 {
106     release_public_key_parts( pk );
107     m_free(pk);
108 }
109
110
111 static subpktarea_t *
112 cp_subpktarea (subpktarea_t *s )
113 {
114     subpktarea_t *d;
115
116     if( !s )
117         return NULL;
118     d = m_alloc (sizeof (*d) + s->size - 1 );
119     d->size = s->size;
120     d->len = s->len;
121     memcpy (d->data, s->data, s->len);
122     return d;
123 }
124
125 /*
126  * Return a copy of the preferences 
127  */
128 prefitem_t *
129 copy_prefs (const prefitem_t *prefs)
130 {
131     size_t n;
132     prefitem_t *new;
133
134     if (!prefs)
135         return NULL;
136     
137     for (n=0; prefs[n].type; n++)
138         ;
139     new = m_alloc ( sizeof (*new) * (n+1));
140     for (n=0; prefs[n].type; n++) {
141         new[n].type = prefs[n].type;
142         new[n].value = prefs[n].value;
143     }
144     new[n].type = PREFTYPE_NONE;
145     new[n].value = 0;
146
147     return new;
148 }
149
150
151 PKT_public_key *
152 copy_public_key ( PKT_public_key *d, PKT_public_key *s)
153 {
154     int n, i;
155
156     if( !d )
157         d = m_alloc(sizeof *d);
158     memcpy( d, s, sizeof *d );
159     d->user_id = scopy_user_id (s->user_id);
160     d->prefs = copy_prefs (s->prefs);
161     n = pubkey_get_npkey( s->pubkey_algo );
162     if( !n )
163         d->pkey[0] = mpi_copy(s->pkey[0]);
164     else {
165         for(i=0; i < n; i++ )
166             d->pkey[i] = mpi_copy( s->pkey[i] );
167     }
168     if( !s->revkey && s->numrevkeys )
169         BUG();
170     if( s->numrevkeys ) {
171         d->revkey = m_alloc(sizeof(struct revocation_key)*s->numrevkeys);
172         memcpy(d->revkey,s->revkey,sizeof(struct revocation_key)*s->numrevkeys);
173     }
174     else
175         d->revkey = NULL;
176     return d;
177 }
178
179 /****************
180  * Replace all common parts of a sk by the one from the public key.
181  * This is a hack and a better solution will be to just store the real secret
182  * parts somewhere and don't duplicate all the other stuff.
183  */
184 void
185 copy_public_parts_to_secret_key( PKT_public_key *pk, PKT_secret_key *sk )
186 {
187     sk->expiredate  = pk->expiredate;     
188     sk->pubkey_algo = pk->pubkey_algo;    
189     sk->pubkey_usage= pk->pubkey_usage;
190     sk->req_usage   = pk->req_usage;
191     sk->req_algo    = pk->req_algo;
192     sk->has_expired = pk->has_expired;    
193     sk->is_revoked  = pk->is_revoked;     
194     sk->is_valid    = pk->is_valid;    
195     sk->main_keyid[0]= pk->main_keyid[0];
196     sk->main_keyid[1]= pk->main_keyid[1];
197     sk->keyid[0]    = pk->keyid[0];
198     sk->keyid[1]    = pk->keyid[1];
199 }
200
201 PKT_signature *
202 copy_signature( PKT_signature *d, PKT_signature *s )
203 {
204     int n, i;
205
206     if( !d )
207         d = m_alloc(sizeof *d);
208     memcpy( d, s, sizeof *d );
209     n = pubkey_get_nsig( s->pubkey_algo );
210     if( !n )
211         d->data[0] = mpi_copy(s->data[0]);
212     else {
213         for(i=0; i < n; i++ )
214             d->data[i] = mpi_copy( s->data[i] );
215     }
216     d->hashed = cp_subpktarea (s->hashed);
217     d->unhashed = cp_subpktarea (s->unhashed);
218     if(s->numrevkeys)
219       {
220         d->revkey=NULL;
221         d->numrevkeys=0;
222         parse_revkeys(d);
223       }
224     return d;
225 }
226
227
228 /*
229  * shallow copy of the user ID
230  */
231 PKT_user_id *
232 scopy_user_id (PKT_user_id *s)
233 {
234     if (s)
235         s->ref++;
236     return s;
237 }
238
239
240
241 void
242 release_secret_key_parts( PKT_secret_key *sk )
243 {
244     int n, i;
245
246     n = pubkey_get_nskey( sk->pubkey_algo );
247     if( !n )
248         mpi_free(sk->skey[0]);
249     for(i=0; i < n; i++ ) {
250         mpi_free( sk->skey[i] );
251         sk->skey[i] = NULL;
252     }
253 }
254
255 void
256 free_secret_key( PKT_secret_key *sk )
257 {
258     release_secret_key_parts( sk );
259     m_free(sk);
260 }
261
262 PKT_secret_key *
263 copy_secret_key( PKT_secret_key *d, PKT_secret_key *s )
264 {
265     int n, i;
266
267     if( !d )
268         d = m_alloc(sizeof *d);
269     memcpy( d, s, sizeof *d );
270     n = pubkey_get_nskey( s->pubkey_algo );
271     if( !n )
272         d->skey[0] = mpi_copy(s->skey[0]);
273     else {
274         for(i=0; i < n; i++ )
275             d->skey[i] = mpi_copy( s->skey[i] );
276     }
277     return d;
278 }
279
280 void
281 free_comment( PKT_comment *rem )
282 {
283     m_free(rem);
284 }
285
286 void
287 free_attributes(PKT_user_id *uid)
288 {
289   m_free(uid->attribs);
290   m_free(uid->attrib_data);
291
292   uid->attribs=NULL;
293   uid->attrib_data=NULL;
294   uid->attrib_len=0;
295 }
296
297 void
298 free_user_id (PKT_user_id *uid)
299 {
300     assert (uid->ref > 0);
301     if (--uid->ref)
302         return;
303
304     free_attributes(uid);
305
306     if (uid->prefs)
307         m_free (uid->prefs);
308     m_free (uid);
309 }
310
311 void
312 free_compressed( PKT_compressed *zd )
313 {
314     if( zd->buf ) { /* have to skip some bytes */
315         /* don't have any information about the length, so
316          * we assume this is the last packet */
317         while( iobuf_read( zd->buf, NULL, 1<<30 ) != -1 )
318             ;
319     }
320     m_free(zd);
321 }
322
323 void
324 free_encrypted( PKT_encrypted *ed )
325 {
326     if( ed->buf ) { /* have to skip some bytes */
327         if( iobuf_in_block_mode(ed->buf) ) {
328             while( iobuf_read( ed->buf, NULL, 1<<30 ) != -1 )
329                 ;
330         }
331         else {
332            while( ed->len ) { /* skip the packet */
333                int n = iobuf_read( ed->buf, NULL, ed->len );
334                if( n == -1 )
335                    ed->len = 0;
336                else
337                    ed->len -= n;
338            }
339         }
340     }
341     m_free(ed);
342 }
343
344
345 void
346 free_plaintext( PKT_plaintext *pt )
347 {
348     if( pt->buf ) { /* have to skip some bytes */
349         if( iobuf_in_block_mode(pt->buf) ) {
350             while( iobuf_read( pt->buf, NULL, 1<<30 ) != -1 )
351                 ;
352         }
353         else {
354            while( pt->len ) { /* skip the packet */
355                int n = iobuf_read( pt->buf, NULL, pt->len );
356                if( n == -1 )
357                    pt->len = 0;
358                else
359                    pt->len -= n;
360            }
361         }
362     }
363     m_free(pt);
364 }
365
366 /****************
367  * Free the packet in pkt.
368  */
369 void
370 free_packet( PACKET *pkt )
371 {
372     if( !pkt || !pkt->pkt.generic )
373         return;
374
375     if( DBG_MEMORY )
376         log_debug("free_packet() type=%d\n", pkt->pkttype );
377
378     switch( pkt->pkttype ) {
379       case PKT_SIGNATURE:
380         free_seckey_enc( pkt->pkt.signature );
381         break;
382       case PKT_PUBKEY_ENC:
383         free_pubkey_enc( pkt->pkt.pubkey_enc );
384         break;
385       case PKT_SYMKEY_ENC:
386         free_symkey_enc( pkt->pkt.symkey_enc );
387         break;
388       case PKT_PUBLIC_KEY:
389       case PKT_PUBLIC_SUBKEY:
390         free_public_key( pkt->pkt.public_key );
391         break;
392       case PKT_SECRET_KEY:
393       case PKT_SECRET_SUBKEY:
394         free_secret_key( pkt->pkt.secret_key );
395         break;
396       case PKT_COMMENT:
397         free_comment( pkt->pkt.comment );
398         break;
399       case PKT_USER_ID:
400         free_user_id( pkt->pkt.user_id );
401         break;
402       case PKT_COMPRESSED:
403         free_compressed( pkt->pkt.compressed);
404         break;
405       case PKT_ENCRYPTED:
406       case PKT_ENCRYPTED_MDC:
407         free_encrypted( pkt->pkt.encrypted );
408         break;
409       case PKT_PLAINTEXT:
410         free_plaintext( pkt->pkt.plaintext );
411         break;
412       default:
413         m_free( pkt->pkt.generic );
414         break;
415     }
416     pkt->pkt.generic = NULL;
417 }
418
419 /****************
420  * returns 0 if they match.
421  */
422 int
423 cmp_public_keys( PKT_public_key *a, PKT_public_key *b )
424 {
425     int n, i;
426
427     if( a->timestamp != b->timestamp )
428         return -1;
429     if( a->version < 4 && a->expiredate != b->expiredate )
430         return -1;
431     if( a->pubkey_algo != b->pubkey_algo )
432         return -1;
433
434     n = pubkey_get_npkey( b->pubkey_algo );
435     if( !n )
436         return -1; /* can't compare due to unknown algorithm */
437     for(i=0; i < n; i++ ) {
438         if( mpi_cmp( a->pkey[i], b->pkey[i] ) )
439             return -1;
440     }
441
442     return 0;
443 }
444
445 /****************
446  * Returns 0 if they match.
447  * We only compare the public parts.
448  */
449 int
450 cmp_secret_keys( PKT_secret_key *a, PKT_secret_key *b )
451 {
452     int n, i;
453
454     if( a->timestamp != b->timestamp )
455         return -1;
456     if( a->version < 4 && a->expiredate != b->expiredate )
457         return -1;
458     if( a->pubkey_algo != b->pubkey_algo )
459         return -1;
460
461     n = pubkey_get_npkey( b->pubkey_algo );
462     if( !n )
463         return -1; /* can't compare due to unknown algorithm */
464     for(i=0; i < n; i++ ) {
465         if( mpi_cmp( a->skey[i], b->skey[i] ) )
466             return -1;
467     }
468
469     return 0;
470 }
471
472 /****************
473  * Returns 0 if they match.
474  */
475 int
476 cmp_public_secret_key( PKT_public_key *pk, PKT_secret_key *sk )
477 {
478     int n, i;
479
480     if( pk->timestamp != sk->timestamp )
481         return -1;
482     if( pk->version < 4 && pk->expiredate != sk->expiredate )
483         return -1;
484     if( pk->pubkey_algo != sk->pubkey_algo )
485         return -1;
486
487     n = pubkey_get_npkey( pk->pubkey_algo );
488     if( !n )
489         return -1; /* can't compare due to unknown algorithm */
490     for(i=0; i < n; i++ ) {
491         if( mpi_cmp( pk->pkey[i] , sk->skey[i] ) )
492             return -1;
493     }
494     return 0;
495 }
496
497
498
499 int
500 cmp_signatures( PKT_signature *a, PKT_signature *b )
501 {
502     int n, i;
503
504     if( a->keyid[0] != b->keyid[0] )
505         return -1;
506     if( a->keyid[1] != b->keyid[1] )
507         return -1;
508     if( a->pubkey_algo != b->pubkey_algo )
509         return -1;
510
511     n = pubkey_get_nsig( a->pubkey_algo );
512     if( !n )
513         return -1; /* can't compare due to unknown algorithm */
514     for(i=0; i < n; i++ ) {
515         if( mpi_cmp( a->data[i] , b->data[i] ) )
516             return -1;
517     }
518     return 0;
519 }
520
521
522 /****************
523  * Returns: true if the user ids do not match
524  */
525 int
526 cmp_user_ids( PKT_user_id *a, PKT_user_id *b )
527 {
528     int res=1;
529
530     if( a == b )
531         return 0;
532
533     if( a->attrib_data && b->attrib_data )
534       {
535         res = a->attrib_len - b->attrib_len;
536         if( !res )
537           res = memcmp( a->attrib_data, b->attrib_data, a->attrib_len );
538       }
539     else if( !a->attrib_data && !b->attrib_data )
540       {
541         res = a->len - b->len;
542         if( !res )
543           res = memcmp( a->name, b->name, a->len );
544       }
545
546     return res;
547 }