apps/asn1pars.c

   1 /* apps/asn1pars.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 /*
  60  * A nice addition from Dr Stephen Henson <steve@openssl.org> to add the
  61  * -strparse option which parses nested binary structures
  62  */
  63
  64 #include <stdio.h>
  65 #include <stdlib.h>
  66 #include <string.h>
  67 #include "apps.h"
  68 #include <openssl/err.h>
  69 #include <openssl/evp.h>
  70 #include <openssl/x509.h>
  71 #include <openssl/pem.h>
  72
  73 /*-
  74  * -inform arg  - input format - default PEM (DER or PEM)
  75  * -in arg      - input file - default stdin
  76  * -i           - indent the details by depth
  77  * -offset      - where in the file to start
  78  * -length      - how many bytes to use
  79  * -oid file    - extra oid description file
  80  */
  81
  82 #undef PROG
  83 #define PROG    asn1parse_main
  84
  85 int MAIN(int, char **);
  86
  87 static int do_generate(BIO *bio, char *genstr, char *genconf, BUF_MEM *buf);
  88
  89 int MAIN(int argc, char **argv)
  90 {
  91     int i, badops = 0, offset = 0, ret = 1, j;
  92     unsigned int length = 0;
  93     long num, tmplen;
  94     BIO *in = NULL, *out = NULL, *b64 = NULL, *derout = NULL;
  95     int informat, indent = 0, noout = 0, dump = 0, strictpem = 0;
  96     char *infile = NULL, *str = NULL, *prog, *oidfile = NULL, *derfile =
  97         NULL, *name = NULL, *header = NULL;
  98     char *genstr = NULL, *genconf = NULL;
  99     unsigned char *tmpbuf;
 100     const unsigned char *ctmpbuf;
 101     BUF_MEM *buf = NULL;
 102     STACK_OF(OPENSSL_STRING) *osk = NULL;
 103     ASN1_TYPE *at = NULL;
 104
 105     informat = FORMAT_PEM;
 106
 107     apps_startup();
 108
 109     if (bio_err == NULL)
 110         if ((bio_err = BIO_new(BIO_s_file())) != NULL)
 111             BIO_set_fp(bio_err, stderr, BIO_NOCLOSE | BIO_FP_TEXT);
 112
 113     if (!load_config(bio_err, NULL))
 114         goto end;
 115
 116     prog = argv[0];
 117     argc--;
 118     argv++;
 119     if ((osk = sk_OPENSSL_STRING_new_null()) == NULL) {
 120         BIO_printf(bio_err, "Memory allocation failure\n");
 121         goto end;
 122     }
 123     while (argc >= 1) {
 124         if (strcmp(*argv, "-inform") == 0) {
 125             if (--argc < 1)
 126                 goto bad;
 127             informat = str2fmt(*(++argv));
 128         } else if (strcmp(*argv, "-in") == 0) {
 129             if (--argc < 1)
 130                 goto bad;
 131             infile = *(++argv);
 132         } else if (strcmp(*argv, "-out") == 0) {
 133             if (--argc < 1)
 134                 goto bad;
 135             derfile = *(++argv);
 136         } else if (strcmp(*argv, "-i") == 0) {
 137             indent = 1;
 138         } else if (strcmp(*argv, "-noout") == 0)
 139             noout = 1;
 140         else if (strcmp(*argv, "-oid") == 0) {
 141             if (--argc < 1)
 142                 goto bad;
 143             oidfile = *(++argv);
 144         } else if (strcmp(*argv, "-offset") == 0) {
 145             if (--argc < 1)
 146                 goto bad;
 147             offset = atoi(*(++argv));
 148         } else if (strcmp(*argv, "-length") == 0) {
 149             if (--argc < 1)
 150                 goto bad;
 151             length = atoi(*(++argv));
 152             if (length == 0)
 153                 goto bad;
 154         } else if (strcmp(*argv, "-dump") == 0) {
 155             dump = -1;
 156         } else if (strcmp(*argv, "-dlimit") == 0) {
 157             if (--argc < 1)
 158                 goto bad;
 159             dump = atoi(*(++argv));
 160             if (dump <= 0)
 161                 goto bad;
 162         } else if (strcmp(*argv, "-strparse") == 0) {
 163             if (--argc < 1)
 164                 goto bad;
 165             sk_OPENSSL_STRING_push(osk, *(++argv));
 166         } else if (strcmp(*argv, "-genstr") == 0) {
 167             if (--argc < 1)
 168                 goto bad;
 169             genstr = *(++argv);
 170         } else if (strcmp(*argv, "-genconf") == 0) {
 171             if (--argc < 1)
 172                 goto bad;
 173             genconf = *(++argv);
 174         } else if (strcmp(*argv, "-strictpem") == 0) {
 175             strictpem = 1;
 176             informat = FORMAT_PEM;
 177         } else {
 178             BIO_printf(bio_err, "unknown option %s\n", *argv);
 179             badops = 1;
 180             break;
 181         }
 182         argc--;
 183         argv++;
 184     }
 185
 186     if (badops) {
 187  bad:
 188         BIO_printf(bio_err, "%s [options] <infile\n", prog);
 189         BIO_printf(bio_err, "where options are\n");
 190         BIO_printf(bio_err, " -inform arg   input format - one of DER PEM\n");
 191         BIO_printf(bio_err, " -in arg       input file\n");
 192         BIO_printf(bio_err,
 193                    " -out arg      output file (output format is always DER\n");
 194         BIO_printf(bio_err, " -noout arg    don't produce any output\n");
 195         BIO_printf(bio_err, " -offset arg   offset into file\n");
 196         BIO_printf(bio_err, " -length arg   length of section in file\n");
 197         BIO_printf(bio_err, " -i            indent entries\n");
 198         BIO_printf(bio_err, " -dump         dump unknown data in hex form\n");
 199         BIO_printf(bio_err,
 200                    " -dlimit arg   dump the first arg bytes of unknown data in hex form\n");
 201         BIO_printf(bio_err, " -oid file     file of extra oid definitions\n");
 202         BIO_printf(bio_err, " -strparse offset\n");
 203         BIO_printf(bio_err,
 204                    "               a series of these can be used to 'dig' into multiple\n");
 205         BIO_printf(bio_err, "               ASN1 blob wrappings\n");
 206         BIO_printf(bio_err,
 207                    " -genstr str   string to generate ASN1 structure from\n");
 208         BIO_printf(bio_err,
 209                    " -genconf file file to generate ASN1 structure from\n");
 210         BIO_printf(bio_err,
 211                    " -strictpem    do not attempt base64 decode outside PEM markers (-inform \n");
 212         BIO_printf(bio_err, "               will be ignored)\n");
 213         goto end;
 214     }
 215
 216     ERR_load_crypto_strings();
 217
 218     in = BIO_new(BIO_s_file());
 219     out = BIO_new(BIO_s_file());
 220     if ((in == NULL) || (out == NULL)) {
 221         ERR_print_errors(bio_err);
 222         goto end;
 223     }
 224     BIO_set_fp(out, stdout, BIO_NOCLOSE | BIO_FP_TEXT);
 225 #ifdef OPENSSL_SYS_VMS
 226     {
 227         BIO *tmpbio = BIO_new(BIO_f_linebuffer());
 228         out = BIO_push(tmpbio, out);
 229     }
 230 #endif
 231
 232     if (oidfile != NULL) {
 233         if (BIO_read_filename(in, oidfile) <= 0) {
 234             BIO_printf(bio_err, "problems opening %s\n", oidfile);
 235             ERR_print_errors(bio_err);
 236             goto end;
 237         }
 238         OBJ_create_objects(in);
 239     }
 240
 241     if (infile == NULL)
 242         BIO_set_fp(in, stdin, BIO_NOCLOSE);
 243     else {
 244         if (BIO_read_filename(in, infile) <= 0) {
 245             perror(infile);
 246             goto end;
 247         }
 248     }
 249
 250     if (derfile) {
 251         if (!(derout = BIO_new_file(derfile, "wb"))) {
 252             BIO_printf(bio_err, "problems opening %s\n", derfile);
 253             ERR_print_errors(bio_err);
 254             goto end;
 255         }
 256     }
 257
 258     if (strictpem) {
 259         if (PEM_read_bio(in, &name, &header, (unsigned char **)&str, &num) !=
 260             1) {
 261             BIO_printf(bio_err, "Error reading PEM file\n");
 262             ERR_print_errors(bio_err);
 263             goto end;
 264         }
 265     } else {
 266
 267         if ((buf = BUF_MEM_new()) == NULL)
 268             goto end;
 269         if (!BUF_MEM_grow(buf, BUFSIZ * 8))
 270             goto end;           /* Pre-allocate :-) */
 271
 272         if (genstr || genconf) {
 273             num = do_generate(bio_err, genstr, genconf, buf);
 274             if (num < 0) {
 275                 ERR_print_errors(bio_err);
 276                 goto end;
 277             }
 278         }
 279
 280         else {
 281
 282             if (informat == FORMAT_PEM) {
 283                 BIO *tmp;
 284
 285                 if ((b64 = BIO_new(BIO_f_base64())) == NULL)
 286                     goto end;
 287                 BIO_push(b64, in);
 288                 tmp = in;
 289                 in = b64;
 290                 b64 = tmp;
 291             }
 292
 293             num = 0;
 294             for (;;) {
 295                 if (!BUF_MEM_grow(buf, (int)num + BUFSIZ))
 296                     goto end;
 297                 i = BIO_read(in, &(buf->data[num]), BUFSIZ);
 298                 if (i <= 0)
 299                     break;
 300                 num += i;
 301             }
 302         }
 303         str = buf->data;
 304
 305     }
 306
 307     /* If any structs to parse go through in sequence */
 308
 309     if (sk_OPENSSL_STRING_num(osk)) {
 310         tmpbuf = (unsigned char *)str;
 311         tmplen = num;
 312         for (i = 0; i < sk_OPENSSL_STRING_num(osk); i++) {
 313             ASN1_TYPE *atmp;
 314             int typ;
 315             j = atoi(sk_OPENSSL_STRING_value(osk, i));
 316             if (j == 0) {
 317                 BIO_printf(bio_err, "'%s' is an invalid number\n",
 318                            sk_OPENSSL_STRING_value(osk, i));
 319                 continue;
 320             }
 321             tmpbuf += j;
 322             tmplen -= j;
 323             atmp = at;
 324             ctmpbuf = tmpbuf;
 325             at = d2i_ASN1_TYPE(NULL, &ctmpbuf, tmplen);
 326             ASN1_TYPE_free(atmp);
 327             if (!at) {
 328                 BIO_printf(bio_err, "Error parsing structure\n");
 329                 ERR_print_errors(bio_err);
 330                 goto end;
 331             }
 332             typ = ASN1_TYPE_get(at);
 333             if ((typ == V_ASN1_OBJECT)
 334                 || (typ == V_ASN1_NULL)) {
 335                 BIO_printf(bio_err, "Can't parse %s type\n",
 336                            typ == V_ASN1_NULL ? "NULL" : "OBJECT");
 337                 ERR_print_errors(bio_err);
 338                 goto end;
 339             }
 340             /* hmm... this is a little evil but it works */
 341             tmpbuf = at->value.asn1_string->data;
 342             tmplen = at->value.asn1_string->length;
 343         }
 344         str = (char *)tmpbuf;
 345         num = tmplen;
 346     }
 347
 348     if (offset >= num) {
 349         BIO_printf(bio_err, "Error: offset too large\n");
 350         goto end;
 351     }
 352
 353     num -= offset;
 354
 355     if ((length == 0) || ((long)length > num))
 356         length = (unsigned int)num;
 357     if (derout) {
 358         if (BIO_write(derout, str + offset, length) != (int)length) {
 359             BIO_printf(bio_err, "Error writing output\n");
 360             ERR_print_errors(bio_err);
 361             goto end;
 362         }
 363     }
 364     if (!noout &&
 365         !ASN1_parse_dump(out, (unsigned char *)&(str[offset]), length,
 366                          indent, dump)) {
 367         ERR_print_errors(bio_err);
 368         goto end;
 369     }
 370     ret = 0;
 371  end:
 372     BIO_free(derout);
 373     BIO_free(in);
 374     BIO_free_all(out);
 375     BIO_free(b64);
 376     if (ret != 0)
 377         ERR_print_errors(bio_err);
 378     if (buf != NULL)
 379         BUF_MEM_free(buf);
 380     if (name != NULL)
 381         OPENSSL_free(name);
 382     if (header != NULL)
 383         OPENSSL_free(header);
 384     if (strictpem && str != NULL)
 385         OPENSSL_free(str);
 386     if (at != NULL)
 387         ASN1_TYPE_free(at);
 388     if (osk != NULL)
 389         sk_OPENSSL_STRING_free(osk);
 390     OBJ_cleanup();
 391     apps_shutdown();
 392     OPENSSL_EXIT(ret);
 393 }
 394
 395 static int do_generate(BIO *bio, char *genstr, char *genconf, BUF_MEM *buf)
 396 {
 397     CONF *cnf = NULL;
 398     int len;
 399     long errline;
 400     unsigned char *p;
 401     ASN1_TYPE *atyp = NULL;
 402
 403     if (genconf) {
 404         cnf = NCONF_new(NULL);
 405         if (!NCONF_load(cnf, genconf, &errline))
 406             goto conferr;
 407         if (!genstr)
 408             genstr = NCONF_get_string(cnf, "default", "asn1");
 409         if (!genstr) {
 410             BIO_printf(bio, "Can't find 'asn1' in '%s'\n", genconf);
 411             goto err;
 412         }
 413     }
 414
 415     atyp = ASN1_generate_nconf(genstr, cnf);
 416     NCONF_free(cnf);
 417     cnf = NULL;
 418
 419     if (!atyp)
 420         return -1;
 421
 422     len = i2d_ASN1_TYPE(atyp, NULL);
 423
 424     if (len <= 0)
 425         goto err;
 426
 427     if (!BUF_MEM_grow(buf, len))
 428         goto err;
 429
 430     p = (unsigned char *)buf->data;
 431
 432     i2d_ASN1_TYPE(atyp, &p);
 433
 434     ASN1_TYPE_free(atyp);
 435     return len;
 436
 437  conferr:
 438
 439     if (errline > 0)
 440         BIO_printf(bio, "Error on line %ld of config file '%s'\n",
 441                    errline, genconf);
 442     else
 443         BIO_printf(bio, "Error loading config file '%s'\n", genconf);
 444
 445  err:
 446     NCONF_free(cnf);
 447     ASN1_TYPE_free(atyp);
 448
 449     return -1;
 450
 451 }