xref: /onnv-gate/usr/src/common/openssl/crypto/asn1/asn1_par.c (revision 2139:6243c3338933)
1 /* crypto/asn1/asn1_par.c */
2 /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
3  * All rights reserved.
4  *
5  * This package is an SSL implementation written
6  * by Eric Young (eay@cryptsoft.com).
7  * The implementation was written so as to conform with Netscapes SSL.
8  *
9  * This library is free for commercial and non-commercial use as long as
10  * the following conditions are aheared to.  The following conditions
11  * apply to all code found in this distribution, be it the RC4, RSA,
12  * lhash, DES, etc., code; not just the SSL code.  The SSL documentation
13  * included with this distribution is covered by the same copyright terms
14  * except that the holder is Tim Hudson (tjh@cryptsoft.com).
15  *
16  * Copyright remains Eric Young's, and as such any Copyright notices in
17  * the code are not to be removed.
18  * If this package is used in a product, Eric Young should be given attribution
19  * as the author of the parts of the library used.
20  * This can be in the form of a textual message at program startup or
21  * in documentation (online or textual) provided with the package.
22  *
23  * Redistribution and use in source and binary forms, with or without
24  * modification, are permitted provided that the following conditions
25  * are met:
26  * 1. Redistributions of source code must retain the copyright
27  *    notice, this list of conditions and the following disclaimer.
28  * 2. Redistributions in binary form must reproduce the above copyright
29  *    notice, this list of conditions and the following disclaimer in the
30  *    documentation and/or other materials provided with the distribution.
31  * 3. All advertising materials mentioning features or use of this software
32  *    must display the following acknowledgement:
33  *    "This product includes cryptographic software written by
34  *     Eric Young (eay@cryptsoft.com)"
35  *    The word 'cryptographic' can be left out if the rouines from the library
36  *    being used are not cryptographic related :-).
37  * 4. If you include any Windows specific code (or a derivative thereof) from
38  *    the apps directory (application code) you must include an acknowledgement:
39  *    "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
40  *
41  * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
42  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
43  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
44  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
45  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
46  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
47  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
48  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
49  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
50  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
51  * SUCH DAMAGE.
52  *
53  * The licence and distribution terms for any publically available version or
54  * derivative of this code cannot be changed.  i.e. this code cannot simply be
55  * copied and put under another distribution licence
56  * [including the GNU Public Licence.]
57  */
58 
59 #include <stdio.h>
60 #include "cryptlib.h"
61 #include <openssl/buffer.h>
62 #include <openssl/objects.h>
63 #include <openssl/asn1.h>
64 
65 static int asn1_print_info(BIO *bp, int tag, int xclass,int constructed,
66 	int indent);
67 static int asn1_parse2(BIO *bp, const unsigned char **pp, long length,
68 	int offset, int depth, int indent, int dump);
asn1_print_info(BIO * bp,int tag,int xclass,int constructed,int indent)69 static int asn1_print_info(BIO *bp, int tag, int xclass, int constructed,
70 	     int indent)
71 	{
72 	static const char fmt[]="%-18s";
73 	static const char fmt2[]="%2d %-15s";
74 	char str[128];
75 	const char *p,*p2=NULL;
76 
77 	if (constructed & V_ASN1_CONSTRUCTED)
78 		p="cons: ";
79 	else
80 		p="prim: ";
81 	if (BIO_write(bp,p,6) < 6) goto err;
82 	BIO_indent(bp,indent,128);
83 
84 	p=str;
85 	if ((xclass & V_ASN1_PRIVATE) == V_ASN1_PRIVATE)
86 		BIO_snprintf(str,sizeof str,"priv [ %d ] ",tag);
87 	else if ((xclass & V_ASN1_CONTEXT_SPECIFIC) == V_ASN1_CONTEXT_SPECIFIC)
88 		BIO_snprintf(str,sizeof str,"cont [ %d ]",tag);
89 	else if ((xclass & V_ASN1_APPLICATION) == V_ASN1_APPLICATION)
90 		BIO_snprintf(str,sizeof str,"appl [ %d ]",tag);
91 	else p = ASN1_tag2str(tag);
92 
93 	if (p2 != NULL)
94 		{
95 		if (BIO_printf(bp,fmt2,tag,p2) <= 0) goto err;
96 		}
97 	else
98 		{
99 		if (BIO_printf(bp,fmt,p) <= 0) goto err;
100 		}
101 	return(1);
102 err:
103 	return(0);
104 	}
105 
ASN1_parse(BIO * bp,const unsigned char * pp,long len,int indent)106 int ASN1_parse(BIO *bp, const unsigned char *pp, long len, int indent)
107 	{
108 	return(asn1_parse2(bp,&pp,len,0,0,indent,0));
109 	}
110 
ASN1_parse_dump(BIO * bp,const unsigned char * pp,long len,int indent,int dump)111 int ASN1_parse_dump(BIO *bp, const unsigned char *pp, long len, int indent, int dump)
112 	{
113 	return(asn1_parse2(bp,&pp,len,0,0,indent,dump));
114 	}
115 
asn1_parse2(BIO * bp,const unsigned char ** pp,long length,int offset,int depth,int indent,int dump)116 static int asn1_parse2(BIO *bp, const unsigned char **pp, long length, int offset,
117 	     int depth, int indent, int dump)
118 	{
119 	const unsigned char *p,*ep,*tot,*op,*opp;
120 	long len;
121 	int tag,xclass,ret=0;
122 	int nl,hl,j,r;
123 	ASN1_OBJECT *o=NULL;
124 	ASN1_OCTET_STRING *os=NULL;
125 	/* ASN1_BMPSTRING *bmp=NULL;*/
126 	int dump_indent;
127 
128 #if 0
129 	dump_indent = indent;
130 #else
131 	dump_indent = 6;	/* Because we know BIO_dump_indent() */
132 #endif
133 	p= *pp;
134 	tot=p+length;
135 	op=p-1;
136 	while ((p < tot) && (op < p))
137 		{
138 		op=p;
139 		j=ASN1_get_object(&p,&len,&tag,&xclass,length);
140 #ifdef LINT
141 		j=j;
142 #endif
143 		if (j & 0x80)
144 			{
145 			if (BIO_write(bp,"Error in encoding\n",18) <= 0)
146 				goto end;
147 			ret=0;
148 			goto end;
149 			}
150 		hl=(p-op);
151 		length-=hl;
152 		/* if j == 0x21 it is a constructed indefinite length object */
153 		if (BIO_printf(bp,"%5ld:",(long)offset+(long)(op- *pp))
154 			<= 0) goto end;
155 
156 		if (j != (V_ASN1_CONSTRUCTED | 1))
157 			{
158 			if (BIO_printf(bp,"d=%-2d hl=%ld l=%4ld ",
159 				depth,(long)hl,len) <= 0)
160 				goto end;
161 			}
162 		else
163 			{
164 			if (BIO_printf(bp,"d=%-2d hl=%ld l=inf  ",
165 				depth,(long)hl) <= 0)
166 				goto end;
167 			}
168 		if (!asn1_print_info(bp,tag,xclass,j,(indent)?depth:0))
169 			goto end;
170 		if (j & V_ASN1_CONSTRUCTED)
171 			{
172 			ep=p+len;
173 			if (BIO_write(bp,"\n",1) <= 0) goto end;
174 			if (len > length)
175 				{
176 				BIO_printf(bp,
177 					"length is greater than %ld\n",length);
178 				ret=0;
179 				goto end;
180 				}
181 			if ((j == 0x21) && (len == 0))
182 				{
183 				for (;;)
184 					{
185 					r=asn1_parse2(bp,&p,(long)(tot-p),
186 						offset+(p - *pp),depth+1,
187 						indent,dump);
188 					if (r == 0) { ret=0; goto end; }
189 					if ((r == 2) || (p >= tot)) break;
190 					}
191 				}
192 			else
193 				while (p < ep)
194 					{
195 					r=asn1_parse2(bp,&p,(long)len,
196 						offset+(p - *pp),depth+1,
197 						indent,dump);
198 					if (r == 0) { ret=0; goto end; }
199 					}
200 			}
201 		else if (xclass != 0)
202 			{
203 			p+=len;
204 			if (BIO_write(bp,"\n",1) <= 0) goto end;
205 			}
206 		else
207 			{
208 			nl=0;
209 			if (	(tag == V_ASN1_PRINTABLESTRING) ||
210 				(tag == V_ASN1_T61STRING) ||
211 				(tag == V_ASN1_IA5STRING) ||
212 				(tag == V_ASN1_VISIBLESTRING) ||
213 				(tag == V_ASN1_UTCTIME) ||
214 				(tag == V_ASN1_GENERALIZEDTIME))
215 				{
216 				if (BIO_write(bp,":",1) <= 0) goto end;
217 				if ((len > 0) &&
218 					BIO_write(bp,(const char *)p,(int)len)
219 					!= (int)len)
220 					goto end;
221 				}
222 			else if (tag == V_ASN1_OBJECT)
223 				{
224 				opp=op;
225 				if (d2i_ASN1_OBJECT(&o,&opp,len+hl) != NULL)
226 					{
227 					if (BIO_write(bp,":",1) <= 0) goto end;
228 					i2a_ASN1_OBJECT(bp,o);
229 					}
230 				else
231 					{
232 					if (BIO_write(bp,":BAD OBJECT",11) <= 0)
233 						goto end;
234 					}
235 				}
236 			else if (tag == V_ASN1_BOOLEAN)
237 				{
238 				int ii;
239 
240 				opp=op;
241 				ii=d2i_ASN1_BOOLEAN(NULL,&opp,len+hl);
242 				if (ii < 0)
243 					{
244 					if (BIO_write(bp,"Bad boolean\n",12))
245 						goto end;
246 					}
247 				BIO_printf(bp,":%d",ii);
248 				}
249 			else if (tag == V_ASN1_BMPSTRING)
250 				{
251 				/* do the BMP thang */
252 				}
253 			else if (tag == V_ASN1_OCTET_STRING)
254 				{
255 				int i,printable=1;
256 
257 				opp=op;
258 				os=d2i_ASN1_OCTET_STRING(NULL,&opp,len+hl);
259 				if (os != NULL && os->length > 0)
260 					{
261 					opp = os->data;
262 					/* testing whether the octet string is
263 					 * printable */
264 					for (i=0; i<os->length; i++)
265 						{
266 						if ((	(opp[i] < ' ') &&
267 							(opp[i] != '\n') &&
268 							(opp[i] != '\r') &&
269 							(opp[i] != '\t')) ||
270 							(opp[i] > '~'))
271 							{
272 							printable=0;
273 							break;
274 							}
275 						}
276 					if (printable)
277 					/* printable string */
278 						{
279 						if (BIO_write(bp,":",1) <= 0)
280 							goto end;
281 						if (BIO_write(bp,(const char *)opp,
282 							os->length) <= 0)
283 							goto end;
284 						}
285 					else if (!dump)
286 					/* not printable => print octet string
287 					 * as hex dump */
288 						{
289 						if (BIO_write(bp,"[HEX DUMP]:",11) <= 0)
290 							goto end;
291 						for (i=0; i<os->length; i++)
292 							{
293 							if (BIO_printf(bp,"%02X"
294 								, opp[i]) <= 0)
295 								goto end;
296 							}
297 						}
298 					else
299 					/* print the normal dump */
300 						{
301 						if (!nl)
302 							{
303 							if (BIO_write(bp,"\n",1) <= 0)
304 								goto end;
305 							}
306 						if (BIO_dump_indent(bp,
307 							(const char *)opp,
308 							((dump == -1 || dump >
309 							os->length)?os->length:dump),
310 							dump_indent) <= 0)
311 							goto end;
312 						nl=1;
313 						}
314 					}
315 				if (os != NULL)
316 					{
317 					M_ASN1_OCTET_STRING_free(os);
318 					os=NULL;
319 					}
320 				}
321 			else if (tag == V_ASN1_INTEGER)
322 				{
323 				ASN1_INTEGER *bs;
324 				int i;
325 
326 				opp=op;
327 				bs=d2i_ASN1_INTEGER(NULL,&opp,len+hl);
328 				if (bs != NULL)
329 					{
330 					if (BIO_write(bp,":",1) <= 0) goto end;
331 					if (bs->type == V_ASN1_NEG_INTEGER)
332 						if (BIO_write(bp,"-",1) <= 0)
333 							goto end;
334 					for (i=0; i<bs->length; i++)
335 						{
336 						if (BIO_printf(bp,"%02X",
337 							bs->data[i]) <= 0)
338 							goto end;
339 						}
340 					if (bs->length == 0)
341 						{
342 						if (BIO_write(bp,"00",2) <= 0)
343 							goto end;
344 						}
345 					}
346 				else
347 					{
348 					if (BIO_write(bp,"BAD INTEGER",11) <= 0)
349 						goto end;
350 					}
351 				M_ASN1_INTEGER_free(bs);
352 				}
353 			else if (tag == V_ASN1_ENUMERATED)
354 				{
355 				ASN1_ENUMERATED *bs;
356 				int i;
357 
358 				opp=op;
359 				bs=d2i_ASN1_ENUMERATED(NULL,&opp,len+hl);
360 				if (bs != NULL)
361 					{
362 					if (BIO_write(bp,":",1) <= 0) goto end;
363 					if (bs->type == V_ASN1_NEG_ENUMERATED)
364 						if (BIO_write(bp,"-",1) <= 0)
365 							goto end;
366 					for (i=0; i<bs->length; i++)
367 						{
368 						if (BIO_printf(bp,"%02X",
369 							bs->data[i]) <= 0)
370 							goto end;
371 						}
372 					if (bs->length == 0)
373 						{
374 						if (BIO_write(bp,"00",2) <= 0)
375 							goto end;
376 						}
377 					}
378 				else
379 					{
380 					if (BIO_write(bp,"BAD ENUMERATED",11) <= 0)
381 						goto end;
382 					}
383 				M_ASN1_ENUMERATED_free(bs);
384 				}
385 			else if (len > 0 && dump)
386 				{
387 				if (!nl)
388 					{
389 					if (BIO_write(bp,"\n",1) <= 0)
390 						goto end;
391 					}
392 				if (BIO_dump_indent(bp,(const char *)p,
393 					((dump == -1 || dump > len)?len:dump),
394 					dump_indent) <= 0)
395 					goto end;
396 				nl=1;
397 				}
398 
399 			if (!nl)
400 				{
401 				if (BIO_write(bp,"\n",1) <= 0) goto end;
402 				}
403 			p+=len;
404 			if ((tag == V_ASN1_EOC) && (xclass == 0))
405 				{
406 				ret=2; /* End of sequence */
407 				goto end;
408 				}
409 			}
410 		length-=len;
411 		}
412 	ret=1;
413 end:
414 	if (o != NULL) ASN1_OBJECT_free(o);
415 	if (os != NULL) M_ASN1_OCTET_STRING_free(os);
416 	*pp=p;
417 	return(ret);
418 	}
419 
ASN1_tag2str(int tag)420 const char *ASN1_tag2str(int tag)
421 {
422 	static const char *tag2str[] = {
423 	 "EOC", "BOOLEAN", "INTEGER", "BIT STRING", "OCTET STRING", /* 0-4 */
424 	 "NULL", "OBJECT", "OBJECT DESCRIPTOR", "EXTERNAL", "REAL", /* 5-9 */
425 	 "ENUMERATED", "<ASN1 11>", "UTF8STRING", "<ASN1 13>", 	    /* 10-13 */
426 	"<ASN1 14>", "<ASN1 15>", "SEQUENCE", "SET", 		    /* 15-17 */
427 	"NUMERICSTRING", "PRINTABLESTRING", "T61STRING",	    /* 18-20 */
428 	"VIDEOTEXSTRING", "IA5STRING", "UTCTIME","GENERALIZEDTIME", /* 21-24 */
429 	"GRAPHICSTRING", "VISIBLESTRING", "GENERALSTRING",	    /* 25-27 */
430 	"UNIVERSALSTRING", "<ASN1 29>", "BMPSTRING"		    /* 28-30 */
431 	};
432 
433 	if((tag == V_ASN1_NEG_INTEGER) || (tag == V_ASN1_NEG_ENUMERATED))
434 							tag &= ~0x100;
435 
436 	if(tag < 0 || tag > 30) return "(unknown)";
437 	return tag2str[tag];
438 }
439 
440