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