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