Coverage Report

Created: 2023-06-08 06:40

/src/openssl111/crypto/asn1/tasn_new.c
Line
Count
Source (jump to first uncovered line)
1
/*
2
 * Copyright 2000-2018 The OpenSSL Project Authors. All Rights Reserved.
3
 *
4
 * Licensed under the OpenSSL license (the "License").  You may not use
5
 * this file except in compliance with the License.  You can obtain a copy
6
 * in the file LICENSE in the source distribution or at
7
 * https://www.openssl.org/source/license.html
8
 */
9
10
#include <stddef.h>
11
#include <openssl/asn1.h>
12
#include <openssl/objects.h>
13
#include <openssl/err.h>
14
#include <openssl/asn1t.h>
15
#include <string.h>
16
#include "asn1_local.h"
17
18
static int asn1_item_embed_new(ASN1_VALUE **pval, const ASN1_ITEM *it,
19
                               int embed);
20
static int asn1_primitive_new(ASN1_VALUE **pval, const ASN1_ITEM *it,
21
                              int embed);
22
static void asn1_item_clear(ASN1_VALUE **pval, const ASN1_ITEM *it);
23
static int asn1_template_new(ASN1_VALUE **pval, const ASN1_TEMPLATE *tt);
24
static void asn1_template_clear(ASN1_VALUE **pval, const ASN1_TEMPLATE *tt);
25
static void asn1_primitive_clear(ASN1_VALUE **pval, const ASN1_ITEM *it);
26
27
ASN1_VALUE *ASN1_item_new(const ASN1_ITEM *it)
28
0
{
29
0
    ASN1_VALUE *ret = NULL;
30
0
    if (ASN1_item_ex_new(&ret, it) > 0)
31
0
        return ret;
32
0
    return NULL;
33
0
}
34
35
/* Allocate an ASN1 structure */
36
37
int ASN1_item_ex_new(ASN1_VALUE **pval, const ASN1_ITEM *it)
38
0
{
39
0
    return asn1_item_embed_new(pval, it, 0);
40
0
}
41
42
int asn1_item_embed_new(ASN1_VALUE **pval, const ASN1_ITEM *it, int embed)
43
0
{
44
0
    const ASN1_TEMPLATE *tt = NULL;
45
0
    const ASN1_EXTERN_FUNCS *ef;
46
0
    const ASN1_AUX *aux = it->funcs;
47
0
    ASN1_aux_cb *asn1_cb;
48
0
    ASN1_VALUE **pseqval;
49
0
    int i;
50
0
    if (aux && aux->asn1_cb)
51
0
        asn1_cb = aux->asn1_cb;
52
0
    else
53
0
        asn1_cb = 0;
54
55
#ifndef OPENSSL_NO_CRYPTO_MDEBUG
56
    OPENSSL_mem_debug_push(it->sname ? it->sname : "asn1_item_embed_new");
57
#endif
58
59
0
    switch (it->itype) {
60
61
0
    case ASN1_ITYPE_EXTERN:
62
0
        ef = it->funcs;
63
0
        if (ef && ef->asn1_ex_new) {
64
0
            if (!ef->asn1_ex_new(pval, it))
65
0
                goto memerr;
66
0
        }
67
0
        break;
68
69
0
    case ASN1_ITYPE_PRIMITIVE:
70
0
        if (it->templates) {
71
0
            if (!asn1_template_new(pval, it->templates))
72
0
                goto memerr;
73
0
        } else if (!asn1_primitive_new(pval, it, embed))
74
0
            goto memerr;
75
0
        break;
76
77
0
    case ASN1_ITYPE_MSTRING:
78
0
        if (!asn1_primitive_new(pval, it, embed))
79
0
            goto memerr;
80
0
        break;
81
82
0
    case ASN1_ITYPE_CHOICE:
83
0
        if (asn1_cb) {
84
0
            i = asn1_cb(ASN1_OP_NEW_PRE, pval, it, NULL);
85
0
            if (!i)
86
0
                goto auxerr;
87
0
            if (i == 2) {
88
#ifndef OPENSSL_NO_CRYPTO_MDEBUG
89
                OPENSSL_mem_debug_pop();
90
#endif
91
0
                return 1;
92
0
            }
93
0
        }
94
0
        if (embed) {
95
0
            memset(*pval, 0, it->size);
96
0
        } else {
97
0
            *pval = OPENSSL_zalloc(it->size);
98
0
            if (*pval == NULL)
99
0
                goto memerr;
100
0
        }
101
0
        asn1_set_choice_selector(pval, -1, it);
102
0
        if (asn1_cb && !asn1_cb(ASN1_OP_NEW_POST, pval, it, NULL))
103
0
            goto auxerr2;
104
0
        break;
105
106
0
    case ASN1_ITYPE_NDEF_SEQUENCE:
107
0
    case ASN1_ITYPE_SEQUENCE:
108
0
        if (asn1_cb) {
109
0
            i = asn1_cb(ASN1_OP_NEW_PRE, pval, it, NULL);
110
0
            if (!i)
111
0
                goto auxerr;
112
0
            if (i == 2) {
113
#ifndef OPENSSL_NO_CRYPTO_MDEBUG
114
                OPENSSL_mem_debug_pop();
115
#endif
116
0
                return 1;
117
0
            }
118
0
        }
119
0
        if (embed) {
120
0
            memset(*pval, 0, it->size);
121
0
        } else {
122
0
            *pval = OPENSSL_zalloc(it->size);
123
0
            if (*pval == NULL)
124
0
                goto memerr;
125
0
        }
126
        /* 0 : init. lock */
127
0
        if (asn1_do_lock(pval, 0, it) < 0) {
128
0
            if (!embed) {
129
0
                OPENSSL_free(*pval);
130
0
                *pval = NULL;
131
0
            }
132
0
            goto memerr;
133
0
        }
134
0
        asn1_enc_init(pval, it);
135
0
        for (i = 0, tt = it->templates; i < it->tcount; tt++, i++) {
136
0
            pseqval = asn1_get_field_ptr(pval, tt);
137
0
            if (!asn1_template_new(pseqval, tt))
138
0
                goto memerr2;
139
0
        }
140
0
        if (asn1_cb && !asn1_cb(ASN1_OP_NEW_POST, pval, it, NULL))
141
0
            goto auxerr2;
142
0
        break;
143
0
    }
144
#ifndef OPENSSL_NO_CRYPTO_MDEBUG
145
    OPENSSL_mem_debug_pop();
146
#endif
147
0
    return 1;
148
149
0
 memerr2:
150
0
    asn1_item_embed_free(pval, it, embed);
151
0
 memerr:
152
0
    ASN1err(ASN1_F_ASN1_ITEM_EMBED_NEW, ERR_R_MALLOC_FAILURE);
153
#ifndef OPENSSL_NO_CRYPTO_MDEBUG
154
    OPENSSL_mem_debug_pop();
155
#endif
156
0
    return 0;
157
158
0
 auxerr2:
159
0
    asn1_item_embed_free(pval, it, embed);
160
0
 auxerr:
161
0
    ASN1err(ASN1_F_ASN1_ITEM_EMBED_NEW, ASN1_R_AUX_ERROR);
162
#ifndef OPENSSL_NO_CRYPTO_MDEBUG
163
    OPENSSL_mem_debug_pop();
164
#endif
165
0
    return 0;
166
167
0
}
168
169
static void asn1_item_clear(ASN1_VALUE **pval, const ASN1_ITEM *it)
170
0
{
171
0
    const ASN1_EXTERN_FUNCS *ef;
172
173
0
    switch (it->itype) {
174
175
0
    case ASN1_ITYPE_EXTERN:
176
0
        ef = it->funcs;
177
0
        if (ef && ef->asn1_ex_clear)
178
0
            ef->asn1_ex_clear(pval, it);
179
0
        else
180
0
            *pval = NULL;
181
0
        break;
182
183
0
    case ASN1_ITYPE_PRIMITIVE:
184
0
        if (it->templates)
185
0
            asn1_template_clear(pval, it->templates);
186
0
        else
187
0
            asn1_primitive_clear(pval, it);
188
0
        break;
189
190
0
    case ASN1_ITYPE_MSTRING:
191
0
        asn1_primitive_clear(pval, it);
192
0
        break;
193
194
0
    case ASN1_ITYPE_CHOICE:
195
0
    case ASN1_ITYPE_SEQUENCE:
196
0
    case ASN1_ITYPE_NDEF_SEQUENCE:
197
0
        *pval = NULL;
198
0
        break;
199
0
    }
200
0
}
201
202
static int asn1_template_new(ASN1_VALUE **pval, const ASN1_TEMPLATE *tt)
203
0
{
204
0
    const ASN1_ITEM *it = ASN1_ITEM_ptr(tt->item);
205
0
    int embed = tt->flags & ASN1_TFLG_EMBED;
206
0
    ASN1_VALUE *tval;
207
0
    int ret;
208
0
    if (embed) {
209
0
        tval = (ASN1_VALUE *)pval;
210
0
        pval = &tval;
211
0
    }
212
0
    if (tt->flags & ASN1_TFLG_OPTIONAL) {
213
0
        asn1_template_clear(pval, tt);
214
0
        return 1;
215
0
    }
216
    /* If ANY DEFINED BY nothing to do */
217
218
0
    if (tt->flags & ASN1_TFLG_ADB_MASK) {
219
0
        *pval = NULL;
220
0
        return 1;
221
0
    }
222
#ifndef OPENSSL_NO_CRYPTO_MDEBUG
223
    OPENSSL_mem_debug_push(tt->field_name
224
            ? tt->field_name : "asn1_template_new");
225
#endif
226
    /* If SET OF or SEQUENCE OF, its a STACK */
227
0
    if (tt->flags & ASN1_TFLG_SK_MASK) {
228
0
        STACK_OF(ASN1_VALUE) *skval;
229
0
        skval = sk_ASN1_VALUE_new_null();
230
0
        if (!skval) {
231
0
            ASN1err(ASN1_F_ASN1_TEMPLATE_NEW, ERR_R_MALLOC_FAILURE);
232
0
            ret = 0;
233
0
            goto done;
234
0
        }
235
0
        *pval = (ASN1_VALUE *)skval;
236
0
        ret = 1;
237
0
        goto done;
238
0
    }
239
    /* Otherwise pass it back to the item routine */
240
0
    ret = asn1_item_embed_new(pval, it, embed);
241
0
 done:
242
#ifndef OPENSSL_NO_CRYPTO_MDEBUG
243
    OPENSSL_mem_debug_pop();
244
#endif
245
0
    return ret;
246
0
}
247
248
static void asn1_template_clear(ASN1_VALUE **pval, const ASN1_TEMPLATE *tt)
249
0
{
250
    /* If ADB or STACK just NULL the field */
251
0
    if (tt->flags & (ASN1_TFLG_ADB_MASK | ASN1_TFLG_SK_MASK))
252
0
        *pval = NULL;
253
0
    else
254
0
        asn1_item_clear(pval, ASN1_ITEM_ptr(tt->item));
255
0
}
256
257
/*
258
 * NB: could probably combine most of the real XXX_new() behaviour and junk
259
 * all the old functions.
260
 */
261
262
static int asn1_primitive_new(ASN1_VALUE **pval, const ASN1_ITEM *it,
263
                              int embed)
264
0
{
265
0
    ASN1_TYPE *typ;
266
0
    ASN1_STRING *str;
267
0
    int utype;
268
269
0
    if (!it)
270
0
        return 0;
271
272
0
    if (it->funcs) {
273
0
        const ASN1_PRIMITIVE_FUNCS *pf = it->funcs;
274
0
        if (embed) {
275
0
            if (pf->prim_clear) {
276
0
                pf->prim_clear(pval, it);
277
0
                return 1;
278
0
            }
279
0
        } else if (pf->prim_new) {
280
0
            return pf->prim_new(pval, it);
281
0
        }
282
0
    }
283
284
0
    if (it->itype == ASN1_ITYPE_MSTRING)
285
0
        utype = -1;
286
0
    else
287
0
        utype = it->utype;
288
0
    switch (utype) {
289
0
    case V_ASN1_OBJECT:
290
0
        *pval = (ASN1_VALUE *)OBJ_nid2obj(NID_undef);
291
0
        return 1;
292
293
0
    case V_ASN1_BOOLEAN:
294
0
        *(ASN1_BOOLEAN *)pval = it->size;
295
0
        return 1;
296
297
0
    case V_ASN1_NULL:
298
0
        *pval = (ASN1_VALUE *)1;
299
0
        return 1;
300
301
0
    case V_ASN1_ANY:
302
0
        if ((typ = OPENSSL_malloc(sizeof(*typ))) == NULL) {
303
0
            ASN1err(ASN1_F_ASN1_PRIMITIVE_NEW, ERR_R_MALLOC_FAILURE);
304
0
            return 0;
305
0
        }
306
0
        typ->value.ptr = NULL;
307
0
        typ->type = -1;
308
0
        *pval = (ASN1_VALUE *)typ;
309
0
        break;
310
311
0
    default:
312
0
        if (embed) {
313
0
            str = *(ASN1_STRING **)pval;
314
0
            memset(str, 0, sizeof(*str));
315
0
            str->type = utype;
316
0
            str->flags = ASN1_STRING_FLAG_EMBED;
317
0
        } else {
318
0
            str = ASN1_STRING_type_new(utype);
319
0
            *pval = (ASN1_VALUE *)str;
320
0
        }
321
0
        if (it->itype == ASN1_ITYPE_MSTRING && str)
322
0
            str->flags |= ASN1_STRING_FLAG_MSTRING;
323
0
        break;
324
0
    }
325
0
    if (*pval)
326
0
        return 1;
327
0
    return 0;
328
0
}
329
330
static void asn1_primitive_clear(ASN1_VALUE **pval, const ASN1_ITEM *it)
331
0
{
332
0
    int utype;
333
0
    if (it && it->funcs) {
334
0
        const ASN1_PRIMITIVE_FUNCS *pf = it->funcs;
335
0
        if (pf->prim_clear)
336
0
            pf->prim_clear(pval, it);
337
0
        else
338
0
            *pval = NULL;
339
0
        return;
340
0
    }
341
0
    if (!it || (it->itype == ASN1_ITYPE_MSTRING))
342
0
        utype = -1;
343
0
    else
344
0
        utype = it->utype;
345
0
    if (utype == V_ASN1_BOOLEAN)
346
0
        *(ASN1_BOOLEAN *)pval = it->size;
347
0
    else
348
0
        *pval = NULL;
349
0
}