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