a_bytes.c revision 55714 
1/* crypto/asn1/a_bytes.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 "cryptlib.h"
61#include <openssl/asn1_mac.h>
62
63static unsigned long tag2bit[32]={
640,	0,	0,	B_ASN1_BIT_STRING,	/* tags  0 -  3 */
65B_ASN1_OCTET_STRING,	0,	0,		B_ASN1_UNKNOWN,/* tags  4- 7 */
66B_ASN1_UNKNOWN,	B_ASN1_UNKNOWN,	B_ASN1_UNKNOWN,	B_ASN1_UNKNOWN,/* tags  8-11 */
67B_ASN1_UTF8STRING,B_ASN1_UNKNOWN,B_ASN1_UNKNOWN,B_ASN1_UNKNOWN,/* tags 12-15 */
680,	0,	B_ASN1_NUMERICSTRING,B_ASN1_PRINTABLESTRING,
69B_ASN1_T61STRING,B_ASN1_VIDEOTEXSTRING,B_ASN1_IA5STRING,0,
700,B_ASN1_GRAPHICSTRING,B_ASN1_ISO64STRING,B_ASN1_GENERALSTRING,
71B_ASN1_UNIVERSALSTRING,B_ASN1_UNKNOWN,B_ASN1_BMPSTRING,B_ASN1_UNKNOWN,
72	};
73
74static int asn1_collate_primative(ASN1_STRING *a, ASN1_CTX *c);
75/* type is a 'bitmap' of acceptable string types.
76 */
77ASN1_STRING *d2i_ASN1_type_bytes(ASN1_STRING **a, unsigned char **pp,
78	     long length, int type)
79	{
80	ASN1_STRING *ret=NULL;
81	unsigned char *p,*s;
82	long len;
83	int inf,tag,xclass;
84	int i=0;
85
86	p= *pp;
87	inf=ASN1_get_object(&p,&len,&tag,&xclass,length);
88	if (inf & 0x80) goto err;
89
90	if (tag >= 32)
91		{
92		i=ASN1_R_TAG_VALUE_TOO_HIGH;;
93		goto err;
94		}
95	if (!(tag2bit[tag] & type))
96		{
97		i=ASN1_R_WRONG_TYPE;
98		goto err;
99		}
100
101	/* If a bit-string, exit early */
102	if (tag == V_ASN1_BIT_STRING)
103		return(d2i_ASN1_BIT_STRING(a,pp,length));
104
105	if ((a == NULL) || ((*a) == NULL))
106		{
107		if ((ret=ASN1_STRING_new()) == NULL) return(NULL);
108		}
109	else
110		ret=(*a);
111
112	if (len != 0)
113		{
114		s=(unsigned char *)Malloc((int)len+1);
115		if (s == NULL)
116			{
117			i=ERR_R_MALLOC_FAILURE;
118			goto err;
119			}
120		memcpy(s,p,(int)len);
121		s[len]='\0';
122		p+=len;
123		}
124	else
125		s=NULL;
126
127	if (ret->data != NULL) Free((char *)ret->data);
128	ret->length=(int)len;
129	ret->data=s;
130	ret->type=tag;
131	if (a != NULL) (*a)=ret;
132	*pp=p;
133	return(ret);
134err:
135	ASN1err(ASN1_F_D2I_ASN1_TYPE_BYTES,i);
136	if ((ret != NULL) && ((a == NULL) || (*a != ret)))
137		ASN1_STRING_free(ret);
138	return(NULL);
139	}
140
141int i2d_ASN1_bytes(ASN1_STRING *a, unsigned char **pp, int tag, int xclass)
142	{
143	int ret,r,constructed;
144	unsigned char *p;
145
146	if (a == NULL)  return(0);
147
148	if (tag == V_ASN1_BIT_STRING)
149		return(i2d_ASN1_BIT_STRING(a,pp));
150
151	ret=a->length;
152	r=ASN1_object_size(0,ret,tag);
153	if (pp == NULL) return(r);
154	p= *pp;
155
156	if ((tag == V_ASN1_SEQUENCE) || (tag == V_ASN1_SET))
157		constructed=1;
158	else
159		constructed=0;
160	ASN1_put_object(&p,constructed,ret,tag,xclass);
161	memcpy(p,a->data,a->length);
162	p+=a->length;
163	*pp= p;
164	return(r);
165	}
166
167ASN1_STRING *d2i_ASN1_bytes(ASN1_STRING **a, unsigned char **pp, long length,
168	     int Ptag, int Pclass)
169	{
170	ASN1_STRING *ret=NULL;
171	unsigned char *p,*s;
172	long len;
173	int inf,tag,xclass;
174	int i=0;
175
176	if ((a == NULL) || ((*a) == NULL))
177		{
178		if ((ret=ASN1_STRING_new()) == NULL) return(NULL);
179		}
180	else
181		ret=(*a);
182
183	p= *pp;
184	inf=ASN1_get_object(&p,&len,&tag,&xclass,length);
185	if (inf & 0x80)
186		{
187		i=ASN1_R_BAD_OBJECT_HEADER;
188		goto err;
189		}
190
191	if (tag != Ptag)
192		{
193		i=ASN1_R_WRONG_TAG;
194		goto err;
195		}
196
197	if (inf & V_ASN1_CONSTRUCTED)
198		{
199		ASN1_CTX c;
200
201		c.pp=pp;
202		c.p=p;
203		c.inf=inf;
204		c.slen=len;
205		c.tag=Ptag;
206		c.xclass=Pclass;
207		c.max=(length == 0)?0:(p+length);
208		if (!asn1_collate_primative(ret,&c))
209			goto err;
210		else
211			{
212			p=c.p;
213			}
214		}
215	else
216		{
217		if (len != 0)
218			{
219			if ((ret->length < len) || (ret->data == NULL))
220				{
221				if (ret->data != NULL) Free((char *)ret->data);
222				s=(unsigned char *)Malloc((int)len);
223				if (s == NULL)
224					{
225					i=ERR_R_MALLOC_FAILURE;
226					goto err;
227					}
228				}
229			else
230				s=ret->data;
231			memcpy(s,p,(int)len);
232			p+=len;
233			}
234		else
235			{
236			s=NULL;
237			if (ret->data != NULL) Free((char *)ret->data);
238			}
239
240		ret->length=(int)len;
241		ret->data=s;
242		ret->type=Ptag;
243		}
244
245	if (a != NULL) (*a)=ret;
246	*pp=p;
247	return(ret);
248err:
249	if ((ret != NULL) && ((a == NULL) || (*a != ret)))
250		ASN1_STRING_free(ret);
251	ASN1err(ASN1_F_D2I_ASN1_BYTES,i);
252	return(NULL);
253	}
254
255
256/* We are about to parse 0..n d2i_ASN1_bytes objects, we are to collapes
257 * them into the one struture that is then returned */
258/* There have been a few bug fixes for this function from
259 * Paul Keogh <paul.keogh@sse.ie>, many thanks to him */
260static int asn1_collate_primative(ASN1_STRING *a, ASN1_CTX *c)
261	{
262	ASN1_STRING *os=NULL;
263	BUF_MEM b;
264	int num;
265
266	b.length=0;
267	b.max=0;
268	b.data=NULL;
269
270	if (a == NULL)
271		{
272		c->error=ERR_R_PASSED_NULL_PARAMETER;
273		goto err;
274		}
275
276	num=0;
277	for (;;)
278		{
279		if (c->inf & 1)
280			{
281			c->eos=ASN1_check_infinite_end(&c->p,
282				(long)(c->max-c->p));
283			if (c->eos) break;
284			}
285		else
286			{
287			if (c->slen <= 0) break;
288			}
289
290		c->q=c->p;
291		if (d2i_ASN1_bytes(&os,&c->p,c->max-c->p,c->tag,c->xclass)
292			== NULL)
293			{
294			c->error=ERR_R_ASN1_LIB;
295			goto err;
296			}
297
298		if (!BUF_MEM_grow(&b,num+os->length))
299			{
300			c->error=ERR_R_BUF_LIB;
301			goto err;
302			}
303		memcpy(&(b.data[num]),os->data,os->length);
304		if (!(c->inf & 1))
305			c->slen-=(c->p-c->q);
306		num+=os->length;
307		}
308
309	if (!asn1_Finish(c)) goto err;
310
311	a->length=num;
312	if (a->data != NULL) Free(a->data);
313	a->data=(unsigned char *)b.data;
314	if (os != NULL) ASN1_STRING_free(os);
315	return(1);
316err:
317	ASN1err(ASN1_F_ASN1_COLLATE_PRIMITIVE,c->error);
318	if (os != NULL) ASN1_STRING_free(os);
319	if (b.data != NULL) Free(b.data);
320	return(0);
321	}
322
323