1*b30d1939SAndy Fiddaman /***********************************************************************
2*b30d1939SAndy Fiddaman * *
3*b30d1939SAndy Fiddaman * This software is part of the ast package *
4*b30d1939SAndy Fiddaman * Copyright (c) 1985-2011 AT&T Intellectual Property *
5*b30d1939SAndy Fiddaman * and is licensed under the *
6*b30d1939SAndy Fiddaman * Eclipse Public License, Version 1.0 *
7*b30d1939SAndy Fiddaman * by AT&T Intellectual Property *
8*b30d1939SAndy Fiddaman * *
9*b30d1939SAndy Fiddaman * A copy of the License is available at *
10*b30d1939SAndy Fiddaman * http://www.eclipse.org/org/documents/epl-v10.html *
11*b30d1939SAndy Fiddaman * (with md5 checksum b35adb5213ca9657e911e9befb180842) *
12*b30d1939SAndy Fiddaman * *
13*b30d1939SAndy Fiddaman * Information and Software Systems Research *
14*b30d1939SAndy Fiddaman * AT&T Research *
15*b30d1939SAndy Fiddaman * Florham Park NJ *
16*b30d1939SAndy Fiddaman * *
17*b30d1939SAndy Fiddaman * Glenn Fowler <gsf@research.att.com> *
18*b30d1939SAndy Fiddaman * David Korn <dgk@research.att.com> *
19*b30d1939SAndy Fiddaman * Phong Vo <kpv@research.att.com> *
20*b30d1939SAndy Fiddaman * *
21*b30d1939SAndy Fiddaman ***********************************************************************/
22*b30d1939SAndy Fiddaman #pragma prototyped
23*b30d1939SAndy Fiddaman /*
24*b30d1939SAndy Fiddaman * mime base64 encode/decode
25*b30d1939SAndy Fiddaman *
26*b30d1939SAndy Fiddaman * Glenn Fowler
27*b30d1939SAndy Fiddaman * David Korn
28*b30d1939SAndy Fiddaman * AT&T Research
29*b30d1939SAndy Fiddaman */
30*b30d1939SAndy Fiddaman
31*b30d1939SAndy Fiddaman #include <ast.h>
32*b30d1939SAndy Fiddaman
33*b30d1939SAndy Fiddaman #define PAD '='
34*b30d1939SAndy Fiddaman
35*b30d1939SAndy Fiddaman #define B64_UC 3
36*b30d1939SAndy Fiddaman #define B64_EC 4
37*b30d1939SAndy Fiddaman #define B64_CHUNK 15
38*b30d1939SAndy Fiddaman #define B64_PAD 64
39*b30d1939SAndy Fiddaman #define B64_SPC 65
40*b30d1939SAndy Fiddaman #define B64_IGN 66
41*b30d1939SAndy Fiddaman
42*b30d1939SAndy Fiddaman static unsigned char map[UCHAR_MAX+1];
43*b30d1939SAndy Fiddaman
44*b30d1939SAndy Fiddaman static const char alp[] = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
45*b30d1939SAndy Fiddaman
46*b30d1939SAndy Fiddaman /*
47*b30d1939SAndy Fiddaman * mime base64 encode
48*b30d1939SAndy Fiddaman */
49*b30d1939SAndy Fiddaman
50*b30d1939SAndy Fiddaman ssize_t
base64encode(const void * fb,size_t fz,void ** fn,void * tb,size_t tz,void ** tn)51*b30d1939SAndy Fiddaman base64encode(const void* fb, size_t fz, void** fn, void* tb, size_t tz, void** tn)
52*b30d1939SAndy Fiddaman {
53*b30d1939SAndy Fiddaman register unsigned char* fp;
54*b30d1939SAndy Fiddaman register unsigned char* tp;
55*b30d1939SAndy Fiddaman register unsigned char* fe;
56*b30d1939SAndy Fiddaman register unsigned char* te;
57*b30d1939SAndy Fiddaman register unsigned char* tc;
58*b30d1939SAndy Fiddaman register unsigned char* m;
59*b30d1939SAndy Fiddaman register unsigned long b;
60*b30d1939SAndy Fiddaman size_t n;
61*b30d1939SAndy Fiddaman unsigned char tmp[B64_EC * B64_CHUNK];
62*b30d1939SAndy Fiddaman
63*b30d1939SAndy Fiddaman m = (unsigned char*)alp;
64*b30d1939SAndy Fiddaman fp = fe = (unsigned char*)fb;
65*b30d1939SAndy Fiddaman if (fz >= 3)
66*b30d1939SAndy Fiddaman {
67*b30d1939SAndy Fiddaman n = fz % 3;
68*b30d1939SAndy Fiddaman fe += fz - n;
69*b30d1939SAndy Fiddaman fz = n;
70*b30d1939SAndy Fiddaman }
71*b30d1939SAndy Fiddaman if (tp = (unsigned char*)tb)
72*b30d1939SAndy Fiddaman {
73*b30d1939SAndy Fiddaman te = tp + tz - B64_EC + 1;
74*b30d1939SAndy Fiddaman n = 0;
75*b30d1939SAndy Fiddaman }
76*b30d1939SAndy Fiddaman else
77*b30d1939SAndy Fiddaman {
78*b30d1939SAndy Fiddaman if (fn)
79*b30d1939SAndy Fiddaman *fn = fp;
80*b30d1939SAndy Fiddaman if (tn)
81*b30d1939SAndy Fiddaman *tn = 0;
82*b30d1939SAndy Fiddaman tp = tmp;
83*b30d1939SAndy Fiddaman te = tp + sizeof(tmp) - B64_EC + 1;
84*b30d1939SAndy Fiddaman n = 1;
85*b30d1939SAndy Fiddaman }
86*b30d1939SAndy Fiddaman for (;;)
87*b30d1939SAndy Fiddaman {
88*b30d1939SAndy Fiddaman tc = tp + B64_EC * B64_CHUNK;
89*b30d1939SAndy Fiddaman do
90*b30d1939SAndy Fiddaman {
91*b30d1939SAndy Fiddaman if (fp >= fe)
92*b30d1939SAndy Fiddaman goto done;
93*b30d1939SAndy Fiddaman if (tp >= te)
94*b30d1939SAndy Fiddaman {
95*b30d1939SAndy Fiddaman if (fn)
96*b30d1939SAndy Fiddaman *fn = fp;
97*b30d1939SAndy Fiddaman if (tn)
98*b30d1939SAndy Fiddaman *tn = tp;
99*b30d1939SAndy Fiddaman n = tp - (unsigned char*)tb + 1;
100*b30d1939SAndy Fiddaman tp = tmp;
101*b30d1939SAndy Fiddaman te = tp + sizeof(tmp) - B64_EC + 1;
102*b30d1939SAndy Fiddaman }
103*b30d1939SAndy Fiddaman b = *fp++ << 16;
104*b30d1939SAndy Fiddaman b |= *fp++ << 8;
105*b30d1939SAndy Fiddaman b |= *fp++;
106*b30d1939SAndy Fiddaman *tp++ = m[b >> 18];
107*b30d1939SAndy Fiddaman *tp++ = m[(b >> 12) & 077];
108*b30d1939SAndy Fiddaman *tp++ = m[(b >> 6) & 077];
109*b30d1939SAndy Fiddaman *tp++ = m[b & 077];
110*b30d1939SAndy Fiddaman } while (tp < tc);
111*b30d1939SAndy Fiddaman if (n)
112*b30d1939SAndy Fiddaman {
113*b30d1939SAndy Fiddaman n += tp - tmp + (fp < fe);
114*b30d1939SAndy Fiddaman tp = tmp;
115*b30d1939SAndy Fiddaman }
116*b30d1939SAndy Fiddaman else
117*b30d1939SAndy Fiddaman *tp++ = '\n';
118*b30d1939SAndy Fiddaman }
119*b30d1939SAndy Fiddaman done:
120*b30d1939SAndy Fiddaman if (fz)
121*b30d1939SAndy Fiddaman {
122*b30d1939SAndy Fiddaman if (tp >= te)
123*b30d1939SAndy Fiddaman {
124*b30d1939SAndy Fiddaman if (fn)
125*b30d1939SAndy Fiddaman *fn = fp;
126*b30d1939SAndy Fiddaman if (tn)
127*b30d1939SAndy Fiddaman *tn = tp;
128*b30d1939SAndy Fiddaman n = tp - (unsigned char*)tb + 1;
129*b30d1939SAndy Fiddaman tp = tmp;
130*b30d1939SAndy Fiddaman te = tp + sizeof(tmp) - B64_EC + 1;
131*b30d1939SAndy Fiddaman }
132*b30d1939SAndy Fiddaman b = *fp++ << 16;
133*b30d1939SAndy Fiddaman if (fz == 2)
134*b30d1939SAndy Fiddaman b |= *fp++ << 8;
135*b30d1939SAndy Fiddaman *tp++ = m[b >> 18];
136*b30d1939SAndy Fiddaman *tp++ = m[(b >> 12) & 077];
137*b30d1939SAndy Fiddaman *tp++ = (fz == 2) ? m[(b >> 6) & 077] : PAD;
138*b30d1939SAndy Fiddaman *tp++ = PAD;
139*b30d1939SAndy Fiddaman }
140*b30d1939SAndy Fiddaman if (n)
141*b30d1939SAndy Fiddaman n += (tp - tmp) - 1;
142*b30d1939SAndy Fiddaman else
143*b30d1939SAndy Fiddaman {
144*b30d1939SAndy Fiddaman if (tp > (unsigned char*)tb && *(tp - 1) == '\n')
145*b30d1939SAndy Fiddaman tp--;
146*b30d1939SAndy Fiddaman if (tp < te)
147*b30d1939SAndy Fiddaman *tp = 0;
148*b30d1939SAndy Fiddaman n = tp - (unsigned char*)tb;
149*b30d1939SAndy Fiddaman if (tn)
150*b30d1939SAndy Fiddaman *tn = tp;
151*b30d1939SAndy Fiddaman if (fn)
152*b30d1939SAndy Fiddaman *fn = fp;
153*b30d1939SAndy Fiddaman }
154*b30d1939SAndy Fiddaman return n;
155*b30d1939SAndy Fiddaman }
156*b30d1939SAndy Fiddaman
157*b30d1939SAndy Fiddaman /*
158*b30d1939SAndy Fiddaman * mime base64 decode
159*b30d1939SAndy Fiddaman */
160*b30d1939SAndy Fiddaman
161*b30d1939SAndy Fiddaman ssize_t
base64decode(const void * fb,size_t fz,void ** fn,void * tb,size_t tz,void ** tn)162*b30d1939SAndy Fiddaman base64decode(const void* fb, size_t fz, void** fn, void* tb, size_t tz, void** tn)
163*b30d1939SAndy Fiddaman {
164*b30d1939SAndy Fiddaman register unsigned char* fp;
165*b30d1939SAndy Fiddaman register unsigned char* tp;
166*b30d1939SAndy Fiddaman register unsigned char* fe;
167*b30d1939SAndy Fiddaman register unsigned char* te;
168*b30d1939SAndy Fiddaman register unsigned char* tx;
169*b30d1939SAndy Fiddaman register unsigned char* m;
170*b30d1939SAndy Fiddaman register int c;
171*b30d1939SAndy Fiddaman register int state;
172*b30d1939SAndy Fiddaman register unsigned long v;
173*b30d1939SAndy Fiddaman unsigned char* fc;
174*b30d1939SAndy Fiddaman ssize_t n;
175*b30d1939SAndy Fiddaman
176*b30d1939SAndy Fiddaman if (!(m = map)[0])
177*b30d1939SAndy Fiddaman {
178*b30d1939SAndy Fiddaman memset(m, B64_IGN, sizeof(map));
179*b30d1939SAndy Fiddaman for (tp = (unsigned char*)alp; c = *tp; tp++)
180*b30d1939SAndy Fiddaman m[c] = tp - (unsigned char*)alp;
181*b30d1939SAndy Fiddaman m[PAD] = B64_PAD;
182*b30d1939SAndy Fiddaman m[' '] = m['\t'] = m['\n'] = B64_SPC;
183*b30d1939SAndy Fiddaman }
184*b30d1939SAndy Fiddaman fp = (unsigned char*)fb;
185*b30d1939SAndy Fiddaman fe = fp + fz;
186*b30d1939SAndy Fiddaman if (tp = (unsigned char*)tb)
187*b30d1939SAndy Fiddaman {
188*b30d1939SAndy Fiddaman te = tp + tz;
189*b30d1939SAndy Fiddaman if (tz > 2)
190*b30d1939SAndy Fiddaman tz = 2;
191*b30d1939SAndy Fiddaman tx = te - tz;
192*b30d1939SAndy Fiddaman n = 0;
193*b30d1939SAndy Fiddaman }
194*b30d1939SAndy Fiddaman else
195*b30d1939SAndy Fiddaman {
196*b30d1939SAndy Fiddaman te = tx = tp;
197*b30d1939SAndy Fiddaman n = 1;
198*b30d1939SAndy Fiddaman }
199*b30d1939SAndy Fiddaman for (;;)
200*b30d1939SAndy Fiddaman {
201*b30d1939SAndy Fiddaman fc = fp;
202*b30d1939SAndy Fiddaman state = 0;
203*b30d1939SAndy Fiddaman v = 0;
204*b30d1939SAndy Fiddaman while (fp < fe)
205*b30d1939SAndy Fiddaman {
206*b30d1939SAndy Fiddaman if ((c = m[*fp++]) < 64)
207*b30d1939SAndy Fiddaman {
208*b30d1939SAndy Fiddaman v = (v << 6) | c;
209*b30d1939SAndy Fiddaman if (++state == 4)
210*b30d1939SAndy Fiddaman {
211*b30d1939SAndy Fiddaman if (tp >= tx)
212*b30d1939SAndy Fiddaman {
213*b30d1939SAndy Fiddaman if (n)
214*b30d1939SAndy Fiddaman n += 3;
215*b30d1939SAndy Fiddaman else
216*b30d1939SAndy Fiddaman {
217*b30d1939SAndy Fiddaman n = tp - (unsigned char*)tb + 4;
218*b30d1939SAndy Fiddaman if (tp < te)
219*b30d1939SAndy Fiddaman {
220*b30d1939SAndy Fiddaman *tp++ = (v >> 16);
221*b30d1939SAndy Fiddaman if (tp < te)
222*b30d1939SAndy Fiddaman {
223*b30d1939SAndy Fiddaman *tp++ = (v >> 8);
224*b30d1939SAndy Fiddaman if (tp < te)
225*b30d1939SAndy Fiddaman *tp++ = (v);
226*b30d1939SAndy Fiddaman }
227*b30d1939SAndy Fiddaman }
228*b30d1939SAndy Fiddaman if (tn)
229*b30d1939SAndy Fiddaman *tn = tp;
230*b30d1939SAndy Fiddaman if (fn)
231*b30d1939SAndy Fiddaman *fn = fc;
232*b30d1939SAndy Fiddaman }
233*b30d1939SAndy Fiddaman }
234*b30d1939SAndy Fiddaman else
235*b30d1939SAndy Fiddaman {
236*b30d1939SAndy Fiddaman *tp++ = (v >> 16);
237*b30d1939SAndy Fiddaman *tp++ = (v >> 8);
238*b30d1939SAndy Fiddaman *tp++ = (v);
239*b30d1939SAndy Fiddaman }
240*b30d1939SAndy Fiddaman fc = fp;
241*b30d1939SAndy Fiddaman state = 0;
242*b30d1939SAndy Fiddaman v = 0;
243*b30d1939SAndy Fiddaman }
244*b30d1939SAndy Fiddaman }
245*b30d1939SAndy Fiddaman else if (c == B64_PAD)
246*b30d1939SAndy Fiddaman break;
247*b30d1939SAndy Fiddaman }
248*b30d1939SAndy Fiddaman switch (state)
249*b30d1939SAndy Fiddaman {
250*b30d1939SAndy Fiddaman case 0:
251*b30d1939SAndy Fiddaman goto done;
252*b30d1939SAndy Fiddaman case 2:
253*b30d1939SAndy Fiddaman if (tp < te)
254*b30d1939SAndy Fiddaman *tp++ = v >> 4;
255*b30d1939SAndy Fiddaman else if (n)
256*b30d1939SAndy Fiddaman n++;
257*b30d1939SAndy Fiddaman else
258*b30d1939SAndy Fiddaman {
259*b30d1939SAndy Fiddaman n = tp - (unsigned char*)tb + 2;
260*b30d1939SAndy Fiddaman if (tn)
261*b30d1939SAndy Fiddaman *tn = tp;
262*b30d1939SAndy Fiddaman if (fn)
263*b30d1939SAndy Fiddaman *fn = fc;
264*b30d1939SAndy Fiddaman }
265*b30d1939SAndy Fiddaman break;
266*b30d1939SAndy Fiddaman case 3:
267*b30d1939SAndy Fiddaman if (tp < te)
268*b30d1939SAndy Fiddaman {
269*b30d1939SAndy Fiddaman *tp++ = v >> 10;
270*b30d1939SAndy Fiddaman if (tp < te)
271*b30d1939SAndy Fiddaman *tp++ = v >> 2;
272*b30d1939SAndy Fiddaman else
273*b30d1939SAndy Fiddaman {
274*b30d1939SAndy Fiddaman n = tp - (unsigned char*)tb + 2;
275*b30d1939SAndy Fiddaman if (tn)
276*b30d1939SAndy Fiddaman *tn = tp;
277*b30d1939SAndy Fiddaman if (fn)
278*b30d1939SAndy Fiddaman *fn = fc;
279*b30d1939SAndy Fiddaman }
280*b30d1939SAndy Fiddaman }
281*b30d1939SAndy Fiddaman else if (n)
282*b30d1939SAndy Fiddaman n += 2;
283*b30d1939SAndy Fiddaman else
284*b30d1939SAndy Fiddaman {
285*b30d1939SAndy Fiddaman n = tp - (unsigned char*)tb + 3;
286*b30d1939SAndy Fiddaman if (tn)
287*b30d1939SAndy Fiddaman *tn = tp;
288*b30d1939SAndy Fiddaman if (fn)
289*b30d1939SAndy Fiddaman *fn = fc;
290*b30d1939SAndy Fiddaman }
291*b30d1939SAndy Fiddaman break;
292*b30d1939SAndy Fiddaman }
293*b30d1939SAndy Fiddaman while (fp < fe && ((c = m[*fp++]) == B64_PAD || c == B64_SPC));
294*b30d1939SAndy Fiddaman if (fp >= fe || c >= 64)
295*b30d1939SAndy Fiddaman break;
296*b30d1939SAndy Fiddaman fp--;
297*b30d1939SAndy Fiddaman }
298*b30d1939SAndy Fiddaman done:
299*b30d1939SAndy Fiddaman if (n)
300*b30d1939SAndy Fiddaman n--;
301*b30d1939SAndy Fiddaman else
302*b30d1939SAndy Fiddaman {
303*b30d1939SAndy Fiddaman if (tp < te)
304*b30d1939SAndy Fiddaman *tp = 0;
305*b30d1939SAndy Fiddaman n = tp - (unsigned char*)tb;
306*b30d1939SAndy Fiddaman if (fn)
307*b30d1939SAndy Fiddaman *fn = fp;
308*b30d1939SAndy Fiddaman if (tn)
309*b30d1939SAndy Fiddaman *tn = tp;
310*b30d1939SAndy Fiddaman }
311*b30d1939SAndy Fiddaman return n;
312*b30d1939SAndy Fiddaman }
313