1*0Sstevel@tonic-gate /* tasn_prn.c */
2*0Sstevel@tonic-gate /* Written by Dr Stephen N Henson (shenson@bigfoot.com) for the OpenSSL
3*0Sstevel@tonic-gate * project 2000.
4*0Sstevel@tonic-gate */
5*0Sstevel@tonic-gate /* ====================================================================
6*0Sstevel@tonic-gate * Copyright (c) 2000 The OpenSSL Project. All rights reserved.
7*0Sstevel@tonic-gate *
8*0Sstevel@tonic-gate * Redistribution and use in source and binary forms, with or without
9*0Sstevel@tonic-gate * modification, are permitted provided that the following conditions
10*0Sstevel@tonic-gate * are met:
11*0Sstevel@tonic-gate *
12*0Sstevel@tonic-gate * 1. Redistributions of source code must retain the above copyright
13*0Sstevel@tonic-gate * notice, this list of conditions and the following disclaimer.
14*0Sstevel@tonic-gate *
15*0Sstevel@tonic-gate * 2. Redistributions in binary form must reproduce the above copyright
16*0Sstevel@tonic-gate * notice, this list of conditions and the following disclaimer in
17*0Sstevel@tonic-gate * the documentation and/or other materials provided with the
18*0Sstevel@tonic-gate * distribution.
19*0Sstevel@tonic-gate *
20*0Sstevel@tonic-gate * 3. All advertising materials mentioning features or use of this
21*0Sstevel@tonic-gate * software must display the following acknowledgment:
22*0Sstevel@tonic-gate * "This product includes software developed by the OpenSSL Project
23*0Sstevel@tonic-gate * for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)"
24*0Sstevel@tonic-gate *
25*0Sstevel@tonic-gate * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
26*0Sstevel@tonic-gate * endorse or promote products derived from this software without
27*0Sstevel@tonic-gate * prior written permission. For written permission, please contact
28*0Sstevel@tonic-gate * licensing@OpenSSL.org.
29*0Sstevel@tonic-gate *
30*0Sstevel@tonic-gate * 5. Products derived from this software may not be called "OpenSSL"
31*0Sstevel@tonic-gate * nor may "OpenSSL" appear in their names without prior written
32*0Sstevel@tonic-gate * permission of the OpenSSL Project.
33*0Sstevel@tonic-gate *
34*0Sstevel@tonic-gate * 6. Redistributions of any form whatsoever must retain the following
35*0Sstevel@tonic-gate * acknowledgment:
36*0Sstevel@tonic-gate * "This product includes software developed by the OpenSSL Project
37*0Sstevel@tonic-gate * for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)"
38*0Sstevel@tonic-gate *
39*0Sstevel@tonic-gate * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
40*0Sstevel@tonic-gate * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
41*0Sstevel@tonic-gate * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
42*0Sstevel@tonic-gate * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR
43*0Sstevel@tonic-gate * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
44*0Sstevel@tonic-gate * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
45*0Sstevel@tonic-gate * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
46*0Sstevel@tonic-gate * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
47*0Sstevel@tonic-gate * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
48*0Sstevel@tonic-gate * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
49*0Sstevel@tonic-gate * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
50*0Sstevel@tonic-gate * OF THE POSSIBILITY OF SUCH DAMAGE.
51*0Sstevel@tonic-gate * ====================================================================
52*0Sstevel@tonic-gate *
53*0Sstevel@tonic-gate * This product includes cryptographic software written by Eric Young
54*0Sstevel@tonic-gate * (eay@cryptsoft.com). This product includes software written by Tim
55*0Sstevel@tonic-gate * Hudson (tjh@cryptsoft.com).
56*0Sstevel@tonic-gate *
57*0Sstevel@tonic-gate */
58*0Sstevel@tonic-gate
59*0Sstevel@tonic-gate
60*0Sstevel@tonic-gate #include <stddef.h>
61*0Sstevel@tonic-gate #include <openssl/asn1.h>
62*0Sstevel@tonic-gate #include <openssl/objects.h>
63*0Sstevel@tonic-gate #include <openssl/buffer.h>
64*0Sstevel@tonic-gate #include <openssl/err.h>
65*0Sstevel@tonic-gate #include <openssl/nasn.h>
66*0Sstevel@tonic-gate
67*0Sstevel@tonic-gate /* Print routines. Print out a whole structure from a template.
68*0Sstevel@tonic-gate */
69*0Sstevel@tonic-gate
70*0Sstevel@tonic-gate static int asn1_item_print_nm(BIO *out, void *fld, int indent, const ASN1_ITEM *it, const char *name);
71*0Sstevel@tonic-gate
ASN1_item_print(BIO * out,void * fld,int indent,const ASN1_ITEM * it)72*0Sstevel@tonic-gate int ASN1_item_print(BIO *out, void *fld, int indent, const ASN1_ITEM *it)
73*0Sstevel@tonic-gate {
74*0Sstevel@tonic-gate return asn1_item_print_nm(out, fld, indent, it, it->sname);
75*0Sstevel@tonic-gate }
76*0Sstevel@tonic-gate
asn1_item_print_nm(BIO * out,void * fld,int indent,const ASN1_ITEM * it,const char * name)77*0Sstevel@tonic-gate static int asn1_item_print_nm(BIO *out, void *fld, int indent, const ASN1_ITEM *it, const char *name)
78*0Sstevel@tonic-gate {
79*0Sstevel@tonic-gate ASN1_STRING *str;
80*0Sstevel@tonic-gate const ASN1_TEMPLATE *tt;
81*0Sstevel@tonic-gate void *tmpfld;
82*0Sstevel@tonic-gate int i;
83*0Sstevel@tonic-gate if(!fld) {
84*0Sstevel@tonic-gate BIO_printf(out, "%*s%s ABSENT\n", indent, "", name);
85*0Sstevel@tonic-gate return 1;
86*0Sstevel@tonic-gate }
87*0Sstevel@tonic-gate switch(it->itype) {
88*0Sstevel@tonic-gate
89*0Sstevel@tonic-gate case ASN1_ITYPE_PRIMITIVE:
90*0Sstevel@tonic-gate if(it->templates)
91*0Sstevel@tonic-gate return ASN1_template_print(out, fld, indent, it->templates);
92*0Sstevel@tonic-gate return asn1_primitive_print(out, fld, it->utype, indent, name);
93*0Sstevel@tonic-gate break;
94*0Sstevel@tonic-gate
95*0Sstevel@tonic-gate case ASN1_ITYPE_MSTRING:
96*0Sstevel@tonic-gate str = fld;
97*0Sstevel@tonic-gate return asn1_primitive_print(out, fld, str->type, indent, name);
98*0Sstevel@tonic-gate
99*0Sstevel@tonic-gate case ASN1_ITYPE_EXTERN:
100*0Sstevel@tonic-gate BIO_printf(out, "%*s%s:EXTERNAL TYPE %s %s\n", indent, "", name, it->sname, fld ? "" : "ABSENT");
101*0Sstevel@tonic-gate return 1;
102*0Sstevel@tonic-gate case ASN1_ITYPE_COMPAT:
103*0Sstevel@tonic-gate BIO_printf(out, "%*s%s:COMPATIBLE TYPE %s %s\n", indent, "", name, it->sname, fld ? "" : "ABSENT");
104*0Sstevel@tonic-gate return 1;
105*0Sstevel@tonic-gate
106*0Sstevel@tonic-gate
107*0Sstevel@tonic-gate case ASN1_ITYPE_CHOICE:
108*0Sstevel@tonic-gate /* CHOICE type, get selector */
109*0Sstevel@tonic-gate i = asn1_get_choice_selector(fld, it);
110*0Sstevel@tonic-gate /* This should never happen... */
111*0Sstevel@tonic-gate if((i < 0) || (i >= it->tcount)) {
112*0Sstevel@tonic-gate BIO_printf(out, "%s selector [%d] out of range\n", it->sname, i);
113*0Sstevel@tonic-gate return 1;
114*0Sstevel@tonic-gate }
115*0Sstevel@tonic-gate tt = it->templates + i;
116*0Sstevel@tonic-gate tmpfld = asn1_get_field(fld, tt);
117*0Sstevel@tonic-gate return ASN1_template_print(out, tmpfld, indent, tt);
118*0Sstevel@tonic-gate
119*0Sstevel@tonic-gate case ASN1_ITYPE_SEQUENCE:
120*0Sstevel@tonic-gate BIO_printf(out, "%*s%s {\n", indent, "", name);
121*0Sstevel@tonic-gate /* Get each field entry */
122*0Sstevel@tonic-gate for(i = 0, tt = it->templates; i < it->tcount; i++, tt++) {
123*0Sstevel@tonic-gate tmpfld = asn1_get_field(fld, tt);
124*0Sstevel@tonic-gate ASN1_template_print(out, tmpfld, indent + 2, tt);
125*0Sstevel@tonic-gate }
126*0Sstevel@tonic-gate BIO_printf(out, "%*s}\n", indent, "");
127*0Sstevel@tonic-gate return 1;
128*0Sstevel@tonic-gate
129*0Sstevel@tonic-gate default:
130*0Sstevel@tonic-gate return 0;
131*0Sstevel@tonic-gate }
132*0Sstevel@tonic-gate }
133*0Sstevel@tonic-gate
ASN1_template_print(BIO * out,void * fld,int indent,const ASN1_TEMPLATE * tt)134*0Sstevel@tonic-gate int ASN1_template_print(BIO *out, void *fld, int indent, const ASN1_TEMPLATE *tt)
135*0Sstevel@tonic-gate {
136*0Sstevel@tonic-gate int i, flags;
137*0Sstevel@tonic-gate #if 0
138*0Sstevel@tonic-gate if(!fld) return 0;
139*0Sstevel@tonic-gate #endif
140*0Sstevel@tonic-gate flags = tt->flags;
141*0Sstevel@tonic-gate if(flags & ASN1_TFLG_SK_MASK) {
142*0Sstevel@tonic-gate char *tname;
143*0Sstevel@tonic-gate void *skitem;
144*0Sstevel@tonic-gate /* SET OF, SEQUENCE OF */
145*0Sstevel@tonic-gate if(flags & ASN1_TFLG_SET_OF) tname = "SET";
146*0Sstevel@tonic-gate else tname = "SEQUENCE";
147*0Sstevel@tonic-gate if(fld) {
148*0Sstevel@tonic-gate BIO_printf(out, "%*s%s OF %s {\n", indent, "", tname, tt->field_name);
149*0Sstevel@tonic-gate for(i = 0; i < sk_num(fld); i++) {
150*0Sstevel@tonic-gate skitem = sk_value(fld, i);
151*0Sstevel@tonic-gate asn1_item_print_nm(out, skitem, indent + 2, tt->item, "");
152*0Sstevel@tonic-gate }
153*0Sstevel@tonic-gate BIO_printf(out, "%*s}\n", indent, "");
154*0Sstevel@tonic-gate } else
155*0Sstevel@tonic-gate BIO_printf(out, "%*s%s OF %s ABSENT\n", indent, "", tname, tt->field_name);
156*0Sstevel@tonic-gate return 1;
157*0Sstevel@tonic-gate }
158*0Sstevel@tonic-gate return asn1_item_print_nm(out, fld, indent, tt->item, tt->field_name);
159*0Sstevel@tonic-gate }
160*0Sstevel@tonic-gate
asn1_primitive_print(BIO * out,void * fld,long utype,int indent,const char * name)161*0Sstevel@tonic-gate static int asn1_primitive_print(BIO *out, void *fld, long utype, int indent, const char *name)
162*0Sstevel@tonic-gate {
163*0Sstevel@tonic-gate ASN1_STRING *str = fld;
164*0Sstevel@tonic-gate if(fld) {
165*0Sstevel@tonic-gate if(utype == V_ASN1_BOOLEAN) {
166*0Sstevel@tonic-gate int *bool = fld;
167*0Sstevel@tonic-gate if(*bool == -1) printf("BOOL MISSING\n");
168*0Sstevel@tonic-gate BIO_printf(out, "%*s%s:%s", indent, "", "BOOLEAN", *bool ? "TRUE" : "FALSE");
169*0Sstevel@tonic-gate } else if((utype == V_ASN1_INTEGER)
170*0Sstevel@tonic-gate || (utype == V_ASN1_ENUMERATED)) {
171*0Sstevel@tonic-gate char *s, *nm;
172*0Sstevel@tonic-gate s = i2s_ASN1_INTEGER(NULL, fld);
173*0Sstevel@tonic-gate if(utype == V_ASN1_INTEGER) nm = "INTEGER";
174*0Sstevel@tonic-gate else nm = "ENUMERATED";
175*0Sstevel@tonic-gate BIO_printf(out, "%*s%s:%s", indent, "", nm, s);
176*0Sstevel@tonic-gate OPENSSL_free(s);
177*0Sstevel@tonic-gate } else if(utype == V_ASN1_NULL) {
178*0Sstevel@tonic-gate BIO_printf(out, "%*s%s", indent, "", "NULL");
179*0Sstevel@tonic-gate } else if(utype == V_ASN1_UTCTIME) {
180*0Sstevel@tonic-gate BIO_printf(out, "%*s%s:%s:", indent, "", name, "UTCTIME");
181*0Sstevel@tonic-gate ASN1_UTCTIME_print(out, str);
182*0Sstevel@tonic-gate } else if(utype == V_ASN1_GENERALIZEDTIME) {
183*0Sstevel@tonic-gate BIO_printf(out, "%*s%s:%s:", indent, "", name, "GENERALIZEDTIME");
184*0Sstevel@tonic-gate ASN1_GENERALIZEDTIME_print(out, str);
185*0Sstevel@tonic-gate } else if(utype == V_ASN1_OBJECT) {
186*0Sstevel@tonic-gate char objbuf[80], *ln;
187*0Sstevel@tonic-gate ln = OBJ_nid2ln(OBJ_obj2nid(fld));
188*0Sstevel@tonic-gate if(!ln) ln = "";
189*0Sstevel@tonic-gate OBJ_obj2txt(objbuf, sizeof objbuf, fld, 1);
190*0Sstevel@tonic-gate BIO_printf(out, "%*s%s:%s (%s)", indent, "", "OBJECT", ln, objbuf);
191*0Sstevel@tonic-gate } else {
192*0Sstevel@tonic-gate BIO_printf(out, "%*s%s:", indent, "", name);
193*0Sstevel@tonic-gate ASN1_STRING_print_ex(out, str, ASN1_STRFLGS_DUMP_UNKNOWN|ASN1_STRFLGS_SHOW_TYPE);
194*0Sstevel@tonic-gate }
195*0Sstevel@tonic-gate BIO_printf(out, "\n");
196*0Sstevel@tonic-gate } else BIO_printf(out, "%*s%s [ABSENT]\n", indent, "", name);
197*0Sstevel@tonic-gate return 1;
198*0Sstevel@tonic-gate }
199