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