a_object.c revision 306195 
1/* crypto/asn1/a_object.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 <limits.h>
61#include "cryptlib.h"
62#include <openssl/buffer.h>
63#include <openssl/asn1.h>
64#include <openssl/objects.h>
65#include <openssl/bn.h>
66
67int i2d_ASN1_OBJECT(ASN1_OBJECT *a, unsigned char **pp)
68{
69    unsigned char *p;
70    int objsize;
71
72    if ((a == NULL) || (a->data == NULL))
73        return (0);
74
75    objsize = ASN1_object_size(0, a->length, V_ASN1_OBJECT);
76    if (pp == NULL || objsize == -1)
77        return objsize;
78
79    p = *pp;
80    ASN1_put_object(&p, 0, a->length, V_ASN1_OBJECT, V_ASN1_UNIVERSAL);
81    memcpy(p, a->data, a->length);
82    p += a->length;
83
84    *pp = p;
85    return (objsize);
86}
87
88int a2d_ASN1_OBJECT(unsigned char *out, int olen, const char *buf, int num)
89{
90    int i, first, len = 0, c, use_bn;
91    char ftmp[24], *tmp = ftmp;
92    int tmpsize = sizeof ftmp;
93    const char *p;
94    unsigned long l;
95    BIGNUM *bl = NULL;
96
97    if (num == 0)
98        return (0);
99    else if (num == -1)
100        num = strlen(buf);
101
102    p = buf;
103    c = *(p++);
104    num--;
105    if ((c >= '0') && (c <= '2')) {
106        first = c - '0';
107    } else {
108        ASN1err(ASN1_F_A2D_ASN1_OBJECT, ASN1_R_FIRST_NUM_TOO_LARGE);
109        goto err;
110    }
111
112    if (num <= 0) {
113        ASN1err(ASN1_F_A2D_ASN1_OBJECT, ASN1_R_MISSING_SECOND_NUMBER);
114        goto err;
115    }
116    c = *(p++);
117    num--;
118    for (;;) {
119        if (num <= 0)
120            break;
121        if ((c != '.') && (c != ' ')) {
122            ASN1err(ASN1_F_A2D_ASN1_OBJECT, ASN1_R_INVALID_SEPARATOR);
123            goto err;
124        }
125        l = 0;
126        use_bn = 0;
127        for (;;) {
128            if (num <= 0)
129                break;
130            num--;
131            c = *(p++);
132            if ((c == ' ') || (c == '.'))
133                break;
134            if ((c < '0') || (c > '9')) {
135                ASN1err(ASN1_F_A2D_ASN1_OBJECT, ASN1_R_INVALID_DIGIT);
136                goto err;
137            }
138            if (!use_bn && l >= ((ULONG_MAX - 80) / 10L)) {
139                use_bn = 1;
140                if (!bl)
141                    bl = BN_new();
142                if (!bl || !BN_set_word(bl, l))
143                    goto err;
144            }
145            if (use_bn) {
146                if (!BN_mul_word(bl, 10L)
147                    || !BN_add_word(bl, c - '0'))
148                    goto err;
149            } else
150                l = l * 10L + (long)(c - '0');
151        }
152        if (len == 0) {
153            if ((first < 2) && (l >= 40)) {
154                ASN1err(ASN1_F_A2D_ASN1_OBJECT,
155                        ASN1_R_SECOND_NUMBER_TOO_LARGE);
156                goto err;
157            }
158            if (use_bn) {
159                if (!BN_add_word(bl, first * 40))
160                    goto err;
161            } else
162                l += (long)first *40;
163        }
164        i = 0;
165        if (use_bn) {
166            int blsize;
167            blsize = BN_num_bits(bl);
168            blsize = (blsize + 6) / 7;
169            if (blsize > tmpsize) {
170                if (tmp != ftmp)
171                    OPENSSL_free(tmp);
172                tmpsize = blsize + 32;
173                tmp = OPENSSL_malloc(tmpsize);
174                if (!tmp)
175                    goto err;
176            }
177            while (blsize--) {
178                BN_ULONG t = BN_div_word(bl, 0x80L);
179                if (t == (BN_ULONG)-1)
180                    goto err;
181                tmp[i++] = (unsigned char)t;
182            }
183        } else {
184
185            for (;;) {
186                tmp[i++] = (unsigned char)l & 0x7f;
187                l >>= 7L;
188                if (l == 0L)
189                    break;
190            }
191
192        }
193        if (out != NULL) {
194            if (len + i > olen) {
195                ASN1err(ASN1_F_A2D_ASN1_OBJECT, ASN1_R_BUFFER_TOO_SMALL);
196                goto err;
197            }
198            while (--i > 0)
199                out[len++] = tmp[i] | 0x80;
200            out[len++] = tmp[0];
201        } else
202            len += i;
203    }
204    if (tmp != ftmp)
205        OPENSSL_free(tmp);
206    if (bl)
207        BN_free(bl);
208    return (len);
209 err:
210    if (tmp != ftmp)
211        OPENSSL_free(tmp);
212    if (bl)
213        BN_free(bl);
214    return (0);
215}
216
217int i2t_ASN1_OBJECT(char *buf, int buf_len, ASN1_OBJECT *a)
218{
219    return OBJ_obj2txt(buf, buf_len, a, 0);
220}
221
222int i2a_ASN1_OBJECT(BIO *bp, ASN1_OBJECT *a)
223{
224    char buf[80], *p = buf;
225    int i;
226
227    if ((a == NULL) || (a->data == NULL))
228        return (BIO_write(bp, "NULL", 4));
229    i = i2t_ASN1_OBJECT(buf, sizeof buf, a);
230    if (i > (int)(sizeof(buf) - 1)) {
231        p = OPENSSL_malloc(i + 1);
232        if (!p)
233            return -1;
234        i2t_ASN1_OBJECT(p, i + 1, a);
235    }
236    if (i <= 0)
237        return BIO_write(bp, "<INVALID>", 9);
238    BIO_write(bp, p, i);
239    if (p != buf)
240        OPENSSL_free(p);
241    return (i);
242}
243
244ASN1_OBJECT *d2i_ASN1_OBJECT(ASN1_OBJECT **a, const unsigned char **pp,
245                             long length)
246{
247    const unsigned char *p;
248    long len;
249    int tag, xclass;
250    int inf, i;
251    ASN1_OBJECT *ret = NULL;
252    p = *pp;
253    inf = ASN1_get_object(&p, &len, &tag, &xclass, length);
254    if (inf & 0x80) {
255        i = ASN1_R_BAD_OBJECT_HEADER;
256        goto err;
257    }
258
259    if (tag != V_ASN1_OBJECT) {
260        i = ASN1_R_EXPECTING_AN_OBJECT;
261        goto err;
262    }
263    ret = c2i_ASN1_OBJECT(a, &p, len);
264    if (ret)
265        *pp = p;
266    return ret;
267 err:
268    ASN1err(ASN1_F_D2I_ASN1_OBJECT, i);
269    return (NULL);
270}
271
272ASN1_OBJECT *c2i_ASN1_OBJECT(ASN1_OBJECT **a, const unsigned char **pp,
273                             long len)
274{
275    ASN1_OBJECT *ret = NULL;
276    const unsigned char *p;
277    unsigned char *data;
278    int i, length;
279
280    /*
281     * Sanity check OID encoding. Need at least one content octet. MSB must
282     * be clear in the last octet. can't have leading 0x80 in subidentifiers,
283     * see: X.690 8.19.2
284     */
285    if (len <= 0 || len > INT_MAX || pp == NULL || (p = *pp) == NULL ||
286        p[len - 1] & 0x80) {
287        ASN1err(ASN1_F_C2I_ASN1_OBJECT, ASN1_R_INVALID_OBJECT_ENCODING);
288        return NULL;
289    }
290    /* Now 0 < len <= INT_MAX, so the cast is safe. */
291    length = (int)len;
292    for (i = 0; i < length; i++, p++) {
293        if (*p == 0x80 && (!i || !(p[-1] & 0x80))) {
294            ASN1err(ASN1_F_C2I_ASN1_OBJECT, ASN1_R_INVALID_OBJECT_ENCODING);
295            return NULL;
296        }
297    }
298
299    /*
300     * only the ASN1_OBJECTs from the 'table' will have values for ->sn or
301     * ->ln
302     */
303    if ((a == NULL) || ((*a) == NULL) ||
304        !((*a)->flags & ASN1_OBJECT_FLAG_DYNAMIC)) {
305        if ((ret = ASN1_OBJECT_new()) == NULL)
306            return (NULL);
307    } else
308        ret = (*a);
309
310    p = *pp;
311    /* detach data from object */
312    data = (unsigned char *)ret->data;
313    ret->data = NULL;
314    /* once detached we can change it */
315    if ((data == NULL) || (ret->length < length)) {
316        ret->length = 0;
317        if (data != NULL)
318            OPENSSL_free(data);
319        data = (unsigned char *)OPENSSL_malloc(length);
320        if (data == NULL) {
321            i = ERR_R_MALLOC_FAILURE;
322            goto err;
323        }
324        ret->flags |= ASN1_OBJECT_FLAG_DYNAMIC_DATA;
325    }
326    memcpy(data, p, length);
327    /* reattach data to object, after which it remains const */
328    ret->data = data;
329    ret->length = length;
330    ret->sn = NULL;
331    ret->ln = NULL;
332    /* ret->flags=ASN1_OBJECT_FLAG_DYNAMIC; we know it is dynamic */
333    p += length;
334
335    if (a != NULL)
336        (*a) = ret;
337    *pp = p;
338    return (ret);
339 err:
340    ASN1err(ASN1_F_C2I_ASN1_OBJECT, i);
341    if ((ret != NULL) && ((a == NULL) || (*a != ret)))
342        ASN1_OBJECT_free(ret);
343    return (NULL);
344}
345
346ASN1_OBJECT *ASN1_OBJECT_new(void)
347{
348    ASN1_OBJECT *ret;
349
350    ret = (ASN1_OBJECT *)OPENSSL_malloc(sizeof(ASN1_OBJECT));
351    if (ret == NULL) {
352        ASN1err(ASN1_F_ASN1_OBJECT_NEW, ERR_R_MALLOC_FAILURE);
353        return (NULL);
354    }
355    ret->length = 0;
356    ret->data = NULL;
357    ret->nid = 0;
358    ret->sn = NULL;
359    ret->ln = NULL;
360    ret->flags = ASN1_OBJECT_FLAG_DYNAMIC;
361    return (ret);
362}
363
364void ASN1_OBJECT_free(ASN1_OBJECT *a)
365{
366    if (a == NULL)
367        return;
368    if (a->flags & ASN1_OBJECT_FLAG_DYNAMIC_STRINGS) {
369#ifndef CONST_STRICT            /* disable purely for compile-time strict
370                                 * const checking. Doing this on a "real"
371                                 * compile will cause memory leaks */
372        if (a->sn != NULL)
373            OPENSSL_free((void *)a->sn);
374        if (a->ln != NULL)
375            OPENSSL_free((void *)a->ln);
376#endif
377        a->sn = a->ln = NULL;
378    }
379    if (a->flags & ASN1_OBJECT_FLAG_DYNAMIC_DATA) {
380        if (a->data != NULL)
381            OPENSSL_free((void *)a->data);
382        a->data = NULL;
383        a->length = 0;
384    }
385    if (a->flags & ASN1_OBJECT_FLAG_DYNAMIC)
386        OPENSSL_free(a);
387}
388
389ASN1_OBJECT *ASN1_OBJECT_create(int nid, unsigned char *data, int len,
390                                const char *sn, const char *ln)
391{
392    ASN1_OBJECT o;
393
394    o.sn = sn;
395    o.ln = ln;
396    o.data = data;
397    o.nid = nid;
398    o.length = len;
399    o.flags = ASN1_OBJECT_FLAG_DYNAMIC | ASN1_OBJECT_FLAG_DYNAMIC_STRINGS |
400        ASN1_OBJECT_FLAG_DYNAMIC_DATA;
401    return (OBJ_dup(&o));
402}
403
404IMPLEMENT_STACK_OF(ASN1_OBJECT)
405
406IMPLEMENT_ASN1_SET_OF(ASN1_OBJECT)
407