/* Copyright (c) 1991 Bell Communications Research, Inc. (Bellcore) Permission to use, copy, modify, and distribute this material for any purpose and without fee is hereby granted, provided that the above copyright notice and this permission notice appear in all copies, and that the name of Bellcore not be used in advertising or publicity pertaining to this material without the specific, prior written permission of an authorized representative of Bellcore. BELLCORE MAKES NO REPRESENTATIONS ABOUT THE ACCURACY OR SUITABILITY OF THIS MATERIAL FOR ANY PURPOSE. IT IS PROVIDED "AS IS", WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES. */ /* modified and "ansi-ficated" for use with AM by Christian Riede */ #include "am.h" #include "config.h" extern char *index(); static char basis_64[] = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"; static void output64chunk(int c1,int c2,int c3,int pads, FILE *outfile) { putc(basis_64[c1>>2], outfile); putc(basis_64[((c1 & 0x3)<< 4) | ((c2 & 0xF0) >> 4)], outfile); if (pads == 2) { putc('=', outfile); putc('=', outfile); } else if (pads) { putc(basis_64[((c2 & 0xF) << 2) | ((c3 & 0xC0) >>6)], outfile); putc('=', outfile); } else { putc(basis_64[((c2 & 0xF) << 2) | ((c3 & 0xC0) >>6)], outfile); putc(basis_64[c3 & 0x3F], outfile); } } void to64(FILE *infile, FILE *outfile) { int c1, c2, c3, ct=0; while ((c1 = getc(infile)) != EOF) { c2 = getc(infile); if (c2 == EOF) { output64chunk(c1, 0, 0, 2, outfile); } else { c3 = getc(infile); if (c3 == EOF) { output64chunk(c1, c2, 0, 1, outfile); } else { output64chunk(c1, c2, c3, 0, outfile); } } ct += 4; if (ct > 71) { putc('\n', outfile); ct = 0; } } if (ct) putc('\n', outfile); fflush(outfile); } static int nextc(UBYTE **buf,int *len) { int ret; if (*len>0) { (*len)--; ret = **buf; (*buf)++; return(ret); } else return(-1); } void lineto64(UBYTE *Buf, int len, FILE *outfile) { int c1, c2, c3, ct=0; while ((c1 = nextc(&Buf,&len)) != EOF) { c2 = nextc(&Buf,&len); if (c2 == EOF) { output64chunk(c1, 0, 0, 2, outfile); } else { c3 = nextc(&Buf,&len); if (c3 == EOF) { output64chunk(c1, c2, 0, 1, outfile); } else { output64chunk(c1, c2, c3, 0, outfile); } } ct += 4; if (ct > 71) { putc('\n', outfile); ct = 0; } } if (ct) putc('\n', outfile); fflush(outfile); } int PendingBoundary(char *s,char ** Boundaries,int * BoundaryCt) { int i; for (i=0; i < *BoundaryCt; ++i) { if (!strncmp(s, Boundaries[i], strlen(Boundaries[i]))) { char Buf[2000]; strcpy(Buf, Boundaries[i]); strcat(Buf, "--\n"); if (!strcmp(Buf, s)) *BoundaryCt = i; return(1); } } return(0); } static int char64(char c) { char *s = (char *) index(basis_64, c); if (s) return(s-basis_64); return(-1); } void from64(FILE *infile,FILE *outfile,char ** boundaries,int * boundaryct) { int c1, c2, c3, c4; int newline = 1; while ((c1 = getc(infile)) != EOF) { if (isspace(c1)) { if (c1 == '\n') { newline = 1; } else { newline = 0; } continue; } if (newline && boundaries && c1 == '-') { char Buf[200]; /* a dash is NOT base 64, so all bets are off if NOT a boundary */ ungetc(c1, infile); fgets(Buf, sizeof(Buf), infile); if (boundaries && (Buf[0] == '-') && (Buf[1] == '-') && PendingBoundary(Buf, boundaries, boundaryct)) { return; } fprintf(stderr, "Ignoring unrecognized boundary line: %s\n", Buf); continue; } newline = 0; do { c2 = getc(infile); } while (c2 != EOF && isspace(c2)); do { c3 = getc(infile); } while (c3 != EOF && isspace(c3)); do { c4 = getc(infile); } while (c4 != EOF && isspace(c4)); if (c2 == EOF || c3 == EOF || c4 == EOF) { fprintf(stderr, "Premature EOF!\n"); return; } c1 = char64(c1); c2 = char64(c2); putc(((c1<<2) | ((c2&0x30)>>4)), outfile); if (c3 != '=') { c3 = char64(c3); putc((((c2&0XF) << 4) | ((c3&0x3C) >> 2)), outfile); if (c4 != '=') { c4 = char64(c4); putc((((c3&0x03) <<6) | c4), outfile); } } } } static char basis_hex[] = "0123456789ABCDEF"; static int hexchar(char c) { char *s; if (islower(c)) c = toupper(c); s = (char *) index(basis_hex, c); if (s) return(s-basis_hex); return(-1); } void toqp(FILE *infile,FILE *outfile) { int c, ct=0, prevc=255; while ((c = getc(infile)) != EOF) { if ((c < 32 && (c != '\n' && c != '\t')) || (c == '=') || ((c >= 127))) { putc('=', outfile); putc(basis_hex[c>>4], outfile); putc(basis_hex[c&0xF], outfile); ct += 3; prevc = 'A'; /* close enough */ } else if (c == '\n') { if (prevc == ' ' || prevc == '\t') { putc('=', outfile); /* soft & hard lines */ putc(c, outfile); } putc(c, outfile); ct = 0; prevc = c; } else { putc(c, outfile); ++ct; prevc = c; } if (ct > 72) { putc('=', outfile); putc('\n', outfile); ct = 0; prevc = '\n'; } } if (ct) { putc('=', outfile); putc('\n', outfile); } } void linetoqp(UBYTE *Buf,int len,FILE *outfile) { int c,ct=0; while (len>0) { c = *Buf++; len--; if ((c < 32) || (c == '=') || (c >= 127)) { putc('=', outfile); putc(basis_hex[c>>4], outfile); putc(basis_hex[c&0xF], outfile); ct+=3; } else { putc(c, outfile); ct++; } if (ct > 72) { putc('=', outfile); putc('\n', outfile); ct = 0; } } if (ct) { putc('=', outfile); putc('\n', outfile); } } void fromqp(FILE *infile,FILE * outfile,char **boundaries,int *boundaryct) { int c1, c2, sawnewline = 1; while ((c1 = getc(infile)) != EOF) { if (sawnewline && boundaries && (c1 == '-')) { char Buf[200], *s; ungetc(c1, infile); fgets(Buf, sizeof(Buf), infile); if (boundaries && (Buf[0] == '-') && (Buf[1] == '-') && PendingBoundary(Buf, boundaries, boundaryct)) { return; } /* Not a boundary, now we must treat THIS line as q-p, sigh */ for (s=Buf; *s; ++s) { if (*s == '=') { if (!*++s) break; if (*s == '\n') { /* ignore it */ sawnewline = 1; } else { c1 = hexchar(*s); if (!*++s) break; c2 = hexchar(*s); putc(c1<<4 | c2, outfile); } } else { putc(*s, outfile); } } } else { sawnewline = (c1 == '\n') ? 1 : 0; if (c1 == '=') { c1 = getc(infile); if (c1 == '\n') { /* ignore it */ sawnewline = 1; } else { c2 = getc(infile); c1 = hexchar(c1); c2 = hexchar(c2); putc(c1<<4 | c2, outfile); if (c2 == '\n') sawnewline = 1; } } else { putc(c1, outfile); } } } }