1/* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
2 * All rights reserved.
3 *
4 * This package is an SSL implementation written
5 * by Eric Young (eay@cryptsoft.com).
6 * The implementation was written so as to conform with Netscapes SSL.
7 *
8 * This library is free for commercial and non-commercial use as long as
9 * the following conditions are aheared to.  The following conditions
10 * apply to all code found in this distribution, be it the RC4, RSA,
11 * lhash, DES, etc., code; not just the SSL code.  The SSL documentation
12 * included with this distribution is covered by the same copyright terms
13 * except that the holder is Tim Hudson (tjh@cryptsoft.com).
14 *
15 * Copyright remains Eric Young's, and as such any Copyright notices in
16 * the code are not to be removed.
17 * If this package is used in a product, Eric Young should be given attribution
18 * as the author of the parts of the library used.
19 * This can be in the form of a textual message at program startup or
20 * in documentation (online or textual) provided with the package.
21 *
22 * Redistribution and use in source and binary forms, with or without
23 * modification, are permitted provided that the following conditions
24 * are met:
25 * 1. Redistributions of source code must retain the copyright
26 *    notice, this list of conditions and the following disclaimer.
27 * 2. Redistributions in binary form must reproduce the above copyright
28 *    notice, this list of conditions and the following disclaimer in the
29 *    documentation and/or other materials provided with the distribution.
30 * 3. All advertising materials mentioning features or use of this software
31 *    must display the following acknowledgement:
32 *    "This product includes cryptographic software written by
33 *     Eric Young (eay@cryptsoft.com)"
34 *    The word 'cryptographic' can be left out if the rouines from the library
35 *    being used are not cryptographic related :-).
36 * 4. If you include any Windows specific code (or a derivative thereof) from
37 *    the apps directory (application code) you must include an acknowledgement:
38 *    "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
39 *
40 * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
41 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
42 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
43 * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
44 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
45 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
46 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
47 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
48 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
49 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
50 * SUCH DAMAGE.
51 *
52 * The licence and distribution terms for any publically available version or
53 * derivative of this code cannot be changed.  i.e. this code cannot simply be
54 * copied and put under another distribution licence
55 * [including the GNU Public Licence.] */
56
57#include <openssl/asn1.h>
58
59#include <string.h>
60
61#include <openssl/asn1t.h>
62#include <openssl/mem.h>
63#include <openssl/obj.h>
64#include <openssl/err.h>
65#include <openssl/thread.h>
66
67#include "../internal.h"
68
69
70/* Utility functions for manipulating fields and offsets */
71
72/* Add 'offset' to 'addr' */
73#define offset2ptr(addr, offset) (void *)(((char *) addr) + offset)
74
75/* Given an ASN1_ITEM CHOICE type return the selector value */
76int asn1_get_choice_selector(ASN1_VALUE **pval, const ASN1_ITEM *it) {
77  int *sel = offset2ptr(*pval, it->utype);
78  return *sel;
79}
80
81/* Given an ASN1_ITEM CHOICE type set the selector value, return old value. */
82int asn1_set_choice_selector(ASN1_VALUE **pval, int value,
83                             const ASN1_ITEM *it) {
84  int *sel, ret;
85  sel = offset2ptr(*pval, it->utype);
86  ret = *sel;
87  *sel = value;
88  return ret;
89}
90
91static CRYPTO_refcount_t *asn1_get_references(ASN1_VALUE **pval,
92                                              const ASN1_ITEM *it) {
93  if (it->itype != ASN1_ITYPE_SEQUENCE &&
94      it->itype != ASN1_ITYPE_NDEF_SEQUENCE) {
95    return NULL;
96  }
97  const ASN1_AUX *aux = it->funcs;
98  if (!aux || !(aux->flags & ASN1_AFLG_REFCOUNT)) {
99    return NULL;
100  }
101  return offset2ptr(*pval, aux->ref_offset);
102}
103
104void asn1_refcount_set_one(ASN1_VALUE **pval, const ASN1_ITEM *it) {
105  CRYPTO_refcount_t *references = asn1_get_references(pval, it);
106  if (references != NULL) {
107    *references = 1;
108  }
109}
110
111int asn1_refcount_dec_and_test_zero(ASN1_VALUE **pval, const ASN1_ITEM *it) {
112  CRYPTO_refcount_t *references = asn1_get_references(pval, it);
113  if (references != NULL) {
114    return CRYPTO_refcount_dec_and_test_zero(references);
115  }
116  return 1;
117}
118
119static ASN1_ENCODING *asn1_get_enc_ptr(ASN1_VALUE **pval, const ASN1_ITEM *it) {
120  const ASN1_AUX *aux;
121  if (!pval || !*pval) {
122    return NULL;
123  }
124  aux = it->funcs;
125  if (!aux || !(aux->flags & ASN1_AFLG_ENCODING)) {
126    return NULL;
127  }
128  return offset2ptr(*pval, aux->enc_offset);
129}
130
131void asn1_enc_init(ASN1_VALUE **pval, const ASN1_ITEM *it) {
132  ASN1_ENCODING *enc;
133  enc = asn1_get_enc_ptr(pval, it);
134  if (enc) {
135    enc->enc = NULL;
136    enc->len = 0;
137    enc->modified = 1;
138  }
139}
140
141void asn1_enc_free(ASN1_VALUE **pval, const ASN1_ITEM *it) {
142  ASN1_ENCODING *enc;
143  enc = asn1_get_enc_ptr(pval, it);
144  if (enc) {
145    if (enc->enc) {
146      OPENSSL_free(enc->enc);
147    }
148    enc->enc = NULL;
149    enc->len = 0;
150    enc->modified = 1;
151  }
152}
153
154int asn1_enc_save(ASN1_VALUE **pval, const unsigned char *in, int inlen,
155                  const ASN1_ITEM *it) {
156  ASN1_ENCODING *enc;
157  enc = asn1_get_enc_ptr(pval, it);
158  if (!enc) {
159    return 1;
160  }
161
162  if (enc->enc) {
163    OPENSSL_free(enc->enc);
164  }
165  enc->enc = OPENSSL_malloc(inlen);
166  if (!enc->enc) {
167    return 0;
168  }
169  memcpy(enc->enc, in, inlen);
170  enc->len = inlen;
171  enc->modified = 0;
172
173  return 1;
174}
175
176int asn1_enc_restore(int *len, unsigned char **out, ASN1_VALUE **pval,
177                     const ASN1_ITEM *it) {
178  ASN1_ENCODING *enc;
179  enc = asn1_get_enc_ptr(pval, it);
180  if (!enc || enc->modified) {
181    return 0;
182  }
183  if (out) {
184    memcpy(*out, enc->enc, enc->len);
185    *out += enc->len;
186  }
187  if (len) {
188    *len = enc->len;
189  }
190  return 1;
191}
192
193/* Given an ASN1_TEMPLATE get a pointer to a field */
194ASN1_VALUE **asn1_get_field_ptr(ASN1_VALUE **pval, const ASN1_TEMPLATE *tt) {
195  ASN1_VALUE **pvaltmp;
196  if (tt->flags & ASN1_TFLG_COMBINE) {
197    return pval;
198  }
199  pvaltmp = offset2ptr(*pval, tt->offset);
200  /* NOTE for BOOLEAN types the field is just a plain int so we can't return
201   * int **, so settle for (int *). */
202  return pvaltmp;
203}
204
205/* Handle ANY DEFINED BY template, find the selector, look up the relevant
206 * ASN1_TEMPLATE in the table and return it. */
207const ASN1_TEMPLATE *asn1_do_adb(ASN1_VALUE **pval, const ASN1_TEMPLATE *tt,
208                                 int nullerr) {
209  const ASN1_ADB *adb;
210  const ASN1_ADB_TABLE *atbl;
211  long selector;
212  ASN1_VALUE **sfld;
213  int i;
214  if (!(tt->flags & ASN1_TFLG_ADB_MASK)) {
215    return tt;
216  }
217
218  /* Else ANY DEFINED BY ... get the table */
219  adb = ASN1_ADB_ptr(tt->item);
220
221  /* Get the selector field */
222  sfld = offset2ptr(*pval, adb->offset);
223
224  /* Check if NULL */
225  if (!sfld) {
226    if (!adb->null_tt) {
227      goto err;
228    }
229    return adb->null_tt;
230  }
231
232  /* Convert type to a long:
233   * NB: don't check for NID_undef here because it
234   * might be a legitimate value in the table */
235  if (tt->flags & ASN1_TFLG_ADB_OID) {
236    selector = OBJ_obj2nid((ASN1_OBJECT *)*sfld);
237  } else {
238    selector = ASN1_INTEGER_get((ASN1_INTEGER *)*sfld);
239  }
240
241  /* Try to find matching entry in table Maybe should check application types
242   * first to allow application override? Might also be useful to have a flag
243   * which indicates table is sorted and we can do a binary search. For now
244   * stick to a linear search. */
245
246  for (atbl = adb->tbl, i = 0; i < adb->tblcount; i++, atbl++) {
247    if (atbl->value == selector) {
248      return &atbl->tt;
249    }
250  }
251
252  /* FIXME: need to search application table too */
253
254  /* No match, return default type */
255  if (!adb->default_tt) {
256    goto err;
257  }
258  return adb->default_tt;
259
260err:
261  /* FIXME: should log the value or OID of unsupported type */
262  if (nullerr) {
263    OPENSSL_PUT_ERROR(ASN1, asn1_do_adb,
264                      ASN1_R_UNSUPPORTED_ANY_DEFINED_BY_TYPE);
265  }
266  return NULL;
267}
268