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