848c3749d2
Buffers are no longer wired into any input or translation functions. They are supplied as arguments through main.
94 lines
2.1 KiB
C
94 lines
2.1 KiB
C
#include "trans.h"
|
|
|
|
#define PADDING '='
|
|
|
|
unsigned char b64[] = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" \
|
|
"abcdefghijklmnopqrstuvwxyz" \
|
|
"0123456789" \
|
|
"+/";
|
|
|
|
int
|
|
encode(unsigned char *op, int olen, unsigned char *sp)
|
|
{
|
|
int n;
|
|
unsigned char *sb;
|
|
|
|
sb = sp;
|
|
switch (olen) {
|
|
case 3:
|
|
*sp++ = b64[(*op & ~3) >> 2];
|
|
n = (*op++ & 3) << 4;
|
|
*sp++ = b64[n + ((*op & ~15) >> 4)];
|
|
n = (*op++ & 15) << 2;
|
|
*sp++ = b64[n + ((*op & 192) >> 6)];
|
|
*sp = b64[*op & ~192];
|
|
break;
|
|
case 2:
|
|
*sp++ = b64[(*op & ~3) >> 2];
|
|
n = (*op++ & 3) << 4;
|
|
*sp++ = b64[n + ((*op & ~15) >> 4)];
|
|
*sp++ = b64[(*op & 15) << 2];
|
|
*sp = PADDING;
|
|
break;
|
|
case 1:
|
|
*sp++ = b64[(*op & ~3) >> 2];
|
|
*sp++ = b64[(*op & 3) << 4];
|
|
*sp++ = PADDING;
|
|
*sp = PADDING;
|
|
break;
|
|
}
|
|
|
|
return sp-sb+1;
|
|
}
|
|
|
|
int
|
|
decode(unsigned char *sp, int slen, unsigned char *op)
|
|
{
|
|
int n, b, atob(int c);
|
|
unsigned char *ob;
|
|
|
|
ob = op;
|
|
switch (slen) {
|
|
case 4:
|
|
n = atob(*sp++) << 2;
|
|
b = atob(*sp++);
|
|
*op++ = n + ((b & ~15) >> 4);
|
|
|
|
n = (b & 15) << 4;
|
|
b = atob(*sp++);
|
|
*op++ = n + ((b & ~3) >> 2);
|
|
|
|
*op = ((b & 3) << 6) + atob(*sp);
|
|
break;
|
|
case 3:
|
|
n = atob(*sp++) << 2;
|
|
b = atob(*sp++);
|
|
*op++ = n + ((b & ~15) >> 4);
|
|
|
|
n = (b & 15) << 4;
|
|
*op = n + ((atob(*sp) & ~3) >> 2);
|
|
break;
|
|
case 2:
|
|
n = atob(*sp++) << 2;
|
|
*op = n + ((atob(*sp) & ~15) >> 4);
|
|
break;
|
|
}
|
|
|
|
return op-ob+1;
|
|
}
|
|
|
|
int atob(int c)
|
|
{
|
|
if (c >= 'A' && c <= 'Z')
|
|
c -= 'A';
|
|
else if (c >= 'a' && c <= 'z')
|
|
c = c - 'a' + 26;
|
|
else if (c >= '0' && c <= '9')
|
|
c = c - '0' + 26 * 2;
|
|
else if (c == '+')
|
|
c = 62;
|
|
else
|
|
c = 63;
|
|
|
|
return c;
|
|
}
|