1 /* crypto/asn1/asn1_lib.c */
2 /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
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.
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).
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.
23 * Redistribution and use in source and binary forms, with or without
24 * modification, are permitted provided that the following conditions
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)"
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
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.]
61 #include <openssl/asn1.h>
62 #include <openssl/asn1_mac.h>
64 static int asn1_get_length(unsigned char **pp
,int *inf
,long *rl
,int max
);
65 static void asn1_put_length(unsigned char **pp
, int length
);
66 const char *ASN1_version
="ASN.1" OPENSSL_VERSION_PTEXT
;
68 int ASN1_check_infinite_end(unsigned char **p
, long len
)
70 /* If there is 0 or 1 byte left, the length check should pick
74 else if ((len
>= 2) && ((*p
)[0] == 0) && ((*p
)[1] == 0))
83 int ASN1_get_object(unsigned char **pp
, long *plength
, int *ptag
, int *pclass
,
88 unsigned char *p
= *pp
;
93 ret
=(*p
&V_ASN1_CONSTRUCTED
);
94 xclass
=(*p
&V_ASN1_PRIVATE
);
95 i
= *p
&V_ASN1_PRIMITIVE_TAG
;
96 if (i
== V_ASN1_PRIMITIVE_TAG
)
99 if (--max
== 0) goto err
;
105 if (--max
== 0) goto err
;
115 if (--max
== 0) goto err
;
119 if (!asn1_get_length(&p
,&inf
,plength
,(int)max
)) goto err
;
122 fprintf(stderr
,"p=%d + *plength=%ld > omax=%ld + *pp=%d (%d > %d)\n",
123 (int)p
,*plength
,omax
,(int)*pp
,(int)(p
+ *plength
),
128 if ((p
+ *plength
) > (omax
+ *pp
))
130 ASN1err(ASN1_F_ASN1_GET_OBJECT
,ASN1_R_TOO_LONG
);
131 /* Set this so that even if things are not long enough
132 * the values are set correctly */
139 ASN1err(ASN1_F_ASN1_GET_OBJECT
,ASN1_R_HEADER_TOO_LONG
);
143 static int asn1_get_length(unsigned char **pp
, int *inf
, long *rl
, int max
)
145 unsigned char *p
= *pp
;
149 if (max
-- < 1) return(0);
162 if (max
-- == 0) return(0);
167 if (max
-- == 0) return(0);
178 /* class 0 is constructed
179 * constructed == 2 for indefinitle length constructed */
180 void ASN1_put_object(unsigned char **pp
, int constructed
, int length
, int tag
,
183 unsigned char *p
= *pp
;
186 i
=(constructed
)?V_ASN1_CONSTRUCTED
:0;
187 i
|=(xclass
&V_ASN1_PRIVATE
);
189 *(p
++)=i
|(tag
&V_ASN1_PRIMITIVE_TAG
);
192 *(p
++)=i
|V_ASN1_PRIMITIVE_TAG
;
195 *(p
++)=(tag
&0x7f)|0x80;
200 if ((constructed
== 2) && (length
== 0))
201 *(p
++)=0x80; /* der_put_length would output 0 instead */
203 asn1_put_length(&p
,length
);
207 static void asn1_put_length(unsigned char **pp
, int length
)
209 unsigned char *p
= *pp
;
212 *(p
++)=(unsigned char)length
;
216 for (i
=0; l
> 0; i
++)
230 int ASN1_object_size(int constructed
, int length
, int tag
)
244 if ((length
== 0) && (constructed
== 2))
258 int asn1_Finish(ASN1_CTX
*c
)
260 if ((c
->inf
== (1|V_ASN1_CONSTRUCTED
)) && (!c
->eos
))
262 if (!ASN1_check_infinite_end(&c
->p
,c
->slen
))
264 c
->error
=ERR_R_MISSING_ASN1_EOS
;
268 if ( ((c
->slen
!= 0) && !(c
->inf
& 1)) ||
269 ((c
->slen
< 0) && (c
->inf
& 1)))
271 c
->error
=ERR_R_ASN1_LENGTH_MISMATCH
;
277 int asn1_GetSequence(ASN1_CTX
*c
, long *length
)
282 c
->inf
=ASN1_get_object(&(c
->p
),&(c
->slen
),&(c
->tag
),&(c
->xclass
),
286 c
->error
=ERR_R_BAD_GET_ASN1_OBJECT_CALL
;
289 if (c
->tag
!= V_ASN1_SEQUENCE
)
291 c
->error
=ERR_R_EXPECTING_AN_ASN1_SEQUENCE
;
295 if (c
->max
&& (*length
< 0))
297 c
->error
=ERR_R_ASN1_LENGTH_MISMATCH
;
300 if (c
->inf
== (1|V_ASN1_CONSTRUCTED
))
301 c
->slen
= *length
+ *(c
->pp
)-c
->p
;
306 ASN1_STRING
*ASN1_STRING_dup(ASN1_STRING
*str
)
310 if (str
== NULL
) return(NULL
);
311 if ((ret
=ASN1_STRING_type_new(str
->type
)) == NULL
)
313 if (!ASN1_STRING_set(ret
,str
->data
,str
->length
))
315 ASN1_STRING_free(ret
);
318 ret
->flags
= str
->flags
;
322 int ASN1_STRING_set(ASN1_STRING
*str
, const void *_data
, int len
)
325 const char *data
=_data
;
334 if ((str
->length
< len
) || (str
->data
== NULL
))
338 str
->data
=Malloc(len
+1);
340 str
->data
=Realloc(c
,len
+1);
342 if (str
->data
== NULL
)
351 memcpy(str
->data
,data
,len
);
352 /* an alowance for strings :-) */
358 ASN1_STRING
*ASN1_STRING_new(void)
360 return(ASN1_STRING_type_new(V_ASN1_OCTET_STRING
));
364 ASN1_STRING
*ASN1_STRING_type_new(int type
)
368 ret
=(ASN1_STRING
*)Malloc(sizeof(ASN1_STRING
));
371 ASN1err(ASN1_F_ASN1_STRING_TYPE_NEW
,ERR_R_MALLOC_FAILURE
);
381 void ASN1_STRING_free(ASN1_STRING
*a
)
383 if (a
== NULL
) return;
384 if (a
->data
!= NULL
) Free((char *)a
->data
);
388 int ASN1_STRING_cmp(ASN1_STRING
*a
, ASN1_STRING
*b
)
392 i
=(a
->length
-b
->length
);
395 i
=memcmp(a
->data
,b
->data
,a
->length
);
397 return(a
->type
-b
->type
);
405 void asn1_add_error(unsigned char *address
, int offset
)
407 char buf1
[16],buf2
[16];
409 sprintf(buf1
,"%lu",(unsigned long)address
);
410 sprintf(buf2
,"%d",offset
);
411 ERR_add_error_data(4,"address=",buf1
," offset=",buf2
);
414 int ASN1_STRING_length(ASN1_STRING
*x
)
415 { return M_ASN1_STRING_length(x
); }
417 void ASN1_STRING_length_set(ASN1_STRING
*x
, int len
)
418 { M_ASN1_STRING_length_set(x
, len
); return; }
420 int ASN1_STRING_type(ASN1_STRING
*x
)
421 { return M_ASN1_STRING_type(x
); }
423 unsigned char * ASN1_STRING_data(ASN1_STRING
*x
)
424 { return ASN1_STRING_data(x
); }