--- pgp/src/armor.c	2018/04/24 16:37:54	1.1.1.1
+++ pgp/src/armor.c	2018/04/24 16:38:54	1.1.1.2
@@ -1,794 +1,908 @@
-/*	armor.c  - ASCII/binary encoding/decoding based partly on PEM RFC1113.
-	PGP: Pretty Good(tm) Privacy - public key cryptography for the masses.
-
-	(c) Copyright 1990-1992 by Philip Zimmermann.  All rights reserved.
-	The author assumes no liability for damages resulting from the use
-	of this software, even if the damage results from defects in this
-	software.  No warranty is expressed or implied.
-
-	All the source code Philip Zimmermann wrote for PGP is available for
-	free under the "Copyleft" General Public License from the Free
-	Software Foundation.  A copy of that license agreement is included in
-	the source release package of PGP.  Code developed by others for PGP
-	is also freely available.  Other code that has been incorporated into
-	PGP from other sources was either originally published in the public
-	domain or was used with permission from the various authors.  See the
-	PGP User's Guide for more complete information about licensing,
-	patent restrictions on certain algorithms, trademarks, copyrights,
-	and export controls.  
-*/
-
-#include <ctype.h>
-#include <stdio.h>
-#include <string.h>
-#include "mpilib.h"
-#include "fileio.h"
-#include "mpiio.h"
-#include "language.h"
-#include "pgp.h"
-
-/* 	Begin PEM routines.
-	This converts a binary file into printable ASCII characters, in a
-	radix-64 form mostly compatible with the PEM RFC1113 format.
-	This makes it easier to send encrypted files over a 7-bit channel.
-*/
-
-/* Index this array by a 6 bit value to get the character corresponding
- * to that value.
- */
-unsigned char bintoasc[] = "ABCDEFGHIJKLMNOPQRSTUVWXYZ\
-abcdefghijklmnopqrstuvwxyz0123456789+/";
-
-/* Index this array by a 7 bit value to get the 6-bit binary field
- * corresponding to that value.  Any illegal characters return high bit set.
- */
-unsigned char asctobin[] = {
-	0200,0200,0200,0200,0200,0200,0200,0200,
-	0200,0200,0200,0200,0200,0200,0200,0200,
-	0200,0200,0200,0200,0200,0200,0200,0200,
-	0200,0200,0200,0200,0200,0200,0200,0200,
-	0200,0200,0200,0200,0200,0200,0200,0200,
-	0200,0200,0200,0076,0200,0200,0200,0077,
-	0064,0065,0066,0067,0070,0071,0072,0073,
-	0074,0075,0200,0200,0200,0200,0200,0200,
-	0200,0000,0001,0002,0003,0004,0005,0006,
-	0007,0010,0011,0012,0013,0014,0015,0016,
-	0017,0020,0021,0022,0023,0024,0025,0026,
-	0027,0030,0031,0200,0200,0200,0200,0200,
-	0200,0032,0033,0034,0035,0036,0037,0040,
-	0041,0042,0043,0044,0045,0046,0047,0050,
-	0051,0052,0053,0054,0055,0056,0057,0060,
-	0061,0062,0063,0200,0200,0200,0200,0200
-};
-static long	infile_line;		/* Current line number for mult decodes */
-
-/************************************************************************/
-
-/* CRC Routines. */
-/*	These CRC functions are derived from code in chapter 19 of the book 
-	"C Programmer's Guide to Serial Communications", by Joe Campbell.
-	Generalized to any CRC width by Philip Zimmermann.
-*/
-
-#define byte unsigned char
-
-#define CRCBITS 24	/* may be 16, 24, or 32 */
-/* #define crcword unsigned short */	/* if CRCBITS is 16 */
-#define crcword unsigned long		/* if CRCBITS is 24 or 32 */
-/* #define maskcrc(crc) ((crcword)(crc)) */	/* if CRCBITS is 16 or 32 */
-#define maskcrc(crc) ((crc) & 0xffffffL)	/* if CRCBITS is 24 */
-#define CRCHIBIT ((crcword) (1L<<(CRCBITS-1))) /* 0x8000 if CRCBITS is 16 */
-#define CRCSHIFTS (CRCBITS-8)
-
-/*	Notes on making a good 24-bit CRC--
-	The primitive irreducible polynomial of degree 23 over GF(2),
-	040435651 (octal), comes from Appendix C of "Error Correcting Codes,
-	2nd edition" by Peterson and Weldon, page 490.  This polynomial was
-	chosen for its uniform density of ones and zeros, which has better
-	error detection properties than polynomials with a minimal number of
-	nonzero terms.  Multiplying this primitive degree-23 polynomial by
-	the polynomial x+1 yields the additional property of detecting any
-	odd number of bits in error, which means it adds parity.  This 
-	approach was recommended by Neal Glover.
-
-	To multiply the polynomial 040435651 by x+1, shift it left 1 bit and
-	bitwise add (xor) the unshifted version back in.  Dropping the unused 
-	upper bit (bit 24) produces a CRC-24 generator bitmask of 041446373 
-	octal, or 0x864cfb hex.  
-
-	You can detect spurious leading zeros or framing errors in the 
-	message by initializing the CRC accumulator to some agreed-upon 
-	nonzero "random-like" value, but this is a bit nonstandard.  
-*/
-
-#define CCITTCRC 0x1021 /* CCITT's 16-bit CRC generator polynomial */
-#define PRZCRC 0x864cfbL /* PRZ's 24-bit CRC generator polynomial */
-#define CRCINIT 0xB704CEL	/* Init value for CRC accumulator */
-
-crcword crctable[256];		/* Table for speeding up CRC's */
-
-/*	crchware simulates CRC hardware circuit.  Generates true CRC
-	directly, without requiring extra NULL bytes to be appended 
-	to the message.
-	Returns new updated CRC accumulator.
-*/
-crcword crchware(byte ch, crcword poly, crcword accum)
-{	int i;
-	crcword data;
-	data = ch;
-	data <<= CRCSHIFTS;	/* shift data to line up with MSB of accum */
-	i = 8;		/* counts 8 bits of data */
-	do
-	{	/* if MSB of (data XOR accum) is TRUE, shift and subtract poly */
-		if ((data ^ accum) & CRCHIBIT)
-			accum = (accum<<1) ^ poly;
-		else
-			accum <<= 1;
-		data <<= 1;
-	} while (--i);	/* counts 8 bits of data */
-	return (maskcrc(accum));
-}	/* crchware */
-
-
-/*	mk_crctbl derives a CRC lookup table from the CRC polynomial.
-	The table is used later by crcupdate function given below.
-	mk_crctbl only needs to be called once at the dawn of time.
-*/
-void mk_crctbl(crcword poly)
-{	int i;
-	for (i=0; i<256; i++)
-		crctable[i] = crchware((byte) i, poly, 0);
-}	/* mk_crctbl */
-
-
-/*	crcupdate calculates a CRC using the fast table-lookup method.
-	Returns new updated CRC accumulator.
-*/
-crcword crcupdate(byte data, register crcword accum)
-{	byte combined_value;
-
-	/* XOR the MSByte of the accum with the data byte */
-	combined_value = (accum >> CRCSHIFTS) ^ data;
-	accum = (accum << 8) ^ crctable[combined_value];
-	return (maskcrc(accum));
-}	/* crcupdate */
-
-/* Initialize the CRC table using our codes */
-void init_crc()
-{	mk_crctbl(PRZCRC);
-}
-
-
-/************************************************************************/
-
-
-/* ENC is the basic 1 character encoding function to make a char printing */
-#define ENC(c) ((int)bintoasc[((c) & 077)])
-#define PAD		'='
-
-/*
- * output one group of up to 3 bytes, pointed at by p, on file f.
- * if fewer than 3 are present, the 1 or two extras must be zeros.
- */
-static void outdec(char *p, FILE *f, int count)
-{
-	int c1, c2, c3, c4;
-
-	c1 = *p >> 2;
-	c2 = ((*p << 4) & 060) | ((p[1] >> 4) & 017);
-	c3 = ((p[1] << 2) & 074) | ((p[2] >> 6) & 03);
-	c4 = p[2] & 077;
-	putc(ENC(c1), f);
-	putc(ENC(c2), f);
-	if (count == 1)
-	{	putc(PAD, f);
-		putc(PAD, f);
-	}
-	else
-	{	putc(ENC(c3), f);
-		if (count == 2)
-			putc(PAD, f);
-		else
-			putc(ENC(c4), f);
-	}
-}	/* outdec */
-
-
-/* Output the CRC value, MSB first per normal CRC conventions */
-static void outcrc (word32 crc, FILE *outFile)
-{	/* Output crc */
-	char crcbuf[4];
-	crcbuf[0] = (crc>>16) & 0xff;
-	crcbuf[1] = (crc>>8) & 0xff;
-	crcbuf[2] = (crc>>0) & 0xff;
-	putc(PAD,outFile);
-	outdec (crcbuf,outFile,3);
-	putc('\n',outFile);
-}	/* outcrc */
-
-/* Return filename for output (text mode), but replace last letter of
- * filename with the ascii for num (last two letters if num > 10).
- */
-static char *numFilename( char *fname, int num)
-{	static char	fnamenum[MAX_PATH];
-	int		len;
-
-	strcpy (fnamenum, fname);
-	len = strlen (fnamenum);
-	if (num < 10)
-		fnamenum[len-1] = '0' + num;
-	else	/* If num > 100, this will be slightly screwy */
-	{	fnamenum[len-2] = '0' + (num / 10);
-		fnamenum[len-1] = '0' + (num % 10);
-	}
-	return(fnamenum);
-}
-
-/*	Encode a file in sections.  64 ASCII bytes * 720 lines = 46K, 
-	recommended max.  Usenet message size is 50K so this leaves a nice 
-	margin for .signature.  In the interests of orthogonality and 
-	programmer laziness no check is made for a message containing only 
-	a few lines (or even just an 'end')	after a section break. 
-*/
-#define LINE_LEN	48L
-int pem_lines = 720;
-#define BYTES_PER_SECTION	(LINE_LEN * pem_lines)
-
-extern boolean verbose;	/* Undocumented command mode in PGP.C */
-extern boolean filter_mode;
-
-/*
- * Copy from infilename to outfilename, PEM encoding as you go along,
- * and with breaks every
- * pem_lines lines.
- */
-int pem_file(char *infilename, char *outfilename)
-{
-	char buffer[80];
-	int i,bytesRead,lines = 0;
-	int noSections, currentSection = 1;
-	long fileLen;
-	crcword crc;
-	FILE *inFile, *outFile;
-	char *blocktype = "MESSAGE";
-
-	if (verbose)
-		fprintf(pgpout,PSTR("Converting output to ASCII armor format.\n"));
-
-	/* open input file as binary */
-	if ((inFile = fopen(infilename,"rb")) == NULL)
-	{   
-		return(1);
-	}
-
-	if (filter_mode || pem_lines == 0)
-		noSections = 1;
-	else
-	{	/* Evaluate how many parts this file will comprise */
-		fseek(inFile,0L,SEEK_END);
-		fileLen = ftell(inFile);
-		rewind(inFile);
-		noSections = (fileLen + BYTES_PER_SECTION - 1) / BYTES_PER_SECTION;
-	}
-	
-	if (noSections > 1)
-	{	force_extension(outfilename, ASC_EXTENSION);
-		outFile = fopen (numFilename (outfilename, 1), "w");
-	}
-	else
-		outFile = fopen(outfilename,"w");
-
-	if (outFile == NULL)
-	{	fclose(inFile);
-		return(1);
-	}
-
-	if (noSections == 1)
-	{
-		byte ctb = 0;
-		ctb = getc(inFile);
-		if (is_ctb_type(ctb, CTB_CERT_PUBKEY_TYPE))
-			blocktype = "PUBLIC KEY BLOCK";
-		fprintf (outFile, "-----BEGIN PGP %s-----\n",blocktype);
-		rewind(inFile);
-	}
-	else
-		fprintf (outFile, "-----BEGIN PGP MESSAGE, PART %02d/%02d-----\n",
-					1, noSections);
-	fprintf (outFile, "Version: %s\n",rel_version);
-	fprintf (outFile, "\n");
-
-	init_crc();
-	crc = CRCINIT;
-
-	while((bytesRead = fread(buffer,1,LINE_LEN,inFile)) > 0)
-	{	/* Munge up LINE_LEN characters */
-		if (bytesRead < LINE_LEN)
-			fill0 (buffer+bytesRead, LINE_LEN-bytesRead);
-
-		for (i=0; i<bytesRead-2; i+=3) {
-			crc = crcupdate(buffer[i],crc);
-			crc = crcupdate(buffer[i+1],crc);
-			crc = crcupdate(buffer[i+2],crc);
-			outdec(buffer+i,outFile,3);
-		}
-
-		if (i<bytesRead) {
-			outdec(buffer+i,outFile,bytesRead-i);
-			while (i<bytesRead)
-				crc = crcupdate(buffer[i++],crc);
-		}
-		putc('\n',outFile);
-
-		if (++lines == pem_lines && !filter_mode && currentSection < noSections)
-		{	lines = 0;
-			outcrc (crc, outFile);
-			fprintf(outFile,"-----END PGP MESSAGE, PART %02d/%02d-----\n\n",
-				currentSection, noSections);
-			fclose (outFile);
-			outFile = fopen (numFilename (outfilename, ++currentSection), "w");
-			fprintf(outFile,"-----BEGIN PGP MESSAGE, PART %02d/%02d-----\n",
-					currentSection, noSections);
-			fprintf(outFile,"\n");
-			crc = CRCINIT;
-		}
-	}
-	outcrc (crc, outFile);
-
-	if (noSections == 1)
-		fprintf (outFile, "-----END PGP %s-----\n\n",blocktype);
-	else
-		fprintf(outFile,"-----END PGP MESSAGE, PART %02d/%02d-----\n\n",
-				noSections, noSections);
-
-	/* Done */
-	if (ferror(outFile) || fclose(outFile))
-		return(-1);
-	fclose(inFile);
-
-	if (filter_mode)
-		return(0);
-
-	if (noSections == 1)
-		fprintf (pgpout, PSTR("\nTransport armor file: %s\n"), outfilename);
-	else
-	{	int i;
-		fprintf (pgpout, PSTR("\nTransport armor files: "));
-		for (i=1; i<=noSections; ++i)
-			fprintf (pgpout, "%s%s", numFilename(outfilename,i),
-						i==noSections?"\n":", ");
-	}
-	return(0);
-}	/* pem_file */
-
-
-
-
-
-/* 	End PEM encode routines. */
-
-/*	PEM decode routines.
-*/
-
-#define MAX_RETRY_LINES	100
-
-/* Strip trailing spaces and CR characters */
-void
-strip_trailing (char *buf)
-{
-	char *bp = buf;
-	while (*bp++ != '\n')		/* Find end of line */
-		;
-	--bp; --bp;					/* And back up... */
-								/* Back up over spaces & CR */
-	while (bp >= buf  &&  (*bp == ' '  ||  *bp == '\r'))
-		--bp;
-	bp[1] = '\n';				/* Terminate line cleanly */
-	bp[2] = '\0';
-}
-
-
-int dpem_buffer(char *inbuf, char *outbuf, int *outlength)
-{
-	unsigned char *bp;
-	int	length;
-	unsigned int c1,c2,c3,c4;
-	register int j;
-
-	length = 0;
-	bp = (unsigned char *)inbuf;
-
-	/* FOUR input characters go into each THREE output charcters */
-
-	while (*bp!='\0' && *bp!='\n' && *bp!='\r')
-	{	if (*bp&0x80 || (c1=asctobin[*bp])&0x80)
-			return -1;
-		++bp;
-		if (*bp&0x80 || (c2=asctobin[*bp])&0x80)
-			return -1;
-		if (*++bp == PAD)
-		{	c3 = c4 = 0;
-			length += 1;
-			if (*++bp != PAD)
-				return -1;
-		}
-		else if (*bp&0x80 || (c3=asctobin[*bp])&0x80)
-				return -1;
-		else
-		{	if (*++bp == PAD)
-			{	c4 = 0;
-				length += 2;
-			}
-			else if (*bp&0x80 || (c4=asctobin[*bp])&0x80)
-				return -1;
-			else
-				length += 3;
-		}
-		++bp;
-		j = (c1 << 2) | (c2 >> 4);
-		*outbuf++=j;
-		j = (c2 << 4) | (c3 >> 2);
-		*outbuf++=j;
-		j = (c3 << 6) | c4;
-		*outbuf++=j;
-	}
-
-	*outlength = length;
-	return(0);	/* normal return */
-
-}	/* dpem_buffer */
-
-static char pemfilename[MAX_PATH];
-/*
- * try to open the next file of a multi-part armored file
- * the sequence number is expected at the end of the file name
- */
-static FILE *
-open_next()
-{
-	char *p, *s, c;
-	FILE *fp;
-
-	p = pemfilename + strlen(pemfilename);
-	while (--p >= pemfilename && isdigit(*p))
-	{
-		if (*p != '9')
-		{
-			++*p;
-			return(fopen(pemfilename, "r"));
-		}
-		*p = '0';
-	}
-
-	/* need an extra digit */
-	if (p >= pemfilename)
-	{	/* try replacing character ( .as0 -> .a10 ) */
-		c = *p;
-		*p = '1';
-		if ((fp = fopen(pemfilename, "r")) != NULL)
-			return(fp);
-		*p = c;	/* restore original character */
-	}
-	++p;
-	for (s = p + strlen(p); s >= p; --s)
-		s[1] = *s;
-	*p = '1'; /* insert digit ( fn0 -> fn10 ) */
-
-	return(fopen(pemfilename, "r"));
-}
-
-/*
- * Copy from in to out, decoding as you go, with handling for multiple
- * 500-line blocks of encoded data.
- */
-int pemdecode(FILE *in, FILE *out)
-{
-char inbuf[96];
-char outbuf[64];
-
-int i, n, status;
-int line;
-int lineCount = 0;
-int section, currentSection = 1;
-int noSections = 0;
-int gotcrc = 0;
-long crc=CRCINIT, chkcrc;
-char crcbuf[4];
-
-	init_crc();
-
-	for (line = 1; ; line++)	/* for each input line */
-	{
-		if (fgets(inbuf, sizeof(inbuf), in) == NULL)
-		{
-			fprintf(pgpout,PSTR("ERROR: ASCII armor decode input ended unexpectedly!\n"));
-			return(18);
-		}
-		++infile_line;
-
-		if (currentSection!=noSections &&
-				strncmp(inbuf,"-----END PGP MESSAGE,", 21) == 0)
-		{	/* End of this section */
-			if (gotcrc)
-			{	if (chkcrc != crc)
-				{	fprintf(pgpout,PSTR("ERROR: Bad ASCII armor checksum in section %d.\n"), currentSection);
-					return -1;
-				}
-			}
-			gotcrc = 0;
-			crc = CRCINIT;
-			lineCount = 0;
-			section = 0;
-
-			/* Try and find start of next section */
-			do
-			{	if (fgets(inbuf,sizeof(inbuf),in) == NULL || ++lineCount == MAX_RETRY_LINES)
-				{	FILE *nextf;
-					if ((nextf = open_next()) != NULL)
-					{
-						fclose(in);
-						in = nextf;
-						lineCount = 0;
-						continue;
-					}
-					fprintf(pgpout,PSTR("Can't find section %d.\n"),currentSection + 1);
-					return(-1);
-				}
-				++infile_line;
-			}
-			while (strncmp(inbuf,"-----BEGIN PGP MESSAGE",22));
-
-			/* Make sure this section is the correct one */
-			lineCount = 0;
-			if (2 != sscanf(inbuf,"-----BEGIN PGP MESSAGE, PART %d/%d",
-				&section,&noSections))
-			{	fprintf(pgpout,PSTR("Badly formed section header, part %d.\n"),
-					currentSection+1);
-				return(-1);
-			}
-			if (section != ++currentSection)
-			{	fprintf(pgpout,PSTR("Sections out of order, expected part %d"),currentSection);
-				if (section)
-					fprintf(pgpout,PSTR(", got part %d\n"),section);
-				else
-					fputc('\n',pgpout);
-				return(-1);
-			}
-
-			/* Skip header after BEGIN line */
-			do {
-				++infile_line;
-				if (fgets(inbuf, sizeof inbuf, in) == NULL)
-				{
-					fprintf(pgpout,PSTR("ERROR: Hit EOF in header of section %d.\n"),
-						currentSection);
-					return(-1);
-				}
-			} while (inbuf[0] != '\n' && inbuf[0] != '\r');
-
-			/* Continue decoding */
-			continue;
-		}
-
-		/* Quit when hit the -----END PGP MESSAGE----- line or a blank,
-			or handle checksum */
-		if (inbuf[0] == PAD)	/* Checksum lines start with PAD char */
-		{	status = dpem_buffer (inbuf+1,crcbuf,&n);
-			if (status==-1  ||  n!=3)
-			{	fprintf(pgpout,PSTR("ERROR: Badly formed ASCII armor checksum, line %d.\n"),line);
-				return -1;
-			}
-			chkcrc = (((long)crcbuf[0]<<16)&0xff0000L) +
-				((crcbuf[1]<<8)&0xff00L) + (crcbuf[2]&0xffL);
-			gotcrc = 1;
-			continue;
-		}
-		if (inbuf[0] == '\n'  ||  inbuf[0] == '\r')
-		{	fprintf(pgpout,PSTR("WARNING: No ASCII armor `END' line.\n"));
-			break;
-		}
-		if (strncmp(inbuf, "-----END PGP ", 13) == 0)
-			break;
-
-		status = dpem_buffer(inbuf,outbuf,&n);
-
-		if (status == -1)
-		{	fprintf(pgpout,PSTR("ERROR: Bad ASCII armor character, line %d.\n"), line);
-			return -1;
-		}
-
-		if (n > sizeof outbuf)
-		{	fprintf(pgpout,PSTR("ERROR: Bad ASCII armor line length %d on line %d.\n"),
-					n, line);
-			return -1;
-		}
-
-		for (i=0; i<n; ++i)
-			crc = crcupdate(outbuf[i],crc);
-		fwrite(outbuf,1,n,out);
-
-	}	/* line */
-
-	if (gotcrc)
-	{	if (chkcrc != crc)
-		{	fprintf(pgpout,PSTR("ERROR: Bad ASCII armor checksum"));
-			if (noSections > 0)
-				fprintf(pgpout,PSTR(" in section %d"), noSections);
-			fputc('\n',pgpout);
-			return -1;
-		}
-	}
-	else
-		fprintf(pgpout,PSTR("Warning: Transport armor lacks a checksum.\n"));
-
-	return(0);	/* normal return */
-}   /* pemdecode */
-
-
-boolean is_pemfile(char *infile)
-{
-	FILE	*in;
-	char	inbuf[80];
-	char	outbuf[80];
-	int		i, n, status;
-	long	il;
-
-	if ((in = fopen(infile, "r")) == NULL)
-	{	/* can't open file */
-		return(FALSE);
-	}
-
-	/* Read to infile_line before we begin looking */
-	for (il=0; il<infile_line; ++il)
-	{
-		if (fgets(inbuf, sizeof inbuf, in) == NULL)
-			return(FALSE);
-	}
-
-	/* search file for header line */
-	for (i=0; i<200; i++)	/* give up after 200 lines of garbage */
-	{
-		if (fgets(inbuf, sizeof inbuf, in) == NULL)
-			break;
-		else
-		{
-			if (strncmp(inbuf, "-----BEGIN PGP ", 15) == 0)
-			{
-				do {
-					if (fgets(inbuf, sizeof inbuf, in) == NULL)
-						break;
-#ifndef STRICT_PEM
-					if (dpem_buffer(inbuf,outbuf,&n) == 0 && n == 48)
-					{	fclose(in);
-						return(TRUE);
-					}
-#endif
-					strip_trailing(inbuf);
-				} while (inbuf[0] != '\n');
-				if (fgets(inbuf, sizeof inbuf, in) == NULL)
-					break;
-				status = dpem_buffer(inbuf,outbuf,&n);
-				if (status < 0)
-					break;
-				fclose(in);
-				return(TRUE);
-			}
-		}
-	}
-
-	fclose(in);
-	return(FALSE);
-
-}	/* is_pemfile */
-
-
-int dpem_file(char *infile, char *outfile, boolean *newname)
-{
-FILE	*in, *out;
-char	buf[80];
-char	outbuf[80];
-int		status, n;
-long	il, fpos;
-
-	/* open PEM decode file as text */
-	if ((in = fopen(infile, "r")) == NULL)
-	{
-		fprintf(pgpout,PSTR("ERROR: Can't find file %s\n"), infile);
-		return(10);
-	}
-	strcpy(pemfilename, infile);	/* store filename for multi-parts */
-
-	/* Skip to infile_line */
-	for (il=0; il<infile_line; ++il)
-	{
-		if (fgets(buf, sizeof buf, in) == NULL)
-			return(FALSE);
-	}
-
-	/* Loop through file, searching for header.  Decode anything with a
-	   header, complain if there were no headers. */
-
-	/* search file for header line */
-    for (;;)
-	{
-		++infile_line;
-		if (fgets(buf, sizeof buf, in) == NULL)
-		{
-			fprintf(pgpout,PSTR("ERROR: No ASCII armor `BEGIN' line!\n"));
-			fclose(in);
-			return(12);
-		}
-		if (strncmp(buf, "-----BEGIN PGP ", 15) == 0)
-			break;
-	}
-	/* Skip header after BEGIN line */
-	do {
-		++infile_line;
-		fpos = ftell(in);
-		if (fgets(buf, sizeof buf, in) == NULL)
-		{
-			fprintf(pgpout,PSTR("ERROR: Hit EOF in header.\n"));
-			fclose(in);
-			return(13);
-		}
-#ifndef STRICT_PEM
-		if (dpem_buffer(buf,outbuf,&n) == 0 && n == 48)
-		{	fseek(in, fpos, SEEK_SET);
-			break;
-		}
-#endif
-		strip_trailing(buf);
-	} while (buf[0] != '\n');
-
-	/* create output file as binary */
-	out = stdout; /* !NULL */
-	while (file_exists(outfile)  ||  ((out = fopen(outfile, "wb")) == NULL))
-	{	if (out != NULL)
-		{	fprintf(pgpout,PSTR("\n\007Ciphertext output file '%s' already exists.  Overwrite (y/N)? "), outfile);
-			if (getyesno('n'))
-			{	if ((out = fopen(outfile, "wb")) == NULL)
-					fprintf(pgpout,PSTR("\n\007Unable to write ciphertext output file '%s'.\n"));
-				else
-					break;
-			}
-		}
-		else
-			fprintf(pgpout,PSTR("\n\007Unable to write ciphertext output file '%s'.\n"));
-		fprintf(pgpout, PSTR("Enter new name for ciphertext output file: "));
-		getstring( outfile, 255, TRUE );
-		if (*outfile == '\0')
-			return(-1);
-		*newname = TRUE;
-		out = stdout; /* !NULL */
-	}
-
-	status = pemdecode(in, out);
-
-	fflush(out);
-	if (ferror(out))
-		status = -1;
-	fclose(out);
-	fclose(in);
-	return(status);
-}   /* dpem_file */
-
-/* Entry points for generic interface names */
-int
-armor_file (char *infile, char *outfile, char *filename)
-{
-	return pem_file (infile, outfile);
-}
-
-int
-de_armor_file(char *infile, char *outfile, boolean *newname)
-{
-	*newname = FALSE;
-	return dpem_file (infile, outfile, newname);
-}
-
-boolean
-is_armor_file (char *infile)
-{
-	return is_pemfile (infile);
-}
-
+/*	armor.c  - ASCII/binary encoding/decoding based partly on PEM RFC1113.
+	PGP: Pretty Good(tm) Privacy - public key cryptography for the masses.
+
+	(c) Copyright 1990-1992 by Philip Zimmermann.  All rights reserved.
+	The author assumes no liability for damages resulting from the use
+	of this software, even if the damage results from defects in this
+	software.  No warranty is expressed or implied.
+
+	All the source code Philip Zimmermann wrote for PGP is available for
+	free under the "Copyleft" General Public License from the Free
+	Software Foundation.  A copy of that license agreement is included in
+	the source release package of PGP.  Code developed by others for PGP
+	is also freely available.  Other code that has been incorporated into
+	PGP from other sources was either originally published in the public
+	domain or was used with permission from the various authors.  See the
+	PGP User's Guide for more complete information about licensing,
+	patent restrictions on certain algorithms, trademarks, copyrights,
+	and export controls.  
+*/
+
+#include <ctype.h>
+#include <stdio.h>
+#include <string.h>
+#include "mpilib.h"
+#include "fileio.h"
+#include "mpiio.h"
+#include "language.h"
+#include "pgp.h"
+
+/* 	Begin PEM routines.
+	This converts a binary file into printable ASCII characters, in a
+	radix-64 form mostly compatible with the PEM RFC1113 format.
+	This makes it easier to send encrypted files over a 7-bit channel.
+*/
+
+/* Index this array by a 6 bit value to get the character corresponding
+ * to that value.
+ */
+unsigned char bintoasc[] = "ABCDEFGHIJKLMNOPQRSTUVWXYZ\
+abcdefghijklmnopqrstuvwxyz0123456789+/";
+
+/* Index this array by a 7 bit value to get the 6-bit binary field
+ * corresponding to that value.  Any illegal characters return high bit set.
+ */
+unsigned char asctobin[] = {
+	0200,0200,0200,0200,0200,0200,0200,0200,
+	0200,0200,0200,0200,0200,0200,0200,0200,
+	0200,0200,0200,0200,0200,0200,0200,0200,
+	0200,0200,0200,0200,0200,0200,0200,0200,
+	0200,0200,0200,0200,0200,0200,0200,0200,
+	0200,0200,0200,0076,0200,0200,0200,0077,
+	0064,0065,0066,0067,0070,0071,0072,0073,
+	0074,0075,0200,0200,0200,0200,0200,0200,
+	0200,0000,0001,0002,0003,0004,0005,0006,
+	0007,0010,0011,0012,0013,0014,0015,0016,
+	0017,0020,0021,0022,0023,0024,0025,0026,
+	0027,0030,0031,0200,0200,0200,0200,0200,
+	0200,0032,0033,0034,0035,0036,0037,0040,
+	0041,0042,0043,0044,0045,0046,0047,0050,
+	0051,0052,0053,0054,0055,0056,0057,0060,
+	0061,0062,0063,0200,0200,0200,0200,0200
+};
+static long	infile_line;		/* Current line number for mult decodes */
+
+/************************************************************************/
+
+/* CRC Routines. */
+/*	These CRC functions are derived from code in chapter 19 of the book 
+	"C Programmer's Guide to Serial Communications", by Joe Campbell.
+	Generalized to any CRC width by Philip Zimmermann.
+*/
+
+#define byte unsigned char
+
+#define CRCBITS 24	/* may be 16, 24, or 32 */
+/* #define crcword unsigned short */	/* if CRCBITS is 16 */
+#define crcword unsigned long		/* if CRCBITS is 24 or 32 */
+/* #define maskcrc(crc) ((crcword)(crc)) */	/* if CRCBITS is 16 or 32 */
+#define maskcrc(crc) ((crc) & 0xffffffL)	/* if CRCBITS is 24 */
+#define CRCHIBIT ((crcword) (1L<<(CRCBITS-1))) /* 0x8000 if CRCBITS is 16 */
+#define CRCSHIFTS (CRCBITS-8)
+
+/*	Notes on making a good 24-bit CRC--
+	The primitive irreducible polynomial of degree 23 over GF(2),
+	040435651 (octal), comes from Appendix C of "Error Correcting Codes,
+	2nd edition" by Peterson and Weldon, page 490.  This polynomial was
+	chosen for its uniform density of ones and zeros, which has better
+	error detection properties than polynomials with a minimal number of
+	nonzero terms.  Multiplying this primitive degree-23 polynomial by
+	the polynomial x+1 yields the additional property of detecting any
+	odd number of bits in error, which means it adds parity.  This 
+	approach was recommended by Neal Glover.
+
+	To multiply the polynomial 040435651 by x+1, shift it left 1 bit and
+	bitwise add (xor) the unshifted version back in.  Dropping the unused 
+	upper bit (bit 24) produces a CRC-24 generator bitmask of 041446373 
+	octal, or 0x864cfb hex.  
+
+	You can detect spurious leading zeros or framing errors in the 
+	message by initializing the CRC accumulator to some agreed-upon 
+	nonzero "random-like" value, but this is a bit nonstandard.  
+*/
+
+#define CCITTCRC 0x1021 /* CCITT's 16-bit CRC generator polynomial */
+#define PRZCRC 0x864cfbL /* PRZ's 24-bit CRC generator polynomial */
+#define CRCINIT 0xB704CEL	/* Init value for CRC accumulator */
+
+crcword crctable[256];		/* Table for speeding up CRC's */
+
+/*	crchware simulates CRC hardware circuit.  Generates true CRC
+	directly, without requiring extra NULL bytes to be appended 
+	to the message.
+	Returns new updated CRC accumulator.
+*/
+crcword crchware(byte ch, crcword poly, crcword accum)
+{	int i;
+	crcword data;
+	data = ch;
+	data <<= CRCSHIFTS;	/* shift data to line up with MSB of accum */
+	i = 8;		/* counts 8 bits of data */
+	do
+	{	/* if MSB of (data XOR accum) is TRUE, shift and subtract poly */
+		if ((data ^ accum) & CRCHIBIT)
+			accum = (accum<<1) ^ poly;
+		else
+			accum <<= 1;
+		data <<= 1;
+	} while (--i);	/* counts 8 bits of data */
+	return (maskcrc(accum));
+}	/* crchware */
+
+
+/*	mk_crctbl derives a CRC lookup table from the CRC polynomial.
+	The table is used later by crcupdate function given below.
+	mk_crctbl only needs to be called once at the dawn of time.
+*/
+void mk_crctbl(crcword poly)
+{	int i;
+	for (i=0; i<256; i++)
+		crctable[i] = crchware((byte) i, poly, 0);
+}	/* mk_crctbl */
+
+
+/*	crcupdate calculates a CRC using the fast table-lookup method.
+	Returns new updated CRC accumulator.
+*/
+crcword crcupdate(byte data, register crcword accum)
+{	byte combined_value;
+
+	/* XOR the MSByte of the accum with the data byte */
+	combined_value = (accum >> CRCSHIFTS) ^ data;
+	accum = (accum << 8) ^ crctable[combined_value];
+	return (maskcrc(accum));
+}	/* crcupdate */
+
+/* Initialize the CRC table using our codes */
+void init_crc()
+{	mk_crctbl(PRZCRC);
+}
+
+
+/************************************************************************/
+
+
+/* ENC is the basic 1 character encoding function to make a char printing */
+#define ENC(c) ((int)bintoasc[((c) & 077)])
+#define PAD		'='
+
+/*
+ * output one group of up to 3 bytes, pointed at by p, on file f.
+ * if fewer than 3 are present, the 1 or two extras must be zeros.
+ */
+static void outdec(char *p, FILE *f, int count)
+{
+	int c1, c2, c3, c4;
+
+	c1 = *p >> 2;
+	c2 = ((*p << 4) & 060) | ((p[1] >> 4) & 017);
+	c3 = ((p[1] << 2) & 074) | ((p[2] >> 6) & 03);
+	c4 = p[2] & 077;
+	putc(ENC(c1), f);
+	putc(ENC(c2), f);
+	if (count == 1)
+	{	putc(PAD, f);
+		putc(PAD, f);
+	}
+	else
+	{	putc(ENC(c3), f);
+		if (count == 2)
+			putc(PAD, f);
+		else
+			putc(ENC(c4), f);
+	}
+}	/* outdec */
+
+
+/* Output the CRC value, MSB first per normal CRC conventions */
+static void outcrc (word32 crc, FILE *outFile)
+{	/* Output crc */
+	char crcbuf[4];
+	crcbuf[0] = (crc>>16) & 0xff;
+	crcbuf[1] = (crc>>8) & 0xff;
+	crcbuf[2] = (crc>>0) & 0xff;
+	putc(PAD,outFile);
+	outdec (crcbuf,outFile,3);
+	putc('\n',outFile);
+}	/* outcrc */
+
+/* Return filename for output (text mode), but replace last letter of
+ * filename with the ascii for num (last two letters if num > 10).
+ */
+static char *numFilename( char *fname, int num)
+{	static char	fnamenum[MAX_PATH];
+	int		len;
+
+	strcpy (fnamenum, fname);
+	len = strlen (fnamenum);
+	if (num < 10)
+		fnamenum[len-1] = '0' + num;
+	else	/* If num > 100, this will be slightly screwy */
+	{	fnamenum[len-2] = '0' + (num / 10);
+		fnamenum[len-1] = '0' + (num % 10);
+	}
+	return(fnamenum);
+}
+
+/*	Encode a file in sections.  64 ASCII bytes * 720 lines = 46K, 
+	recommended max.  Usenet message size is 50K so this leaves a nice 
+	margin for .signature.  In the interests of orthogonality and 
+	programmer laziness no check is made for a message containing only 
+	a few lines (or even just an 'end')	after a section break. 
+*/
+#define LINE_LEN	48L
+int pem_lines = 720;
+#define BYTES_PER_SECTION	(LINE_LEN * pem_lines)
+
+#ifdef MSDOS	/* limited stack space */
+#define MAX_LINE_SIZE	256
+#else
+#define MAX_LINE_SIZE	1024
+#endif
+
+extern boolean verbose;	/* Undocumented command mode in PGP.C */
+extern boolean filter_mode;
+
+/*
+ * Copy from infilename to outfilename, PEM encoding as you go along,
+ * and with breaks every
+ * pem_lines lines.
+ * If clearfilename is non-NULL, first output that file preceded by a
+ * special header line.
+ */
+int pem_file(char *infilename, char *outfilename, char *clearfilename)
+{
+	char buffer[MAX_LINE_SIZE];
+	int i,rc,bytesRead,lines = 0;
+	int noSections, currentSection = 1;
+	long fileLen;
+	crcword crc;
+	FILE *inFile, *outFile, *clearFile;
+	char *blocktype = "MESSAGE";
+
+	/* open input file as binary */
+	if ((inFile = fopen(infilename,FOPRBIN)) == NULL)
+	{   
+		return(1);
+	}
+
+	if (!outfilename || pem_lines == 0)
+		noSections = 1;
+	else
+	{	/* Evaluate how many parts this file will comprise */
+		fseek(inFile,0L,SEEK_END);
+		fileLen = ftell(inFile);
+		rewind(inFile);
+		noSections = (fileLen + BYTES_PER_SECTION - 1) / BYTES_PER_SECTION;
+	}
+	
+	if (outfilename == NULL)
+		outFile = stdout;
+	else
+	{	if (noSections > 1)
+		{	force_extension(outfilename, ASC_EXTENSION);
+			outFile = fopen (numFilename (outfilename, 1), FOPWTXT);
+		}
+		else
+			outFile = fopen(outfilename,FOPWTXT);
+	}
+
+	if (outFile == NULL)
+	{	fclose(inFile);
+		return(1);
+	}
+
+	if (clearfilename)
+	{	if ((clearFile = fopen(clearfilename,FOPRTXT)) == NULL)
+		{	fclose (inFile);
+			if (outFile != stdout)
+				fclose (outFile);
+			return(1);
+		}
+		fprintf (outFile, "-----BEGIN PGP SIGNED MESSAGE-----\n\n");
+		while (fgets(buffer, sizeof(buffer), clearFile) != NULL)
+		{	/* Quote lines beginning with '-' */
+			if (buffer[0] == '-')
+				fputs("- ", outFile);
+			fputs(buffer, outFile);
+		}
+		fclose (clearFile);
+		putc('\n', outFile);
+		blocktype = "SIGNATURE";
+	}
+
+
+	if (noSections == 1)
+	{
+		byte ctb = 0;
+		ctb = getc(inFile);
+		if (is_ctb_type(ctb, CTB_CERT_PUBKEY_TYPE))
+			blocktype = "PUBLIC KEY BLOCK";
+		fprintf (outFile, "-----BEGIN PGP %s-----\n",blocktype);
+		rewind(inFile);
+	}
+	else
+		fprintf (outFile, "-----BEGIN PGP MESSAGE, PART %02d/%02d-----\n",
+					1, noSections);
+	fprintf (outFile, "Version: %s\n",rel_version);
+	fprintf (outFile, "\n");
+
+	init_crc();
+	crc = CRCINIT;
+
+	while((bytesRead = fread(buffer,1,LINE_LEN,inFile)) > 0)
+	{	/* Munge up LINE_LEN characters */
+		if (bytesRead < LINE_LEN)
+			fill0 (buffer+bytesRead, LINE_LEN-bytesRead);
+
+		for (i=0; i<bytesRead-2; i+=3) {
+			crc = crcupdate(buffer[i],crc);
+			crc = crcupdate(buffer[i+1],crc);
+			crc = crcupdate(buffer[i+2],crc);
+			outdec(buffer+i,outFile,3);
+		}
+
+		if (i<bytesRead) {
+			outdec(buffer+i,outFile,bytesRead-i);
+			while (i<bytesRead)
+				crc = crcupdate(buffer[i++],crc);
+		}
+		putc('\n',outFile);
+
+		if (++lines == pem_lines && currentSection < noSections)
+		{	lines = 0;
+			outcrc (crc, outFile);
+			fprintf(outFile,"-----END PGP MESSAGE, PART %02d/%02d-----\n\n",
+				currentSection, noSections);
+			if (write_error(outFile))
+			{	fclose(outFile);
+				return(-1);
+			}
+			fclose (outFile);
+			outFile = fopen (numFilename (outfilename, ++currentSection), FOPWTXT);
+			if (outFile == NULL)
+			{	fclose(inFile);
+				return(-1);
+			}
+			fprintf(outFile,"-----BEGIN PGP MESSAGE, PART %02d/%02d-----\n",
+					currentSection, noSections);
+			fprintf(outFile,"\n");
+			crc = CRCINIT;
+		}
+	}
+	outcrc (crc, outFile);
+
+	if (noSections == 1)
+		fprintf (outFile, "-----END PGP %s-----\n",blocktype);
+	else
+		fprintf(outFile,"-----END PGP MESSAGE, PART %02d/%02d-----\n",
+				noSections, noSections);
+
+	/* Done */
+	fclose(inFile);
+	rc = write_error(outFile);
+	if (outFile == stdout)
+		return rc;
+	fclose(outFile);
+
+	if (rc)
+		return(-1);
+
+	if (clearfilename)
+		fprintf (pgpout, PSTR("\nClear signature file: %s\n"), outfilename);
+	else if (noSections == 1)
+		fprintf (pgpout, PSTR("\nTransport armor file: %s\n"), outfilename);
+	else
+	{	int i;
+		fprintf (pgpout, PSTR("\nTransport armor files: "));
+		for (i=1; i<=noSections; ++i)
+			fprintf (pgpout, "%s%s", numFilename(outfilename,i),
+						i==noSections?"\n":", ");
+	}
+	return(0);
+}	/* pem_file */
+
+
+
+
+
+/* 	End PEM encode routines. */
+
+/*	PEM decode routines.
+*/
+
+#define MAX_RETRY_LINES	100
+
+/* Strip trailing spaces and CR characters */
+void
+strip_trailing (char *buf)
+{
+	char *bp = buf;
+	while (*bp++ != '\n')		/* Find end of line */
+		;
+	--bp; --bp;					/* And back up... */
+								/* Back up over spaces & CR */
+	while (bp >= buf  &&  (*bp == ' '  ||  *bp == '\r'))
+		--bp;
+	bp[1] = '\n';				/* Terminate line cleanly */
+	bp[2] = '\0';
+}
+
+
+int dpem_buffer(char *inbuf, char *outbuf, int *outlength)
+{
+	unsigned char *bp;
+	int	length;
+	unsigned int c1,c2,c3,c4;
+	register int j;
+
+	strip_trailing(inbuf);
+	length = 0;
+	bp = (unsigned char *)inbuf;
+
+	/* FOUR input characters go into each THREE output charcters */
+
+	while (*bp!='\0' && *bp!='\n' && *bp!='\r')
+	{	if (*bp&0x80 || (c1=asctobin[*bp])&0x80)
+			return -1;
+		++bp;
+		if (*bp&0x80 || (c2=asctobin[*bp])&0x80)
+			return -1;
+		if (*++bp == PAD)
+		{	c3 = c4 = 0;
+			length += 1;
+			if (*++bp != PAD)
+				return -1;
+		}
+		else if (*bp&0x80 || (c3=asctobin[*bp])&0x80)
+				return -1;
+		else
+		{	if (*++bp == PAD)
+			{	c4 = 0;
+				length += 2;
+			}
+			else if (*bp&0x80 || (c4=asctobin[*bp])&0x80)
+				return -1;
+			else
+				length += 3;
+		}
+		++bp;
+		j = (c1 << 2) | (c2 >> 4);
+		*outbuf++=j;
+		j = (c2 << 4) | (c3 >> 2);
+		*outbuf++=j;
+		j = (c3 << 6) | c4;
+		*outbuf++=j;
+	}
+
+	*outlength = length;
+	return(0);	/* normal return */
+
+}	/* dpem_buffer */
+
+static char pemfilename[MAX_PATH];
+/*
+ * try to open the next file of a multi-part armored file
+ * the sequence number is expected at the end of the file name
+ */
+static FILE *
+open_next()
+{
+	char *p, *s, c;
+	FILE *fp;
+
+	p = pemfilename + strlen(pemfilename);
+	while (--p >= pemfilename && isdigit(*p))
+	{
+		if (*p != '9')
+		{
+			++*p;
+			return(fopen(pemfilename, FOPRTXT));
+		}
+		*p = '0';
+	}
+
+	/* need an extra digit */
+	if (p >= pemfilename)
+	{	/* try replacing character ( .as0 -> .a10 ) */
+		c = *p;
+		*p = '1';
+		if ((fp = fopen(pemfilename, FOPRTXT)) != NULL)
+			return(fp);
+		*p = c;	/* restore original character */
+	}
+	++p;
+	for (s = p + strlen(p); s >= p; --s)
+		s[1] = *s;
+	*p = '1'; /* insert digit ( fn0 -> fn10 ) */
+
+	return(fopen(pemfilename, FOPRTXT));
+}
+
+/*
+ * Copy from in to out, decoding as you go, with handling for multiple
+ * 500-line blocks of encoded data.
+ */
+int pemdecode(FILE *in, FILE *out)
+{
+char inbuf[MAX_LINE_SIZE];
+char outbuf[80];
+
+int i, n, status;
+int line;
+int section, currentSection = 1;
+int noSections = 0;
+int gotcrc = 0;
+long crc=CRCINIT, chkcrc;
+char crcbuf[4];
+int ret_code = 0;
+
+	init_crc();
+
+	for (line = 1; ; line++)	/* for each input line */
+	{
+		if (fgets(inbuf, sizeof(inbuf), in) == NULL)
+		{
+			fprintf(pgpout,PSTR("ERROR: ASCII armor decode input ended unexpectedly!\n"));
+			return(18);
+		}
+		++infile_line;
+
+		if (currentSection!=noSections &&
+				strncmp(inbuf,"-----END PGP MESSAGE,", 21) == 0)
+		{	/* End of this section */
+			if (gotcrc)
+			{	if (chkcrc != crc)
+				{	fprintf(pgpout,PSTR("ERROR: Bad ASCII armor checksum in section %d.\n"), currentSection);
+					ret_code = -1;	/* continue with decoding to see if there are other bad parts */
+				}
+			}
+			gotcrc = 0;
+			crc = CRCINIT;
+			section = 0;
+
+			/* Try and find start of next section */
+			do
+			{	if (fgets(inbuf,sizeof(inbuf),in) == NULL)
+				{	FILE *nextf;
+					if ((nextf = open_next()) != NULL)
+					{
+						fclose(in);
+						in = nextf;
+						continue;
+					}
+					fprintf(pgpout,PSTR("Can't find section %d.\n"),currentSection + 1);
+					return(-1);
+				}
+				++infile_line;
+			}
+			while (strncmp(inbuf,"-----BEGIN PGP MESSAGE",22));
+
+			/* Make sure this section is the correct one */
+			if (2 != sscanf(inbuf,"-----BEGIN PGP MESSAGE, PART %d/%d",
+				&section,&noSections))
+			{	fprintf(pgpout,PSTR("Badly formed section header, part %d.\n"),
+					currentSection+1);
+				return(-1);
+			}
+			if (section != ++currentSection)
+			{	fprintf(pgpout,PSTR("Sections out of order, expected part %d"),currentSection);
+				if (section)
+					fprintf(pgpout,PSTR(", got part %d\n"),section);
+				else
+					fputc('\n',pgpout);
+				return(-1);
+			}
+
+			/* Skip header after BEGIN line */
+			do {
+				++infile_line;
+				if (fgets(inbuf, sizeof inbuf, in) == NULL)
+				{
+					fprintf(pgpout,PSTR("ERROR: Hit EOF in header of section %d.\n"),
+						currentSection);
+					return(-1);
+				}
+			} while (inbuf[0] != '\n' && inbuf[0] != '\r');
+
+			/* Continue decoding */
+			continue;
+		}
+
+		/* Quit when hit the -----END PGP MESSAGE----- line or a blank,
+			or handle checksum */
+		if (inbuf[0] == PAD)	/* Checksum lines start with PAD char */
+		{	status = dpem_buffer (inbuf+1,crcbuf,&n);
+			if (status==-1  ||  n!=3)
+			{	fprintf(pgpout,PSTR("ERROR: Badly formed ASCII armor checksum, line %d.\n"),line);
+				return -1;
+			}
+			chkcrc = (((long)crcbuf[0]<<16)&0xff0000L) +
+				((crcbuf[1]<<8)&0xff00L) + (crcbuf[2]&0xffL);
+			gotcrc = 1;
+			continue;
+		}
+		if (inbuf[0] == '\n'  ||  inbuf[0] == '\r')
+		{	fprintf(pgpout,PSTR("WARNING: No ASCII armor `END' line.\n"));
+			break;
+		}
+		if (strncmp(inbuf, "-----END PGP ", 13) == 0)
+			break;
+
+		status = dpem_buffer(inbuf,outbuf,&n);
+
+		if (status == -1)
+		{	fprintf(pgpout,PSTR("ERROR: Bad ASCII armor character, line %d.\n"), line);
+			gotcrc = 1;	/* this will print part number, continue with next part */
+			ret_code = -1;
+		}
+
+		if (n > sizeof outbuf)
+		{	fprintf(pgpout,PSTR("ERROR: Bad ASCII armor line length %d on line %d.\n"),
+					n, line);
+			return -1;
+		}
+
+		for (i=0; i<n; ++i)
+			crc = crcupdate(outbuf[i],crc);
+		if (fwrite(outbuf,1,n,out) != n)
+		{	ret_code = -1;
+			break;
+		}
+
+	}	/* line */
+
+	if (gotcrc)
+	{	if (chkcrc != crc)
+		{	fprintf(pgpout,PSTR("ERROR: Bad ASCII armor checksum"));
+			if (noSections > 0)
+				fprintf(pgpout,PSTR(" in section %d"), noSections);
+			fputc('\n',pgpout);
+			return -1;
+		}
+	}
+	else
+		fprintf(pgpout,PSTR("Warning: Transport armor lacks a checksum.\n"));
+
+	return(ret_code);	/* normal return */
+}   /* pemdecode */
+
+
+boolean is_pemfile(char *infile)
+{
+	FILE	*in;
+	char	inbuf[MAX_LINE_SIZE];
+	char	outbuf[80];
+	int		i, n, status;
+	long	il;
+
+	if ((in = fopen(infile, FOPRTXT)) == NULL)
+	{	/* can't open file */
+		return(FALSE);
+	}
+
+	/* Read to infile_line before we begin looking */
+	for (il=0; il<infile_line; ++il)
+	{
+		if (fgets(inbuf, sizeof inbuf, in) == NULL)
+		{	fclose(in);
+			return(FALSE);
+		}
+	}
+
+	/* search file for header line */
+	for (;;)
+	{
+		if (fgets(inbuf, sizeof inbuf, in) == NULL)
+			break;
+		else
+		{
+			if (strncmp(inbuf, "-----BEGIN PGP ", 15) == 0)
+			{
+				if (strncmp(inbuf,"-----BEGIN PGP SIGNED MESSAGE-----",34)==0) {
+					fclose(in);
+					return(TRUE);
+				}
+				do {
+					if (fgets(inbuf, sizeof inbuf, in) == NULL)
+						break;
+#ifndef STRICT_PEM
+					if (dpem_buffer(inbuf,outbuf,&n) == 0 && n == 48)
+					{	fclose(in);
+						return(TRUE);
+					}
+#endif
+				} while (inbuf[0] != '\n');
+				if (fgets(inbuf, sizeof inbuf, in) == NULL)
+					break;
+				status = dpem_buffer(inbuf,outbuf,&n);
+				if (status < 0)
+					break;
+				fclose(in);
+				return(TRUE);
+			}
+		}
+	}
+
+	fclose(in);
+	return(FALSE);
+
+}	/* is_pemfile */
+
+
+int dpem_file(char *infile, char *outfile)
+{
+FILE	*in, *out;
+char	buf[MAX_LINE_SIZE];
+char	outbuf[80];
+int		status, n;
+long	il, fpos;
+char	*litfile = NULL;
+
+	/* open PEM decode file as text */
+	if ((in = fopen(infile, FOPRTXT)) == NULL)
+	{
+		fprintf(pgpout,PSTR("ERROR: Can't find file %s\n"), infile);
+		return(10);
+	}
+	strcpy(pemfilename, infile);	/* store filename for multi-parts */
+
+	/* Skip to infile_line */
+	for (il=0; il<infile_line; ++il)
+	{
+		if (fgets(buf, sizeof buf, in) == NULL)
+		{	fclose(in);
+			return -1;
+		}
+	}
+
+	/* Loop through file, searching for header.  Decode anything with a
+	   header, complain if there were no headers. */
+
+	/* search file for header line */
+    for (;;)
+	{
+		++infile_line;
+		if (fgets(buf, sizeof buf, in) == NULL)
+		{
+			fprintf(pgpout,PSTR("ERROR: No ASCII armor `BEGIN' line!\n"));
+			fclose(in);
+			return(12);
+		}
+		if (strncmp(buf, "-----BEGIN PGP ", 15) == 0)
+			break;
+	}
+	if (strncmp(buf, "-----BEGIN PGP SIGNED MESSAGE-----", 34) == 0) {
+		FILE	*litout;
+		char	*canonfile, *p;
+		boolean	inheader = TRUE;
+		boolean	nline = FALSE;
+
+		litfile = tempfile(TMP_WIPE|TMP_TMPDIR);
+		if ((litout = fopen (litfile, FOPWTXT)) == NULL)
+		{	fprintf(pgpout,PSTR("\n\007Unable to write ciphertext output file '%s'.\n"), litfile);
+			fclose(in);
+			return(-1);
+		}
+		for ( ; ; )
+		{	++infile_line;
+			if (fgets(buf, sizeof buf, in) == NULL)
+			{	fprintf(pgpout,PSTR("ERROR: ASCII armor decode input ended unexpectedly!\n"));
+				fclose(in);
+				fclose(litout);
+				rmtemp (litfile);
+				return(12);
+			}
+			/* skip header lines including blank separator line */
+			if (inheader)
+			{	if (buf[0] == '\n')
+					inheader = FALSE;
+			}
+			else
+			{	if (strncmp(buf,"-----BEGIN PGP ", 15) == 0)
+					break;
+				if (nline)
+					putc('\n', litout);
+				p = buf + strlen(buf) - 1;
+				if (p >= buf && *p == '\n')
+				{	nline = TRUE;
+				/* remove \n, original file may have ended in unterminated line */
+					*p = '\0';
+				}
+				/* De-quote lines starting with '- ' */
+				fputs(buf + ((buf[0]=='-'&&buf[1]==' ')?2:0), litout);
+			}
+		}
+		fflush (litout);
+		if (ferror(litout))
+		{	fclose(litout);
+			fclose(in);
+			rmtemp (litfile);
+			return(-1);
+		}
+		fclose (litout);
+		canonfile = tempfile(TMP_WIPE|TMP_TMPDIR);
+		make_canonical (litfile, canonfile);
+		rmtemp (litfile);
+		litfile = canonfile;
+	}
+
+	/* Skip header after BEGIN line */
+	do {
+		++infile_line;
+		fpos = ftell(in);
+		if (fgets(buf, sizeof buf, in) == NULL)
+		{
+			fprintf(pgpout,PSTR("ERROR: Hit EOF in header.\n"));
+			fclose(in);
+			return(13);
+		}
+#ifndef STRICT_PEM
+		if (dpem_buffer(buf,outbuf,&n) == 0 && n == 48)
+		{	fseek(in, fpos, SEEK_SET);
+			--infile_line;
+			break;
+		}
+#endif
+	} while (buf[0] != '\n');
+
+	if ((out = fopen(outfile, FOPWBIN)) == NULL)
+	{	fprintf(pgpout,PSTR("\n\007Unable to write ciphertext output file '%s'.\n"), outfile);
+		fclose(in);
+		return(-1);
+	}
+
+	status = pemdecode(in, out);
+
+	if (litfile)
+	{	/* Glue the literal file read above to the signature */
+		char lit_mode=MODE_TEXT;	
+		word32 dummystamp = 0;
+		FILE *f = fopen(litfile,FOPRBIN);
+		write_ctb_len (out, CTB_LITERAL_TYPE, fsize(f), FALSE);
+		fwrite ( &lit_mode, 1, 1, out );	/*	write lit_mode */
+		fputc ('\0', out);			/* No filename */
+		fwrite ( &dummystamp, 1, sizeof(dummystamp), out); /* dummy timestamp */
+		copyfile(f,out,-1L);		/* Append literal file */
+		fclose (f);
+		rmtemp(litfile);
+	}
+
+	if (write_error(out))
+		status = -1;
+	fclose(out);
+	fclose(in);
+	return(status);
+}   /* dpem_file */
+
+/* Entry points for generic interface names */
+int
+armor_file (char *infile, char *outfile, char *filename, char *clearname)
+{
+	if (verbose)
+		fprintf(pgpout,"armor_file: infile = %s, outfile = %s, filename = %s, clearname = %s\n",
+			infile, outfile, filename, clearname);
+	return pem_file (infile, outfile, clearname);
+}
+
+int
+de_armor_file(char *infile, char *outfile, long *curline)
+{
+	int status;
+
+	if (verbose)
+		fprintf(pgpout,"de_armor_file: infile = %s, outfile = %s, curline = %ld\n",
+			infile, outfile, *curline);
+	infile_line = (curline ? *curline : 0);
+	status = dpem_file (infile, outfile);
+	if (curline)
+		*curline = infile_line;
+	return status;
+}
+
+boolean
+is_armor_file (char *infile, long startline)
+{
+	infile_line = startline;
+	return is_pemfile (infile);
+}