e96d086b45974fc88a19dd5d5b15864f208da4af
[openssl.git] / 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                 {
2051                 if ((dn_subject=X509_NAME_new()) == NULL)
2052                         {
2053                         BIO_printf(bio_err,"Memory allocation failure\n");
2054                         goto err;
2055                         }
2056
2057                 for (i=0; i<X509_NAME_entry_count(subject); i++)
2058                         {
2059                         ne= X509_NAME_get_entry(subject,i);
2060                         obj=X509_NAME_ENTRY_get_object(ne);
2061                         nid=OBJ_obj2nid(obj);
2062
2063                         str=X509_NAME_ENTRY_get_data(ne);
2064
2065                         if (nid == NID_pkcs9_emailAddress) continue;
2066
2067                         if (!X509_NAME_add_entry(dn_subject,ne, -1, 0))
2068                                 {
2069                                 BIO_printf(bio_err,"Memory allocation failure\n");
2070                                 goto err;
2071                                 }
2072                         }
2073                 }
2074
2075         row[DB_name]=X509_NAME_oneline(dn_subject,NULL,0);
2076         row[DB_serial]=BN_bn2hex(serial);
2077         if ((row[DB_name] == NULL) || (row[DB_serial] == NULL))
2078                 {
2079                 BIO_printf(bio_err,"Memory allocation failure\n");
2080                 goto err;
2081                 }
2082
2083         rrow=TXT_DB_get_by_index(db,DB_name,row);
2084         if (rrow != NULL)
2085                 {
2086                 BIO_printf(bio_err,"ERROR:There is already a certificate for %s\n",
2087                         row[DB_name]);
2088                 }
2089         else
2090                 {
2091                 rrow=TXT_DB_get_by_index(db,DB_serial,row);
2092                 if (rrow != NULL)
2093                         {
2094                         BIO_printf(bio_err,"ERROR:Serial number %s has already been issued,\n",
2095                                 row[DB_serial]);
2096                         BIO_printf(bio_err,"      check the database/serial_file for corruption\n");
2097                         }
2098                 }
2099
2100         if (rrow != NULL)
2101                 {
2102                 BIO_printf(bio_err,
2103                         "The matching entry has the following details\n");
2104                 if (rrow[DB_type][0] == 'E')
2105                         p="Expired";
2106                 else if (rrow[DB_type][0] == 'R')
2107                         p="Revoked";
2108                 else if (rrow[DB_type][0] == 'V')
2109                         p="Valid";
2110                 else
2111                         p="\ninvalid type, Data base error\n";
2112                 BIO_printf(bio_err,"Type          :%s\n",p);;
2113                 if (rrow[DB_type][0] == 'R')
2114                         {
2115                         p=rrow[DB_exp_date]; if (p == NULL) p="undef";
2116                         BIO_printf(bio_err,"Was revoked on:%s\n",p);
2117                         }
2118                 p=rrow[DB_exp_date]; if (p == NULL) p="undef";
2119                 BIO_printf(bio_err,"Expires on    :%s\n",p);
2120                 p=rrow[DB_serial]; if (p == NULL) p="undef";
2121                 BIO_printf(bio_err,"Serial Number :%s\n",p);
2122                 p=rrow[DB_file]; if (p == NULL) p="undef";
2123                 BIO_printf(bio_err,"File name     :%s\n",p);
2124                 p=rrow[DB_name]; if (p == NULL) p="undef";
2125                 BIO_printf(bio_err,"Subject Name  :%s\n",p);
2126                 ok= -1; /* This is now a 'bad' error. */
2127                 goto err;
2128                 }
2129
2130         /* We are now totally happy, lets make and sign the certificate */
2131         if (verbose)
2132                 BIO_printf(bio_err,"Everything appears to be ok, creating and signing the certificate\n");
2133
2134         if ((ret=X509_new()) == NULL) goto err;
2135         ci=ret->cert_info;
2136
2137 #ifdef X509_V3
2138         /* Make it an X509 v3 certificate. */
2139         if (!X509_set_version(x509,2)) goto err;
2140 #endif
2141
2142         if (BN_to_ASN1_INTEGER(serial,ci->serialNumber) == NULL)
2143                 goto err;
2144         if (!X509_set_issuer_name(ret,X509_get_subject_name(x509)))
2145                 goto err;
2146
2147         if (strcmp(startdate,"today") == 0)
2148                 X509_gmtime_adj(X509_get_notBefore(ret),0);
2149         else ASN1_UTCTIME_set_string(X509_get_notBefore(ret),startdate);
2150
2151         if (enddate == NULL)
2152                 X509_gmtime_adj(X509_get_notAfter(ret),(long)60*60*24*days);
2153         else ASN1_UTCTIME_set_string(X509_get_notAfter(ret),enddate);
2154
2155         if (!X509_set_subject_name(ret,subject)) goto err;
2156
2157         pktmp=X509_REQ_get_pubkey(req);
2158         i = X509_set_pubkey(ret,pktmp);
2159         EVP_PKEY_free(pktmp);
2160         if (!i) goto err;
2161
2162         /* Lets add the extensions, if there are any */
2163         if (ext_sect)
2164                 {
2165                 X509V3_CTX ctx;
2166                 if (ci->version == NULL)
2167                         if ((ci->version=ASN1_INTEGER_new()) == NULL)
2168                                 goto err;
2169                 ASN1_INTEGER_set(ci->version,2); /* version 3 certificate */
2170
2171                 /* Free the current entries if any, there should not
2172                  * be any I believe */
2173                 if (ci->extensions != NULL)
2174                         sk_X509_EXTENSION_pop_free(ci->extensions,
2175                                                    X509_EXTENSION_free);
2176
2177                 ci->extensions = NULL;
2178
2179                 /* Initialize the context structure */
2180                 X509V3_set_ctx(&ctx, x509, ret, req, NULL, 0);
2181
2182                 if (extconf)
2183                         {
2184                         if (verbose)
2185                                 BIO_printf(bio_err, "Extra configuration file found\n");
2186  
2187                         /* Use the extconf configuration db LHASH */
2188                         X509V3_set_nconf(&ctx, extconf);
2189  
2190                         /* Test the structure (needed?) */
2191                         /* X509V3_set_ctx_test(&ctx); */
2192
2193                         /* Adds exts contained in the configuration file */
2194                         if (!X509V3_EXT_add_nconf(extconf, &ctx, ext_sect,ret))
2195                                 {
2196                                 BIO_printf(bio_err,
2197                                     "ERROR: adding extensions in section %s\n",
2198                                                                 ext_sect);
2199                                 ERR_print_errors(bio_err);
2200                                 goto err;
2201                                 }
2202                         if (verbose)
2203                                 BIO_printf(bio_err, "Successfully added extensions from file.\n");
2204                         }
2205                 else if (ext_sect)
2206                         {
2207                         /* We found extensions to be set from config file */
2208                         X509V3_set_nconf(&ctx, lconf);
2209
2210                         if(!X509V3_EXT_add_nconf(lconf, &ctx, ext_sect, ret))
2211                                 {
2212                                 BIO_printf(bio_err, "ERROR: adding extensions in section %s\n", ext_sect);
2213                                 ERR_print_errors(bio_err);
2214                                 goto err;
2215                                 }
2216
2217                         if (verbose) 
2218                                 BIO_printf(bio_err, "Successfully added extensions from config\n");
2219                         }
2220                 }
2221
2222         /* Copy extensions from request (if any) */
2223
2224         if (!copy_extensions(ret, req, ext_copy))
2225                 {
2226                 BIO_printf(bio_err, "ERROR: adding extensions from request\n");
2227                 ERR_print_errors(bio_err);
2228                 goto err;
2229                 }
2230
2231         /* Set the right value for the noemailDN option */
2232         if( email_dn == 0 )
2233                 {
2234                 if (!X509_set_subject_name(ret,dn_subject)) goto err;
2235                 }
2236
2237         if (!default_op)
2238                 {
2239                 BIO_printf(bio_err, "Certificate Details:\n");
2240                 /* Never print signature details because signature not present */
2241                 certopt |= X509_FLAG_NO_SIGDUMP | X509_FLAG_NO_SIGNAME;
2242                 X509_print_ex(bio_err, ret, nameopt, certopt); 
2243                 }
2244
2245         BIO_printf(bio_err,"Certificate is to be certified until ");
2246         ASN1_UTCTIME_print(bio_err,X509_get_notAfter(ret));
2247         if (days) BIO_printf(bio_err," (%d days)",days);
2248         BIO_printf(bio_err, "\n");
2249
2250         if (!batch)
2251                 {
2252
2253                 BIO_printf(bio_err,"Sign the certificate? [y/n]:");
2254                 (void)BIO_flush(bio_err);
2255                 buf[0]='\0';
2256                 fgets(buf,sizeof(buf)-1,stdin);
2257                 if (!((buf[0] == 'y') || (buf[0] == 'Y')))
2258                         {
2259                         BIO_printf(bio_err,"CERTIFICATE WILL NOT BE CERTIFIED\n");
2260                         ok=0;
2261                         goto err;
2262                         }
2263                 }
2264
2265
2266 #ifndef OPENSSL_NO_DSA
2267         if (pkey->type == EVP_PKEY_DSA) dgst=EVP_dss1();
2268         pktmp=X509_get_pubkey(ret);
2269         if (EVP_PKEY_missing_parameters(pktmp) &&
2270                 !EVP_PKEY_missing_parameters(pkey))
2271                 EVP_PKEY_copy_parameters(pktmp,pkey);
2272         EVP_PKEY_free(pktmp);
2273 #endif
2274
2275         if (!X509_sign(ret,pkey,dgst))
2276                 goto err;
2277
2278         /* We now just add it to the database */
2279         row[DB_type]=(char *)OPENSSL_malloc(2);
2280
2281         tm=X509_get_notAfter(ret);
2282         row[DB_exp_date]=(char *)OPENSSL_malloc(tm->length+1);
2283         memcpy(row[DB_exp_date],tm->data,tm->length);
2284         row[DB_exp_date][tm->length]='\0';
2285
2286         row[DB_rev_date]=NULL;
2287
2288         /* row[DB_serial] done already */
2289         row[DB_file]=(char *)OPENSSL_malloc(8);
2290         /* row[DB_name] done already */
2291
2292         if ((row[DB_type] == NULL) || (row[DB_exp_date] == NULL) ||
2293                 (row[DB_file] == NULL))
2294                 {
2295                 BIO_printf(bio_err,"Memory allocation failure\n");
2296                 goto err;
2297                 }
2298         strcpy(row[DB_file],"unknown");
2299         row[DB_type][0]='V';
2300         row[DB_type][1]='\0';
2301
2302         if ((irow=(char **)OPENSSL_malloc(sizeof(char *)*(DB_NUMBER+1))) == NULL)
2303                 {
2304                 BIO_printf(bio_err,"Memory allocation failure\n");
2305                 goto err;
2306                 }
2307
2308         for (i=0; i<DB_NUMBER; i++)
2309                 {
2310                 irow[i]=row[i];
2311                 row[i]=NULL;
2312                 }
2313         irow[DB_NUMBER]=NULL;
2314
2315         if (!TXT_DB_insert(db,irow))
2316                 {
2317                 BIO_printf(bio_err,"failed to update database\n");
2318                 BIO_printf(bio_err,"TXT_DB error number %ld\n",db->error);
2319                 goto err;
2320                 }
2321         ok=1;
2322 err:
2323         for (i=0; i<DB_NUMBER; i++)
2324                 if (row[i] != NULL) OPENSSL_free(row[i]);
2325
2326         if (CAname != NULL)
2327                 X509_NAME_free(CAname);
2328         if (subject != NULL)
2329                 X509_NAME_free(subject);
2330         if (tmptm != NULL)
2331                 ASN1_UTCTIME_free(tmptm);
2332         if (ok <= 0)
2333                 {
2334                 if (ret != NULL) X509_free(ret);
2335                 ret=NULL;
2336                 }
2337         else
2338                 *xret=ret;
2339         return(ok);
2340         }
2341
2342 static void write_new_certificate(BIO *bp, X509 *x, int output_der, int notext)
2343         {
2344
2345         if (output_der)
2346                 {
2347                 (void)i2d_X509_bio(bp,x);
2348                 return;
2349                 }
2350 #if 0
2351         /* ??? Not needed since X509_print prints all this stuff anyway */
2352         f=X509_NAME_oneline(X509_get_issuer_name(x),buf,256);
2353         BIO_printf(bp,"issuer :%s\n",f);
2354
2355         f=X509_NAME_oneline(X509_get_subject_name(x),buf,256);
2356         BIO_printf(bp,"subject:%s\n",f);
2357
2358         BIO_puts(bp,"serial :");
2359         i2a_ASN1_INTEGER(bp,x->cert_info->serialNumber);
2360         BIO_puts(bp,"\n\n");
2361 #endif
2362         if (!notext)X509_print(bp,x);
2363         PEM_write_bio_X509(bp,x);
2364         }
2365
2366 static int certify_spkac(X509 **xret, char *infile, EVP_PKEY *pkey, X509 *x509,
2367              const EVP_MD *dgst, STACK_OF(CONF_VALUE) *policy, TXT_DB *db,
2368              BIGNUM *serial, char *subj, int email_dn, char *startdate, char *enddate,
2369              long days, char *ext_sect, CONF *lconf, int verbose, unsigned long certopt,
2370              unsigned long nameopt, int default_op, int ext_copy)
2371         {
2372         STACK_OF(CONF_VALUE) *sk=NULL;
2373         LHASH *parms=NULL;
2374         X509_REQ *req=NULL;
2375         CONF_VALUE *cv=NULL;
2376         NETSCAPE_SPKI *spki = NULL;
2377         X509_REQ_INFO *ri;
2378         char *type,*buf;
2379         EVP_PKEY *pktmp=NULL;
2380         X509_NAME *n=NULL;
2381         X509_NAME_ENTRY *ne=NULL;
2382         int ok= -1,i,j;
2383         long errline;
2384         int nid;
2385
2386         /*
2387          * Load input file into a hash table.  (This is just an easy
2388          * way to read and parse the file, then put it into a convenient
2389          * STACK format).
2390          */
2391         parms=CONF_load(NULL,infile,&errline);
2392         if (parms == NULL)
2393                 {
2394                 BIO_printf(bio_err,"error on line %ld of %s\n",errline,infile);
2395                 ERR_print_errors(bio_err);
2396                 goto err;
2397                 }
2398
2399         sk=CONF_get_section(parms, "default");
2400         if (sk_CONF_VALUE_num(sk) == 0)
2401                 {
2402                 BIO_printf(bio_err, "no name/value pairs found in %s\n", infile);
2403                 CONF_free(parms);
2404                 goto err;
2405                 }
2406
2407         /*
2408          * Now create a dummy X509 request structure.  We don't actually
2409          * have an X509 request, but we have many of the components
2410          * (a public key, various DN components).  The idea is that we
2411          * put these components into the right X509 request structure
2412          * and we can use the same code as if you had a real X509 request.
2413          */
2414         req=X509_REQ_new();
2415         if (req == NULL)
2416                 {
2417                 ERR_print_errors(bio_err);
2418                 goto err;
2419                 }
2420
2421         /*
2422          * Build up the subject name set.
2423          */
2424         ri=req->req_info;
2425         n = ri->subject;
2426
2427         for (i = 0; ; i++)
2428                 {
2429                 if (sk_CONF_VALUE_num(sk) <= i) break;
2430
2431                 cv=sk_CONF_VALUE_value(sk,i);
2432                 type=cv->name;
2433                 /* Skip past any leading X. X: X, etc to allow for
2434                  * multiple instances
2435                  */
2436                 for (buf = cv->name; *buf ; buf++)
2437                         if ((*buf == ':') || (*buf == ',') || (*buf == '.'))
2438                                 {
2439                                 buf++;
2440                                 if (*buf) type = buf;
2441                                 break;
2442                                 }
2443
2444                 buf=cv->value;
2445                 if ((nid=OBJ_txt2nid(type)) == NID_undef)
2446                         {
2447                         if (strcmp(type, "SPKAC") == 0)
2448                                 {
2449                                 spki = NETSCAPE_SPKI_b64_decode(cv->value, -1);
2450                                 if (spki == NULL)
2451                                         {
2452                                         BIO_printf(bio_err,"unable to load Netscape SPKAC structure\n");
2453                                         ERR_print_errors(bio_err);
2454                                         goto err;
2455                                         }
2456                                 }
2457                         continue;
2458                         }
2459
2460                 /*
2461                 if ((nid == NID_pkcs9_emailAddress) && (email_dn == 0))
2462                         continue;
2463                 */
2464                 
2465                 j=ASN1_PRINTABLE_type((unsigned char *)buf,-1);
2466                 if (fix_data(nid, &j) == 0)
2467                         {
2468                         BIO_printf(bio_err,
2469                                 "invalid characters in string %s\n",buf);
2470                         goto err;
2471                         }
2472
2473                 if ((ne=X509_NAME_ENTRY_create_by_NID(&ne,nid,j,
2474                         (unsigned char *)buf,
2475                         strlen(buf))) == NULL)
2476                         goto err;
2477
2478                 if (!X509_NAME_add_entry(n,ne,-1, 0)) goto err;
2479                 }
2480         if (spki == NULL)
2481                 {
2482                 BIO_printf(bio_err,"Netscape SPKAC structure not found in %s\n",
2483                         infile);
2484                 goto err;
2485                 }
2486
2487         /*
2488          * Now extract the key from the SPKI structure.
2489          */
2490
2491         BIO_printf(bio_err,"Check that the SPKAC request matches the signature\n");
2492
2493         if ((pktmp=NETSCAPE_SPKI_get_pubkey(spki)) == NULL)
2494                 {
2495                 BIO_printf(bio_err,"error unpacking SPKAC public key\n");
2496                 goto err;
2497                 }
2498
2499         j = NETSCAPE_SPKI_verify(spki, pktmp);
2500         if (j <= 0)
2501                 {
2502                 BIO_printf(bio_err,"signature verification failed on SPKAC public key\n");
2503                 goto err;
2504                 }
2505         BIO_printf(bio_err,"Signature ok\n");
2506
2507         X509_REQ_set_pubkey(req,pktmp);
2508         EVP_PKEY_free(pktmp);
2509         ok=do_body(xret,pkey,x509,dgst,policy,db,serial,subj,email_dn,startdate,enddate,
2510                    days,1,verbose,req,ext_sect,lconf, certopt, nameopt, default_op,
2511                         ext_copy);
2512 err:
2513         if (req != NULL) X509_REQ_free(req);
2514         if (parms != NULL) CONF_free(parms);
2515         if (spki != NULL) NETSCAPE_SPKI_free(spki);
2516         if (ne != NULL) X509_NAME_ENTRY_free(ne);
2517
2518         return(ok);
2519         }
2520
2521 static int fix_data(int nid, int *type)
2522         {
2523         if (nid == NID_pkcs9_emailAddress)
2524                 *type=V_ASN1_IA5STRING;
2525         if ((nid == NID_commonName) && (*type == V_ASN1_IA5STRING))
2526                 *type=V_ASN1_T61STRING;
2527         if ((nid == NID_pkcs9_challengePassword) && (*type == V_ASN1_IA5STRING))
2528                 *type=V_ASN1_T61STRING;
2529         if ((nid == NID_pkcs9_unstructuredName) && (*type == V_ASN1_T61STRING))
2530                 return(0);
2531         if (nid == NID_pkcs9_unstructuredName)
2532                 *type=V_ASN1_IA5STRING;
2533         return(1);
2534         }
2535
2536 static int check_time_format(char *str)
2537         {
2538         ASN1_UTCTIME tm;
2539
2540         tm.data=(unsigned char *)str;
2541         tm.length=strlen(str);
2542         tm.type=V_ASN1_UTCTIME;
2543         return(ASN1_UTCTIME_check(&tm));
2544         }
2545
2546 static int do_revoke(X509 *x509, TXT_DB *db, int type, char *value)
2547         {
2548         ASN1_UTCTIME *tm=NULL;
2549         char *row[DB_NUMBER],**rrow,**irow;
2550         char *rev_str = NULL;
2551         BIGNUM *bn = NULL;
2552         int ok=-1,i;
2553
2554         for (i=0; i<DB_NUMBER; i++)
2555                 row[i]=NULL;
2556         row[DB_name]=X509_NAME_oneline(X509_get_subject_name(x509),NULL,0);
2557         bn = ASN1_INTEGER_to_BN(X509_get_serialNumber(x509),NULL);
2558         row[DB_serial]=BN_bn2hex(bn);
2559         BN_free(bn);
2560         if ((row[DB_name] == NULL) || (row[DB_serial] == NULL))
2561                 {
2562                 BIO_printf(bio_err,"Memory allocation failure\n");
2563                 goto err;
2564                 }
2565         /* We have to lookup by serial number because name lookup
2566          * skips revoked certs
2567          */
2568         rrow=TXT_DB_get_by_index(db,DB_serial,row);
2569         if (rrow == NULL)
2570                 {
2571                 BIO_printf(bio_err,"Adding Entry to DB for %s\n", row[DB_name]);
2572
2573                 /* We now just add it to the database */
2574                 row[DB_type]=(char *)OPENSSL_malloc(2);
2575
2576                 tm=X509_get_notAfter(x509);
2577                 row[DB_exp_date]=(char *)OPENSSL_malloc(tm->length+1);
2578                 memcpy(row[DB_exp_date],tm->data,tm->length);
2579                 row[DB_exp_date][tm->length]='\0';
2580
2581                 row[DB_rev_date]=NULL;
2582
2583                 /* row[DB_serial] done already */
2584                 row[DB_file]=(char *)OPENSSL_malloc(8);
2585
2586                 /* row[DB_name] done already */
2587
2588                 if ((row[DB_type] == NULL) || (row[DB_exp_date] == NULL) ||
2589                         (row[DB_file] == NULL))
2590                         {
2591                         BIO_printf(bio_err,"Memory allocation failure\n");
2592                         goto err;
2593                         }
2594                 strcpy(row[DB_file],"unknown");
2595                 row[DB_type][0]='V';
2596                 row[DB_type][1]='\0';
2597
2598                 if ((irow=(char **)OPENSSL_malloc(sizeof(char *)*(DB_NUMBER+1))) == NULL)
2599                         {
2600                         BIO_printf(bio_err,"Memory allocation failure\n");
2601                         goto err;
2602                         }
2603
2604                 for (i=0; i<DB_NUMBER; i++)
2605                         {
2606                         irow[i]=row[i];
2607                         row[i]=NULL;
2608                         }
2609                 irow[DB_NUMBER]=NULL;
2610
2611                 if (!TXT_DB_insert(db,irow))
2612                         {
2613                         BIO_printf(bio_err,"failed to update database\n");
2614                         BIO_printf(bio_err,"TXT_DB error number %ld\n",db->error);
2615                         goto err;
2616                         }
2617
2618                 /* Revoke Certificate */
2619                 ok = do_revoke(x509,db, type, value);
2620
2621                 goto err;
2622
2623                 }
2624         else if (index_name_cmp((const char **)row,(const char **)rrow))
2625                 {
2626                 BIO_printf(bio_err,"ERROR:name does not match %s\n",
2627                            row[DB_name]);
2628                 goto err;
2629                 }
2630         else if (rrow[DB_type][0]=='R')
2631                 {
2632                 BIO_printf(bio_err,"ERROR:Already revoked, serial number %s\n",
2633                            row[DB_serial]);
2634                 goto err;
2635                 }
2636         else
2637                 {
2638                 BIO_printf(bio_err,"Revoking Certificate %s.\n", rrow[DB_serial]);
2639                 rev_str = make_revocation_str(type, value);
2640                 if (!rev_str)
2641                         {
2642                         BIO_printf(bio_err, "Error in revocation arguments\n");
2643                         goto err;
2644                         }
2645                 rrow[DB_type][0]='R';
2646                 rrow[DB_type][1]='\0';
2647                 rrow[DB_rev_date] = rev_str;
2648                 }
2649         ok=1;
2650 err:
2651         for (i=0; i<DB_NUMBER; i++)
2652                 {
2653                 if (row[i] != NULL) 
2654                         OPENSSL_free(row[i]);
2655                 }
2656         return(ok);
2657         }
2658
2659 static int get_certificate_status(const char *serial, TXT_DB *db)
2660         {
2661         char *row[DB_NUMBER],**rrow;
2662         int ok=-1,i;
2663
2664         /* Free Resources */
2665         for (i=0; i<DB_NUMBER; i++)
2666                 row[i]=NULL;
2667
2668         /* Malloc needed char spaces */
2669         row[DB_serial] = OPENSSL_malloc(strlen(serial) + 2);
2670         if (row[DB_serial] == NULL)
2671                 {
2672                 BIO_printf(bio_err,"Malloc failure\n");
2673                 goto err;
2674                 }
2675
2676         if (strlen(serial) % 2)
2677                 {
2678                 /* Set the first char to 0 */;
2679                 row[DB_serial][0]='0';
2680
2681                 /* Copy String from serial to row[DB_serial] */
2682                 memcpy(row[DB_serial]+1, serial, strlen(serial));
2683                 row[DB_serial][strlen(serial)+1]='\0';
2684                 }
2685         else
2686                 {
2687                 /* Copy String from serial to row[DB_serial] */
2688                 memcpy(row[DB_serial], serial, strlen(serial));
2689                 row[DB_serial][strlen(serial)]='\0';
2690                 }
2691                         
2692         /* Make it Upper Case */
2693         for (i=0; row[DB_serial][i] != '\0'; i++)
2694                 row[DB_serial][i] = toupper(row[DB_serial][i]);
2695         
2696
2697         ok=1;
2698
2699         /* Search for the certificate */
2700         rrow=TXT_DB_get_by_index(db,DB_serial,row);
2701         if (rrow == NULL)
2702                 {
2703                 BIO_printf(bio_err,"Serial %s not present in db.\n",
2704                                  row[DB_serial]);
2705                 ok=-1;
2706                 goto err;
2707                 }
2708         else if (rrow[DB_type][0]=='V')
2709                 {
2710                 BIO_printf(bio_err,"%s=Valid (%c)\n",
2711                         row[DB_serial], rrow[DB_type][0]);
2712                 goto err;
2713                 }
2714         else if (rrow[DB_type][0]=='R')
2715                 {
2716                 BIO_printf(bio_err,"%s=Revoked (%c)\n",
2717                         row[DB_serial], rrow[DB_type][0]);
2718                 goto err;
2719                 }
2720         else if (rrow[DB_type][0]=='E')
2721                 {
2722                 BIO_printf(bio_err,"%s=Expired (%c)\n",
2723                         row[DB_serial], rrow[DB_type][0]);
2724                 goto err;
2725                 }
2726         else if (rrow[DB_type][0]=='S')
2727                 {
2728                 BIO_printf(bio_err,"%s=Suspended (%c)\n",
2729                         row[DB_serial], rrow[DB_type][0]);
2730                 goto err;
2731                 }
2732         else
2733                 {
2734                 BIO_printf(bio_err,"%s=Unknown (%c).\n",
2735                         row[DB_serial], rrow[DB_type][0]);
2736                 ok=-1;
2737                 }
2738 err:
2739         for (i=0; i<DB_NUMBER; i++)
2740                 {
2741                 if (row[i] != NULL)
2742                         OPENSSL_free(row[i]);
2743                 }
2744         return(ok);
2745         }
2746
2747 static int do_updatedb (TXT_DB *db)
2748         {
2749         ASN1_UTCTIME    *a_tm = NULL;
2750         int i, cnt = 0;
2751         int db_y2k, a_y2k;  /* flags = 1 if y >= 2000 */ 
2752         char **rrow, *a_tm_s;
2753
2754         a_tm = ASN1_UTCTIME_new();
2755
2756         /* get actual time and make a string */
2757         a_tm = X509_gmtime_adj(a_tm, 0);
2758         a_tm_s = (char *) OPENSSL_malloc(a_tm->length+1);
2759         if (a_tm_s == NULL)
2760                 {
2761                 cnt = -1;
2762                 goto err;
2763                 }
2764
2765         memcpy(a_tm_s, a_tm->data, a_tm->length);
2766         a_tm_s[a_tm->length] = '\0';
2767
2768         if (strncmp(a_tm_s, "49", 2) <= 0)
2769                 a_y2k = 1;
2770         else
2771                 a_y2k = 0;
2772
2773         for (i = 0; i < sk_num(db->data); i++)
2774                 {
2775                 rrow = (char **) sk_value(db->data, i);
2776
2777                 if (rrow[DB_type][0] == 'V')
2778                         {
2779                         /* ignore entries that are not valid */
2780                         if (strncmp(rrow[DB_exp_date], "49", 2) <= 0)
2781                                 db_y2k = 1;
2782                         else
2783                                 db_y2k = 0;
2784
2785                         if (db_y2k == a_y2k)
2786                                 {
2787                                 /* all on the same y2k side */
2788                                 if (strcmp(rrow[DB_exp_date], a_tm_s) <= 0)
2789                                         {
2790                                         rrow[DB_type][0]  = 'E';
2791                                         rrow[DB_type][1]  = '\0';
2792                                         cnt++;
2793
2794                                         BIO_printf(bio_err, "%s=Expired\n",
2795                                                         rrow[DB_serial]);
2796                                         }
2797                                 }
2798                         else if (db_y2k < a_y2k)
2799                                 {
2800                                 rrow[DB_type][0]  = 'E';
2801                                 rrow[DB_type][1]  = '\0';
2802                                 cnt++;
2803
2804                                 BIO_printf(bio_err, "%s=Expired\n",
2805                                                         rrow[DB_serial]);
2806                                 }
2807
2808                         }
2809                 }
2810
2811 err:
2812
2813         ASN1_UTCTIME_free(a_tm);
2814         OPENSSL_free(a_tm_s);
2815
2816         return (cnt);
2817         }
2818
2819 static char *crl_reasons[] = {
2820         /* CRL reason strings */
2821         "unspecified",
2822         "keyCompromise",
2823         "CACompromise",
2824         "affiliationChanged",
2825         "superseded", 
2826         "cessationOfOperation",
2827         "certificateHold",
2828         "removeFromCRL",
2829         /* Additional pseudo reasons */
2830         "holdInstruction",
2831         "keyTime",
2832         "CAkeyTime"
2833 };
2834
2835 #define NUM_REASONS (sizeof(crl_reasons) / sizeof(char *))
2836
2837 /* Given revocation information convert to a DB string.
2838  * The format of the string is:
2839  * revtime[,reason,extra]. Where 'revtime' is the
2840  * revocation time (the current time). 'reason' is the
2841  * optional CRL reason and 'extra' is any additional
2842  * argument
2843  */
2844
2845 char *make_revocation_str(int rev_type, char *rev_arg)
2846         {
2847         char *reason = NULL, *other = NULL, *str;
2848         ASN1_OBJECT *otmp;
2849         ASN1_UTCTIME *revtm = NULL;
2850         int i;
2851         switch (rev_type)
2852                 {
2853         case REV_NONE:
2854                 break;
2855
2856         case REV_CRL_REASON:
2857                 for (i = 0; i < 8; i++)
2858                         {
2859                         if (!strcasecmp(rev_arg, crl_reasons[i]))
2860                                 {
2861                                 reason = crl_reasons[i];
2862                                 break;
2863                                 }
2864                         }
2865                 if (reason == NULL)
2866                         {
2867                         BIO_printf(bio_err, "Unknown CRL reason %s\n", rev_arg);
2868                         return NULL;
2869                         }
2870                 break;
2871
2872         case REV_HOLD:
2873                 /* Argument is an OID */
2874
2875                 otmp = OBJ_txt2obj(rev_arg, 0);
2876                 ASN1_OBJECT_free(otmp);
2877
2878                 if (otmp == NULL)
2879                         {
2880                         BIO_printf(bio_err, "Invalid object identifier %s\n", rev_arg);
2881                         return NULL;
2882                         }
2883
2884                 reason = "holdInstruction";
2885                 other = rev_arg;
2886                 break;
2887                 
2888         case REV_KEY_COMPROMISE:
2889         case REV_CA_COMPROMISE:
2890
2891                 /* Argument is the key compromise time  */
2892                 if (!ASN1_GENERALIZEDTIME_set_string(NULL, rev_arg))
2893                         {       
2894                         BIO_printf(bio_err, "Invalid time format %s. Need YYYYMMDDHHMMSSZ\n", rev_arg);
2895                         return NULL;
2896                         }
2897                 other = rev_arg;
2898                 if (rev_type == REV_KEY_COMPROMISE)
2899                         reason = "keyTime";
2900                 else 
2901                         reason = "CAkeyTime";
2902
2903                 break;
2904
2905                 }
2906
2907         revtm = X509_gmtime_adj(NULL, 0);
2908
2909         i = revtm->length + 1;
2910
2911         if (reason) i += strlen(reason) + 1;
2912         if (other) i += strlen(other) + 1;
2913
2914         str = OPENSSL_malloc(i);
2915
2916         if (!str) return NULL;
2917
2918         strcpy(str, (char *)revtm->data);
2919         if (reason)
2920                 {
2921                 strcat(str, ",");
2922                 strcat(str, reason);
2923                 }
2924         if (other)
2925                 {
2926                 strcat(str, ",");
2927                 strcat(str, other);
2928                 }
2929         ASN1_UTCTIME_free(revtm);
2930         return str;
2931         }
2932
2933 /* Convert revocation field to X509_REVOKED entry 
2934  * return code:
2935  * 0 error
2936  * 1 OK
2937  * 2 OK and some extensions added (i.e. V2 CRL)
2938  */
2939
2940
2941 int make_revoked(X509_REVOKED *rev, char *str)
2942         {
2943         char *tmp = NULL;
2944         int reason_code = -1;
2945         int i, ret = 0;
2946         ASN1_OBJECT *hold = NULL;
2947         ASN1_GENERALIZEDTIME *comp_time = NULL;
2948         ASN1_ENUMERATED *rtmp = NULL;
2949
2950         ASN1_TIME *revDate = NULL;
2951
2952         i = unpack_revinfo(&revDate, &reason_code, &hold, &comp_time, str);
2953
2954         if (i == 0)
2955                 goto err;
2956
2957         if (rev && !X509_REVOKED_set_revocationDate(rev, revDate))
2958                 goto err;
2959
2960         if (rev && (reason_code != OCSP_REVOKED_STATUS_NOSTATUS))
2961                 {
2962                 rtmp = ASN1_ENUMERATED_new();
2963                 if (!rtmp || !ASN1_ENUMERATED_set(rtmp, reason_code))
2964                         goto err;
2965                 if (!X509_REVOKED_add1_ext_i2d(rev, NID_crl_reason, rtmp, 0, 0))
2966                         goto err;
2967                 }
2968
2969         if (rev && comp_time)
2970                 {
2971                 if (!X509_REVOKED_add1_ext_i2d(rev, NID_invalidity_date, comp_time, 0, 0))
2972                         goto err;
2973                 }
2974         if (rev && hold)
2975                 {
2976                 if (!X509_REVOKED_add1_ext_i2d(rev, NID_hold_instruction_code, hold, 0, 0))
2977                         goto err;
2978                 }
2979
2980         if (reason_code != OCSP_REVOKED_STATUS_NOSTATUS)
2981                 ret = 2;
2982         else ret = 1;
2983
2984         err:
2985
2986         if (tmp) OPENSSL_free(tmp);
2987         ASN1_OBJECT_free(hold);
2988         ASN1_GENERALIZEDTIME_free(comp_time);
2989         ASN1_ENUMERATED_free(rtmp);
2990         ASN1_TIME_free(revDate);
2991
2992         return ret;
2993         }
2994
2995 static X509_NAME *do_subject(char *subject, int email_dn)
2996         {
2997         X509_NAME *n = NULL;
2998
2999         int i, nid, ne_num=0;
3000
3001         char *ne_name = NULL;
3002         char *ne_value = NULL;
3003
3004         char *tmp = NULL;
3005         char *p[2];
3006
3007         char *str_list[256];
3008        
3009         p[0] = ",/";
3010         p[1] = "=";
3011
3012         n = X509_NAME_new();
3013
3014         tmp = strtok(subject, p[0]);
3015         while((tmp != NULL) && (ne_num < (sizeof str_list/sizeof *str_list)))
3016                 {
3017                 char *token = tmp;
3018
3019                 while (token[0] == ' ')
3020                         token++;
3021                 str_list[ne_num] = token;
3022
3023                 tmp = strtok(NULL, p[0]);
3024                 ne_num++;
3025                 }
3026
3027         for (i = 0; i < ne_num; i++)
3028                 {
3029                 ne_name  = strtok(str_list[i], p[1]);
3030                 ne_value = strtok(NULL, p[1]);
3031
3032                 if ((nid=OBJ_txt2nid(ne_name)) == NID_undef)
3033                         {
3034                         BIO_printf(bio_err, "Subject Attribute %s has no known NID, skipped\n", ne_name);
3035                         continue;
3036                         }
3037
3038                 if (ne_value == NULL)
3039                         {
3040                         BIO_printf(bio_err, "No value provided for Subject Attribute %s, skipped\n", ne_name);
3041                         continue;
3042                         }
3043
3044                 if ((nid == NID_pkcs9_emailAddress) && (email_dn == 0))
3045                         continue;
3046
3047                 if (!X509_NAME_add_entry_by_NID(n, nid, MBSTRING_ASC, (unsigned char*)ne_value, -1,-1,0))
3048                         {
3049                         X509_NAME_free(n);
3050                         return NULL;
3051                         }
3052                 }
3053
3054         return n;
3055         }
3056
3057
3058 int old_entry_print(BIO *bp, ASN1_OBJECT *obj, ASN1_STRING *str)
3059         {
3060         char buf[25],*pbuf, *p;
3061         int j;
3062         j=i2a_ASN1_OBJECT(bp,obj);
3063         pbuf=buf;
3064         for (j=22-j; j>0; j--)
3065                 *(pbuf++)=' ';
3066         *(pbuf++)=':';
3067         *(pbuf++)='\0';
3068         BIO_puts(bp,buf);
3069
3070         if (str->type == V_ASN1_PRINTABLESTRING)
3071                 BIO_printf(bp,"PRINTABLE:'");
3072         else if (str->type == V_ASN1_T61STRING)
3073                 BIO_printf(bp,"T61STRING:'");
3074         else if (str->type == V_ASN1_IA5STRING)
3075                 BIO_printf(bp,"IA5STRING:'");
3076         else if (str->type == V_ASN1_UNIVERSALSTRING)
3077                 BIO_printf(bp,"UNIVERSALSTRING:'");
3078         else
3079                 BIO_printf(bp,"ASN.1 %2d:'",str->type);
3080                         
3081         p=(char *)str->data;
3082         for (j=str->length; j>0; j--)
3083                 {
3084                 if ((*p >= ' ') && (*p <= '~'))
3085                         BIO_printf(bp,"%c",*p);
3086                 else if (*p & 0x80)
3087                         BIO_printf(bp,"\\0x%02X",*p);
3088                 else if ((unsigned char)*p == 0xf7)
3089                         BIO_printf(bp,"^?");
3090                 else    BIO_printf(bp,"^%c",*p+'@');
3091                 p++;
3092                 }
3093         BIO_printf(bp,"'\n");
3094         return 1;
3095         }
3096
3097 int unpack_revinfo(ASN1_TIME **prevtm, int *preason, ASN1_OBJECT **phold, ASN1_GENERALIZEDTIME **pinvtm, char *str)
3098         {
3099         char *tmp = NULL;
3100         char *rtime_str, *reason_str = NULL, *arg_str = NULL, *p;
3101         int reason_code = -1;
3102         int i, ret = 0;
3103         ASN1_OBJECT *hold = NULL;
3104         ASN1_GENERALIZEDTIME *comp_time = NULL;
3105         tmp = BUF_strdup(str);
3106
3107         p = strchr(tmp, ',');
3108
3109         rtime_str = tmp;
3110
3111         if (p)
3112                 {
3113                 *p = '\0';
3114                 p++;
3115                 reason_str = p;
3116                 p = strchr(p, ',');
3117                 if (p)
3118                         {
3119                         *p = '\0';
3120                         arg_str = p + 1;
3121                         }
3122                 }
3123
3124         if (prevtm)
3125                 {
3126                 *prevtm = ASN1_UTCTIME_new();
3127                 if (!ASN1_UTCTIME_set_string(*prevtm, rtime_str))
3128                         {
3129                         BIO_printf(bio_err, "invalid revocation date %s\n", rtime_str);
3130                         goto err;
3131                         }
3132                 }
3133         if (reason_str)
3134                 {
3135                 for (i = 0; i < NUM_REASONS; i++)
3136                         {
3137                         if(!strcasecmp(reason_str, crl_reasons[i]))
3138                                 {
3139                                 reason_code = i;
3140                                 break;
3141                                 }
3142                         }
3143                 if (reason_code == OCSP_REVOKED_STATUS_NOSTATUS)
3144                         {
3145                         BIO_printf(bio_err, "invalid reason code %s\n", reason_str);
3146                         goto err;
3147                         }
3148
3149                 if (reason_code == 7)
3150                         reason_code = OCSP_REVOKED_STATUS_REMOVEFROMCRL;
3151                 else if (reason_code == 8)              /* Hold instruction */
3152                         {
3153                         if (!arg_str)
3154                                 {       
3155                                 BIO_printf(bio_err, "missing hold instruction\n");
3156                                 goto err;
3157                                 }
3158                         reason_code = OCSP_REVOKED_STATUS_CERTIFICATEHOLD;
3159                         hold = OBJ_txt2obj(arg_str, 0);
3160
3161                         if (!hold)
3162                                 {
3163                                 BIO_printf(bio_err, "invalid object identifier %s\n", arg_str);
3164                                 goto err;
3165                                 }
3166                         if (phold) *phold = hold;
3167                         }
3168                 else if ((reason_code == 9) || (reason_code == 10))
3169                         {
3170                         if (!arg_str)
3171                                 {       
3172                                 BIO_printf(bio_err, "missing compromised time\n");
3173                                 goto err;
3174                                 }
3175                         comp_time = ASN1_GENERALIZEDTIME_new();
3176                         if (!ASN1_GENERALIZEDTIME_set_string(comp_time, arg_str))
3177                                 {       
3178                                 BIO_printf(bio_err, "invalid compromised time %s\n", arg_str);
3179                                 goto err;
3180                                 }
3181                         if (reason_code == 9)
3182                                 reason_code = OCSP_REVOKED_STATUS_KEYCOMPROMISE;
3183                         else
3184                                 reason_code = OCSP_REVOKED_STATUS_CACOMPROMISE;
3185                         }
3186                 }
3187
3188         if (preason) *preason = reason_code;
3189         if (pinvtm) *pinvtm = comp_time;
3190         else ASN1_GENERALIZEDTIME_free(comp_time);
3191
3192         ret = 1;
3193
3194         err:
3195
3196         if (tmp) OPENSSL_free(tmp);
3197         if (!phold) ASN1_OBJECT_free(hold);
3198         if (!pinvtm) ASN1_GENERALIZEDTIME_free(comp_time);
3199
3200         return ret;
3201         }
3202
3203 int make_serial_index(TXT_DB *db)
3204         {
3205         if (!TXT_DB_create_index(db, DB_serial, NULL,
3206                                 LHASH_HASH_FN(index_serial_hash),
3207                                 LHASH_COMP_FN(index_serial_cmp)))
3208                 {
3209                 BIO_printf(bio_err,
3210                   "error creating serial number index:(%ld,%ld,%ld)\n",
3211                                         db->error,db->arg1,db->arg2);
3212                         return 0;
3213                 }
3214         return 1;
3215         }