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