1*b077aed3SPierre Pronchery /*
2*b077aed3SPierre Pronchery * Copyright 1995-2023 The OpenSSL Project Authors. All Rights Reserved.
3*b077aed3SPierre Pronchery *
4*b077aed3SPierre Pronchery * Licensed under the Apache License 2.0 (the "License"). You may not use
5*b077aed3SPierre Pronchery * this file except in compliance with the License. You can obtain a copy
6*b077aed3SPierre Pronchery * in the file LICENSE in the source distribution or at
7*b077aed3SPierre Pronchery * https://www.openssl.org/source/license.html
8*b077aed3SPierre Pronchery */
9*b077aed3SPierre Pronchery
10*b077aed3SPierre Pronchery #include <stdio.h>
11*b077aed3SPierre Pronchery #include "internal/cryptlib.h"
12*b077aed3SPierre Pronchery #include <openssl/buffer.h>
13*b077aed3SPierre Pronchery #include <openssl/objects.h>
14*b077aed3SPierre Pronchery #include <openssl/asn1.h>
15*b077aed3SPierre Pronchery
16*b077aed3SPierre Pronchery #ifndef ASN1_PARSE_MAXDEPTH
17*b077aed3SPierre Pronchery #define ASN1_PARSE_MAXDEPTH 128
18*b077aed3SPierre Pronchery #endif
19*b077aed3SPierre Pronchery
20*b077aed3SPierre Pronchery static int asn1_parse2(BIO *bp, const unsigned char **pp, long length,
21*b077aed3SPierre Pronchery int offset, int depth, int indent, int dump);
asn1_print_info(BIO * bp,long offset,int depth,int hl,long len,int tag,int xclass,int constructed,int indent)22*b077aed3SPierre Pronchery static int asn1_print_info(BIO *bp, long offset, int depth, int hl, long len,
23*b077aed3SPierre Pronchery int tag, int xclass, int constructed, int indent)
24*b077aed3SPierre Pronchery {
25*b077aed3SPierre Pronchery char str[128];
26*b077aed3SPierre Pronchery const char *p;
27*b077aed3SPierre Pronchery int pop_f_prefix = 0;
28*b077aed3SPierre Pronchery long saved_indent = -1;
29*b077aed3SPierre Pronchery int i = 0;
30*b077aed3SPierre Pronchery BIO *bio = NULL;
31*b077aed3SPierre Pronchery
32*b077aed3SPierre Pronchery if (constructed & V_ASN1_CONSTRUCTED)
33*b077aed3SPierre Pronchery p = "cons: ";
34*b077aed3SPierre Pronchery else
35*b077aed3SPierre Pronchery p = "prim: ";
36*b077aed3SPierre Pronchery if (constructed != (V_ASN1_CONSTRUCTED | 1)) {
37*b077aed3SPierre Pronchery if (BIO_snprintf(str, sizeof(str), "%5ld:d=%-2d hl=%ld l=%4ld %s",
38*b077aed3SPierre Pronchery offset, depth, (long)hl, len, p) <= 0)
39*b077aed3SPierre Pronchery goto err;
40*b077aed3SPierre Pronchery } else {
41*b077aed3SPierre Pronchery if (BIO_snprintf(str, sizeof(str), "%5ld:d=%-2d hl=%ld l=inf %s",
42*b077aed3SPierre Pronchery offset, depth, (long)hl, p) <= 0)
43*b077aed3SPierre Pronchery goto err;
44*b077aed3SPierre Pronchery }
45*b077aed3SPierre Pronchery if (bp != NULL) {
46*b077aed3SPierre Pronchery if (BIO_set_prefix(bp, str) <= 0) {
47*b077aed3SPierre Pronchery if ((bio = BIO_new(BIO_f_prefix())) == NULL
48*b077aed3SPierre Pronchery || (bp = BIO_push(bio, bp)) == NULL)
49*b077aed3SPierre Pronchery goto err;
50*b077aed3SPierre Pronchery pop_f_prefix = 1;
51*b077aed3SPierre Pronchery }
52*b077aed3SPierre Pronchery saved_indent = BIO_get_indent(bp);
53*b077aed3SPierre Pronchery if (BIO_set_prefix(bp, str) <= 0 || BIO_set_indent(bp, indent) <= 0)
54*b077aed3SPierre Pronchery goto err;
55*b077aed3SPierre Pronchery }
56*b077aed3SPierre Pronchery
57*b077aed3SPierre Pronchery /*
58*b077aed3SPierre Pronchery * BIO_set_prefix made a copy of |str|, so we can safely use it for
59*b077aed3SPierre Pronchery * something else, ASN.1 tag printout.
60*b077aed3SPierre Pronchery */
61*b077aed3SPierre Pronchery p = str;
62*b077aed3SPierre Pronchery if ((xclass & V_ASN1_PRIVATE) == V_ASN1_PRIVATE)
63*b077aed3SPierre Pronchery BIO_snprintf(str, sizeof(str), "priv [ %d ] ", tag);
64*b077aed3SPierre Pronchery else if ((xclass & V_ASN1_CONTEXT_SPECIFIC) == V_ASN1_CONTEXT_SPECIFIC)
65*b077aed3SPierre Pronchery BIO_snprintf(str, sizeof(str), "cont [ %d ]", tag);
66*b077aed3SPierre Pronchery else if ((xclass & V_ASN1_APPLICATION) == V_ASN1_APPLICATION)
67*b077aed3SPierre Pronchery BIO_snprintf(str, sizeof(str), "appl [ %d ]", tag);
68*b077aed3SPierre Pronchery else if (tag > 30)
69*b077aed3SPierre Pronchery BIO_snprintf(str, sizeof(str), "<ASN1 %d>", tag);
70*b077aed3SPierre Pronchery else
71*b077aed3SPierre Pronchery p = ASN1_tag2str(tag);
72*b077aed3SPierre Pronchery
73*b077aed3SPierre Pronchery i = (BIO_printf(bp, "%-18s", p) > 0);
74*b077aed3SPierre Pronchery err:
75*b077aed3SPierre Pronchery if (saved_indent >= 0)
76*b077aed3SPierre Pronchery BIO_set_indent(bp, saved_indent);
77*b077aed3SPierre Pronchery if (pop_f_prefix)
78*b077aed3SPierre Pronchery BIO_pop(bp);
79*b077aed3SPierre Pronchery BIO_free(bio);
80*b077aed3SPierre Pronchery return i;
81*b077aed3SPierre Pronchery }
82*b077aed3SPierre Pronchery
ASN1_parse(BIO * bp,const unsigned char * pp,long len,int indent)83*b077aed3SPierre Pronchery int ASN1_parse(BIO *bp, const unsigned char *pp, long len, int indent)
84*b077aed3SPierre Pronchery {
85*b077aed3SPierre Pronchery return asn1_parse2(bp, &pp, len, 0, 0, indent, 0);
86*b077aed3SPierre Pronchery }
87*b077aed3SPierre Pronchery
ASN1_parse_dump(BIO * bp,const unsigned char * pp,long len,int indent,int dump)88*b077aed3SPierre Pronchery int ASN1_parse_dump(BIO *bp, const unsigned char *pp, long len, int indent,
89*b077aed3SPierre Pronchery int dump)
90*b077aed3SPierre Pronchery {
91*b077aed3SPierre Pronchery return asn1_parse2(bp, &pp, len, 0, 0, indent, dump);
92*b077aed3SPierre Pronchery }
93*b077aed3SPierre Pronchery
asn1_parse2(BIO * bp,const unsigned char ** pp,long length,int offset,int depth,int indent,int dump)94*b077aed3SPierre Pronchery static int asn1_parse2(BIO *bp, const unsigned char **pp, long length,
95*b077aed3SPierre Pronchery int offset, int depth, int indent, int dump)
96*b077aed3SPierre Pronchery {
97*b077aed3SPierre Pronchery const unsigned char *p, *ep, *tot, *op, *opp;
98*b077aed3SPierre Pronchery long len;
99*b077aed3SPierre Pronchery int tag, xclass, ret = 0;
100*b077aed3SPierre Pronchery int nl, hl, j, r;
101*b077aed3SPierre Pronchery ASN1_OBJECT *o = NULL;
102*b077aed3SPierre Pronchery ASN1_OCTET_STRING *os = NULL;
103*b077aed3SPierre Pronchery ASN1_INTEGER *ai = NULL;
104*b077aed3SPierre Pronchery ASN1_ENUMERATED *ae = NULL;
105*b077aed3SPierre Pronchery /* ASN1_BMPSTRING *bmp=NULL; */
106*b077aed3SPierre Pronchery int dump_indent, dump_cont = 0;
107*b077aed3SPierre Pronchery
108*b077aed3SPierre Pronchery if (depth > ASN1_PARSE_MAXDEPTH) {
109*b077aed3SPierre Pronchery BIO_puts(bp, "BAD RECURSION DEPTH\n");
110*b077aed3SPierre Pronchery return 0;
111*b077aed3SPierre Pronchery }
112*b077aed3SPierre Pronchery
113*b077aed3SPierre Pronchery dump_indent = 6; /* Because we know BIO_dump_indent() */
114*b077aed3SPierre Pronchery p = *pp;
115*b077aed3SPierre Pronchery tot = p + length;
116*b077aed3SPierre Pronchery while (length > 0) {
117*b077aed3SPierre Pronchery op = p;
118*b077aed3SPierre Pronchery j = ASN1_get_object(&p, &len, &tag, &xclass, length);
119*b077aed3SPierre Pronchery if (j & 0x80) {
120*b077aed3SPierre Pronchery BIO_puts(bp, "Error in encoding\n");
121*b077aed3SPierre Pronchery goto end;
122*b077aed3SPierre Pronchery }
123*b077aed3SPierre Pronchery hl = (p - op);
124*b077aed3SPierre Pronchery length -= hl;
125*b077aed3SPierre Pronchery /*
126*b077aed3SPierre Pronchery * if j == 0x21 it is a constructed indefinite length object
127*b077aed3SPierre Pronchery */
128*b077aed3SPierre Pronchery if (!asn1_print_info(bp, (long)offset + (long)(op - *pp), depth,
129*b077aed3SPierre Pronchery hl, len, tag, xclass, j, (indent) ? depth : 0))
130*b077aed3SPierre Pronchery goto end;
131*b077aed3SPierre Pronchery if (j & V_ASN1_CONSTRUCTED) {
132*b077aed3SPierre Pronchery const unsigned char *sp = p;
133*b077aed3SPierre Pronchery
134*b077aed3SPierre Pronchery ep = p + len;
135*b077aed3SPierre Pronchery if (BIO_write(bp, "\n", 1) <= 0)
136*b077aed3SPierre Pronchery goto end;
137*b077aed3SPierre Pronchery if (len > length) {
138*b077aed3SPierre Pronchery BIO_printf(bp, "length is greater than %ld\n", length);
139*b077aed3SPierre Pronchery goto end;
140*b077aed3SPierre Pronchery }
141*b077aed3SPierre Pronchery if ((j == 0x21) && (len == 0)) {
142*b077aed3SPierre Pronchery for (;;) {
143*b077aed3SPierre Pronchery r = asn1_parse2(bp, &p, (long)(tot - p),
144*b077aed3SPierre Pronchery offset + (p - *pp), depth + 1,
145*b077aed3SPierre Pronchery indent, dump);
146*b077aed3SPierre Pronchery if (r == 0)
147*b077aed3SPierre Pronchery goto end;
148*b077aed3SPierre Pronchery if ((r == 2) || (p >= tot)) {
149*b077aed3SPierre Pronchery len = p - sp;
150*b077aed3SPierre Pronchery break;
151*b077aed3SPierre Pronchery }
152*b077aed3SPierre Pronchery }
153*b077aed3SPierre Pronchery } else {
154*b077aed3SPierre Pronchery long tmp = len;
155*b077aed3SPierre Pronchery
156*b077aed3SPierre Pronchery while (p < ep) {
157*b077aed3SPierre Pronchery sp = p;
158*b077aed3SPierre Pronchery r = asn1_parse2(bp, &p, tmp,
159*b077aed3SPierre Pronchery offset + (p - *pp), depth + 1,
160*b077aed3SPierre Pronchery indent, dump);
161*b077aed3SPierre Pronchery if (r == 0)
162*b077aed3SPierre Pronchery goto end;
163*b077aed3SPierre Pronchery tmp -= p - sp;
164*b077aed3SPierre Pronchery }
165*b077aed3SPierre Pronchery }
166*b077aed3SPierre Pronchery } else if (xclass != 0) {
167*b077aed3SPierre Pronchery p += len;
168*b077aed3SPierre Pronchery if (BIO_write(bp, "\n", 1) <= 0)
169*b077aed3SPierre Pronchery goto end;
170*b077aed3SPierre Pronchery } else {
171*b077aed3SPierre Pronchery nl = 0;
172*b077aed3SPierre Pronchery if ((tag == V_ASN1_PRINTABLESTRING) ||
173*b077aed3SPierre Pronchery (tag == V_ASN1_T61STRING) ||
174*b077aed3SPierre Pronchery (tag == V_ASN1_IA5STRING) ||
175*b077aed3SPierre Pronchery (tag == V_ASN1_VISIBLESTRING) ||
176*b077aed3SPierre Pronchery (tag == V_ASN1_NUMERICSTRING) ||
177*b077aed3SPierre Pronchery (tag == V_ASN1_UTF8STRING) ||
178*b077aed3SPierre Pronchery (tag == V_ASN1_UTCTIME) || (tag == V_ASN1_GENERALIZEDTIME)) {
179*b077aed3SPierre Pronchery if (BIO_write(bp, ":", 1) <= 0)
180*b077aed3SPierre Pronchery goto end;
181*b077aed3SPierre Pronchery if ((len > 0) && BIO_write(bp, (const char *)p, (int)len)
182*b077aed3SPierre Pronchery != (int)len)
183*b077aed3SPierre Pronchery goto end;
184*b077aed3SPierre Pronchery } else if (tag == V_ASN1_OBJECT) {
185*b077aed3SPierre Pronchery opp = op;
186*b077aed3SPierre Pronchery if (d2i_ASN1_OBJECT(&o, &opp, len + hl) != NULL) {
187*b077aed3SPierre Pronchery if (BIO_write(bp, ":", 1) <= 0)
188*b077aed3SPierre Pronchery goto end;
189*b077aed3SPierre Pronchery i2a_ASN1_OBJECT(bp, o);
190*b077aed3SPierre Pronchery } else {
191*b077aed3SPierre Pronchery if (BIO_puts(bp, ":BAD OBJECT") <= 0)
192*b077aed3SPierre Pronchery goto end;
193*b077aed3SPierre Pronchery dump_cont = 1;
194*b077aed3SPierre Pronchery }
195*b077aed3SPierre Pronchery } else if (tag == V_ASN1_BOOLEAN) {
196*b077aed3SPierre Pronchery if (len != 1) {
197*b077aed3SPierre Pronchery if (BIO_puts(bp, ":BAD BOOLEAN") <= 0)
198*b077aed3SPierre Pronchery goto end;
199*b077aed3SPierre Pronchery dump_cont = 1;
200*b077aed3SPierre Pronchery }
201*b077aed3SPierre Pronchery if (len > 0)
202*b077aed3SPierre Pronchery BIO_printf(bp, ":%u", p[0]);
203*b077aed3SPierre Pronchery } else if (tag == V_ASN1_BMPSTRING) {
204*b077aed3SPierre Pronchery /* do the BMP thang */
205*b077aed3SPierre Pronchery } else if (tag == V_ASN1_OCTET_STRING) {
206*b077aed3SPierre Pronchery int i, printable = 1;
207*b077aed3SPierre Pronchery
208*b077aed3SPierre Pronchery opp = op;
209*b077aed3SPierre Pronchery os = d2i_ASN1_OCTET_STRING(NULL, &opp, len + hl);
210*b077aed3SPierre Pronchery if (os != NULL && os->length > 0) {
211*b077aed3SPierre Pronchery opp = os->data;
212*b077aed3SPierre Pronchery /*
213*b077aed3SPierre Pronchery * testing whether the octet string is printable
214*b077aed3SPierre Pronchery */
215*b077aed3SPierre Pronchery for (i = 0; i < os->length; i++) {
216*b077aed3SPierre Pronchery if (((opp[i] < ' ') &&
217*b077aed3SPierre Pronchery (opp[i] != '\n') &&
218*b077aed3SPierre Pronchery (opp[i] != '\r') &&
219*b077aed3SPierre Pronchery (opp[i] != '\t')) || (opp[i] > '~')) {
220*b077aed3SPierre Pronchery printable = 0;
221*b077aed3SPierre Pronchery break;
222*b077aed3SPierre Pronchery }
223*b077aed3SPierre Pronchery }
224*b077aed3SPierre Pronchery if (printable)
225*b077aed3SPierre Pronchery /* printable string */
226*b077aed3SPierre Pronchery {
227*b077aed3SPierre Pronchery if (BIO_write(bp, ":", 1) <= 0)
228*b077aed3SPierre Pronchery goto end;
229*b077aed3SPierre Pronchery if (BIO_write(bp, (const char *)opp, os->length) <= 0)
230*b077aed3SPierre Pronchery goto end;
231*b077aed3SPierre Pronchery } else if (!dump)
232*b077aed3SPierre Pronchery /*
233*b077aed3SPierre Pronchery * not printable => print octet string as hex dump
234*b077aed3SPierre Pronchery */
235*b077aed3SPierre Pronchery {
236*b077aed3SPierre Pronchery if (BIO_write(bp, "[HEX DUMP]:", 11) <= 0)
237*b077aed3SPierre Pronchery goto end;
238*b077aed3SPierre Pronchery for (i = 0; i < os->length; i++) {
239*b077aed3SPierre Pronchery if (BIO_printf(bp, "%02X", opp[i]) <= 0)
240*b077aed3SPierre Pronchery goto end;
241*b077aed3SPierre Pronchery }
242*b077aed3SPierre Pronchery } else
243*b077aed3SPierre Pronchery /* print the normal dump */
244*b077aed3SPierre Pronchery {
245*b077aed3SPierre Pronchery if (!nl) {
246*b077aed3SPierre Pronchery if (BIO_write(bp, "\n", 1) <= 0)
247*b077aed3SPierre Pronchery goto end;
248*b077aed3SPierre Pronchery }
249*b077aed3SPierre Pronchery if (BIO_dump_indent(bp,
250*b077aed3SPierre Pronchery (const char *)opp,
251*b077aed3SPierre Pronchery ((dump == -1 || dump >
252*b077aed3SPierre Pronchery os->
253*b077aed3SPierre Pronchery length) ? os->length : dump),
254*b077aed3SPierre Pronchery dump_indent) <= 0)
255*b077aed3SPierre Pronchery goto end;
256*b077aed3SPierre Pronchery nl = 1;
257*b077aed3SPierre Pronchery }
258*b077aed3SPierre Pronchery }
259*b077aed3SPierre Pronchery ASN1_OCTET_STRING_free(os);
260*b077aed3SPierre Pronchery os = NULL;
261*b077aed3SPierre Pronchery } else if (tag == V_ASN1_INTEGER) {
262*b077aed3SPierre Pronchery int i;
263*b077aed3SPierre Pronchery
264*b077aed3SPierre Pronchery opp = op;
265*b077aed3SPierre Pronchery ai = d2i_ASN1_INTEGER(NULL, &opp, len + hl);
266*b077aed3SPierre Pronchery if (ai != NULL) {
267*b077aed3SPierre Pronchery if (BIO_write(bp, ":", 1) <= 0)
268*b077aed3SPierre Pronchery goto end;
269*b077aed3SPierre Pronchery if (ai->type == V_ASN1_NEG_INTEGER)
270*b077aed3SPierre Pronchery if (BIO_write(bp, "-", 1) <= 0)
271*b077aed3SPierre Pronchery goto end;
272*b077aed3SPierre Pronchery for (i = 0; i < ai->length; i++) {
273*b077aed3SPierre Pronchery if (BIO_printf(bp, "%02X", ai->data[i]) <= 0)
274*b077aed3SPierre Pronchery goto end;
275*b077aed3SPierre Pronchery }
276*b077aed3SPierre Pronchery if (ai->length == 0) {
277*b077aed3SPierre Pronchery if (BIO_write(bp, "00", 2) <= 0)
278*b077aed3SPierre Pronchery goto end;
279*b077aed3SPierre Pronchery }
280*b077aed3SPierre Pronchery } else {
281*b077aed3SPierre Pronchery if (BIO_puts(bp, ":BAD INTEGER") <= 0)
282*b077aed3SPierre Pronchery goto end;
283*b077aed3SPierre Pronchery dump_cont = 1;
284*b077aed3SPierre Pronchery }
285*b077aed3SPierre Pronchery ASN1_INTEGER_free(ai);
286*b077aed3SPierre Pronchery ai = NULL;
287*b077aed3SPierre Pronchery } else if (tag == V_ASN1_ENUMERATED) {
288*b077aed3SPierre Pronchery int i;
289*b077aed3SPierre Pronchery
290*b077aed3SPierre Pronchery opp = op;
291*b077aed3SPierre Pronchery ae = d2i_ASN1_ENUMERATED(NULL, &opp, len + hl);
292*b077aed3SPierre Pronchery if (ae != NULL) {
293*b077aed3SPierre Pronchery if (BIO_write(bp, ":", 1) <= 0)
294*b077aed3SPierre Pronchery goto end;
295*b077aed3SPierre Pronchery if (ae->type == V_ASN1_NEG_ENUMERATED)
296*b077aed3SPierre Pronchery if (BIO_write(bp, "-", 1) <= 0)
297*b077aed3SPierre Pronchery goto end;
298*b077aed3SPierre Pronchery for (i = 0; i < ae->length; i++) {
299*b077aed3SPierre Pronchery if (BIO_printf(bp, "%02X", ae->data[i]) <= 0)
300*b077aed3SPierre Pronchery goto end;
301*b077aed3SPierre Pronchery }
302*b077aed3SPierre Pronchery if (ae->length == 0) {
303*b077aed3SPierre Pronchery if (BIO_write(bp, "00", 2) <= 0)
304*b077aed3SPierre Pronchery goto end;
305*b077aed3SPierre Pronchery }
306*b077aed3SPierre Pronchery } else {
307*b077aed3SPierre Pronchery if (BIO_puts(bp, ":BAD ENUMERATED") <= 0)
308*b077aed3SPierre Pronchery goto end;
309*b077aed3SPierre Pronchery dump_cont = 1;
310*b077aed3SPierre Pronchery }
311*b077aed3SPierre Pronchery ASN1_ENUMERATED_free(ae);
312*b077aed3SPierre Pronchery ae = NULL;
313*b077aed3SPierre Pronchery } else if (len > 0 && dump) {
314*b077aed3SPierre Pronchery if (!nl) {
315*b077aed3SPierre Pronchery if (BIO_write(bp, "\n", 1) <= 0)
316*b077aed3SPierre Pronchery goto end;
317*b077aed3SPierre Pronchery }
318*b077aed3SPierre Pronchery if (BIO_dump_indent(bp, (const char *)p,
319*b077aed3SPierre Pronchery ((dump == -1 || dump > len) ? len : dump),
320*b077aed3SPierre Pronchery dump_indent) <= 0)
321*b077aed3SPierre Pronchery goto end;
322*b077aed3SPierre Pronchery nl = 1;
323*b077aed3SPierre Pronchery }
324*b077aed3SPierre Pronchery if (dump_cont) {
325*b077aed3SPierre Pronchery int i;
326*b077aed3SPierre Pronchery const unsigned char *tmp = op + hl;
327*b077aed3SPierre Pronchery if (BIO_puts(bp, ":[") <= 0)
328*b077aed3SPierre Pronchery goto end;
329*b077aed3SPierre Pronchery for (i = 0; i < len; i++) {
330*b077aed3SPierre Pronchery if (BIO_printf(bp, "%02X", tmp[i]) <= 0)
331*b077aed3SPierre Pronchery goto end;
332*b077aed3SPierre Pronchery }
333*b077aed3SPierre Pronchery if (BIO_puts(bp, "]") <= 0)
334*b077aed3SPierre Pronchery goto end;
335*b077aed3SPierre Pronchery dump_cont = 0;
336*b077aed3SPierre Pronchery }
337*b077aed3SPierre Pronchery
338*b077aed3SPierre Pronchery if (!nl) {
339*b077aed3SPierre Pronchery if (BIO_write(bp, "\n", 1) <= 0)
340*b077aed3SPierre Pronchery goto end;
341*b077aed3SPierre Pronchery }
342*b077aed3SPierre Pronchery p += len;
343*b077aed3SPierre Pronchery if ((tag == V_ASN1_EOC) && (xclass == 0)) {
344*b077aed3SPierre Pronchery ret = 2; /* End of sequence */
345*b077aed3SPierre Pronchery goto end;
346*b077aed3SPierre Pronchery }
347*b077aed3SPierre Pronchery }
348*b077aed3SPierre Pronchery length -= len;
349*b077aed3SPierre Pronchery }
350*b077aed3SPierre Pronchery ret = 1;
351*b077aed3SPierre Pronchery end:
352*b077aed3SPierre Pronchery ASN1_OBJECT_free(o);
353*b077aed3SPierre Pronchery ASN1_OCTET_STRING_free(os);
354*b077aed3SPierre Pronchery ASN1_INTEGER_free(ai);
355*b077aed3SPierre Pronchery ASN1_ENUMERATED_free(ae);
356*b077aed3SPierre Pronchery *pp = p;
357*b077aed3SPierre Pronchery return ret;
358*b077aed3SPierre Pronchery }
359*b077aed3SPierre Pronchery
ASN1_tag2str(int tag)360*b077aed3SPierre Pronchery const char *ASN1_tag2str(int tag)
361*b077aed3SPierre Pronchery {
362*b077aed3SPierre Pronchery static const char *const tag2str[] = {
363*b077aed3SPierre Pronchery /* 0-4 */
364*b077aed3SPierre Pronchery "EOC", "BOOLEAN", "INTEGER", "BIT STRING", "OCTET STRING",
365*b077aed3SPierre Pronchery /* 5-9 */
366*b077aed3SPierre Pronchery "NULL", "OBJECT", "OBJECT DESCRIPTOR", "EXTERNAL", "REAL",
367*b077aed3SPierre Pronchery /* 10-13 */
368*b077aed3SPierre Pronchery "ENUMERATED", "<ASN1 11>", "UTF8STRING", "<ASN1 13>",
369*b077aed3SPierre Pronchery /* 15-17 */
370*b077aed3SPierre Pronchery "<ASN1 14>", "<ASN1 15>", "SEQUENCE", "SET",
371*b077aed3SPierre Pronchery /* 18-20 */
372*b077aed3SPierre Pronchery "NUMERICSTRING", "PRINTABLESTRING", "T61STRING",
373*b077aed3SPierre Pronchery /* 21-24 */
374*b077aed3SPierre Pronchery "VIDEOTEXSTRING", "IA5STRING", "UTCTIME", "GENERALIZEDTIME",
375*b077aed3SPierre Pronchery /* 25-27 */
376*b077aed3SPierre Pronchery "GRAPHICSTRING", "VISIBLESTRING", "GENERALSTRING",
377*b077aed3SPierre Pronchery /* 28-30 */
378*b077aed3SPierre Pronchery "UNIVERSALSTRING", "<ASN1 29>", "BMPSTRING"
379*b077aed3SPierre Pronchery };
380*b077aed3SPierre Pronchery
381*b077aed3SPierre Pronchery if ((tag == V_ASN1_NEG_INTEGER) || (tag == V_ASN1_NEG_ENUMERATED))
382*b077aed3SPierre Pronchery tag &= ~0x100;
383*b077aed3SPierre Pronchery
384*b077aed3SPierre Pronchery if (tag < 0 || tag > 30)
385*b077aed3SPierre Pronchery return "(unknown)";
386*b077aed3SPierre Pronchery return tag2str[tag];
387*b077aed3SPierre Pronchery }
388