See ChangeLog: Mon Jan 31 16:37:34 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 <gcrypt.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 PKT_signature *
143 copy_signature( PKT_signature *d, PKT_signature *s )
144 {
145     int n, i;
146
147     if( !d )
148         d = gcry_xmalloc(sizeof *d);
149     memcpy( d, s, sizeof *d );
150     n = pubkey_get_nsig( s->pubkey_algo );
151     if( !n )
152         d->data[0] = mpi_copy(s->data[0]);
153     else {
154         for(i=0; i < n; i++ )
155             d->data[i] = mpi_copy( s->data[i] );
156     }
157     d->hashed_data = cp_data_block(s->hashed_data);
158     d->unhashed_data = cp_data_block(s->unhashed_data);
159     return d;
160 }
161
162
163 PKT_user_id *
164 copy_user_id( PKT_user_id *d, PKT_user_id *s )
165 {
166     if( !d )
167         d = gcry_xmalloc(sizeof *d + s->len - 1 );
168     memcpy( d, s, sizeof *d + s->len - 1 );
169     return d;
170 }
171
172
173
174 void
175 release_secret_key_parts( PKT_secret_key *sk )
176 {
177     int n, i;
178
179     n = pubkey_get_nskey( sk->pubkey_algo );
180     if( !n )
181         mpi_release(sk->skey[0]);
182     for(i=0; i < n; i++ ) {
183         mpi_release( sk->skey[i] );
184         sk->skey[i] = NULL;
185     }
186 }
187
188 void
189 free_secret_key( PKT_secret_key *sk )
190 {
191     release_secret_key_parts( sk );
192     gcry_free(sk);
193 }
194
195 PKT_secret_key *
196 copy_secret_key( PKT_secret_key *d, PKT_secret_key *s )
197 {
198     int n, i;
199
200     if( !d )
201         d = gcry_xmalloc(sizeof *d);
202     memcpy( d, s, sizeof *d );
203     n = pubkey_get_nskey( s->pubkey_algo );
204     if( !n )
205         d->skey[0] = mpi_copy(s->skey[0]);
206     else {
207         for(i=0; i < n; i++ )
208             d->skey[i] = mpi_copy( s->skey[i] );
209     }
210     return d;
211 }
212
213 void
214 free_comment( PKT_comment *rem )
215 {
216     gcry_free(rem);
217 }
218
219 void
220 free_user_id( PKT_user_id *uid )
221 {
222     gcry_free(uid);
223 }
224
225 void
226 free_compressed( PKT_compressed *zd )
227 {
228     if( zd->buf ) { /* have to skip some bytes */
229         /* don't have any information about the length, so
230          * we assume this is the last packet */
231         while( iobuf_read( zd->buf, NULL, 1<<30 ) != -1 )
232             ;
233     }
234     gcry_free(zd);
235 }
236
237 void
238 free_encrypted( PKT_encrypted *ed )
239 {
240     if( ed->buf ) { /* have to skip some bytes */
241         if( iobuf_in_block_mode(ed->buf) ) {
242             while( iobuf_read( ed->buf, NULL, 1<<30 ) != -1 )
243                 ;
244         }
245         else {
246            while( ed->len ) { /* skip the packet */
247                int n = iobuf_read( ed->buf, NULL, ed->len );
248                if( n == -1 )
249                    ed->len = 0;
250                else
251                    ed->len -= n;
252            }
253         }
254     }
255     gcry_free(ed);
256 }
257
258
259 void
260 free_plaintext( PKT_plaintext *pt )
261 {
262     if( pt->buf ) { /* have to skip some bytes */
263         if( iobuf_in_block_mode(pt->buf) ) {
264             while( iobuf_read( pt->buf, NULL, 1<<30 ) != -1 )
265                 ;
266         }
267         else {
268            while( pt->len ) { /* skip the packet */
269                int n = iobuf_read( pt->buf, NULL, pt->len );
270                if( n == -1 )
271                    pt->len = 0;
272                else
273                    pt->len -= n;
274            }
275         }
276     }
277     gcry_free(pt);
278 }
279
280 /****************
281  * Free the packet in pkt.
282  */
283 void
284 free_packet( PACKET *pkt )
285 {
286     if( !pkt || !pkt->pkt.generic )
287         return;
288
289     if( DBG_MEMORY )
290         log_debug("free_packet() type=%d\n", pkt->pkttype );
291
292     switch( pkt->pkttype ) {
293       case PKT_SIGNATURE:
294         free_seckey_enc( pkt->pkt.signature );
295         break;
296       case PKT_PUBKEY_ENC:
297         free_pubkey_enc( pkt->pkt.pubkey_enc );
298         break;
299       case PKT_SYMKEY_ENC:
300         free_symkey_enc( pkt->pkt.symkey_enc );
301         break;
302       case PKT_PUBLIC_KEY:
303       case PKT_PUBLIC_SUBKEY:
304         free_public_key( pkt->pkt.public_key );
305         break;
306       case PKT_SECRET_KEY:
307       case PKT_SECRET_SUBKEY:
308         free_secret_key( pkt->pkt.secret_key );
309         break;
310       case PKT_COMMENT:
311         free_comment( pkt->pkt.comment );
312         break;
313       case PKT_USER_ID:
314         free_user_id( pkt->pkt.user_id );
315         break;
316       case PKT_COMPRESSED:
317         free_compressed( pkt->pkt.compressed);
318         break;
319       case PKT_ENCRYPTED:
320         free_encrypted( pkt->pkt.encrypted );
321         break;
322       case PKT_PLAINTEXT:
323         free_plaintext( pkt->pkt.plaintext );
324         break;
325       default:
326         gcry_free( pkt->pkt.generic );
327         break;
328     }
329     pkt->pkt.generic = NULL;
330 }
331
332 /****************
333  * returns 0 if they match.
334  */
335 int
336 cmp_public_keys( PKT_public_key *a, PKT_public_key *b )
337 {
338     int n, i;
339
340     if( a->timestamp != b->timestamp )
341         return -1;
342     if( a->version < 4 && a->expiredate != b->expiredate )
343         return -1;
344     if( a->pubkey_algo != b->pubkey_algo )
345         return -1;
346
347     n = pubkey_get_npkey( b->pubkey_algo );
348     if( !n )
349         return -1; /* can't compare due to unknown algorithm */
350     for(i=0; i < n; i++ ) {
351         if( mpi_cmp( a->pkey[i], b->pkey[i] ) )
352             return -1;
353     }
354
355     return 0;
356 }
357
358 /****************
359  * Returns 0 if they match.
360  * We only compare the public parts.
361  */
362 int
363 cmp_secret_keys( PKT_secret_key *a, PKT_secret_key *b )
364 {
365     int n, i;
366
367     if( a->timestamp != b->timestamp )
368         return -1;
369     if( a->version < 4 && a->expiredate != b->expiredate )
370         return -1;
371     if( a->pubkey_algo != b->pubkey_algo )
372         return -1;
373
374     n = pubkey_get_npkey( b->pubkey_algo );
375     if( !n )
376         return -1; /* can't compare due to unknown algorithm */
377     for(i=0; i < n; i++ ) {
378         if( mpi_cmp( a->skey[i], b->skey[i] ) )
379             return -1;
380     }
381
382     return 0;
383 }
384
385 /****************
386  * Returns 0 if they match.
387  */
388 int
389 cmp_public_secret_key( PKT_public_key *pk, PKT_secret_key *sk )
390 {
391     int n, i;
392
393     if( pk->timestamp != sk->timestamp )
394         return -1;
395     if( pk->version < 4 && pk->expiredate != sk->expiredate )
396         return -1;
397     if( pk->pubkey_algo != sk->pubkey_algo )
398         return -1;
399
400     n = pubkey_get_npkey( pk->pubkey_algo );
401     if( !n )
402         return -1; /* can't compare due to unknown algorithm */
403     for(i=0; i < n; i++ ) {
404         if( mpi_cmp( pk->pkey[i] , sk->skey[i] ) )
405             return -1;
406     }
407     return 0;
408 }
409
410
411
412 int
413 cmp_signatures( PKT_signature *a, PKT_signature *b )
414 {
415     int n, i;
416
417     if( a->keyid[0] != b->keyid[0] )
418         return -1;
419     if( a->keyid[1] != b->keyid[1] )
420         return -1;
421     if( a->pubkey_algo != b->pubkey_algo )
422         return -1;
423
424     n = pubkey_get_nsig( a->pubkey_algo );
425     if( !n )
426         return -1; /* can't compare due to unknown algorithm */
427     for(i=0; i < n; i++ ) {
428         if( mpi_cmp( a->data[i] , b->data[i] ) )
429             return -1;
430     }
431     return 0;
432 }
433
434
435
436 /****************
437  * Returns: true if the user ids do not match
438  */
439 int
440 cmp_user_ids( PKT_user_id *a, PKT_user_id *b )
441 {
442     int res;
443
444     res = a->len - b->len;
445     if( !res )
446         res = memcmp( a->name, b->name, a->len );
447     return res;
448 }
449
450