apps/ca.c

   1 /* apps/ca.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 /* The PPKI stuff has been donated by Jeff Barber <jeffb@issl.atl.hp.com> */
  60
  61 #include <stdio.h>
  62 #include <stdlib.h>
  63 #include <string.h>
  64 #include <ctype.h>
  65 #include <sys/types.h>
  66 #include <sys/stat.h>
  67 #include "apps.h"
  68 #include <openssl/conf.h>
  69 #include <openssl/bio.h>
  70 #include <openssl/err.h>
  71 #include <openssl/bn.h>
  72 #include <openssl/txt_db.h>
  73 #include <openssl/evp.h>
  74 #include <openssl/x509.h>
  75 #include <openssl/x509v3.h>
  76 #include <openssl/objects.h>
  77 #include <openssl/ocsp.h>
  78 #include <openssl/pem.h>
  79
  80 #ifdef OPENSSL_SYS_WINDOWS
  81 #define strcasecmp _stricmp
  82 #else
  83 #include <strings.h>
  84 #endif
  85
  86 #ifndef W_OK
  87 #  ifdef OPENSSL_SYS_VMS
  88 #    if defined(__DECC)
  89 #      include <unistd.h>
  90 #    else
  91 #      include <unixlib.h>
  92 #    endif
  93 #  else
  94 #    include <sys/file.h>
  95 #  endif
  96 #endif
  97
  98 #ifndef W_OK
  99 #  define F_OK 0
 100 #  define X_OK 1
 101 #  define W_OK 2
 102 #  define R_OK 4
 103 #endif
 104
 105 #undef PROG
 106 #define PROG ca_main
 107
 108 #define BASE_SECTION    "ca"
 109 #define CONFIG_FILE "openssl.cnf"
 110
 111 #define ENV_DEFAULT_CA          "default_ca"
 112
 113 #define ENV_DIR                 "dir"
 114 #define ENV_CERTS               "certs"
 115 #define ENV_CRL_DIR             "crl_dir"
 116 #define ENV_CA_DB               "CA_DB"
 117 #define ENV_NEW_CERTS_DIR       "new_certs_dir"
 118 #define ENV_CERTIFICATE         "certificate"
 119 #define ENV_SERIAL              "serial"
 120 #define ENV_CRL                 "crl"
 121 #define ENV_PRIVATE_KEY         "private_key"
 122 #define ENV_RANDFILE            "RANDFILE"
 123 #define ENV_DEFAULT_DAYS        "default_days"
 124 #define ENV_DEFAULT_STARTDATE   "default_startdate"
 125 #define ENV_DEFAULT_ENDDATE     "default_enddate"
 126 #define ENV_DEFAULT_CRL_DAYS    "default_crl_days"
 127 #define ENV_DEFAULT_CRL_HOURS   "default_crl_hours"
 128 #define ENV_DEFAULT_MD          "default_md"
 129 #define ENV_DEFAULT_EMAIL_DN    "email_in_dn"
 130 #define ENV_PRESERVE            "preserve"
 131 #define ENV_POLICY              "policy"
 132 #define ENV_EXTENSIONS          "x509_extensions"
 133 #define ENV_CRLEXT              "crl_extensions"
 134 #define ENV_MSIE_HACK           "msie_hack"
 135 #define ENV_NAMEOPT             "name_opt"
 136 #define ENV_CERTOPT             "cert_opt"
 137 #define ENV_EXTCOPY             "copy_extensions"
 138
 139 #define ENV_DATABASE            "database"
 140
 141 #define DB_type         0
 142 #define DB_exp_date     1
 143 #define DB_rev_date     2
 144 #define DB_serial       3       /* index - unique */
 145 #define DB_file         4
 146 #define DB_name         5       /* index - unique for active */
 147 #define DB_NUMBER       6
 148
 149 #define DB_TYPE_REV     'R'
 150 #define DB_TYPE_EXP     'E'
 151 #define DB_TYPE_VAL     'V'
 152
 153 /* Additional revocation information types */
 154
 155 #define REV_NONE                0       /* No addditional information */
 156 #define REV_CRL_REASON          1       /* Value is CRL reason code */
 157 #define REV_HOLD                2       /* Value is hold instruction */
 158 #define REV_KEY_COMPROMISE      3       /* Value is cert key compromise time */
 159 #define REV_CA_COMPROMISE       4       /* Value is CA key compromise time */
 160
 161 static char *ca_usage[]={
 162 "usage: ca args\n",
 163 "\n",
 164 " -verbose        - Talk alot while doing things\n",
 165 " -config file    - A config file\n",
 166 " -name arg       - The particular CA definition to use\n",
 167 " -gencrl         - Generate a new CRL\n",
 168 " -crldays days   - Days is when the next CRL is due\n",
 169 " -crlhours hours - Hours is when the next CRL is due\n",
 170 " -startdate YYMMDDHHMMSSZ  - certificate validity notBefore\n",
 171 " -enddate YYMMDDHHMMSSZ    - certificate validity notAfter (overrides -days)\n",
 172 " -days arg       - number of days to certify the certificate for\n",
 173 " -md arg         - md to use, one of md2, md5, sha or sha1\n",
 174 " -policy arg     - The CA 'policy' to support\n",
 175 " -keyfile arg    - private key file\n",
 176 " -keyform arg    - private key file format (PEM or ENGINE)\n",
 177 " -key arg        - key to decode the private key if it is encrypted\n",
 178 " -cert file      - The CA certificate\n",
 179 " -in file        - The input PEM encoded certificate request(s)\n",
 180 " -out file       - Where to put the output file(s)\n",
 181 " -outdir dir     - Where to put output certificates\n",
 182 " -infiles ....   - The last argument, requests to process\n",
 183 " -spkac file     - File contains DN and signed public key and challenge\n",
 184 " -ss_cert file   - File contains a self signed cert to sign\n",
 185 " -preserveDN     - Don't re-order the DN\n",
 186 " -noemailDN      - Don't add the EMAIL field into certificate' subject\n",
 187 " -batch          - Don't ask questions\n",
 188 " -msie_hack      - msie modifications to handle all those universal strings\n",
 189 " -revoke file    - Revoke a certificate (given in file)\n",
 190 " -subj arg       - Use arg instead of request's subject\n",
 191 " -extensions ..  - Extension section (override value in config file)\n",
 192 " -extfile file   - Configuration file with X509v3 extentions to add\n",
 193 " -crlexts ..     - CRL extension section (override value in config file)\n",
 194 " -engine e       - use engine e, possibly a hardware device.\n",
 195 " -status serial  - Shows certificate status given the serial number\n",
 196 " -updatedb       - Updates db for expired certificates\n",
 197 NULL
 198 };
 199
 200 #ifdef EFENCE
 201 extern int EF_PROTECT_FREE;
 202 extern int EF_PROTECT_BELOW;
 203 extern int EF_ALIGNMENT;
 204 #endif
 205
 206 static void lookup_fail(char *name,char *tag);
 207 static unsigned long index_serial_hash(const char **a);
 208 static int index_serial_cmp(const char **a, const char **b);
 209 static unsigned long index_name_hash(const char **a);
 210 static int index_name_qual(char **a);
 211 static int index_name_cmp(const char **a,const char **b);
 212 static BIGNUM *load_serial(char *serialfile);
 213 static int save_serial(char *serialfile, BIGNUM *serial);
 214 static int certify(X509 **xret, char *infile,EVP_PKEY *pkey,X509 *x509,
 215                    const EVP_MD *dgst,STACK_OF(CONF_VALUE) *policy,TXT_DB *db,
 216                    BIGNUM *serial, char *subj, int email_dn, char *startdate,
 217                    char *enddate, long days, int batch, char *ext_sect, CONF *conf,
 218                    int verbose, unsigned long certopt, unsigned long nameopt,
 219                    int default_op, int ext_copy);
 220 static int certify_cert(X509 **xret, char *infile,EVP_PKEY *pkey,X509 *x509,
 221                         const EVP_MD *dgst,STACK_OF(CONF_VALUE) *policy,
 222                         TXT_DB *db, BIGNUM *serial, char *subj, int email_dn,
 223                         char *startdate, char *enddate, long days, int batch,
 224                         char *ext_sect, CONF *conf,int verbose, unsigned long certopt,
 225                         unsigned long nameopt, int default_op, int ext_copy,
 226                         ENGINE *e);
 227 static int certify_spkac(X509 **xret, char *infile,EVP_PKEY *pkey,X509 *x509,
 228                          const EVP_MD *dgst,STACK_OF(CONF_VALUE) *policy,
 229                          TXT_DB *db, BIGNUM *serial,char *subj, int email_dn,
 230                          char *startdate, char *enddate, long days, char *ext_sect,
 231                          CONF *conf, int verbose, unsigned long certopt,
 232                          unsigned long nameopt, int default_op, int ext_copy);
 233 static int fix_data(int nid, int *type);
 234 static void write_new_certificate(BIO *bp, X509 *x, int output_der, int notext);
 235 static int do_body(X509 **xret, EVP_PKEY *pkey, X509 *x509, const EVP_MD *dgst,
 236         STACK_OF(CONF_VALUE) *policy, TXT_DB *db, BIGNUM *serial,char *subj,
 237         int email_dn, char *startdate, char *enddate, long days, int batch,
 238         int verbose, X509_REQ *req, char *ext_sect, CONF *conf,
 239         unsigned long certopt, unsigned long nameopt, int default_op,
 240         int ext_copy);
 241 static X509_NAME *do_subject(char *subject, int email_dn);
 242 static int do_revoke(X509 *x509, TXT_DB *db, int ext, char *extval);
 243 static int get_certificate_status(const char *ser_status, TXT_DB *db);
 244 static int do_updatedb(TXT_DB *db);
 245 static int check_time_format(char *str);
 246 char *make_revocation_str(int rev_type, char *rev_arg);
 247 int make_revoked(X509_REVOKED *rev, char *str);
 248 int old_entry_print(BIO *bp, ASN1_OBJECT *obj, ASN1_STRING *str);
 249 static CONF *conf=NULL;
 250 static CONF *extconf=NULL;
 251 static char *section=NULL;
 252
 253 static int preserve=0;
 254 static int msie_hack=0;
 255
 256 static IMPLEMENT_LHASH_HASH_FN(index_serial_hash,const char **)
 257 static IMPLEMENT_LHASH_COMP_FN(index_serial_cmp,const char **)
 258 static IMPLEMENT_LHASH_HASH_FN(index_name_hash,const char **)
 259 static IMPLEMENT_LHASH_COMP_FN(index_name_cmp,const char **)
 260
 261
 262 int MAIN(int, char **);
 263
 264 int MAIN(int argc, char **argv)
 265         {
 266         ENGINE *e = NULL;
 267         char *key=NULL,*passargin=NULL;
 268         int free_key = 0;
 269         int total=0;
 270         int total_done=0;
 271         int badops=0;
 272         int ret=1;
 273         int email_dn=1;
 274         int req=0;
 275         int verbose=0;
 276         int gencrl=0;
 277         int dorevoke=0;
 278         int doupdatedb=0;
 279         long crldays=0;
 280         long crlhours=0;
 281         long errorline= -1;
 282         char *configfile=NULL;
 283         char *md=NULL;
 284         char *policy=NULL;
 285         char *keyfile=NULL;
 286         char *certfile=NULL;
 287         int keyform=FORMAT_PEM;
 288         char *infile=NULL;
 289         char *spkac_file=NULL;
 290         char *ss_cert_file=NULL;
 291         char *ser_status=NULL;
 292         EVP_PKEY *pkey=NULL;
 293         int output_der = 0;
 294         char *outfile=NULL;
 295         char *outdir=NULL;
 296         char *serialfile=NULL;
 297         char *extensions=NULL;
 298         char *extfile=NULL;
 299         char *subj=NULL;
 300         char *tmp_email_dn=NULL;
 301         char *crl_ext=NULL;
 302         int rev_type = REV_NONE;
 303         char *rev_arg = NULL;
 304         BIGNUM *serial=NULL;
 305         char *startdate=NULL;
 306         char *enddate=NULL;
 307         long days=0;
 308         int batch=0;
 309         int notext=0;
 310         unsigned long nameopt = 0, certopt = 0;
 311         int default_op = 1;
 312         int ext_copy = EXT_COPY_NONE;
 313         X509 *x509=NULL;
 314         X509 *x=NULL;
 315         BIO *in=NULL,*out=NULL,*Sout=NULL,*Cout=NULL;
 316         char *dbfile=NULL;
 317         TXT_DB *db=NULL;
 318         X509_CRL *crl=NULL;
 319         X509_REVOKED *r=NULL;
 320         ASN1_TIME *tmptm;
 321         ASN1_INTEGER *tmpser;
 322         char **pp,*p,*f;
 323         int i,j;
 324         long l;
 325         const EVP_MD *dgst=NULL;
 326         STACK_OF(CONF_VALUE) *attribs=NULL;
 327         STACK_OF(X509) *cert_sk=NULL;
 328 #undef BSIZE
 329 #define BSIZE 256
 330         MS_STATIC char buf[3][BSIZE];
 331         char *randfile=NULL;
 332         char *engine = NULL;
 333
 334 #ifdef EFENCE
 335 EF_PROTECT_FREE=1;
 336 EF_PROTECT_BELOW=1;
 337 EF_ALIGNMENT=0;
 338 #endif
 339
 340         apps_startup();
 341
 342         conf = NULL;
 343         key = NULL;
 344         section = NULL;
 345
 346         preserve=0;
 347         msie_hack=0;
 348         if (bio_err == NULL)
 349                 if ((bio_err=BIO_new(BIO_s_file())) != NULL)
 350                         BIO_set_fp(bio_err,stderr,BIO_NOCLOSE|BIO_FP_TEXT);
 351
 352         argc--;
 353         argv++;
 354         while (argc >= 1)
 355                 {
 356                 if      (strcmp(*argv,"-verbose") == 0)
 357                         verbose=1;
 358                 else if (strcmp(*argv,"-config") == 0)
 359                         {
 360                         if (--argc < 1) goto bad;
 361                         configfile= *(++argv);
 362                         }
 363                 else if (strcmp(*argv,"-name") == 0)
 364                         {
 365                         if (--argc < 1) goto bad;
 366                         section= *(++argv);
 367                         }
 368                 else if (strcmp(*argv,"-subj") == 0)
 369                         {
 370                         if (--argc < 1) goto bad;
 371                         subj= *(++argv);
 372                         /* preserve=1; */
 373                         }
 374                 else if (strcmp(*argv,"-startdate") == 0)
 375                         {
 376                         if (--argc < 1) goto bad;
 377                         startdate= *(++argv);
 378                         }
 379                 else if (strcmp(*argv,"-enddate") == 0)
 380                         {
 381                         if (--argc < 1) goto bad;
 382                         enddate= *(++argv);
 383                         }
 384                 else if (strcmp(*argv,"-days") == 0)
 385                         {
 386                         if (--argc < 1) goto bad;
 387                         days=atoi(*(++argv));
 388                         }
 389                 else if (strcmp(*argv,"-md") == 0)
 390                         {
 391                         if (--argc < 1) goto bad;
 392                         md= *(++argv);
 393                         }
 394                 else if (strcmp(*argv,"-policy") == 0)
 395                         {
 396                         if (--argc < 1) goto bad;
 397                         policy= *(++argv);
 398                         }
 399                 else if (strcmp(*argv,"-keyfile") == 0)
 400                         {
 401                         if (--argc < 1) goto bad;
 402                         keyfile= *(++argv);
 403                         }
 404                 else if (strcmp(*argv,"-keyform") == 0)
 405                         {
 406                         if (--argc < 1) goto bad;
 407                         keyform=str2fmt(*(++argv));
 408                         }
 409                 else if (strcmp(*argv,"-passin") == 0)
 410                         {
 411                         if (--argc < 1) goto bad;
 412                         passargin= *(++argv);
 413                         }
 414                 else if (strcmp(*argv,"-key") == 0)
 415                         {
 416                         if (--argc < 1) goto bad;
 417                         key= *(++argv);
 418                         }
 419                 else if (strcmp(*argv,"-cert") == 0)
 420                         {
 421                         if (--argc < 1) goto bad;
 422                         certfile= *(++argv);
 423                         }
 424                 else if (strcmp(*argv,"-in") == 0)
 425                         {
 426                         if (--argc < 1) goto bad;
 427                         infile= *(++argv);
 428                         req=1;
 429                         }
 430                 else if (strcmp(*argv,"-out") == 0)
 431                         {
 432                         if (--argc < 1) goto bad;
 433                         outfile= *(++argv);
 434                         }
 435                 else if (strcmp(*argv,"-outdir") == 0)
 436                         {
 437                         if (--argc < 1) goto bad;
 438                         outdir= *(++argv);
 439                         }
 440                 else if (strcmp(*argv,"-notext") == 0)
 441                         notext=1;
 442                 else if (strcmp(*argv,"-batch") == 0)
 443                         batch=1;
 444                 else if (strcmp(*argv,"-preserveDN") == 0)
 445                         preserve=1;
 446                 else if (strcmp(*argv,"-noemailDN") == 0)
 447                         email_dn=0;
 448                 else if (strcmp(*argv,"-gencrl") == 0)
 449                         gencrl=1;
 450                 else if (strcmp(*argv,"-msie_hack") == 0)
 451                         msie_hack=1;
 452                 else if (strcmp(*argv,"-crldays") == 0)
 453                         {
 454                         if (--argc < 1) goto bad;
 455                         crldays= atol(*(++argv));
 456                         }
 457                 else if (strcmp(*argv,"-crlhours") == 0)
 458                         {
 459                         if (--argc < 1) goto bad;
 460                         crlhours= atol(*(++argv));
 461                         }
 462                 else if (strcmp(*argv,"-infiles") == 0)
 463                         {
 464                         argc--;
 465                         argv++;
 466                         req=1;
 467                         break;
 468                         }
 469                 else if (strcmp(*argv, "-ss_cert") == 0)
 470                         {
 471                         if (--argc < 1) goto bad;
 472                         ss_cert_file = *(++argv);
 473                         req=1;
 474                         }
 475                 else if (strcmp(*argv, "-spkac") == 0)
 476                         {
 477                         if (--argc < 1) goto bad;
 478                         spkac_file = *(++argv);
 479                         req=1;
 480                         }
 481                 else if (strcmp(*argv,"-revoke") == 0)
 482                         {
 483                         if (--argc < 1) goto bad;
 484                         infile= *(++argv);
 485                         dorevoke=1;
 486                         }
 487                 else if (strcmp(*argv,"-extensions") == 0)
 488                         {
 489                         if (--argc < 1) goto bad;
 490                         extensions= *(++argv);
 491                         }
 492                 else if (strcmp(*argv,"-extfile") == 0)
 493                         {
 494                         if (--argc < 1) goto bad;
 495                         extfile= *(++argv);
 496                         }
 497                 else if (strcmp(*argv,"-status") == 0)
 498                         {
 499                         if (--argc < 1) goto bad;
 500                         ser_status= *(++argv);
 501                         }
 502                 else if (strcmp(*argv,"-updatedb") == 0)
 503                         {
 504                         doupdatedb=1;
 505                         }
 506                 else if (strcmp(*argv,"-crlexts") == 0)
 507                         {
 508                         if (--argc < 1) goto bad;
 509                         crl_ext= *(++argv);
 510                         }
 511                 else if (strcmp(*argv,"-crl_reason") == 0)
 512                         {
 513                         if (--argc < 1) goto bad;
 514                         rev_arg = *(++argv);
 515                         rev_type = REV_CRL_REASON;
 516                         }
 517                 else if (strcmp(*argv,"-crl_hold") == 0)
 518                         {
 519                         if (--argc < 1) goto bad;
 520                         rev_arg = *(++argv);
 521                         rev_type = REV_HOLD;
 522                         }
 523                 else if (strcmp(*argv,"-crl_compromise") == 0)
 524                         {
 525                         if (--argc < 1) goto bad;
 526                         rev_arg = *(++argv);
 527                         rev_type = REV_KEY_COMPROMISE;
 528                         }
 529                 else if (strcmp(*argv,"-crl_CA_compromise") == 0)
 530                         {
 531                         if (--argc < 1) goto bad;
 532                         rev_arg = *(++argv);
 533                         rev_type = REV_CA_COMPROMISE;
 534                         }
 535                 else if (strcmp(*argv,"-engine") == 0)
 536                         {
 537                         if (--argc < 1) goto bad;
 538                         engine= *(++argv);
 539                         }
 540                 else
 541                         {
 542 bad:
 543                         BIO_printf(bio_err,"unknown option %s\n",*argv);
 544                         badops=1;
 545                         break;
 546                         }
 547                 argc--;
 548                 argv++;
 549                 }
 550
 551         if (badops)
 552                 {
 553                 for (pp=ca_usage; (*pp != NULL); pp++)
 554                         BIO_printf(bio_err,"%s",*pp);
 555                 goto err;
 556                 }
 557
 558         ERR_load_crypto_strings();
 559
 560         e = setup_engine(bio_err, engine, 0);
 561
 562         /*****************************************************************/
 563         if (configfile == NULL) configfile = getenv("OPENSSL_CONF");
 564         if (configfile == NULL) configfile = getenv("SSLEAY_CONF");
 565         if (configfile == NULL)
 566                 {
 567                 /* We will just use 'buf[0]' as a temporary buffer.  */
 568 #ifdef OPENSSL_SYS_VMS
 569                 strncpy(buf[0],X509_get_default_cert_area(),
 570                         sizeof(buf[0])-1-sizeof(CONFIG_FILE));
 571 #else
 572                 strncpy(buf[0],X509_get_default_cert_area(),
 573                         sizeof(buf[0])-2-sizeof(CONFIG_FILE));
 574                 strcat(buf[0],"/");
 575 #endif
 576                 strcat(buf[0],CONFIG_FILE);
 577                 configfile=buf[0];
 578                 }
 579
 580         BIO_printf(bio_err,"Using configuration from %s\n",configfile);
 581         conf = NCONF_new(NULL);
 582         if (NCONF_load(conf,configfile,&errorline) <= 0)
 583                 {
 584                 if (errorline <= 0)
 585                         BIO_printf(bio_err,"error loading the config file '%s'\n",
 586                                 configfile);
 587                 else
 588                         BIO_printf(bio_err,"error on line %ld of config file '%s'\n"
 589                                 ,errorline,configfile);
 590                 goto err;
 591                 }
 592
 593         /* Lets get the config section we are using */
 594         if (section == NULL)
 595                 {
 596                 section=NCONF_get_string(conf,BASE_SECTION,ENV_DEFAULT_CA);
 597                 if (section == NULL)
 598                         {
 599                         lookup_fail(BASE_SECTION,ENV_DEFAULT_CA);
 600                         goto err;
 601                         }
 602                 }
 603
 604         if (conf != NULL)
 605                 {
 606                 p=NCONF_get_string(conf,NULL,"oid_file");
 607                 if (p == NULL)
 608                         ERR_clear_error();
 609                 if (p != NULL)
 610                         {
 611                         BIO *oid_bio;
 612
 613                         oid_bio=BIO_new_file(p,"r");
 614                         if (oid_bio == NULL)
 615                                 {
 616                                 /*
 617                                 BIO_printf(bio_err,"problems opening %s for extra oid's\n",p);
 618                                 ERR_print_errors(bio_err);
 619                                 */
 620                                 ERR_clear_error();
 621                                 }
 622                         else
 623                                 {
 624                                 OBJ_create_objects(oid_bio);
 625                                 BIO_free(oid_bio);
 626                                 }
 627                         }
 628                 if (!add_oid_section(bio_err,conf))
 629                         {
 630                         ERR_print_errors(bio_err);
 631                         goto err;
 632                         }
 633                 }
 634
 635         randfile = NCONF_get_string(conf, BASE_SECTION, "RANDFILE");
 636         if (randfile == NULL)
 637                 ERR_clear_error();
 638         app_RAND_load_file(randfile, bio_err, 0);
 639
 640         in=BIO_new(BIO_s_file());
 641         out=BIO_new(BIO_s_file());
 642         Sout=BIO_new(BIO_s_file());
 643         Cout=BIO_new(BIO_s_file());
 644         if ((in == NULL) || (out == NULL) || (Sout == NULL) || (Cout == NULL))
 645                 {
 646                 ERR_print_errors(bio_err);
 647                 goto err;
 648                 }
 649
 650         /*****************************************************************/
 651         /* report status of cert with serial number given on command line */
 652         if (ser_status)
 653         {
 654                 if ((dbfile=NCONF_get_string(conf,section,ENV_DATABASE)) == NULL)
 655                         {
 656                         lookup_fail(section,ENV_DATABASE);
 657                         goto err;
 658                         }
 659                 if (BIO_read_filename(in,dbfile) <= 0)
 660                         {
 661                         perror(dbfile);
 662                         BIO_printf(bio_err,"unable to open '%s'\n",dbfile);
 663                         goto err;
 664                         }
 665                 db=TXT_DB_read(in,DB_NUMBER);
 666                 if (db == NULL) goto err;
 667
 668                 if (!make_serial_index(db))
 669                         goto err;
 670
 671                 if (get_certificate_status(ser_status,db) != 1)
 672                         BIO_printf(bio_err,"Error verifying serial %s!\n",
 673                                  ser_status);
 674                 goto err;
 675         }
 676
 677         /*****************************************************************/
 678         /* we definitely need a public key, so let's get it */
 679
 680         if ((keyfile == NULL) && ((keyfile=NCONF_get_string(conf,
 681                 section,ENV_PRIVATE_KEY)) == NULL))
 682                 {
 683                 lookup_fail(section,ENV_PRIVATE_KEY);
 684                 goto err;
 685                 }
 686         if (!key)
 687                 {
 688                 free_key = 1;
 689                 if (!app_passwd(bio_err, passargin, NULL, &key, NULL))
 690                         {
 691                         BIO_printf(bio_err,"Error getting password\n");
 692                         goto err;
 693                         }
 694                 }
 695         pkey = load_key(bio_err, keyfile, keyform, key, e,
 696                 "CA private key");
 697         if (key) memset(key,0,strlen(key));
 698         if (pkey == NULL)
 699                 {
 700                 /* load_key() has already printed an appropriate message */
 701                 goto err;
 702                 }
 703
 704         /*****************************************************************/
 705         /* we need a certificate */
 706         if ((certfile == NULL) && ((certfile=NCONF_get_string(conf,
 707                 section,ENV_CERTIFICATE)) == NULL))
 708                 {
 709                 lookup_fail(section,ENV_CERTIFICATE);
 710                 goto err;
 711                 }
 712         x509=load_cert(bio_err, certfile, FORMAT_PEM, NULL, e,
 713                 "CA certificate");
 714         if (x509 == NULL)
 715                 goto err;
 716
 717         if (!X509_check_private_key(x509,pkey))
 718                 {
 719                 BIO_printf(bio_err,"CA certificate and CA private key do not match\n");
 720                 goto err;
 721                 }
 722
 723         f=NCONF_get_string(conf,BASE_SECTION,ENV_PRESERVE);
 724         if (f == NULL)
 725                 ERR_clear_error();
 726         if ((f != NULL) && ((*f == 'y') || (*f == 'Y')))
 727                 preserve=1;
 728         f=NCONF_get_string(conf,BASE_SECTION,ENV_MSIE_HACK);
 729         if (f == NULL)
 730                 ERR_clear_error();
 731         if ((f != NULL) && ((*f == 'y') || (*f == 'Y')))
 732                 msie_hack=1;
 733
 734         f=NCONF_get_string(conf,section,ENV_NAMEOPT);
 735
 736         if (f)
 737                 {
 738                 if (!set_name_ex(&nameopt, f))
 739                         {
 740                         BIO_printf(bio_err, "Invalid name options: \"%s\"\n", f);
 741                         goto err;
 742                         }
 743                 default_op = 0;
 744                 }
 745         else
 746                 ERR_clear_error();
 747
 748         f=NCONF_get_string(conf,section,ENV_CERTOPT);
 749
 750         if (f)
 751                 {
 752                 if (!set_cert_ex(&certopt, f))
 753                         {
 754                         BIO_printf(bio_err, "Invalid certificate options: \"%s\"\n", f);
 755                         goto err;
 756                         }
 757                 default_op = 0;
 758                 }
 759         else
 760                 ERR_clear_error();
 761
 762         f=NCONF_get_string(conf,section,ENV_EXTCOPY);
 763
 764         if (f)
 765                 {
 766                 if (!set_ext_copy(&ext_copy, f))
 767                         {
 768                         BIO_printf(bio_err, "Invalid extension copy option: \"%s\"\n", f);
 769                         goto err;
 770                         }
 771                 }
 772         else
 773                 ERR_clear_error();
 774
 775         /*****************************************************************/
 776         /* lookup where to write new certificates */
 777         if ((outdir == NULL) && (req))
 778                 {
 779                 struct stat sb;
 780
 781                 if ((outdir=NCONF_get_string(conf,section,ENV_NEW_CERTS_DIR))
 782                         == NULL)
 783                         {
 784                         BIO_printf(bio_err,"there needs to be defined a directory for new certificate to be placed in\n");
 785                         goto err;
 786                         }
 787 #ifndef OPENSSL_SYS_VMS
 788             /* outdir is a directory spec, but access() for VMS demands a
 789                filename.  In any case, stat(), below, will catch the problem
 790                if outdir is not a directory spec, and the fopen() or open()
 791                will catch an error if there is no write access.
 792
 793                Presumably, this problem could also be solved by using the DEC
 794                C routines to convert the directory syntax to Unixly, and give
 795                that to access().  However, time's too short to do that just
 796                now.
 797             */
 798                 if (access(outdir,R_OK|W_OK|X_OK) != 0)
 799                         {
 800                         BIO_printf(bio_err,"I am unable to access the %s directory\n",outdir);
 801                         perror(outdir);
 802                         goto err;
 803                         }
 804
 805                 if (stat(outdir,&sb) != 0)
 806                         {
 807                         BIO_printf(bio_err,"unable to stat(%s)\n",outdir);
 808                         perror(outdir);
 809                         goto err;
 810                         }
 811 #ifdef S_IFDIR
 812                 if (!(sb.st_mode & S_IFDIR))
 813                         {
 814                         BIO_printf(bio_err,"%s need to be a directory\n",outdir);
 815                         perror(outdir);
 816                         goto err;
 817                         }
 818 #endif
 819 #endif
 820                 }
 821
 822         /*****************************************************************/
 823         /* we need to load the database file */
 824         if ((dbfile=NCONF_get_string(conf,section,ENV_DATABASE)) == NULL)
 825                 {
 826                 lookup_fail(section,ENV_DATABASE);
 827                 goto err;
 828                 }
 829         if (BIO_read_filename(in,dbfile) <= 0)
 830                 {
 831                 perror(dbfile);
 832                 BIO_printf(bio_err,"unable to open '%s'\n",dbfile);
 833                 goto err;
 834                 }
 835         db=TXT_DB_read(in,DB_NUMBER);
 836         if (db == NULL) goto err;
 837
 838         /* Lets check some fields */
 839         for (i=0; i<sk_num(db->data); i++)
 840                 {
 841                 pp=(char **)sk_value(db->data,i);
 842                 if ((pp[DB_type][0] != DB_TYPE_REV) &&
 843                         (pp[DB_rev_date][0] != '\0'))
 844                         {
 845                         BIO_printf(bio_err,"entry %d: not revoked yet, but has a revocation date\n",i+1);
 846                         goto err;
 847                         }
 848                 if ((pp[DB_type][0] == DB_TYPE_REV) &&
 849                         !make_revoked(NULL, pp[DB_rev_date]))
 850                         {
 851                         BIO_printf(bio_err," in entry %d\n", i+1);
 852                         goto err;
 853                         }
 854                 if (!check_time_format(pp[DB_exp_date]))
 855                         {
 856                         BIO_printf(bio_err,"entry %d: invalid expiry date\n",i+1);
 857                         goto err;
 858                         }
 859                 p=pp[DB_serial];
 860                 j=strlen(p);
 861                 if (*p == '-')
 862                         {
 863                         p++;
 864                         j--;
 865                         }
 866                 if ((j&1) || (j < 2))
 867                         {
 868                         BIO_printf(bio_err,"entry %d: bad serial number length (%d)\n",i+1,j);
 869                         goto err;
 870                         }
 871                 while (*p)
 872                         {
 873                         if (!(  ((*p >= '0') && (*p <= '9')) ||
 874                                 ((*p >= 'A') && (*p <= 'F')) ||
 875                                 ((*p >= 'a') && (*p <= 'f')))  )
 876                                 {
 877                                 BIO_printf(bio_err,"entry %d: bad serial number characters, char pos %ld, char is '%c'\n",i+1,(long)(p-pp[DB_serial]),*p);
 878                                 goto err;
 879                                 }
 880                         p++;
 881                         }
 882                 }
 883         if (verbose)
 884                 {
 885                 BIO_set_fp(out,stdout,BIO_NOCLOSE|BIO_FP_TEXT); /* cannot fail */
 886 #ifdef OPENSSL_SYS_VMS
 887                 {
 888                 BIO *tmpbio = BIO_new(BIO_f_linebuffer());
 889                 out = BIO_push(tmpbio, out);
 890                 }
 891 #endif
 892                 TXT_DB_write(out,db);
 893                 BIO_printf(bio_err,"%d entries loaded from the database\n",
 894                         db->data->num);
 895                 BIO_printf(bio_err,"generating index\n");
 896                 }
 897
 898         if (!make_serial_index(db))
 899                 goto err;
 900
 901         if (!TXT_DB_create_index(db, DB_name, index_name_qual,
 902                         LHASH_HASH_FN(index_name_hash),
 903                         LHASH_COMP_FN(index_name_cmp)))
 904                 {
 905                 BIO_printf(bio_err,"error creating name index:(%ld,%ld,%ld)\n",
 906                         db->error,db->arg1,db->arg2);
 907                 goto err;
 908                 }
 909
 910         /*****************************************************************/
 911         /* Update the db file for expired certificates */
 912         if (doupdatedb)
 913                 {
 914                 if (verbose)
 915                         BIO_printf(bio_err, "Updating %s ...\n",
 916                                                         dbfile);
 917
 918                 i = do_updatedb(db);
 919                 if (i == -1)
 920                         {
 921                         BIO_printf(bio_err,"Malloc failure\n");
 922                         goto err;
 923                         }
 924                 else if (i == 0)
 925                         {
 926                         if (verbose) BIO_printf(bio_err,
 927                                         "No entries found to mark expired\n");
 928                         }
 929                 else
 930                         {
 931                         out = BIO_new(BIO_s_file());
 932                         if (out == NULL)
 933                                 {
 934                                 ERR_print_errors(bio_err);
 935                                 goto err;
 936                                 }
 937
 938 #ifndef OPENSSL_SYS_VMS
 939                         j = BIO_snprintf(buf[0], sizeof buf[0], "%s.new", dbfile);
 940 #else
 941                         j = BIO_snprintf(buf[0], sizeof buf[0], "%s-new", dbfile);
 942 #endif
 943                         if (j < 0 || j >= sizeof buf[0])
 944                                 {
 945                                 BIO_printf(bio_err, "file name too long\n");
 946                                 goto err;
 947                                 }
 948                         if (BIO_write_filename(out,buf[0]) <= 0)
 949                                 {
 950                                 perror(dbfile);
 951                                 BIO_printf(bio_err,"unable to open '%s'\n",
 952                                                                         dbfile);
 953                                 goto err;
 954                                 }
 955                         j=TXT_DB_write(out,db);
 956                         if (j <= 0) goto err;
 957
 958                         BIO_free(out);
 959                         out = NULL;
 960 #ifndef OPENSSL_SYS_VMS
 961                         j = BIO_snprintf(buf[1], sizeof buf[1], "%s.old", dbfile);
 962 #else
 963                         j = BIO_snprintf(buf[1], sizeof buf[1], "%s-old", dbfile);
 964 #endif
 965                         if (j < 0 || j >= sizeof buf[1])
 966                                 {
 967                                 BIO_printf(bio_err, "file name too long\n");
 968                                 goto err;
 969                                 }
 970                         if (rename(dbfile,buf[1]) < 0)
 971                                 {
 972                                 BIO_printf(bio_err,
 973                                                 "unable to rename %s to %s\n",
 974                                                 dbfile, buf[1]);
 975                                 perror("reason");
 976                                 goto err;
 977                                 }
 978                         if (rename(buf[0],dbfile) < 0)
 979                                 {
 980                                 BIO_printf(bio_err,
 981                                                 "unable to rename %s to %s\n",
 982                                                 buf[0],dbfile);
 983                                 perror("reason");
 984                                 rename(buf[1],dbfile);
 985                                 goto err;
 986                                 }
 987
 988                         if (verbose) BIO_printf(bio_err,
 989                                 "Done. %d entries marked as expired\n",i);
 990                         }
 991                         goto err;
 992                 }
 993
 994         /*****************************************************************/
 995         /* Read extentions config file                                   */
 996         if (extfile)
 997                 {
 998                 extconf = NCONF_new(NULL);
 999                 if (NCONF_load(extconf,extfile,&errorline) <= 0)
1000                         {
1001                         if (errorline <= 0)
1002                                 BIO_printf(bio_err, "ERROR: loading the config file '%s'\n",
1003                                         extfile);
1004                         else
1005                                 BIO_printf(bio_err, "ERROR: on line %ld of config file '%s'\n",
1006                                         errorline,extfile);
1007                         ret = 1;
1008                         goto err;
1009                         }
1010
1011                 if (verbose)
1012                         BIO_printf(bio_err, "Succesfully loaded extensions file %s\n", extfile);
1013
1014                 /* We can have sections in the ext file */
1015                 if (!extensions && !(extensions = NCONF_get_string(extconf, "default", "extensions")))
1016                         extensions = "default";
1017                 }
1018
1019         /*****************************************************************/
1020         if (req || gencrl)
1021                 {
1022                 if (outfile != NULL)
1023                         {
1024                         if (BIO_write_filename(Sout,outfile) <= 0)
1025                                 {
1026                                 perror(outfile);
1027                                 goto err;
1028                                 }
1029                         }
1030                 else
1031                         {
1032                         BIO_set_fp(Sout,stdout,BIO_NOCLOSE|BIO_FP_TEXT);
1033 #ifdef OPENSSL_SYS_VMS
1034                         {
1035                         BIO *tmpbio = BIO_new(BIO_f_linebuffer());
1036                         Sout = BIO_push(tmpbio, Sout);
1037                         }
1038 #endif
1039                         }
1040                 }
1041
1042         if (req)
1043                 {
1044                 if ((md == NULL) && ((md=NCONF_get_string(conf,
1045                         section,ENV_DEFAULT_MD)) == NULL))
1046                         {
1047                         lookup_fail(section,ENV_DEFAULT_MD);
1048                         goto err;
1049                         }
1050                 if ((email_dn == 1) && ((tmp_email_dn=NCONF_get_string(conf,
1051                         section,ENV_DEFAULT_EMAIL_DN)) != NULL ))
1052                         {
1053                         if(strcmp(tmp_email_dn,"no") == 0)
1054                                 email_dn=0;
1055                         }
1056                 if ((dgst=EVP_get_digestbyname(md)) == NULL)
1057                         {
1058                         BIO_printf(bio_err,"%s is an unsupported message digest type\n",md);
1059                         goto err;
1060                         }
1061                 if (verbose)
1062                         BIO_printf(bio_err,"message digest is %s\n",
1063                                 OBJ_nid2ln(dgst->type));
1064                 if ((policy == NULL) && ((policy=NCONF_get_string(conf,
1065                         section,ENV_POLICY)) == NULL))
1066                         {
1067                         lookup_fail(section,ENV_POLICY);
1068                         goto err;
1069                         }
1070                 if (verbose)
1071                         BIO_printf(bio_err,"policy is %s\n",policy);
1072
1073                 if ((serialfile=NCONF_get_string(conf,section,ENV_SERIAL))
1074                         == NULL)
1075                         {
1076                         lookup_fail(section,ENV_SERIAL);
1077                         goto err;
1078                         }
1079
1080                 if (!extconf)
1081                         {
1082                         /* no '-extfile' option, so we look for extensions
1083                          * in the main configuration file */
1084                         if (!extensions)
1085                                 {
1086                                 extensions=NCONF_get_string(conf,section,
1087                                                                 ENV_EXTENSIONS);
1088                                 if (!extensions)
1089                                         ERR_clear_error();
1090                                 }
1091                         if (extensions)
1092                                 {
1093                                 /* Check syntax of file */
1094                                 X509V3_CTX ctx;
1095                                 X509V3_set_ctx_test(&ctx);
1096                                 X509V3_set_nconf(&ctx, conf);
1097                                 if (!X509V3_EXT_add_nconf(conf, &ctx, extensions,
1098                                                                 NULL))
1099                                         {
1100                                         BIO_printf(bio_err,
1101                                         "Error Loading extension section %s\n",
1102                                                                  extensions);
1103                                         ret = 1;
1104                                         goto err;
1105                                         }
1106                                 }
1107                         }
1108
1109                 if (startdate == NULL)
1110                         {
1111                         startdate=NCONF_get_string(conf,section,
1112                                 ENV_DEFAULT_STARTDATE);
1113                         if (startdate == NULL)
1114                                 ERR_clear_error();
1115                         }
1116                 if (startdate && !ASN1_UTCTIME_set_string(NULL,startdate))
1117                         {
1118                         BIO_printf(bio_err,"start date is invalid, it should be YYMMDDHHMMSSZ\n");
1119                         goto err;
1120                         }
1121                 if (startdate == NULL) startdate="today";
1122
1123                 if (enddate == NULL)
1124                         {
1125                         enddate=NCONF_get_string(conf,section,
1126                                 ENV_DEFAULT_ENDDATE);
1127                         if (enddate == NULL)
1128                                 ERR_clear_error();
1129                         }
1130                 if (enddate && !ASN1_UTCTIME_set_string(NULL,enddate))
1131                         {
1132                         BIO_printf(bio_err,"end date is invalid, it should be YYMMDDHHMMSSZ\n");
1133                         goto err;
1134                         }
1135
1136                 if (days == 0)
1137                         {
1138                         if(!NCONF_get_number(conf,section, ENV_DEFAULT_DAYS, &days))
1139                                 days = 0;
1140                         }
1141                 if (!enddate && (days == 0))
1142                         {
1143                         BIO_printf(bio_err,"cannot lookup how many days to certify for\n");
1144                         goto err;
1145                         }
1146
1147                 if ((serial=load_serial(serialfile)) == NULL)
1148                         {
1149                         BIO_printf(bio_err,"error while loading serial number\n");
1150                         goto err;
1151                         }
1152                 if (verbose)
1153                         {
1154                         if ((f=BN_bn2hex(serial)) == NULL) goto err;
1155                         BIO_printf(bio_err,"next serial number is %s\n",f);
1156                         OPENSSL_free(f);
1157                         }
1158
1159                 if ((attribs=NCONF_get_section(conf,policy)) == NULL)
1160                         {
1161                         BIO_printf(bio_err,"unable to find 'section' for %s\n",policy);
1162                         goto err;
1163                         }
1164
1165                 if ((cert_sk=sk_X509_new_null()) == NULL)
1166                         {
1167                         BIO_printf(bio_err,"Memory allocation failure\n");
1168                         goto err;
1169                         }
1170                 if (spkac_file != NULL)
1171                         {
1172                         total++;
1173                         j=certify_spkac(&x,spkac_file,pkey,x509,dgst,attribs,db,
1174                                 serial,subj,email_dn,startdate,enddate,days,extensions,
1175                                 conf,verbose,certopt,nameopt,default_op,ext_copy);
1176                         if (j < 0) goto err;
1177                         if (j > 0)
1178                                 {
1179                                 total_done++;
1180                                 BIO_printf(bio_err,"\n");
1181                                 if (!BN_add_word(serial,1)) goto err;
1182                                 if (!sk_X509_push(cert_sk,x))
1183                                         {
1184                                         BIO_printf(bio_err,"Memory allocation failure\n");
1185                                         goto err;
1186                                         }
1187                                 if (outfile)
1188                                         {
1189                                         output_der = 1;
1190                                         batch = 1;
1191                                         }
1192                                 }
1193                         }
1194                 if (ss_cert_file != NULL)
1195                         {
1196                         total++;
1197                         j=certify_cert(&x,ss_cert_file,pkey,x509,dgst,attribs,
1198                                 db,serial,subj,email_dn,startdate,enddate,days,batch,
1199                                 extensions,conf,verbose, certopt, nameopt,
1200                                 default_op, ext_copy, e);
1201                         if (j < 0) goto err;
1202                         if (j > 0)
1203                                 {
1204                                 total_done++;
1205                                 BIO_printf(bio_err,"\n");
1206                                 if (!BN_add_word(serial,1)) goto err;
1207                                 if (!sk_X509_push(cert_sk,x))
1208                                         {
1209                                         BIO_printf(bio_err,"Memory allocation failure\n");
1210                                         goto err;
1211                                         }
1212                                 }
1213                         }
1214                 if (infile != NULL)
1215                         {
1216                         total++;
1217                         j=certify(&x,infile,pkey,x509,dgst,attribs,db,
1218                                 serial,subj,email_dn,startdate,enddate,days,batch,
1219                                 extensions,conf,verbose, certopt, nameopt,
1220                                 default_op, ext_copy);
1221                         if (j < 0) goto err;
1222                         if (j > 0)
1223                                 {
1224                                 total_done++;
1225                                 BIO_printf(bio_err,"\n");
1226                                 if (!BN_add_word(serial,1)) goto err;
1227                                 if (!sk_X509_push(cert_sk,x))
1228                                         {
1229                                         BIO_printf(bio_err,"Memory allocation failure\n");
1230                                         goto err;
1231                                         }
1232                                 }
1233                         }
1234                 for (i=0; i<argc; i++)
1235                         {
1236                         total++;
1237                         j=certify(&x,argv[i],pkey,x509,dgst,attribs,db,
1238                                 serial,subj,email_dn,startdate,enddate,days,batch,
1239                                 extensions,conf,verbose, certopt, nameopt,
1240                                 default_op, ext_copy);
1241                         if (j < 0) goto err;
1242                         if (j > 0)
1243                                 {
1244                                 total_done++;
1245                                 BIO_printf(bio_err,"\n");
1246                                 if (!BN_add_word(serial,1)) goto err;
1247                                 if (!sk_X509_push(cert_sk,x))
1248                                         {
1249                                         BIO_printf(bio_err,"Memory allocation failure\n");
1250                                         goto err;
1251                                         }
1252                                 }
1253                         }
1254                 /* we have a stack of newly certified certificates
1255                  * and a data base and serial number that need
1256                  * updating */
1257
1258                 if (sk_X509_num(cert_sk) > 0)
1259                         {
1260                         if (!batch)
1261                                 {
1262                                 BIO_printf(bio_err,"\n%d out of %d certificate requests certified, commit? [y/n]",total_done,total);
1263                                 (void)BIO_flush(bio_err);
1264                                 buf[0][0]='\0';
1265                                 fgets(buf[0],10,stdin);
1266                                 if ((buf[0][0] != 'y') && (buf[0][0] != 'Y'))
1267                                         {
1268                                         BIO_printf(bio_err,"CERTIFICATION CANCELED\n");
1269                                         ret=0;
1270                                         goto err;
1271                                         }
1272                                 }
1273
1274                         BIO_printf(bio_err,"Write out database with %d new entries\n",sk_X509_num(cert_sk));
1275
1276                         strncpy(buf[0],serialfile,BSIZE-4);
1277
1278 #ifdef OPENSSL_SYS_VMS
1279                         strcat(buf[0],"-new");
1280 #else
1281                         strcat(buf[0],".new");
1282 #endif
1283
1284                         if (!save_serial(buf[0],serial)) goto err;
1285
1286                         strncpy(buf[1],dbfile,BSIZE-4);
1287
1288 #ifdef OPENSSL_SYS_VMS
1289                         strcat(buf[1],"-new");
1290 #else
1291                         strcat(buf[1],".new");
1292 #endif
1293
1294                         if (BIO_write_filename(out,buf[1]) <= 0)
1295                                 {
1296                                 perror(dbfile);
1297                                 BIO_printf(bio_err,"unable to open '%s'\n",dbfile);
1298                                 goto err;
1299                                 }
1300                         l=TXT_DB_write(out,db);
1301                         if (l <= 0) goto err;
1302                         }
1303
1304                 if (verbose)
1305                         BIO_printf(bio_err,"writing new certificates\n");
1306                 for (i=0; i<sk_X509_num(cert_sk); i++)
1307                         {
1308                         int k;
1309                         unsigned char *n;
1310
1311                         x=sk_X509_value(cert_sk,i);
1312
1313                         j=x->cert_info->serialNumber->length;
1314                         p=(char *)x->cert_info->serialNumber->data;
1315
1316                         strncpy(buf[2],outdir,BSIZE-(j*2)-6);
1317
1318 #ifndef OPENSSL_SYS_VMS
1319                         strcat(buf[2],"/");
1320 #endif
1321
1322                         n=(unsigned char *)&(buf[2][strlen(buf[2])]);
1323                         if (j > 0)
1324                                 {
1325                                 for (k=0; k<j; k++)
1326                                         {
1327                                         sprintf((char *)n,"%02X",(unsigned char)*(p++));
1328                                         n+=2;
1329                                         }
1330                                 }
1331                         else
1332                                 {
1333                                 *(n++)='0';
1334                                 *(n++)='0';
1335                                 }
1336                         *(n++)='.'; *(n++)='p'; *(n++)='e'; *(n++)='m';
1337                         *n='\0';
1338                         if (verbose)
1339                                 BIO_printf(bio_err,"writing %s\n",buf[2]);
1340
1341                         if (BIO_write_filename(Cout,buf[2]) <= 0)
1342                                 {
1343                                 perror(buf[2]);
1344                                 goto err;
1345                                 }
1346                         write_new_certificate(Cout,x, 0, notext);
1347                         write_new_certificate(Sout,x, output_der, notext);
1348                         }
1349
1350                 if (sk_X509_num(cert_sk))
1351                         {
1352                         /* Rename the database and the serial file */
1353                         strncpy(buf[2],serialfile,BSIZE-4);
1354
1355 #ifdef OPENSSL_SYS_VMS
1356                         strcat(buf[2],"-old");
1357 #else
1358                         strcat(buf[2],".old");
1359 #endif
1360
1361                         BIO_free(in);
1362                         BIO_free_all(out);
1363                         in=NULL;
1364                         out=NULL;
1365                         if (rename(serialfile,buf[2]) < 0)
1366                                 {
1367                                 BIO_printf(bio_err,"unable to rename %s to %s\n",
1368                                         serialfile,buf[2]);
1369                                 perror("reason");
1370                                 goto err;
1371                                 }
1372                         if (rename(buf[0],serialfile) < 0)
1373                                 {
1374                                 BIO_printf(bio_err,"unable to rename %s to %s\n",
1375                                         buf[0],serialfile);
1376                                 perror("reason");
1377                                 rename(buf[2],serialfile);
1378                                 goto err;
1379                                 }
1380
1381                         strncpy(buf[2],dbfile,BSIZE-4);
1382
1383 #ifdef OPENSSL_SYS_VMS
1384                         strcat(buf[2],"-old");
1385 #else
1386                         strcat(buf[2],".old");
1387 #endif
1388
1389                         if (rename(dbfile,buf[2]) < 0)
1390                                 {
1391                                 BIO_printf(bio_err,"unable to rename %s to %s\n",
1392                                         dbfile,buf[2]);
1393                                 perror("reason");
1394                                 goto err;
1395                                 }
1396                         if (rename(buf[1],dbfile) < 0)
1397                                 {
1398                                 BIO_printf(bio_err,"unable to rename %s to %s\n",
1399                                         buf[1],dbfile);
1400                                 perror("reason");
1401                                 rename(buf[2],dbfile);
1402                                 goto err;
1403                                 }
1404                         BIO_printf(bio_err,"Data Base Updated\n");
1405                         }
1406                 }
1407
1408         /*****************************************************************/
1409         if (gencrl)
1410                 {
1411                 int crl_v2 = 0;
1412                 if (!crl_ext)
1413                         {
1414                         crl_ext=NCONF_get_string(conf,section,ENV_CRLEXT);
1415                         if (!crl_ext)
1416                                 ERR_clear_error();
1417                         }
1418                 if (crl_ext)
1419                         {
1420                         /* Check syntax of file */
1421                         X509V3_CTX ctx;
1422                         X509V3_set_ctx_test(&ctx);
1423                         X509V3_set_nconf(&ctx, conf);
1424                         if (!X509V3_EXT_add_nconf(conf, &ctx, crl_ext, NULL))
1425                                 {
1426                                 BIO_printf(bio_err,
1427                                  "Error Loading CRL extension section %s\n",
1428                                                                  crl_ext);
1429                                 ret = 1;
1430                                 goto err;
1431                                 }
1432                         }
1433
1434                 if (!crldays && !crlhours)
1435                         {
1436                         if (!NCONF_get_number(conf,section,
1437                                 ENV_DEFAULT_CRL_DAYS, &crldays))
1438                                 crldays = 0;
1439                         if (!NCONF_get_number(conf,section,
1440                                 ENV_DEFAULT_CRL_HOURS, &crlhours))
1441                                 crlhours = 0;
1442                         }
1443                 if ((crldays == 0) && (crlhours == 0))
1444                         {
1445                         BIO_printf(bio_err,"cannot lookup how long until the next CRL is issuer\n");
1446                         goto err;
1447                         }
1448
1449                 if (verbose) BIO_printf(bio_err,"making CRL\n");
1450                 if ((crl=X509_CRL_new()) == NULL) goto err;
1451                 if (!X509_CRL_set_issuer_name(crl, X509_get_issuer_name(x509))) goto err;
1452
1453                 tmptm = ASN1_TIME_new();
1454                 if (!tmptm) goto err;
1455                 X509_gmtime_adj(tmptm,0);
1456                 X509_CRL_set_lastUpdate(crl, tmptm);
1457                 X509_gmtime_adj(tmptm,(crldays*24+crlhours)*60*60);
1458                 X509_CRL_set_nextUpdate(crl, tmptm);
1459
1460                 ASN1_TIME_free(tmptm);
1461
1462                 for (i=0; i<sk_num(db->data); i++)
1463                         {
1464                         pp=(char **)sk_value(db->data,i);
1465                         if (pp[DB_type][0] == DB_TYPE_REV)
1466                                 {
1467                                 if ((r=X509_REVOKED_new()) == NULL) goto err;
1468                                 j = make_revoked(r, pp[DB_rev_date]);
1469                                 if (!j) goto err;
1470                                 if (j == 2) crl_v2 = 1;
1471                                 if (!BN_hex2bn(&serial, pp[DB_serial]))
1472                                         goto err;
1473                                 tmpser = BN_to_ASN1_INTEGER(serial, NULL);
1474                                 BN_free(serial);
1475                                 serial = NULL;
1476                                 if (!tmpser)
1477                                         goto err;
1478                                 X509_REVOKED_set_serialNumber(r, tmpser);
1479                                 ASN1_INTEGER_free(tmpser);
1480                                 X509_CRL_add0_revoked(crl,r);
1481                                 }
1482                         }
1483
1484                 /* sort the data so it will be written in serial
1485                  * number order */
1486                 X509_CRL_sort(crl);
1487
1488                 /* we now have a CRL */
1489                 if (verbose) BIO_printf(bio_err,"signing CRL\n");
1490                 if (md != NULL)
1491                         {
1492                         if ((dgst=EVP_get_digestbyname(md)) == NULL)
1493                                 {
1494                                 BIO_printf(bio_err,"%s is an unsupported message digest type\n",md);
1495                                 goto err;
1496                                 }
1497                         }
1498                 else
1499                         {
1500 #ifndef OPENSSL_NO_DSA
1501                         if (pkey->type == EVP_PKEY_DSA)
1502                                 dgst=EVP_dss1();
1503                         else
1504 #endif
1505                                 dgst=EVP_md5();
1506                         }
1507
1508                 /* Add any extensions asked for */
1509
1510                 if (crl_ext)
1511                         {
1512                         X509V3_CTX crlctx;
1513                         X509V3_set_ctx(&crlctx, x509, NULL, NULL, crl, 0);
1514                         X509V3_set_nconf(&crlctx, conf);
1515
1516                         if (!X509V3_EXT_CRL_add_nconf(conf, &crlctx,
1517                                 crl_ext, crl)) goto err;
1518                         }
1519                 if (crl_ext || crl_v2)
1520                         {
1521                         if (!X509_CRL_set_version(crl, 1))
1522                                 goto err; /* version 2 CRL */
1523                         }
1524
1525                 if (!X509_CRL_sign(crl,pkey,dgst)) goto err;
1526
1527                 PEM_write_bio_X509_CRL(Sout,crl);
1528                 }
1529         /*****************************************************************/
1530         if (dorevoke)
1531                 {
1532                 if (infile == NULL)
1533                         {
1534                         BIO_printf(bio_err,"no input files\n");
1535                         goto err;
1536                         }
1537                 else
1538                         {
1539                         X509 *revcert;
1540                         revcert=load_cert(bio_err, infile, FORMAT_PEM,
1541                                 NULL, e, infile);
1542                         if (revcert == NULL)
1543                                 goto err;
1544                         j=do_revoke(revcert,db, rev_type, rev_arg);
1545                         if (j <= 0) goto err;
1546                         X509_free(revcert);
1547
1548                         strncpy(buf[0],dbfile,BSIZE-4);
1549 #ifndef OPENSSL_SYS_VMS
1550                         strcat(buf[0],".new");
1551 #else
1552                         strcat(buf[0],"-new");
1553 #endif
1554                         if (BIO_write_filename(out,buf[0]) <= 0)
1555                                 {
1556                                 perror(dbfile);
1557                                 BIO_printf(bio_err,"unable to open '%s'\n",dbfile);
1558                                 goto err;
1559                                 }
1560                         j=TXT_DB_write(out,db);
1561                         if (j <= 0) goto err;
1562                         strncpy(buf[1],dbfile,BSIZE-4);
1563 #ifndef OPENSSL_SYS_VMS
1564                         strcat(buf[1],".old");
1565 #else
1566                         strcat(buf[1],"-old");
1567 #endif
1568                         if (rename(dbfile,buf[1]) < 0)
1569                                 {
1570                                 BIO_printf(bio_err,"unable to rename %s to %s\n", dbfile, buf[1]);
1571                                 perror("reason");
1572                                 goto err;
1573                                 }
1574                         if (rename(buf[0],dbfile) < 0)
1575                                 {
1576                                 BIO_printf(bio_err,"unable to rename %s to %s\n", buf[0],dbfile);
1577                                 perror("reason");
1578                                 rename(buf[1],dbfile);
1579                                 goto err;
1580                                 }
1581                         BIO_printf(bio_err,"Data Base Updated\n");
1582                         }
1583                 }
1584         /*****************************************************************/
1585         ret=0;
1586 err:
1587         BIO_free_all(Cout);
1588         BIO_free_all(Sout);
1589         BIO_free_all(out);
1590         BIO_free_all(in);
1591
1592         sk_X509_pop_free(cert_sk,X509_free);
1593
1594         if (ret) ERR_print_errors(bio_err);
1595         app_RAND_write_file(randfile, bio_err);
1596         if (free_key)
1597                 OPENSSL_free(key);
1598         BN_free(serial);
1599         TXT_DB_free(db);
1600         EVP_PKEY_free(pkey);
1601         X509_free(x509);
1602         X509_CRL_free(crl);
1603         NCONF_free(conf);
1604         OBJ_cleanup();
1605         apps_shutdown();
1606         EXIT(ret);
1607         }
1608
1609 static void lookup_fail(char *name, char *tag)
1610         {
1611         BIO_printf(bio_err,"variable lookup failed for %s::%s\n",name,tag);
1612         }
1613
1614 static unsigned long index_serial_hash(const char **a)
1615         {
1616         const char *n;
1617
1618         n=a[DB_serial];
1619         while (*n == '0') n++;
1620         return(lh_strhash(n));
1621         }
1622
1623 static int index_serial_cmp(const char **a, const char **b)
1624         {
1625         const char *aa,*bb;
1626
1627         for (aa=a[DB_serial]; *aa == '0'; aa++);
1628         for (bb=b[DB_serial]; *bb == '0'; bb++);
1629         return(strcmp(aa,bb));
1630         }
1631
1632 static unsigned long index_name_hash(const char **a)
1633         { return(lh_strhash(a[DB_name])); }
1634
1635 static int index_name_qual(char **a)
1636         { return(a[0][0] == 'V'); }
1637
1638 static int index_name_cmp(const char **a, const char **b)
1639         { return(strcmp(a[DB_name],
1640              b[DB_name])); }
1641
1642 static BIGNUM *load_serial(char *serialfile)
1643         {
1644         BIO *in=NULL;
1645         BIGNUM *ret=NULL;
1646         MS_STATIC char buf[1024];
1647         ASN1_INTEGER *ai=NULL;
1648
1649         if ((in=BIO_new(BIO_s_file())) == NULL)
1650                 {
1651                 ERR_print_errors(bio_err);
1652                 goto err;
1653                 }
1654
1655         if (BIO_read_filename(in,serialfile) <= 0)
1656                 {
1657                 perror(serialfile);
1658                 goto err;
1659                 }
1660         ai=ASN1_INTEGER_new();
1661         if (ai == NULL) goto err;
1662         if (!a2i_ASN1_INTEGER(in,ai,buf,1024))
1663                 {
1664                 BIO_printf(bio_err,"unable to load number from %s\n",
1665                         serialfile);
1666                 goto err;
1667                 }
1668         ret=ASN1_INTEGER_to_BN(ai,NULL);
1669         if (ret == NULL)
1670                 {
1671                 BIO_printf(bio_err,"error converting number from bin to BIGNUM");
1672                 goto err;
1673                 }
1674 err:
1675         if (in != NULL) BIO_free(in);
1676         if (ai != NULL) ASN1_INTEGER_free(ai);
1677         return(ret);
1678         }
1679
1680 static int save_serial(char *serialfile, BIGNUM *serial)
1681         {
1682         BIO *out;
1683         int ret=0;
1684         ASN1_INTEGER *ai=NULL;
1685
1686         out=BIO_new(BIO_s_file());
1687         if (out == NULL)
1688                 {
1689                 ERR_print_errors(bio_err);
1690                 goto err;
1691                 }
1692         if (BIO_write_filename(out,serialfile) <= 0)
1693                 {
1694                 perror(serialfile);
1695                 goto err;
1696                 }
1697
1698         if ((ai=BN_to_ASN1_INTEGER(serial,NULL)) == NULL)
1699                 {
1700                 BIO_printf(bio_err,"error converting serial to ASN.1 format\n");
1701                 goto err;
1702                 }
1703         i2a_ASN1_INTEGER(out,ai);
1704         BIO_puts(out,"\n");
1705         ret=1;
1706 err:
1707         if (out != NULL) BIO_free_all(out);
1708         if (ai != NULL) ASN1_INTEGER_free(ai);
1709         return(ret);
1710         }
1711
1712 static int certify(X509 **xret, char *infile, EVP_PKEY *pkey, X509 *x509,
1713              const EVP_MD *dgst, STACK_OF(CONF_VALUE) *policy, TXT_DB *db,
1714              BIGNUM *serial, char *subj, int email_dn, char *startdate, char *enddate,
1715              long days, int batch, char *ext_sect, CONF *lconf, int verbose,
1716              unsigned long certopt, unsigned long nameopt, int default_op,
1717              int ext_copy)
1718         {
1719         X509_REQ *req=NULL;
1720         BIO *in=NULL;
1721         EVP_PKEY *pktmp=NULL;
1722         int ok= -1,i;
1723
1724         in=BIO_new(BIO_s_file());
1725
1726         if (BIO_read_filename(in,infile) <= 0)
1727                 {
1728                 perror(infile);
1729                 goto err;
1730                 }
1731         if ((req=PEM_read_bio_X509_REQ(in,NULL,NULL,NULL)) == NULL)
1732                 {
1733                 BIO_printf(bio_err,"Error reading certificate request in %s\n",
1734                         infile);
1735                 goto err;
1736                 }
1737         if (verbose)
1738                 X509_REQ_print(bio_err,req);
1739
1740         BIO_printf(bio_err,"Check that the request matches the signature\n");
1741
1742         if ((pktmp=X509_REQ_get_pubkey(req)) == NULL)
1743                 {
1744                 BIO_printf(bio_err,"error unpacking public key\n");
1745                 goto err;
1746                 }
1747         i=X509_REQ_verify(req,pktmp);
1748         EVP_PKEY_free(pktmp);
1749         if (i < 0)
1750                 {
1751                 ok=0;
1752                 BIO_printf(bio_err,"Signature verification problems....\n");
1753                 goto err;
1754                 }
1755         if (i == 0)
1756                 {
1757                 ok=0;
1758                 BIO_printf(bio_err,"Signature did not match the certificate request\n");
1759                 goto err;
1760                 }
1761         else
1762                 BIO_printf(bio_err,"Signature ok\n");
1763
1764         ok=do_body(xret,pkey,x509,dgst,policy,db,serial,subj, email_dn,
1765                 startdate,enddate,days,batch,verbose,req,ext_sect,lconf,
1766                 certopt, nameopt, default_op, ext_copy);
1767
1768 err:
1769         if (req != NULL) X509_REQ_free(req);
1770         if (in != NULL) BIO_free(in);
1771         return(ok);
1772         }
1773
1774 static int certify_cert(X509 **xret, char *infile, EVP_PKEY *pkey, X509 *x509,
1775              const EVP_MD *dgst, STACK_OF(CONF_VALUE) *policy, TXT_DB *db,
1776              BIGNUM *serial, char *subj, int email_dn, char *startdate, char *enddate,
1777              long days, int batch, char *ext_sect, CONF *lconf, int verbose,
1778              unsigned long certopt, unsigned long nameopt, int default_op,
1779              int ext_copy, ENGINE *e)
1780         {
1781         X509 *req=NULL;
1782         X509_REQ *rreq=NULL;
1783         EVP_PKEY *pktmp=NULL;
1784         int ok= -1,i;
1785
1786         if ((req=load_cert(bio_err, infile, FORMAT_PEM, NULL, e, infile)) == NULL)
1787                 goto err;
1788         if (verbose)
1789                 X509_print(bio_err,req);
1790
1791         BIO_printf(bio_err,"Check that the request matches the signature\n");
1792
1793         if ((pktmp=X509_get_pubkey(req)) == NULL)
1794                 {
1795                 BIO_printf(bio_err,"error unpacking public key\n");
1796                 goto err;
1797                 }
1798         i=X509_verify(req,pktmp);
1799         EVP_PKEY_free(pktmp);
1800         if (i < 0)
1801                 {
1802                 ok=0;
1803                 BIO_printf(bio_err,"Signature verification problems....\n");
1804                 goto err;
1805                 }
1806         if (i == 0)
1807                 {
1808                 ok=0;
1809                 BIO_printf(bio_err,"Signature did not match the certificate\n");
1810                 goto err;
1811                 }
1812         else
1813                 BIO_printf(bio_err,"Signature ok\n");
1814
1815         if ((rreq=X509_to_X509_REQ(req,NULL,EVP_md5())) == NULL)
1816                 goto err;
1817
1818         ok=do_body(xret,pkey,x509,dgst,policy,db,serial,subj,email_dn,startdate,enddate,
1819                 days,batch,verbose,rreq,ext_sect,lconf, certopt, nameopt, default_op,
1820                 ext_copy);
1821
1822 err:
1823         if (rreq != NULL) X509_REQ_free(rreq);
1824         if (req != NULL) X509_free(req);
1825         return(ok);
1826         }
1827
1828 static int do_body(X509 **xret, EVP_PKEY *pkey, X509 *x509, const EVP_MD *dgst,
1829              STACK_OF(CONF_VALUE) *policy, TXT_DB *db, BIGNUM *serial, char *subj,
1830              int email_dn, char *startdate, char *enddate, long days, int batch,
1831              int verbose, X509_REQ *req, char *ext_sect, CONF *lconf,
1832              unsigned long certopt, unsigned long nameopt, int default_op,
1833              int ext_copy)
1834         {
1835         X509_NAME *name=NULL,*CAname=NULL,*subject=NULL, *dn_subject=NULL;
1836         ASN1_UTCTIME *tm,*tmptm;
1837         ASN1_STRING *str,*str2;
1838         ASN1_OBJECT *obj;
1839         X509 *ret=NULL;
1840         X509_CINF *ci;
1841         X509_NAME_ENTRY *ne;
1842         X509_NAME_ENTRY *tne,*push;
1843         EVP_PKEY *pktmp;
1844         int ok= -1,i,j,last,nid;
1845         char *p;
1846         CONF_VALUE *cv;
1847         char *row[DB_NUMBER],**rrow,**irow=NULL;
1848         char buf[25];
1849
1850         tmptm=ASN1_UTCTIME_new();
1851         if (tmptm == NULL)
1852                 {
1853                 BIO_printf(bio_err,"malloc error\n");
1854                 return(0);
1855                 }
1856
1857         for (i=0; i<DB_NUMBER; i++)
1858                 row[i]=NULL;
1859
1860         if (subj)
1861                 {
1862                 X509_NAME *n = do_subject(subj, email_dn);
1863
1864                 if (!n)
1865                         {
1866                         ERR_print_errors(bio_err);
1867                         goto err;
1868                         }
1869                 X509_REQ_set_subject_name(req,n);
1870                 req->req_info->enc.modified = 1;
1871                 X509_NAME_free(n);
1872                 }
1873
1874         if (default_op)
1875                 BIO_printf(bio_err,"The Subject's Distinguished Name is as follows\n");
1876
1877         name=X509_REQ_get_subject_name(req);
1878         for (i=0; i<X509_NAME_entry_count(name); i++)
1879                 {
1880                 ne= X509_NAME_get_entry(name,i);
1881                 str=X509_NAME_ENTRY_get_data(ne);
1882                 obj=X509_NAME_ENTRY_get_object(ne);
1883
1884                 if (msie_hack)
1885                         {
1886                         /* assume all type should be strings */
1887                         nid=OBJ_obj2nid(ne->object);
1888
1889                         if (str->type == V_ASN1_UNIVERSALSTRING)
1890                                 ASN1_UNIVERSALSTRING_to_string(str);
1891
1892                         if ((str->type == V_ASN1_IA5STRING) &&
1893                                 (nid != NID_pkcs9_emailAddress))
1894                                 str->type=V_ASN1_T61STRING;
1895
1896                         if ((nid == NID_pkcs9_emailAddress) &&
1897                                 (str->type == V_ASN1_PRINTABLESTRING))
1898                                 str->type=V_ASN1_IA5STRING;
1899                         }
1900
1901                 /* If no EMAIL is wanted in the subject */
1902                 if ((OBJ_obj2nid(obj) == NID_pkcs9_emailAddress) && (!email_dn))
1903                         continue;
1904
1905                 /* check some things */
1906                 if ((OBJ_obj2nid(obj) == NID_pkcs9_emailAddress) &&
1907                         (str->type != V_ASN1_IA5STRING))
1908                         {
1909                         BIO_printf(bio_err,"\nemailAddress type needs to be of type IA5STRING\n");
1910                         goto err;
1911                         }
1912                 j=ASN1_PRINTABLE_type(str->data,str->length);
1913                 if (    ((j == V_ASN1_T61STRING) &&
1914                          (str->type != V_ASN1_T61STRING)) ||
1915                         ((j == V_ASN1_IA5STRING) &&
1916                          (str->type == V_ASN1_PRINTABLESTRING)))
1917                         {
1918                         BIO_printf(bio_err,"\nThe string contains characters that are illegal for the ASN.1 type\n");
1919                         goto err;
1920                         }
1921
1922                 if (default_op)
1923                         old_entry_print(bio_err, obj, str);
1924                 }
1925
1926         /* Ok, now we check the 'policy' stuff. */
1927         if ((subject=X509_NAME_new()) == NULL)
1928                 {
1929                 BIO_printf(bio_err,"Memory allocation failure\n");
1930                 goto err;
1931                 }
1932
1933         /* take a copy of the issuer name before we mess with it. */
1934         CAname=X509_NAME_dup(x509->cert_info->subject);
1935         if (CAname == NULL) goto err;
1936         str=str2=NULL;
1937
1938         for (i=0; i<sk_CONF_VALUE_num(policy); i++)
1939                 {
1940                 cv=sk_CONF_VALUE_value(policy,i); /* get the object id */
1941                 if ((j=OBJ_txt2nid(cv->name)) == NID_undef)
1942                         {
1943                         BIO_printf(bio_err,"%s:unknown object type in 'policy' configuration\n",cv->name);
1944                         goto err;
1945                         }
1946                 obj=OBJ_nid2obj(j);
1947
1948                 last= -1;
1949                 for (;;)
1950                         {
1951                         /* lookup the object in the supplied name list */
1952                         j=X509_NAME_get_index_by_OBJ(name,obj,last);
1953                         if (j < 0)
1954                                 {
1955                                 if (last != -1) break;
1956                                 tne=NULL;
1957                                 }
1958                         else
1959                                 {
1960                                 tne=X509_NAME_get_entry(name,j);
1961                                 }
1962                         last=j;
1963
1964                         /* depending on the 'policy', decide what to do. */
1965                         push=NULL;
1966                         if (strcmp(cv->value,"optional") == 0)
1967                                 {
1968                                 if (tne != NULL)
1969                                         push=tne;
1970                                 }
1971                         else if (strcmp(cv->value,"supplied") == 0)
1972                                 {
1973                                 if (tne == NULL)
1974                                         {
1975                                         BIO_printf(bio_err,"The %s field needed to be supplied and was missing\n",cv->name);
1976                                         goto err;
1977                                         }
1978                                 else
1979                                         push=tne;
1980                                 }
1981                         else if (strcmp(cv->value,"match") == 0)
1982                                 {
1983                                 int last2;
1984
1985                                 if (tne == NULL)
1986                                         {
1987                                         BIO_printf(bio_err,"The mandatory %s field was missing\n",cv->name);
1988                                         goto err;
1989                                         }
1990
1991                                 last2= -1;
1992
1993 again2:
1994                                 j=X509_NAME_get_index_by_OBJ(CAname,obj,last2);
1995                                 if ((j < 0) && (last2 == -1))
1996                                         {
1997                                         BIO_printf(bio_err,"The %s field does not exist in the CA certificate,\nthe 'policy' is misconfigured\n",cv->name);
1998                                         goto err;
1999                                         }
2000                                 if (j >= 0)
2001                                         {
2002                                         push=X509_NAME_get_entry(CAname,j);
2003                                         str=X509_NAME_ENTRY_get_data(tne);
2004                                         str2=X509_NAME_ENTRY_get_data(push);
2005                                         last2=j;
2006                                         if (ASN1_STRING_cmp(str,str2) != 0)
2007                                                 goto again2;
2008                                         }
2009                                 if (j < 0)
2010                                         {
2011                                         BIO_printf(bio_err,"The %s field needed to be the same in the\nCA certificate (%s) and the request (%s)\n",cv->name,((str2 == NULL)?"NULL":(char *)str2->data),((str == NULL)?"NULL":(char *)str->data));
2012                                         goto err;
2013                                         }
2014                                 }
2015                         else
2016                                 {
2017                                 BIO_printf(bio_err,"%s:invalid type in 'policy' configuration\n",cv->value);
2018                                 goto err;
2019                                 }
2020
2021                         if (push != NULL)
2022                                 {
2023                                 if (!X509_NAME_add_entry(subject,push, -1, 0))
2024                                         {
2025                                         if (push != NULL)
2026                                                 X509_NAME_ENTRY_free(push);
2027                                         BIO_printf(bio_err,"Memory allocation failure\n");
2028                                         goto err;
2029                                         }
2030                                 }
2031                         if (j < 0) break;
2032                         }
2033                 }
2034
2035         if (preserve)
2036                 {
2037                 X509_NAME_free(subject);
2038                 /* subject=X509_NAME_dup(X509_REQ_get_subject_name(req)); */
2039                 subject=X509_NAME_dup(name);
2040                 if (subject == NULL) goto err;
2041                 }
2042
2043         if (verbose)
2044                 BIO_printf(bio_err,"The subject name appears to be ok, checking data base for clashes\n");
2045
2046         /* Build the correct Subject if no e-mail is wanted in the subject */
2047         /* and add it later on because of the method extensions are added (altName) */
2048
2049         if (email_dn)
2050                 dn_subject = subject;
2051         else
2052                 {
2053                 X509_NAME_ENTRY *tmpne;
2054                 /* Its best to dup the subject DN and then delete any email
2055                  * addresses because this retains its structure.
2056                  */
2057                 if (!(dn_subject = X509_NAME_dup(subject)))
2058                         {
2059                         BIO_printf(bio_err,"Memory allocation failure\n");
2060                         goto err;
2061                         }
2062                 while((i = X509_NAME_get_index_by_NID(dn_subject,
2063                                         NID_pkcs9_emailAddress, -1) >= 0))
2064                         {
2065                         tmpne = X509_NAME_get_entry(dn_subject, i);
2066                         X509_NAME_delete_entry(dn_subject, i);
2067                         X509_NAME_ENTRY_free(tmpne);
2068                         }
2069                 }
2070
2071         row[DB_name]=X509_NAME_oneline(dn_subject,NULL,0);
2072         row[DB_serial]=BN_bn2hex(serial);
2073         if ((row[DB_name] == NULL) || (row[DB_serial] == NULL))
2074                 {
2075                 BIO_printf(bio_err,"Memory allocation failure\n");
2076                 goto err;
2077                 }
2078
2079         rrow=TXT_DB_get_by_index(db,DB_name,row);
2080         if (rrow != NULL)
2081                 {
2082                 BIO_printf(bio_err,"ERROR:There is already a certificate for %s\n",
2083                         row[DB_name]);
2084                 }
2085         else
2086                 {
2087                 rrow=TXT_DB_get_by_index(db,DB_serial,row);
2088                 if (rrow != NULL)
2089                         {
2090                         BIO_printf(bio_err,"ERROR:Serial number %s has already been issued,\n",
2091                                 row[DB_serial]);
2092                         BIO_printf(bio_err,"      check the database/serial_file for corruption\n");
2093                         }
2094                 }
2095
2096         if (rrow != NULL)
2097                 {
2098                 BIO_printf(bio_err,
2099                         "The matching entry has the following details\n");
2100                 if (rrow[DB_type][0] == 'E')
2101                         p="Expired";
2102                 else if (rrow[DB_type][0] == 'R')
2103                         p="Revoked";
2104                 else if (rrow[DB_type][0] == 'V')
2105                         p="Valid";
2106                 else
2107                         p="\ninvalid type, Data base error\n";
2108                 BIO_printf(bio_err,"Type          :%s\n",p);;
2109                 if (rrow[DB_type][0] == 'R')
2110                         {
2111                         p=rrow[DB_exp_date]; if (p == NULL) p="undef";
2112                         BIO_printf(bio_err,"Was revoked on:%s\n",p);
2113                         }
2114                 p=rrow[DB_exp_date]; if (p == NULL) p="undef";
2115                 BIO_printf(bio_err,"Expires on    :%s\n",p);
2116                 p=rrow[DB_serial]; if (p == NULL) p="undef";
2117                 BIO_printf(bio_err,"Serial Number :%s\n",p);
2118                 p=rrow[DB_file]; if (p == NULL) p="undef";
2119                 BIO_printf(bio_err,"File name     :%s\n",p);
2120                 p=rrow[DB_name]; if (p == NULL) p="undef";
2121                 BIO_printf(bio_err,"Subject Name  :%s\n",p);
2122                 ok= -1; /* This is now a 'bad' error. */
2123                 goto err;
2124                 }
2125
2126         /* We are now totally happy, lets make and sign the certificate */
2127         if (verbose)
2128                 BIO_printf(bio_err,"Everything appears to be ok, creating and signing the certificate\n");
2129
2130         if ((ret=X509_new()) == NULL) goto err;
2131         ci=ret->cert_info;
2132
2133 #ifdef X509_V3
2134         /* Make it an X509 v3 certificate. */
2135         if (!X509_set_version(x509,2)) goto err;
2136 #endif
2137
2138         if (BN_to_ASN1_INTEGER(serial,ci->serialNumber) == NULL)
2139                 goto err;
2140         if (!X509_set_issuer_name(ret,X509_get_subject_name(x509)))
2141                 goto err;
2142
2143         if (strcmp(startdate,"today") == 0)
2144                 X509_gmtime_adj(X509_get_notBefore(ret),0);
2145         else ASN1_UTCTIME_set_string(X509_get_notBefore(ret),startdate);
2146
2147         if (enddate == NULL)
2148                 X509_gmtime_adj(X509_get_notAfter(ret),(long)60*60*24*days);
2149         else ASN1_UTCTIME_set_string(X509_get_notAfter(ret),enddate);
2150
2151         if (!X509_set_subject_name(ret,subject)) goto err;
2152
2153         pktmp=X509_REQ_get_pubkey(req);
2154         i = X509_set_pubkey(ret,pktmp);
2155         EVP_PKEY_free(pktmp);
2156         if (!i) goto err;
2157
2158         /* Lets add the extensions, if there are any */
2159         if (ext_sect)
2160                 {
2161                 X509V3_CTX ctx;
2162                 if (ci->version == NULL)
2163                         if ((ci->version=ASN1_INTEGER_new()) == NULL)
2164                                 goto err;
2165                 ASN1_INTEGER_set(ci->version,2); /* version 3 certificate */
2166
2167                 /* Free the current entries if any, there should not
2168                  * be any I believe */
2169                 if (ci->extensions != NULL)
2170                         sk_X509_EXTENSION_pop_free(ci->extensions,
2171                                                    X509_EXTENSION_free);
2172
2173                 ci->extensions = NULL;
2174
2175                 /* Initialize the context structure */
2176                 X509V3_set_ctx(&ctx, x509, ret, req, NULL, 0);
2177
2178                 if (extconf)
2179                         {
2180                         if (verbose)
2181                                 BIO_printf(bio_err, "Extra configuration file found\n");
2182
2183                         /* Use the extconf configuration db LHASH */
2184                         X509V3_set_nconf(&ctx, extconf);
2185
2186                         /* Test the structure (needed?) */
2187                         /* X509V3_set_ctx_test(&ctx); */
2188
2189                         /* Adds exts contained in the configuration file */
2190                         if (!X509V3_EXT_add_nconf(extconf, &ctx, ext_sect,ret))
2191                                 {
2192                                 BIO_printf(bio_err,
2193                                     "ERROR: adding extensions in section %s\n",
2194                                                                 ext_sect);
2195                                 ERR_print_errors(bio_err);
2196                                 goto err;
2197                                 }
2198                         if (verbose)
2199                                 BIO_printf(bio_err, "Successfully added extensions from file.\n");
2200                         }
2201                 else if (ext_sect)
2202                         {
2203                         /* We found extensions to be set from config file */
2204                         X509V3_set_nconf(&ctx, lconf);
2205
2206                         if(!X509V3_EXT_add_nconf(lconf, &ctx, ext_sect, ret))
2207                                 {
2208                                 BIO_printf(bio_err, "ERROR: adding extensions in section %s\n", ext_sect);
2209                                 ERR_print_errors(bio_err);
2210                                 goto err;
2211                                 }
2212
2213                         if (verbose)
2214                                 BIO_printf(bio_err, "Successfully added extensions from config\n");
2215                         }
2216                 }
2217
2218         /* Copy extensions from request (if any) */
2219
2220         if (!copy_extensions(ret, req, ext_copy))
2221                 {
2222                 BIO_printf(bio_err, "ERROR: adding extensions from request\n");
2223                 ERR_print_errors(bio_err);
2224                 goto err;
2225                 }
2226
2227         /* Set the right value for the noemailDN option */
2228         if( email_dn == 0 )
2229                 {
2230                 if (!X509_set_subject_name(ret,dn_subject)) goto err;
2231                 }
2232
2233         if (!default_op)
2234                 {
2235                 BIO_printf(bio_err, "Certificate Details:\n");
2236                 /* Never print signature details because signature not present */
2237                 certopt |= X509_FLAG_NO_SIGDUMP | X509_FLAG_NO_SIGNAME;
2238                 X509_print_ex(bio_err, ret, nameopt, certopt);
2239                 }
2240
2241         BIO_printf(bio_err,"Certificate is to be certified until ");
2242         ASN1_UTCTIME_print(bio_err,X509_get_notAfter(ret));
2243         if (days) BIO_printf(bio_err," (%d days)",days);
2244         BIO_printf(bio_err, "\n");
2245
2246         if (!batch)
2247                 {
2248
2249                 BIO_printf(bio_err,"Sign the certificate? [y/n]:");
2250                 (void)BIO_flush(bio_err);
2251                 buf[0]='\0';
2252                 fgets(buf,sizeof(buf)-1,stdin);
2253                 if (!((buf[0] == 'y') || (buf[0] == 'Y')))
2254                         {
2255                         BIO_printf(bio_err,"CERTIFICATE WILL NOT BE CERTIFIED\n");
2256                         ok=0;
2257                         goto err;
2258                         }
2259                 }
2260
2261
2262 #ifndef OPENSSL_NO_DSA
2263         if (pkey->type == EVP_PKEY_DSA) dgst=EVP_dss1();
2264         pktmp=X509_get_pubkey(ret);
2265         if (EVP_PKEY_missing_parameters(pktmp) &&
2266                 !EVP_PKEY_missing_parameters(pkey))
2267                 EVP_PKEY_copy_parameters(pktmp,pkey);
2268         EVP_PKEY_free(pktmp);
2269 #endif
2270
2271         if (!X509_sign(ret,pkey,dgst))
2272                 goto err;
2273
2274         /* We now just add it to the database */
2275         row[DB_type]=(char *)OPENSSL_malloc(2);
2276
2277         tm=X509_get_notAfter(ret);
2278         row[DB_exp_date]=(char *)OPENSSL_malloc(tm->length+1);
2279         memcpy(row[DB_exp_date],tm->data,tm->length);
2280         row[DB_exp_date][tm->length]='\0';
2281
2282         row[DB_rev_date]=NULL;
2283
2284         /* row[DB_serial] done already */
2285         row[DB_file]=(char *)OPENSSL_malloc(8);
2286         /* row[DB_name] done already */
2287
2288         if ((row[DB_type] == NULL) || (row[DB_exp_date] == NULL) ||
2289                 (row[DB_file] == NULL))
2290                 {
2291                 BIO_printf(bio_err,"Memory allocation failure\n");
2292                 goto err;
2293                 }
2294         strcpy(row[DB_file],"unknown");
2295         row[DB_type][0]='V';
2296         row[DB_type][1]='\0';
2297
2298         if ((irow=(char **)OPENSSL_malloc(sizeof(char *)*(DB_NUMBER+1))) == NULL)
2299                 {
2300                 BIO_printf(bio_err,"Memory allocation failure\n");
2301                 goto err;
2302                 }
2303
2304         for (i=0; i<DB_NUMBER; i++)
2305                 {
2306                 irow[i]=row[i];
2307                 row[i]=NULL;
2308                 }
2309         irow[DB_NUMBER]=NULL;
2310
2311         if (!TXT_DB_insert(db,irow))
2312                 {
2313                 BIO_printf(bio_err,"failed to update database\n");
2314                 BIO_printf(bio_err,"TXT_DB error number %ld\n",db->error);
2315                 goto err;
2316                 }
2317         ok=1;
2318 err:
2319         for (i=0; i<DB_NUMBER; i++)
2320                 if (row[i] != NULL) OPENSSL_free(row[i]);
2321
2322         if (CAname != NULL)
2323                 X509_NAME_free(CAname);
2324         if (subject != NULL)
2325                 X509_NAME_free(subject);
2326         if ((dn_subject != NULL) && !email_dn)
2327                 X509_NAME_free(dn_subject);
2328         if (tmptm != NULL)
2329                 ASN1_UTCTIME_free(tmptm);
2330         if (ok <= 0)
2331                 {
2332                 if (ret != NULL) X509_free(ret);
2333                 ret=NULL;
2334                 }
2335         else
2336                 *xret=ret;
2337         return(ok);
2338         }
2339
2340 static void write_new_certificate(BIO *bp, X509 *x, int output_der, int notext)
2341         {
2342
2343         if (output_der)
2344                 {
2345                 (void)i2d_X509_bio(bp,x);
2346                 return;
2347                 }
2348 #if 0
2349         /* ??? Not needed since X509_print prints all this stuff anyway */
2350         f=X509_NAME_oneline(X509_get_issuer_name(x),buf,256);
2351         BIO_printf(bp,"issuer :%s\n",f);
2352
2353         f=X509_NAME_oneline(X509_get_subject_name(x),buf,256);
2354         BIO_printf(bp,"subject:%s\n",f);
2355
2356         BIO_puts(bp,"serial :");
2357         i2a_ASN1_INTEGER(bp,x->cert_info->serialNumber);
2358         BIO_puts(bp,"\n\n");
2359 #endif
2360         if (!notext)X509_print(bp,x);
2361         PEM_write_bio_X509(bp,x);
2362         }
2363
2364 static int certify_spkac(X509 **xret, char *infile, EVP_PKEY *pkey, X509 *x509,
2365              const EVP_MD *dgst, STACK_OF(CONF_VALUE) *policy, TXT_DB *db,
2366              BIGNUM *serial, char *subj, int email_dn, char *startdate, char *enddate,
2367              long days, char *ext_sect, CONF *lconf, int verbose, unsigned long certopt,
2368              unsigned long nameopt, int default_op, int ext_copy)
2369         {
2370         STACK_OF(CONF_VALUE) *sk=NULL;
2371         LHASH *parms=NULL;
2372         X509_REQ *req=NULL;
2373         CONF_VALUE *cv=NULL;
2374         NETSCAPE_SPKI *spki = NULL;
2375         X509_REQ_INFO *ri;
2376         char *type,*buf;
2377         EVP_PKEY *pktmp=NULL;
2378         X509_NAME *n=NULL;
2379         X509_NAME_ENTRY *ne=NULL;
2380         int ok= -1,i,j;
2381         long errline;
2382         int nid;
2383
2384         /*
2385          * Load input file into a hash table.  (This is just an easy
2386          * way to read and parse the file, then put it into a convenient
2387          * STACK format).
2388          */
2389         parms=CONF_load(NULL,infile,&errline);
2390         if (parms == NULL)
2391                 {
2392                 BIO_printf(bio_err,"error on line %ld of %s\n",errline,infile);
2393                 ERR_print_errors(bio_err);
2394                 goto err;
2395                 }
2396
2397         sk=CONF_get_section(parms, "default");
2398         if (sk_CONF_VALUE_num(sk) == 0)
2399                 {
2400                 BIO_printf(bio_err, "no name/value pairs found in %s\n", infile);
2401                 CONF_free(parms);
2402                 goto err;
2403                 }
2404
2405         /*
2406          * Now create a dummy X509 request structure.  We don't actually
2407          * have an X509 request, but we have many of the components
2408          * (a public key, various DN components).  The idea is that we
2409          * put these components into the right X509 request structure
2410          * and we can use the same code as if you had a real X509 request.
2411          */
2412         req=X509_REQ_new();
2413         if (req == NULL)
2414                 {
2415                 ERR_print_errors(bio_err);
2416                 goto err;
2417                 }
2418
2419         /*
2420          * Build up the subject name set.
2421          */
2422         ri=req->req_info;
2423         n = ri->subject;
2424
2425         for (i = 0; ; i++)
2426                 {
2427                 if (sk_CONF_VALUE_num(sk) <= i) break;
2428
2429                 cv=sk_CONF_VALUE_value(sk,i);
2430                 type=cv->name;
2431                 /* Skip past any leading X. X: X, etc to allow for
2432                  * multiple instances
2433                  */
2434                 for (buf = cv->name; *buf ; buf++)
2435                         if ((*buf == ':') || (*buf == ',') || (*buf == '.'))
2436                                 {
2437                                 buf++;
2438                                 if (*buf) type = buf;
2439                                 break;
2440                                 }
2441
2442                 buf=cv->value;
2443                 if ((nid=OBJ_txt2nid(type)) == NID_undef)
2444                         {
2445                         if (strcmp(type, "SPKAC") == 0)
2446                                 {
2447                                 spki = NETSCAPE_SPKI_b64_decode(cv->value, -1);
2448                                 if (spki == NULL)
2449                                         {
2450                                         BIO_printf(bio_err,"unable to load Netscape SPKAC structure\n");
2451                                         ERR_print_errors(bio_err);
2452                                         goto err;
2453                                         }
2454                                 }
2455                         continue;
2456                         }
2457
2458                 /*
2459                 if ((nid == NID_pkcs9_emailAddress) && (email_dn == 0))
2460                         continue;
2461                 */
2462
2463                 j=ASN1_PRINTABLE_type((unsigned char *)buf,-1);
2464                 if (fix_data(nid, &j) == 0)
2465                         {
2466                         BIO_printf(bio_err,
2467                                 "invalid characters in string %s\n",buf);
2468                         goto err;
2469                         }
2470
2471                 if ((ne=X509_NAME_ENTRY_create_by_NID(&ne,nid,j,
2472                         (unsigned char *)buf,
2473                         strlen(buf))) == NULL)
2474                         goto err;
2475
2476                 if (!X509_NAME_add_entry(n,ne,-1, 0)) goto err;
2477                 }
2478         if (spki == NULL)
2479                 {
2480                 BIO_printf(bio_err,"Netscape SPKAC structure not found in %s\n",
2481                         infile);
2482                 goto err;
2483                 }
2484
2485         /*
2486          * Now extract the key from the SPKI structure.
2487          */
2488
2489         BIO_printf(bio_err,"Check that the SPKAC request matches the signature\n");
2490
2491         if ((pktmp=NETSCAPE_SPKI_get_pubkey(spki)) == NULL)
2492                 {
2493                 BIO_printf(bio_err,"error unpacking SPKAC public key\n");
2494                 goto err;
2495                 }
2496
2497         j = NETSCAPE_SPKI_verify(spki, pktmp);
2498         if (j <= 0)
2499                 {
2500                 BIO_printf(bio_err,"signature verification failed on SPKAC public key\n");
2501                 goto err;
2502                 }
2503         BIO_printf(bio_err,"Signature ok\n");
2504
2505         X509_REQ_set_pubkey(req,pktmp);
2506         EVP_PKEY_free(pktmp);
2507         ok=do_body(xret,pkey,x509,dgst,policy,db,serial,subj,email_dn,startdate,enddate,
2508                    days,1,verbose,req,ext_sect,lconf, certopt, nameopt, default_op,
2509                         ext_copy);
2510 err:
2511         if (req != NULL) X509_REQ_free(req);
2512         if (parms != NULL) CONF_free(parms);
2513         if (spki != NULL) NETSCAPE_SPKI_free(spki);
2514         if (ne != NULL) X509_NAME_ENTRY_free(ne);
2515
2516         return(ok);
2517         }
2518
2519 static int fix_data(int nid, int *type)
2520         {
2521         if (nid == NID_pkcs9_emailAddress)
2522                 *type=V_ASN1_IA5STRING;
2523         if ((nid == NID_commonName) && (*type == V_ASN1_IA5STRING))
2524                 *type=V_ASN1_T61STRING;
2525         if ((nid == NID_pkcs9_challengePassword) && (*type == V_ASN1_IA5STRING))
2526                 *type=V_ASN1_T61STRING;
2527         if ((nid == NID_pkcs9_unstructuredName) && (*type == V_ASN1_T61STRING))
2528                 return(0);
2529         if (nid == NID_pkcs9_unstructuredName)
2530                 *type=V_ASN1_IA5STRING;
2531         return(1);
2532         }
2533
2534 static int check_time_format(char *str)
2535         {
2536         ASN1_UTCTIME tm;
2537
2538         tm.data=(unsigned char *)str;
2539         tm.length=strlen(str);
2540         tm.type=V_ASN1_UTCTIME;
2541         return(ASN1_UTCTIME_check(&tm));
2542         }
2543
2544 static int do_revoke(X509 *x509, TXT_DB *db, int type, char *value)
2545         {
2546         ASN1_UTCTIME *tm=NULL;
2547         char *row[DB_NUMBER],**rrow,**irow;
2548         char *rev_str = NULL;
2549         BIGNUM *bn = NULL;
2550         int ok=-1,i;
2551
2552         for (i=0; i<DB_NUMBER; i++)
2553                 row[i]=NULL;
2554         row[DB_name]=X509_NAME_oneline(X509_get_subject_name(x509),NULL,0);
2555         bn = ASN1_INTEGER_to_BN(X509_get_serialNumber(x509),NULL);
2556         row[DB_serial]=BN_bn2hex(bn);
2557         BN_free(bn);
2558         if ((row[DB_name] == NULL) || (row[DB_serial] == NULL))
2559                 {
2560                 BIO_printf(bio_err,"Memory allocation failure\n");
2561                 goto err;
2562                 }
2563         /* We have to lookup by serial number because name lookup
2564          * skips revoked certs
2565          */
2566         rrow=TXT_DB_get_by_index(db,DB_serial,row);
2567         if (rrow == NULL)
2568                 {
2569                 BIO_printf(bio_err,"Adding Entry to DB for %s\n", row[DB_name]);
2570
2571                 /* We now just add it to the database */
2572                 row[DB_type]=(char *)OPENSSL_malloc(2);
2573
2574                 tm=X509_get_notAfter(x509);
2575                 row[DB_exp_date]=(char *)OPENSSL_malloc(tm->length+1);
2576                 memcpy(row[DB_exp_date],tm->data,tm->length);
2577                 row[DB_exp_date][tm->length]='\0';
2578
2579                 row[DB_rev_date]=NULL;
2580
2581                 /* row[DB_serial] done already */
2582                 row[DB_file]=(char *)OPENSSL_malloc(8);
2583
2584                 /* row[DB_name] done already */
2585
2586                 if ((row[DB_type] == NULL) || (row[DB_exp_date] == NULL) ||
2587                         (row[DB_file] == NULL))
2588                         {
2589                         BIO_printf(bio_err,"Memory allocation failure\n");
2590                         goto err;
2591                         }
2592                 strcpy(row[DB_file],"unknown");
2593                 row[DB_type][0]='V';
2594                 row[DB_type][1]='\0';
2595
2596                 if ((irow=(char **)OPENSSL_malloc(sizeof(char *)*(DB_NUMBER+1))) == NULL)
2597                         {
2598                         BIO_printf(bio_err,"Memory allocation failure\n");
2599                         goto err;
2600                         }
2601
2602                 for (i=0; i<DB_NUMBER; i++)
2603                         {
2604                         irow[i]=row[i];
2605                         row[i]=NULL;
2606                         }
2607                 irow[DB_NUMBER]=NULL;
2608
2609                 if (!TXT_DB_insert(db,irow))
2610                         {
2611                         BIO_printf(bio_err,"failed to update database\n");
2612                         BIO_printf(bio_err,"TXT_DB error number %ld\n",db->error);
2613                         goto err;
2614                         }
2615
2616                 /* Revoke Certificate */
2617                 ok = do_revoke(x509,db, type, value);
2618
2619                 goto err;
2620
2621                 }
2622         else if (index_name_cmp((const char **)row,(const char **)rrow))
2623                 {
2624                 BIO_printf(bio_err,"ERROR:name does not match %s\n",
2625                            row[DB_name]);
2626                 goto err;
2627                 }
2628         else if (rrow[DB_type][0]=='R')
2629                 {
2630                 BIO_printf(bio_err,"ERROR:Already revoked, serial number %s\n",
2631                            row[DB_serial]);
2632                 goto err;
2633                 }
2634         else
2635                 {
2636                 BIO_printf(bio_err,"Revoking Certificate %s.\n", rrow[DB_serial]);
2637                 rev_str = make_revocation_str(type, value);
2638                 if (!rev_str)
2639                         {
2640                         BIO_printf(bio_err, "Error in revocation arguments\n");
2641                         goto err;
2642                         }
2643                 rrow[DB_type][0]='R';
2644                 rrow[DB_type][1]='\0';
2645                 rrow[DB_rev_date] = rev_str;
2646                 }
2647         ok=1;
2648 err:
2649         for (i=0; i<DB_NUMBER; i++)
2650                 {
2651                 if (row[i] != NULL)
2652                         OPENSSL_free(row[i]);
2653                 }
2654         return(ok);
2655         }
2656
2657 static int get_certificate_status(const char *serial, TXT_DB *db)
2658         {
2659         char *row[DB_NUMBER],**rrow;
2660         int ok=-1,i;
2661
2662         /* Free Resources */
2663         for (i=0; i<DB_NUMBER; i++)
2664                 row[i]=NULL;
2665
2666         /* Malloc needed char spaces */
2667         row[DB_serial] = OPENSSL_malloc(strlen(serial) + 2);
2668         if (row[DB_serial] == NULL)
2669                 {
2670                 BIO_printf(bio_err,"Malloc failure\n");
2671                 goto err;
2672                 }
2673
2674         if (strlen(serial) % 2)
2675                 {
2676                 /* Set the first char to 0 */;
2677                 row[DB_serial][0]='0';
2678
2679                 /* Copy String from serial to row[DB_serial] */
2680                 memcpy(row[DB_serial]+1, serial, strlen(serial));
2681                 row[DB_serial][strlen(serial)+1]='\0';
2682                 }
2683         else
2684                 {
2685                 /* Copy String from serial to row[DB_serial] */
2686                 memcpy(row[DB_serial], serial, strlen(serial));
2687                 row[DB_serial][strlen(serial)]='\0';
2688                 }
2689
2690         /* Make it Upper Case */
2691         for (i=0; row[DB_serial][i] != '\0'; i++)
2692                 row[DB_serial][i] = toupper(row[DB_serial][i]);
2693
2694
2695         ok=1;
2696
2697         /* Search for the certificate */
2698         rrow=TXT_DB_get_by_index(db,DB_serial,row);
2699         if (rrow == NULL)
2700                 {
2701                 BIO_printf(bio_err,"Serial %s not present in db.\n",
2702                                  row[DB_serial]);
2703                 ok=-1;
2704                 goto err;
2705                 }
2706         else if (rrow[DB_type][0]=='V')
2707                 {
2708                 BIO_printf(bio_err,"%s=Valid (%c)\n",
2709                         row[DB_serial], rrow[DB_type][0]);
2710                 goto err;
2711                 }
2712         else if (rrow[DB_type][0]=='R')
2713                 {
2714                 BIO_printf(bio_err,"%s=Revoked (%c)\n",
2715                         row[DB_serial], rrow[DB_type][0]);
2716                 goto err;
2717                 }
2718         else if (rrow[DB_type][0]=='E')
2719                 {
2720                 BIO_printf(bio_err,"%s=Expired (%c)\n",
2721                         row[DB_serial], rrow[DB_type][0]);
2722                 goto err;
2723                 }
2724         else if (rrow[DB_type][0]=='S')
2725                 {
2726                 BIO_printf(bio_err,"%s=Suspended (%c)\n",
2727                         row[DB_serial], rrow[DB_type][0]);
2728                 goto err;
2729                 }
2730         else
2731                 {
2732                 BIO_printf(bio_err,"%s=Unknown (%c).\n",
2733                         row[DB_serial], rrow[DB_type][0]);
2734                 ok=-1;
2735                 }
2736 err:
2737         for (i=0; i<DB_NUMBER; i++)
2738                 {
2739                 if (row[i] != NULL)
2740                         OPENSSL_free(row[i]);
2741                 }
2742         return(ok);
2743         }
2744
2745 static int do_updatedb (TXT_DB *db)
2746         {
2747         ASN1_UTCTIME    *a_tm = NULL;
2748         int i, cnt = 0;
2749         int db_y2k, a_y2k;  /* flags = 1 if y >= 2000 */
2750         char **rrow, *a_tm_s;
2751
2752         a_tm = ASN1_UTCTIME_new();
2753
2754         /* get actual time and make a string */
2755         a_tm = X509_gmtime_adj(a_tm, 0);
2756         a_tm_s = (char *) OPENSSL_malloc(a_tm->length+1);
2757         if (a_tm_s == NULL)
2758                 {
2759                 cnt = -1;
2760                 goto err;
2761                 }
2762
2763         memcpy(a_tm_s, a_tm->data, a_tm->length);
2764         a_tm_s[a_tm->length] = '\0';
2765
2766         if (strncmp(a_tm_s, "49", 2) <= 0)
2767                 a_y2k = 1;
2768         else
2769                 a_y2k = 0;
2770
2771         for (i = 0; i < sk_num(db->data); i++)
2772                 {
2773                 rrow = (char **) sk_value(db->data, i);
2774
2775                 if (rrow[DB_type][0] == 'V')
2776                         {
2777                         /* ignore entries that are not valid */
2778                         if (strncmp(rrow[DB_exp_date], "49", 2) <= 0)
2779                                 db_y2k = 1;
2780                         else
2781                                 db_y2k = 0;
2782
2783                         if (db_y2k == a_y2k)
2784                                 {
2785                                 /* all on the same y2k side */
2786                                 if (strcmp(rrow[DB_exp_date], a_tm_s) <= 0)
2787                                         {
2788                                         rrow[DB_type][0]  = 'E';
2789                                         rrow[DB_type][1]  = '\0';
2790                                         cnt++;
2791
2792                                         BIO_printf(bio_err, "%s=Expired\n",
2793                                                         rrow[DB_serial]);
2794                                         }
2795                                 }
2796                         else if (db_y2k < a_y2k)
2797                                 {
2798                                 rrow[DB_type][0]  = 'E';
2799                                 rrow[DB_type][1]  = '\0';
2800                                 cnt++;
2801
2802                                 BIO_printf(bio_err, "%s=Expired\n",
2803                                                         rrow[DB_serial]);
2804                                 }
2805
2806                         }
2807                 }
2808
2809 err:
2810
2811         ASN1_UTCTIME_free(a_tm);
2812         OPENSSL_free(a_tm_s);
2813
2814         return (cnt);
2815         }
2816
2817 static char *crl_reasons[] = {
2818         /* CRL reason strings */
2819         "unspecified",
2820         "keyCompromise",
2821         "CACompromise",
2822         "affiliationChanged",
2823         "superseded",
2824         "cessationOfOperation",
2825         "certificateHold",
2826         "removeFromCRL",
2827         /* Additional pseudo reasons */
2828         "holdInstruction",
2829         "keyTime",
2830         "CAkeyTime"
2831 };
2832
2833 #define NUM_REASONS (sizeof(crl_reasons) / sizeof(char *))
2834
2835 /* Given revocation information convert to a DB string.
2836  * The format of the string is:
2837  * revtime[,reason,extra]. Where 'revtime' is the
2838  * revocation time (the current time). 'reason' is the
2839  * optional CRL reason and 'extra' is any additional
2840  * argument
2841  */
2842
2843 char *make_revocation_str(int rev_type, char *rev_arg)
2844         {
2845         char *reason = NULL, *other = NULL, *str;
2846         ASN1_OBJECT *otmp;
2847         ASN1_UTCTIME *revtm = NULL;
2848         int i;
2849         switch (rev_type)
2850                 {
2851         case REV_NONE:
2852                 break;
2853
2854         case REV_CRL_REASON:
2855                 for (i = 0; i < 8; i++)
2856                         {
2857                         if (!strcasecmp(rev_arg, crl_reasons[i]))
2858                                 {
2859                                 reason = crl_reasons[i];
2860                                 break;
2861                                 }
2862                         }
2863                 if (reason == NULL)
2864                         {
2865                         BIO_printf(bio_err, "Unknown CRL reason %s\n", rev_arg);
2866                         return NULL;
2867                         }
2868                 break;
2869
2870         case REV_HOLD:
2871                 /* Argument is an OID */
2872
2873                 otmp = OBJ_txt2obj(rev_arg, 0);
2874                 ASN1_OBJECT_free(otmp);
2875
2876                 if (otmp == NULL)
2877                         {
2878                         BIO_printf(bio_err, "Invalid object identifier %s\n", rev_arg);
2879                         return NULL;
2880                         }
2881
2882                 reason = "holdInstruction";
2883                 other = rev_arg;
2884                 break;
2885
2886         case REV_KEY_COMPROMISE:
2887         case REV_CA_COMPROMISE:
2888
2889                 /* Argument is the key compromise time  */
2890                 if (!ASN1_GENERALIZEDTIME_set_string(NULL, rev_arg))
2891                         {
2892                         BIO_printf(bio_err, "Invalid time format %s. Need YYYYMMDDHHMMSSZ\n", rev_arg);
2893                         return NULL;
2894                         }
2895                 other = rev_arg;
2896                 if (rev_type == REV_KEY_COMPROMISE)
2897                         reason = "keyTime";
2898                 else
2899                         reason = "CAkeyTime";
2900
2901                 break;
2902
2903                 }
2904
2905         revtm = X509_gmtime_adj(NULL, 0);
2906
2907         i = revtm->length + 1;
2908
2909         if (reason) i += strlen(reason) + 1;
2910         if (other) i += strlen(other) + 1;
2911
2912         str = OPENSSL_malloc(i);
2913
2914         if (!str) return NULL;
2915
2916         strcpy(str, (char *)revtm->data);
2917         if (reason)
2918                 {
2919                 strcat(str, ",");
2920                 strcat(str, reason);
2921                 }
2922         if (other)
2923                 {
2924                 strcat(str, ",");
2925                 strcat(str, other);
2926                 }
2927         ASN1_UTCTIME_free(revtm);
2928         return str;
2929         }
2930
2931 /* Convert revocation field to X509_REVOKED entry
2932  * return code:
2933  * 0 error
2934  * 1 OK
2935  * 2 OK and some extensions added (i.e. V2 CRL)
2936  */
2937
2938
2939 int make_revoked(X509_REVOKED *rev, char *str)
2940         {
2941         char *tmp = NULL;
2942         int reason_code = -1;
2943         int i, ret = 0;
2944         ASN1_OBJECT *hold = NULL;
2945         ASN1_GENERALIZEDTIME *comp_time = NULL;
2946         ASN1_ENUMERATED *rtmp = NULL;
2947
2948         ASN1_TIME *revDate = NULL;
2949
2950         i = unpack_revinfo(&revDate, &reason_code, &hold, &comp_time, str);
2951
2952         if (i == 0)
2953                 goto err;
2954
2955         if (rev && !X509_REVOKED_set_revocationDate(rev, revDate))
2956                 goto err;
2957
2958         if (rev && (reason_code != OCSP_REVOKED_STATUS_NOSTATUS))
2959                 {
2960                 rtmp = ASN1_ENUMERATED_new();
2961                 if (!rtmp || !ASN1_ENUMERATED_set(rtmp, reason_code))
2962                         goto err;
2963                 if (!X509_REVOKED_add1_ext_i2d(rev, NID_crl_reason, rtmp, 0, 0))
2964                         goto err;
2965                 }
2966
2967         if (rev && comp_time)
2968                 {
2969                 if (!X509_REVOKED_add1_ext_i2d(rev, NID_invalidity_date, comp_time, 0, 0))
2970                         goto err;
2971                 }
2972         if (rev && hold)
2973                 {
2974                 if (!X509_REVOKED_add1_ext_i2d(rev, NID_hold_instruction_code, hold, 0, 0))
2975                         goto err;
2976                 }
2977
2978         if (reason_code != OCSP_REVOKED_STATUS_NOSTATUS)
2979                 ret = 2;
2980         else ret = 1;
2981
2982         err:
2983
2984         if (tmp) OPENSSL_free(tmp);
2985         ASN1_OBJECT_free(hold);
2986         ASN1_GENERALIZEDTIME_free(comp_time);
2987         ASN1_ENUMERATED_free(rtmp);
2988         ASN1_TIME_free(revDate);
2989
2990         return ret;
2991         }
2992
2993 static X509_NAME *do_subject(char *subject, int email_dn)
2994         {
2995         X509_NAME *n = NULL;
2996
2997         int i, nid, ne_num=0;
2998
2999         char *ne_name = NULL;
3000         char *ne_value = NULL;
3001
3002         char *tmp = NULL;
3003         char *p[2];
3004
3005         char *str_list[256];
3006
3007         p[0] = ",/";
3008         p[1] = "=";
3009
3010         n = X509_NAME_new();
3011
3012         tmp = strtok(subject, p[0]);
3013         while((tmp != NULL) && (ne_num < (sizeof str_list/sizeof *str_list)))
3014                 {
3015                 char *token = tmp;
3016
3017                 while (token[0] == ' ')
3018                         token++;
3019                 str_list[ne_num] = token;
3020
3021                 tmp = strtok(NULL, p[0]);
3022                 ne_num++;
3023                 }
3024
3025         for (i = 0; i < ne_num; i++)
3026                 {
3027                 ne_name  = strtok(str_list[i], p[1]);
3028                 ne_value = strtok(NULL, p[1]);
3029
3030                 if ((nid=OBJ_txt2nid(ne_name)) == NID_undef)
3031                         {
3032                         BIO_printf(bio_err, "Subject Attribute %s has no known NID, skipped\n", ne_name);
3033                         continue;
3034                         }
3035
3036                 if (ne_value == NULL)
3037                         {
3038                         BIO_printf(bio_err, "No value provided for Subject Attribute %s, skipped\n", ne_name);
3039                         continue;
3040                         }
3041
3042                 if ((nid == NID_pkcs9_emailAddress) && (email_dn == 0))
3043                         continue;
3044
3045                 if (!X509_NAME_add_entry_by_NID(n, nid, MBSTRING_ASC, (unsigned char*)ne_value, -1,-1,0))
3046                         {
3047                         X509_NAME_free(n);
3048                         return NULL;
3049                         }
3050                 }
3051
3052         return n;
3053         }
3054
3055
3056 int old_entry_print(BIO *bp, ASN1_OBJECT *obj, ASN1_STRING *str)
3057         {
3058         char buf[25],*pbuf, *p;
3059         int j;
3060         j=i2a_ASN1_OBJECT(bp,obj);
3061         pbuf=buf;
3062         for (j=22-j; j>0; j--)
3063                 *(pbuf++)=' ';
3064         *(pbuf++)=':';
3065         *(pbuf++)='\0';
3066         BIO_puts(bp,buf);
3067
3068         if (str->type == V_ASN1_PRINTABLESTRING)
3069                 BIO_printf(bp,"PRINTABLE:'");
3070         else if (str->type == V_ASN1_T61STRING)
3071                 BIO_printf(bp,"T61STRING:'");
3072         else if (str->type == V_ASN1_IA5STRING)
3073                 BIO_printf(bp,"IA5STRING:'");
3074         else if (str->type == V_ASN1_UNIVERSALSTRING)
3075                 BIO_printf(bp,"UNIVERSALSTRING:'");
3076         else
3077                 BIO_printf(bp,"ASN.1 %2d:'",str->type);
3078
3079         p=(char *)str->data;
3080         for (j=str->length; j>0; j--)
3081                 {
3082                 if ((*p >= ' ') && (*p <= '~'))
3083                         BIO_printf(bp,"%c",*p);
3084                 else if (*p & 0x80)
3085                         BIO_printf(bp,"\\0x%02X",*p);
3086                 else if ((unsigned char)*p == 0xf7)
3087                         BIO_printf(bp,"^?");
3088                 else    BIO_printf(bp,"^%c",*p+'@');
3089                 p++;
3090                 }
3091         BIO_printf(bp,"'\n");
3092         return 1;
3093         }
3094
3095 int unpack_revinfo(ASN1_TIME **prevtm, int *preason, ASN1_OBJECT **phold, ASN1_GENERALIZEDTIME **pinvtm, char *str)
3096         {
3097         char *tmp = NULL;
3098         char *rtime_str, *reason_str = NULL, *arg_str = NULL, *p;
3099         int reason_code = -1;
3100         int i, ret = 0;
3101         ASN1_OBJECT *hold = NULL;
3102         ASN1_GENERALIZEDTIME *comp_time = NULL;
3103         tmp = BUF_strdup(str);
3104
3105         p = strchr(tmp, ',');
3106
3107         rtime_str = tmp;
3108
3109         if (p)
3110                 {
3111                 *p = '\0';
3112                 p++;
3113                 reason_str = p;
3114                 p = strchr(p, ',');
3115                 if (p)
3116                         {
3117                         *p = '\0';
3118                         arg_str = p + 1;
3119                         }
3120                 }
3121
3122         if (prevtm)
3123                 {
3124                 *prevtm = ASN1_UTCTIME_new();
3125                 if (!ASN1_UTCTIME_set_string(*prevtm, rtime_str))
3126                         {
3127                         BIO_printf(bio_err, "invalid revocation date %s\n", rtime_str);
3128                         goto err;
3129                         }
3130                 }
3131         if (reason_str)
3132                 {
3133                 for (i = 0; i < NUM_REASONS; i++)
3134                         {
3135                         if(!strcasecmp(reason_str, crl_reasons[i]))
3136                                 {
3137                                 reason_code = i;
3138                                 break;
3139                                 }
3140                         }
3141                 if (reason_code == OCSP_REVOKED_STATUS_NOSTATUS)
3142                         {
3143                         BIO_printf(bio_err, "invalid reason code %s\n", reason_str);
3144                         goto err;
3145                         }
3146
3147                 if (reason_code == 7)
3148                         reason_code = OCSP_REVOKED_STATUS_REMOVEFROMCRL;
3149                 else if (reason_code == 8)              /* Hold instruction */
3150                         {
3151                         if (!arg_str)
3152                                 {
3153                                 BIO_printf(bio_err, "missing hold instruction\n");
3154                                 goto err;
3155                                 }
3156                         reason_code = OCSP_REVOKED_STATUS_CERTIFICATEHOLD;
3157                         hold = OBJ_txt2obj(arg_str, 0);
3158
3159                         if (!hold)
3160                                 {
3161                                 BIO_printf(bio_err, "invalid object identifier %s\n", arg_str);
3162                                 goto err;
3163                                 }
3164                         if (phold) *phold = hold;
3165                         }
3166                 else if ((reason_code == 9) || (reason_code == 10))
3167                         {
3168                         if (!arg_str)
3169                                 {
3170                                 BIO_printf(bio_err, "missing compromised time\n");
3171                                 goto err;
3172                                 }
3173                         comp_time = ASN1_GENERALIZEDTIME_new();
3174                         if (!ASN1_GENERALIZEDTIME_set_string(comp_time, arg_str))
3175                                 {
3176                                 BIO_printf(bio_err, "invalid compromised time %s\n", arg_str);
3177                                 goto err;
3178                                 }
3179                         if (reason_code == 9)
3180                                 reason_code = OCSP_REVOKED_STATUS_KEYCOMPROMISE;
3181                         else
3182                                 reason_code = OCSP_REVOKED_STATUS_CACOMPROMISE;
3183                         }
3184                 }
3185
3186         if (preason) *preason = reason_code;
3187         if (pinvtm) *pinvtm = comp_time;
3188         else ASN1_GENERALIZEDTIME_free(comp_time);
3189
3190         ret = 1;
3191
3192         err:
3193
3194         if (tmp) OPENSSL_free(tmp);
3195         if (!phold) ASN1_OBJECT_free(hold);
3196         if (!pinvtm) ASN1_GENERALIZEDTIME_free(comp_time);
3197
3198         return ret;
3199         }
3200
3201 int make_serial_index(TXT_DB *db)
3202         {
3203         if (!TXT_DB_create_index(db, DB_serial, NULL,
3204                                 LHASH_HASH_FN(index_serial_hash),
3205                                 LHASH_COMP_FN(index_serial_cmp)))
3206                 {
3207                 BIO_printf(bio_err,
3208                   "error creating serial number index:(%ld,%ld,%ld)\n",
3209                                         db->error,db->arg1,db->arg2);
3210                         return 0;
3211                 }
3212         return 1;
3213         }