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