g10: Unattended key generation "Key-Grip" and "Subkey-Grip".
[gnupg.git] / tools / gpgsplit.c
1 /* gpgsplit.c - An OpenPGP packet splitting tool
2  * Copyright (C) 2001, 2002, 2003 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 3 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, see <https://www.gnu.org/licenses/>.
18  */
19
20 #include <config.h>
21 #include <errno.h>
22 #include <stdio.h>
23 #include <stdlib.h>
24 #include <string.h>
25 #include <ctype.h>
26 #include <unistd.h>
27 #include <assert.h>
28 #include <sys/types.h>
29 #ifdef HAVE_DOSISH_SYSTEM
30 # include <fcntl.h> /* for setmode() */
31 #endif
32 #ifdef HAVE_ZIP
33 # include <zlib.h>
34 #endif
35 #if defined(__riscos__) && defined(USE_ZLIBRISCOS)
36 # include "zlib-riscos.h"
37 #endif
38
39 #define INCLUDED_BY_MAIN_MODULE 1
40 #include "../common/util.h"
41 #include "../common/openpgpdefs.h"
42
43 #ifdef HAVE_BZIP2
44 # include <bzlib.h>
45 #endif /* HAVE_BZIP2 */
46
47 static int opt_verbose;
48 static const char *opt_prefix = "";
49 static int opt_uncompress;
50 static int opt_secret_to_public;
51 static int opt_no_split;
52
53 static void g10_exit( int rc );
54 static void split_packets (const char *fname);
55
56
57 enum cmd_and_opt_values {
58   aNull = 0,
59   oVerbose        = 'v',
60   oPrefix       = 'p',
61   oUncompress   = 500,
62   oSecretToPublic,
63   oNoSplit,
64
65   aTest
66 };
67
68
69 static ARGPARSE_OPTS opts[] = {
70
71     { 301, NULL, 0, "@Options:\n " },
72
73     { oVerbose, "verbose",   0, "verbose" },
74     { oPrefix,  "prefix",    2, "|STRING|Prepend filenames with STRING" },
75     { oUncompress, "uncompress", 0, "uncompress a packet"},
76     { oSecretToPublic, "secret-to-public", 0, "convert secret keys to public keys"},
77     { oNoSplit, "no-split", 0, "write to stdout and don't actually split"},
78
79     ARGPARSE_end ()
80 };
81
82
83 static const char *
84 my_strusage (int level)
85 {
86   const char *p;
87   switch (level)
88     {
89     case 11: p = "gpgsplit (@GNUPG@)";
90       break;
91     case 13: p = VERSION; break;
92     case 17: p = PRINTABLE_OS_NAME; break;
93     case 19: p = "Please report bugs to <@EMAIL@>.\n"; break;
94
95     case 1:
96     case 40:    p =
97                   "Usage: gpgsplit [options] [files] (-h for help)";
98     break;
99     case 41:    p =
100                   "Syntax: gpgsplit [options] [files]\n"
101                   "Split an OpenPGP message into packets\n";
102     break;
103
104     default:    p = NULL;
105     }
106   return p;
107 }
108
109
110
111 int
112 main (int argc, char **argv)
113 {
114   ARGPARSE_ARGS pargs;
115
116 #ifdef HAVE_DOSISH_SYSTEM
117   setmode( fileno(stdin), O_BINARY );
118   setmode( fileno(stdout), O_BINARY );
119 #endif
120   log_set_prefix ("gpgsplit", GPGRT_LOG_WITH_PREFIX);
121   set_strusage (my_strusage);
122
123   pargs.argc = &argc;
124   pargs.argv = &argv;
125   pargs.flags=  1;  /* do not remove the args */
126   while (optfile_parse( NULL, NULL, NULL, &pargs, opts))
127     {
128       switch (pargs.r_opt)
129         {
130         case oVerbose: opt_verbose = 1; break;
131         case oPrefix: opt_prefix = pargs.r.ret_str; break;
132         case oUncompress: opt_uncompress = 1; break;
133         case oSecretToPublic: opt_secret_to_public = 1; break;
134         case oNoSplit: opt_no_split = 1; break;
135         default : pargs.err = 2; break;
136         }
137     }
138
139   if (log_get_errorcount(0))
140     g10_exit (2);
141
142   if (!argc)
143     split_packets (NULL);
144   else
145     {
146       for ( ;argc; argc--, argv++)
147         split_packets (*argv);
148     }
149
150   g10_exit (0);
151   return 0;
152 }
153
154
155 static void
156 g10_exit (int rc)
157 {
158   rc = rc? rc : log_get_errorcount(0)? 2 : 0;
159   exit(rc );
160 }
161
162 static const char *
163 pkttype_to_string (int pkttype)
164 {
165   const char *s;
166
167   switch (pkttype)
168     {
169     case PKT_PUBKEY_ENC    : s = "pk_enc"; break;
170     case PKT_SIGNATURE     : s = "sig"; break;
171     case PKT_SYMKEY_ENC    : s = "sym_enc"; break;
172     case PKT_ONEPASS_SIG   : s = "onepass_sig"; break;
173     case PKT_SECRET_KEY    : s = "secret_key"; break;
174     case PKT_PUBLIC_KEY    : s = "public_key"; break;
175     case PKT_SECRET_SUBKEY : s = "secret_subkey"; break;
176     case PKT_COMPRESSED    :
177       s = opt_uncompress? "uncompressed":"compressed";
178       break;
179     case PKT_ENCRYPTED     : s = "encrypted"; break;
180     case PKT_MARKER            : s = "marker"; break;
181     case PKT_PLAINTEXT     : s = "plaintext"; break;
182     case PKT_RING_TRUST    : s = "ring_trust"; break;
183     case PKT_USER_ID       : s = "user_id"; break;
184     case PKT_PUBLIC_SUBKEY : s = "public_subkey"; break;
185     case PKT_OLD_COMMENT   : s = "old_comment"; break;
186     case PKT_ATTRIBUTE     : s = "attribute"; break;
187     case PKT_ENCRYPTED_MDC : s = "encrypted_mdc"; break;
188     case PKT_MDC               : s = "mdc"; break;
189     case PKT_COMMENT       : s = "comment"; break;
190     case PKT_GPG_CONTROL   : s = "gpg_control"; break;
191     default: s = "unknown"; break;
192     }
193   return s;
194 }
195
196
197 /*
198  * Create a new filename and a return a pointer to a statically
199  * allocated buffer
200  */
201 static char *
202 create_filename (int pkttype)
203 {
204   static unsigned int partno = 0;
205   static char *name;
206
207   if (!name)
208     name = xmalloc (strlen (opt_prefix) + 100 );
209
210   assert (pkttype < 1000 && pkttype >= 0 );
211   partno++;
212   sprintf (name, "%s%06u-%03d" EXTSEP_S "%.40s",
213            opt_prefix, partno, pkttype, pkttype_to_string (pkttype));
214   return name;
215 }
216
217 static int
218 read_u16 (FILE *fp, size_t *rn)
219 {
220   int c;
221
222   if ( (c = getc (fp)) == EOF )
223     return -1;
224   *rn = c << 8;
225   if ( (c = getc (fp)) == EOF )
226     return -1;
227   *rn |= c;
228   return 0;
229 }
230
231 static int
232 read_u32 (FILE *fp, unsigned long *rn)
233 {
234   size_t tmp;
235
236   if (read_u16 (fp, &tmp))
237     return -1;
238   *rn = tmp << 16;
239   if (read_u16 (fp, &tmp))
240     return -1;
241   *rn |= tmp;
242   return 0;
243 }
244
245 static int
246 write_old_header (FILE *fp, int pkttype, unsigned int len)
247 {
248   int ctb = (0x80 | ((pkttype & 15)<<2));
249
250   if (len < 256)
251     ;
252   else if (len < 65536)
253     ctb |= 1;
254   else
255     ctb |= 2;
256
257   if ( putc ( ctb, fp) == EOF )
258     return -1;
259
260   if ( (ctb & 2) )
261     {
262       if (putc ((len>>24), fp) == EOF)
263         return -1;
264       if (putc ((len>>16), fp) == EOF)
265         return -1;
266     }
267   if ( (ctb & 3) )
268     {
269       if (putc ((len>>8), fp) == EOF)
270         return -1;
271     }
272   if (putc ((len&0xff), fp) == EOF)
273     return -1;
274   return 0;
275 }
276
277 static int
278 write_new_header (FILE *fp, int pkttype, unsigned int len)
279 {
280   if ( putc ((0xc0 | (pkttype & 0x3f)), fp) == EOF )
281     return -1;
282
283   if (len < 192)
284     {
285       if (putc (len, fp) == EOF)
286         return -1;
287     }
288   else if (len < 8384)
289     {
290       len -= 192;
291       if (putc ((len/256)+192, fp) == EOF)
292         return -1;
293       if (putc ((len%256), fp) == EOF)
294         return -1;
295     }
296   else
297     {
298       if (putc ( 0xff, fp) == EOF)
299         return -1;
300       if (putc ( (len >> 24), fp) == EOF)
301         return -1;
302       if (putc ( (len >> 16), fp) == EOF)
303         return -1;
304       if (putc ( (len >> 8), fp) == EOF)
305         return -1;
306       if (putc ( (len & 0xff), fp) == EOF)
307         return -1;
308     }
309   return 0;
310 }
311
312 /* Return the length of the public key given BUF of BUFLEN with a
313    secret key. */
314 static int
315 public_key_length (const unsigned char *buf, size_t buflen)
316 {
317   const unsigned char *s;
318   int nmpis;
319
320   /*   byte version number (3 or 4)
321        u32  creation time
322        [u16  valid days (version 3 only)]
323        byte algorithm
324        n    MPIs (n and e) */
325   if (!buflen)
326     return 0;
327   if (buf[0] < 2 || buf[0] > 4)
328     return 0; /* wrong version number */
329   if (buflen < (buf[0] == 4? 6:8))
330     return 0;
331   s = buf + (buf[0] == 4? 6:8);
332   buflen -= (buf[0] == 4? 6:8);
333   switch (s[-1])
334     {
335     case 1:
336     case 2:
337     case 3:
338       nmpis = 2;
339       break;
340     case 16:
341     case 20:
342       nmpis = 3;
343       break;
344     case 17:
345       nmpis = 4;
346       break;
347     default:
348       return 0;
349     }
350
351   for (; nmpis; nmpis--)
352     {
353       unsigned int nbits, nbytes;
354
355       if (buflen < 2)
356         return 0;
357       nbits = (s[0] << 8) | s[1];
358       s += 2; buflen -= 2;
359       nbytes = (nbits+7) / 8;
360       if (buflen < nbytes)
361         return 0;
362       s += nbytes; buflen -= nbytes;
363     }
364
365   return s - buf;
366 }
367
368 #ifdef HAVE_ZIP
369 static int
370 handle_zlib(int algo,FILE *fpin,FILE *fpout)
371 {
372   z_stream zs;
373   byte *inbuf, *outbuf;
374   unsigned int inbufsize, outbufsize;
375   int c,zinit_done, zrc, nread, count;
376   size_t n;
377
378   memset (&zs, 0, sizeof zs);
379   inbufsize = 2048;
380   inbuf = xmalloc (inbufsize);
381   outbufsize = 8192;
382   outbuf = xmalloc (outbufsize);
383   zs.avail_in = 0;
384   zinit_done = 0;
385
386   do
387     {
388       if (zs.avail_in < inbufsize)
389         {
390           n = zs.avail_in;
391           if (!n)
392             zs.next_in = (Bytef *) inbuf;
393           count = inbufsize - n;
394           for (nread=0;
395                nread < count && (c=getc (fpin)) != EOF;
396                nread++)
397             inbuf[n+nread] = c;
398
399           n += nread;
400           if (nread < count && algo == 1)
401             {
402               inbuf[n] = 0xFF; /* chew dummy byte */
403               n++;
404             }
405           zs.avail_in = n;
406         }
407       zs.next_out = (Bytef *) outbuf;
408       zs.avail_out = outbufsize;
409
410       if (!zinit_done)
411         {
412           zrc = (algo == 1? inflateInit2 ( &zs, -13)
413                  : inflateInit ( &zs ));
414           if (zrc != Z_OK)
415             {
416               log_fatal ("zlib problem: %s\n", zs.msg? zs.msg :
417                          zrc == Z_MEM_ERROR ? "out of core" :
418                          zrc == Z_VERSION_ERROR ?
419                          "invalid lib version" :
420                          "unknown error" );
421             }
422           zinit_done = 1;
423         }
424       else
425         {
426 #ifdef Z_SYNC_FLUSH
427           zrc = inflate (&zs, Z_SYNC_FLUSH);
428 #else
429           zrc = inflate (&zs, Z_PARTIAL_FLUSH);
430 #endif
431           if (zrc == Z_STREAM_END)
432             ; /* eof */
433           else if (zrc != Z_OK && zrc != Z_BUF_ERROR)
434             {
435               if (zs.msg)
436                 log_fatal ("zlib inflate problem: %s\n", zs.msg );
437               else
438                 log_fatal ("zlib inflate problem: rc=%d\n", zrc );
439             }
440           for (n=0; n < outbufsize - zs.avail_out; n++)
441             {
442               if (putc (outbuf[n], fpout) == EOF )
443                 return 1;
444             }
445         }
446     }
447   while (zrc != Z_STREAM_END && zrc != Z_BUF_ERROR);
448   {
449     int i;
450
451     fputs ("Left over bytes:", stderr);
452     for (i=0; i < zs.avail_in; i++)
453       fprintf (stderr, " %02X", zs.next_in[i]);
454     putc ('\n', stderr);
455
456   }
457   inflateEnd (&zs);
458
459   return 0;
460 }
461 #endif /*HAVE_ZIP*/
462
463 #ifdef HAVE_BZIP2
464 static int
465 handle_bzip2(int algo,FILE *fpin,FILE *fpout)
466 {
467   bz_stream bzs;
468   byte *inbuf, *outbuf;
469   unsigned int inbufsize, outbufsize;
470   int c,zinit_done, zrc, nread, count;
471   size_t n;
472
473   memset (&bzs, 0, sizeof bzs);
474   inbufsize = 2048;
475   inbuf = xmalloc (inbufsize);
476   outbufsize = 8192;
477   outbuf = xmalloc (outbufsize);
478   bzs.avail_in = 0;
479   zinit_done = 0;
480
481   do
482     {
483       if (bzs.avail_in < inbufsize)
484         {
485           n = bzs.avail_in;
486           if (!n)
487             bzs.next_in = inbuf;
488           count = inbufsize - n;
489           for (nread=0;
490                nread < count && (c=getc (fpin)) != EOF;
491                nread++)
492             inbuf[n+nread] = c;
493
494           n += nread;
495           if (nread < count && algo == 1)
496             {
497               inbuf[n] = 0xFF; /* chew dummy byte */
498               n++;
499             }
500           bzs.avail_in = n;
501         }
502       bzs.next_out = outbuf;
503       bzs.avail_out = outbufsize;
504
505       if (!zinit_done)
506         {
507           zrc = BZ2_bzDecompressInit(&bzs,0,0);
508           if (zrc != BZ_OK)
509             log_fatal ("bz2lib problem: %d\n",zrc);
510           zinit_done = 1;
511         }
512       else
513         {
514           zrc = BZ2_bzDecompress(&bzs);
515           if (zrc == BZ_STREAM_END)
516             ; /* eof */
517           else if (zrc != BZ_OK && zrc != BZ_PARAM_ERROR)
518             log_fatal ("bz2lib inflate problem: %d\n", zrc );
519           for (n=0; n < outbufsize - bzs.avail_out; n++)
520             {
521               if (putc (outbuf[n], fpout) == EOF )
522                 return 1;
523             }
524         }
525     }
526   while (zrc != BZ_STREAM_END && zrc != BZ_PARAM_ERROR);
527   BZ2_bzDecompressEnd(&bzs);
528
529   return 0;
530 }
531 #endif /* HAVE_BZIP2 */
532
533 /* hdr must point to a buffer large enough to hold all header bytes */
534 static int
535 write_part (FILE *fpin, unsigned long pktlen,
536             int pkttype, int partial, unsigned char *hdr, size_t hdrlen)
537 {
538   FILE *fpout;
539   int c, first;
540   unsigned char *p;
541   const char *outname = create_filename (pkttype);
542
543 #if defined(__riscos__) && defined(USE_ZLIBRISCOS)
544   static int initialized = 0;
545
546   if (!initialized)
547       initialized = riscos_load_module("ZLib", zlib_path, 1);
548 #endif
549   if (opt_no_split)
550     fpout = stdout;
551   else
552     {
553       if (opt_verbose)
554         log_info ("writing '%s'\n", outname);
555       fpout = fopen (outname, "wb");
556       if (!fpout)
557         {
558           log_error ("error creating '%s': %s\n", outname, strerror(errno));
559           /* stop right now, otherwise we would mess up the sequence
560              of the part numbers */
561           g10_exit (1);
562         }
563     }
564
565   if (opt_secret_to_public
566       && (pkttype == PKT_SECRET_KEY || pkttype == PKT_SECRET_SUBKEY))
567     {
568       unsigned char *blob = xmalloc (pktlen);
569       int i, len;
570
571       pkttype = pkttype == PKT_SECRET_KEY? PKT_PUBLIC_KEY:PKT_PUBLIC_SUBKEY;
572
573       for (i=0; i < pktlen; i++)
574         {
575           c = getc (fpin);
576           if (c == EOF)
577             goto read_error;
578           blob[i] = c;
579         }
580       len = public_key_length (blob, pktlen);
581       if (!len)
582         {
583           log_error ("error calculating public key length\n");
584           g10_exit (1);
585         }
586       if ( (hdr[0] & 0x40) )
587         {
588           if (write_new_header (fpout, pkttype, len))
589             goto write_error;
590         }
591       else
592         {
593           if (write_old_header (fpout, pkttype, len))
594             goto write_error;
595         }
596
597       for (i=0; i < len; i++)
598         {
599           if ( putc (blob[i], fpout) == EOF )
600             goto write_error;
601         }
602
603       goto ready;
604     }
605
606
607   if (!opt_uncompress)
608     {
609       for (p=hdr; hdrlen; p++, hdrlen--)
610         {
611           if ( putc (*p, fpout) == EOF )
612             goto write_error;
613         }
614     }
615
616   first = 1;
617   while (partial)
618     {
619       size_t partlen;
620
621       if (partial == 1)
622         { /* openpgp */
623           if (first )
624             {
625               c = pktlen;
626               assert( c >= 224 && c < 255 );
627               first = 0;
628             }
629           else if ((c = getc (fpin)) == EOF )
630             goto read_error;
631           else
632             hdr[hdrlen++] = c;
633
634           if (c < 192)
635             {
636               pktlen = c;
637               partial = 0; /* (last segment may follow) */
638             }
639           else if (c < 224 )
640             {
641               pktlen = (c - 192) * 256;
642               if ((c = getc (fpin)) == EOF)
643                 goto read_error;
644               hdr[hdrlen++] = c;
645               pktlen += c + 192;
646               partial = 0;
647             }
648           else if (c == 255)
649             {
650               if (read_u32 (fpin, &pktlen))
651                 goto read_error;
652               hdr[hdrlen++] = pktlen >> 24;
653               hdr[hdrlen++] = pktlen >> 16;
654               hdr[hdrlen++] = pktlen >> 8;
655               hdr[hdrlen++] = pktlen;
656               partial = 0;
657             }
658           else
659             { /* next partial body length */
660               for (p=hdr; hdrlen; p++, hdrlen--)
661                 {
662                   if ( putc (*p, fpout) == EOF )
663                     goto write_error;
664                 }
665               partlen = 1 << (c & 0x1f);
666               for (; partlen; partlen--)
667                 {
668                   if ((c = getc (fpin)) == EOF)
669                     goto read_error;
670                   if ( putc (c, fpout) == EOF )
671                     goto write_error;
672                 }
673             }
674         }
675       else if (partial == 2)
676         { /* old gnupg */
677           assert (!pktlen);
678           if ( read_u16 (fpin, &partlen) )
679             goto read_error;
680           hdr[hdrlen++] = partlen >> 8;
681           hdr[hdrlen++] = partlen;
682           for (p=hdr; hdrlen; p++, hdrlen--)
683             {
684               if ( putc (*p, fpout) == EOF )
685                 goto write_error;
686             }
687           if (!partlen)
688             partial = 0; /* end of packet */
689           for (; partlen; partlen--)
690             {
691               c = getc (fpin);
692               if (c == EOF)
693                 goto read_error;
694               if ( putc (c, fpout) == EOF )
695                 goto write_error;
696             }
697         }
698       else
699         { /* compressed: read to end */
700           pktlen = 0;
701           partial = 0;
702           hdrlen = 0;
703           if (opt_uncompress)
704             {
705               if ((c = getc (fpin)) == EOF)
706                 goto read_error;
707
708               if (0)
709                 ;
710 #ifdef HAVE_ZIP
711               else if(c==1 || c==2)
712                 {
713                   if(handle_zlib(c,fpin,fpout))
714                     goto write_error;
715                 }
716 #endif /* HAVE_ZIP */
717 #ifdef HAVE_BZIP2
718               else if(c==3)
719                 {
720                   if(handle_bzip2(c,fpin,fpout))
721                     goto write_error;
722                 }
723 #endif /* HAVE_BZIP2 */
724               else
725                 {
726                   log_error("invalid compression algorithm (%d)\n",c);
727                   goto read_error;
728                 }
729             }
730           else
731             {
732               while ( (c=getc (fpin)) != EOF )
733                 {
734                   if ( putc (c, fpout) == EOF )
735                     goto write_error;
736                 }
737             }
738           if (!feof (fpin))
739             goto read_error;
740         }
741     }
742
743   for (p=hdr; hdrlen; p++, hdrlen--)
744     {
745       if ( putc (*p, fpout) == EOF )
746         goto write_error;
747     }
748
749   /* standard packet or last segment of partial length encoded packet */
750   for (; pktlen; pktlen--)
751     {
752       c = getc (fpin);
753       if (c == EOF)
754         goto read_error;
755       if ( putc (c, fpout) == EOF )
756         goto write_error;
757     }
758
759  ready:
760   if ( !opt_no_split && fclose (fpout) )
761     log_error ("error closing '%s': %s\n", outname, strerror (errno));
762   return 0;
763
764  write_error:
765   log_error ("error writing '%s': %s\n", outname, strerror (errno));
766   if (!opt_no_split)
767     fclose (fpout);
768   return 2;
769
770  read_error:
771   if (!opt_no_split)
772     {
773       int save = errno;
774       fclose (fpout);
775       errno = save;
776     }
777   return -1;
778 }
779
780
781
782 static int
783 do_split (FILE *fp)
784 {
785   int c, ctb, pkttype;
786   unsigned long pktlen = 0;
787   int partial = 0;
788   unsigned char header[20];
789   int header_idx = 0;
790
791   ctb = getc (fp);
792   if (ctb == EOF)
793     return 3; /* ready */
794   header[header_idx++] = ctb;
795
796   if (!(ctb & 0x80))
797     {
798       log_error("invalid CTB %02x\n", ctb );
799       return 1;
800     }
801   if ( (ctb & 0x40) )
802     { /* new CTB */
803       pkttype =  (ctb & 0x3f);
804       if( (c = getc (fp)) == EOF )
805         return -1;
806       header[header_idx++] = c;
807
808       if ( c < 192 )
809         pktlen = c;
810       else if ( c < 224 )
811         {
812           pktlen = (c - 192) * 256;
813           if( (c = getc (fp)) == EOF )
814             return -1;
815           header[header_idx++] = c;
816           pktlen += c + 192;
817         }
818       else if ( c == 255 )
819         {
820           if (read_u32 (fp, &pktlen))
821             return -1;
822           header[header_idx++] = pktlen >> 24;
823           header[header_idx++] = pktlen >> 16;
824           header[header_idx++] = pktlen >> 8;
825           header[header_idx++] = pktlen;
826         }
827       else
828         { /* partial body length */
829           pktlen = c;
830           partial = 1;
831         }
832     }
833   else
834     {
835       int lenbytes;
836
837       pkttype = (ctb>>2)&0xf;
838       lenbytes = ((ctb&3)==3)? 0 : (1<<(ctb & 3));
839       if (!lenbytes )
840         {
841           pktlen = 0; /* don't know the value */
842           if( pkttype == PKT_COMPRESSED )
843             partial = 3;
844           else
845             partial = 2; /* the old GnuPG partial length encoding */
846         }
847       else
848         {
849           for ( ; lenbytes; lenbytes-- )
850             {
851               pktlen <<= 8;
852               if( (c = getc (fp)) == EOF )
853                 return -1;
854               header[header_idx++] = c;
855
856               pktlen |= c;
857             }
858         }
859     }
860
861   return write_part (fp, pktlen, pkttype, partial, header, header_idx);
862 }
863
864
865 static void
866 split_packets (const char *fname)
867 {
868   FILE *fp;
869   int rc;
870
871   if (!fname || !strcmp (fname, "-"))
872     {
873       fp = stdin;
874       fname = "-";
875     }
876   else if ( !(fp = fopen (fname,"rb")) )
877     {
878       log_error ("can't open '%s': %s\n", fname, strerror (errno));
879       return;
880     }
881
882   while ( !(rc = do_split (fp)) )
883     ;
884   if ( rc > 0 )
885     ; /* error already handled */
886   else if ( ferror (fp) )
887     log_error ("error reading '%s': %s\n", fname, strerror (errno));
888   else
889     log_error ("premature EOF while reading '%s'\n", fname );
890
891   if ( fp != stdin )
892     fclose (fp);
893 }