a_type.c revision 68651
1/* crypto/asn1/a_type.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 void ASN1_TYPE_component_free(ASN1_TYPE *a); 64int i2d_ASN1_TYPE(ASN1_TYPE *a, unsigned char **pp) 65 { 66 int r=0; 67 68 if (a == NULL) return(0); 69 70 switch (a->type) 71 { 72 case V_ASN1_NULL: 73 if (pp != NULL) 74 ASN1_put_object(pp,0,0,V_ASN1_NULL,V_ASN1_UNIVERSAL); 75 r=2; 76 break; 77 case V_ASN1_INTEGER: 78 case V_ASN1_NEG_INTEGER: 79 r=i2d_ASN1_INTEGER(a->value.integer,pp); 80 break; 81 case V_ASN1_ENUMERATED: 82 case V_ASN1_NEG_ENUMERATED: 83 r=i2d_ASN1_ENUMERATED(a->value.enumerated,pp); 84 break; 85 case V_ASN1_BIT_STRING: 86 r=i2d_ASN1_BIT_STRING(a->value.bit_string,pp); 87 break; 88 case V_ASN1_OCTET_STRING: 89 r=i2d_ASN1_OCTET_STRING(a->value.octet_string,pp); 90 break; 91 case V_ASN1_OBJECT: 92 r=i2d_ASN1_OBJECT(a->value.object,pp); 93 break; 94 case V_ASN1_PRINTABLESTRING: 95 r=M_i2d_ASN1_PRINTABLESTRING(a->value.printablestring,pp); 96 break; 97 case V_ASN1_T61STRING: 98 r=M_i2d_ASN1_T61STRING(a->value.t61string,pp); 99 break; 100 case V_ASN1_IA5STRING: 101 r=M_i2d_ASN1_IA5STRING(a->value.ia5string,pp); 102 break; 103 case V_ASN1_GENERALSTRING: 104 r=M_i2d_ASN1_GENERALSTRING(a->value.generalstring,pp); 105 break; 106 case V_ASN1_UNIVERSALSTRING: 107 r=M_i2d_ASN1_UNIVERSALSTRING(a->value.universalstring,pp); 108 break; 109 case V_ASN1_UTF8STRING: 110 r=M_i2d_ASN1_UTF8STRING(a->value.utf8string,pp); 111 break; 112 case V_ASN1_VISIBLESTRING: 113 r=M_i2d_ASN1_VISIBLESTRING(a->value.visiblestring,pp); 114 break; 115 case V_ASN1_BMPSTRING: 116 r=M_i2d_ASN1_BMPSTRING(a->value.bmpstring,pp); 117 break; 118 case V_ASN1_UTCTIME: 119 r=i2d_ASN1_UTCTIME(a->value.utctime,pp); 120 break; 121 case V_ASN1_GENERALIZEDTIME: 122 r=i2d_ASN1_GENERALIZEDTIME(a->value.generalizedtime,pp); 123 break; 124 case V_ASN1_SET: 125 case V_ASN1_SEQUENCE: 126 case V_ASN1_OTHER: 127 default: 128 if (a->value.set == NULL) 129 r=0; 130 else 131 { 132 r=a->value.set->length; 133 if (pp != NULL) 134 { 135 memcpy(*pp,a->value.set->data,r); 136 *pp+=r; 137 } 138 } 139 break; 140 } 141 return(r); 142 } 143 144ASN1_TYPE *d2i_ASN1_TYPE(ASN1_TYPE **a, unsigned char **pp, long length) 145 { 146 ASN1_TYPE *ret=NULL; 147 unsigned char *q,*p,*max; 148 int inf,tag,xclass; 149 long len; 150 151 if ((a == NULL) || ((*a) == NULL)) 152 { 153 if ((ret=ASN1_TYPE_new()) == NULL) goto err; 154 } 155 else 156 ret=(*a); 157 158 p= *pp; 159 q=p; 160 max=(p+length); 161 162 inf=ASN1_get_object(&q,&len,&tag,&xclass,length); 163 if (inf & 0x80) goto err; 164 /* If not universal tag we've no idea what it is */ 165 if(xclass != V_ASN1_UNIVERSAL) tag = V_ASN1_OTHER; 166 167 ASN1_TYPE_component_free(ret); 168 169 switch (tag) 170 { 171 case V_ASN1_NULL: 172 p=q; 173 ret->value.ptr=NULL; 174 break; 175 case V_ASN1_INTEGER: 176 if ((ret->value.integer= 177 d2i_ASN1_INTEGER(NULL,&p,max-p)) == NULL) 178 goto err; 179 break; 180 case V_ASN1_ENUMERATED: 181 if ((ret->value.enumerated= 182 d2i_ASN1_ENUMERATED(NULL,&p,max-p)) == NULL) 183 goto err; 184 break; 185 case V_ASN1_BIT_STRING: 186 if ((ret->value.bit_string= 187 d2i_ASN1_BIT_STRING(NULL,&p,max-p)) == NULL) 188 goto err; 189 break; 190 case V_ASN1_OCTET_STRING: 191 if ((ret->value.octet_string= 192 d2i_ASN1_OCTET_STRING(NULL,&p,max-p)) == NULL) 193 goto err; 194 break; 195 case V_ASN1_VISIBLESTRING: 196 if ((ret->value.visiblestring= 197 d2i_ASN1_VISIBLESTRING(NULL,&p,max-p)) == NULL) 198 goto err; 199 break; 200 case V_ASN1_UTF8STRING: 201 if ((ret->value.utf8string= 202 d2i_ASN1_UTF8STRING(NULL,&p,max-p)) == NULL) 203 goto err; 204 break; 205 case V_ASN1_OBJECT: 206 if ((ret->value.object= 207 d2i_ASN1_OBJECT(NULL,&p,max-p)) == NULL) 208 goto err; 209 break; 210 case V_ASN1_PRINTABLESTRING: 211 if ((ret->value.printablestring= 212 d2i_ASN1_PRINTABLESTRING(NULL,&p,max-p)) == NULL) 213 goto err; 214 break; 215 case V_ASN1_T61STRING: 216 if ((ret->value.t61string= 217 M_d2i_ASN1_T61STRING(NULL,&p,max-p)) == NULL) 218 goto err; 219 break; 220 case V_ASN1_IA5STRING: 221 if ((ret->value.ia5string= 222 M_d2i_ASN1_IA5STRING(NULL,&p,max-p)) == NULL) 223 goto err; 224 break; 225 case V_ASN1_GENERALSTRING: 226 if ((ret->value.generalstring= 227 M_d2i_ASN1_GENERALSTRING(NULL,&p,max-p)) == NULL) 228 goto err; 229 break; 230 case V_ASN1_UNIVERSALSTRING: 231 if ((ret->value.universalstring= 232 M_d2i_ASN1_UNIVERSALSTRING(NULL,&p,max-p)) == NULL) 233 goto err; 234 break; 235 case V_ASN1_BMPSTRING: 236 if ((ret->value.bmpstring= 237 M_d2i_ASN1_BMPSTRING(NULL,&p,max-p)) == NULL) 238 goto err; 239 break; 240 case V_ASN1_UTCTIME: 241 if ((ret->value.utctime= 242 d2i_ASN1_UTCTIME(NULL,&p,max-p)) == NULL) 243 goto err; 244 break; 245 case V_ASN1_GENERALIZEDTIME: 246 if ((ret->value.generalizedtime= 247 d2i_ASN1_GENERALIZEDTIME(NULL,&p,max-p)) == NULL) 248 goto err; 249 break; 250 case V_ASN1_SET: 251 case V_ASN1_SEQUENCE: 252 case V_ASN1_OTHER: 253 default: 254 /* Sets and sequences are left complete */ 255 if ((ret->value.set=ASN1_STRING_new()) == NULL) goto err; 256 ret->value.set->type=tag; 257 len+=(q-p); 258 if (!ASN1_STRING_set(ret->value.set,p,(int)len)) goto err; 259 p+=len; 260 break; 261 } 262 263 ret->type=tag; 264 if (a != NULL) (*a)=ret; 265 *pp=p; 266 return(ret); 267err: 268 if ((ret != NULL) && ((a == NULL) || (*a != ret))) ASN1_TYPE_free(ret); 269 return(NULL); 270 } 271 272ASN1_TYPE *ASN1_TYPE_new(void) 273 { 274 ASN1_TYPE *ret=NULL; 275 ASN1_CTX c; 276 277 M_ASN1_New_Malloc(ret,ASN1_TYPE); 278 ret->type= -1; 279 ret->value.ptr=NULL; 280 return(ret); 281 M_ASN1_New_Error(ASN1_F_ASN1_TYPE_NEW); 282 } 283 284void ASN1_TYPE_free(ASN1_TYPE *a) 285 { 286 if (a == NULL) return; 287 ASN1_TYPE_component_free(a); 288 OPENSSL_free(a); 289 } 290 291int ASN1_TYPE_get(ASN1_TYPE *a) 292 { 293 if (a->value.ptr != NULL) 294 return(a->type); 295 else 296 return(0); 297 } 298 299void ASN1_TYPE_set(ASN1_TYPE *a, int type, void *value) 300 { 301 if (a->value.ptr != NULL) 302 ASN1_TYPE_component_free(a); 303 a->type=type; 304 a->value.ptr=value; 305 } 306 307static void ASN1_TYPE_component_free(ASN1_TYPE *a) 308 { 309 if (a == NULL) return; 310 311 if (a->value.ptr != NULL) 312 { 313 switch (a->type) 314 { 315 case V_ASN1_OBJECT: 316 ASN1_OBJECT_free(a->value.object); 317 break; 318 case V_ASN1_NULL: 319 break; 320 case V_ASN1_INTEGER: 321 case V_ASN1_NEG_INTEGER: 322 case V_ASN1_ENUMERATED: 323 case V_ASN1_NEG_ENUMERATED: 324 case V_ASN1_BIT_STRING: 325 case V_ASN1_OCTET_STRING: 326 case V_ASN1_SEQUENCE: 327 case V_ASN1_SET: 328 case V_ASN1_NUMERICSTRING: 329 case V_ASN1_PRINTABLESTRING: 330 case V_ASN1_T61STRING: 331 case V_ASN1_VIDEOTEXSTRING: 332 case V_ASN1_IA5STRING: 333 case V_ASN1_UTCTIME: 334 case V_ASN1_GENERALIZEDTIME: 335 case V_ASN1_GRAPHICSTRING: 336 case V_ASN1_VISIBLESTRING: 337 case V_ASN1_GENERALSTRING: 338 case V_ASN1_UNIVERSALSTRING: 339 case V_ASN1_BMPSTRING: 340 case V_ASN1_UTF8STRING: 341 case V_ASN1_OTHER: 342 default: 343 ASN1_STRING_free((ASN1_STRING *)a->value.ptr); 344 break; 345 } 346 a->type=0; 347 a->value.ptr=NULL; 348 } 349 } 350 351IMPLEMENT_STACK_OF(ASN1_TYPE) 352IMPLEMENT_ASN1_SET_OF(ASN1_TYPE) 353