crypto/ocsp/ocsp_prn.c

   1 /*
   2  * Copyright 2000-2023 The OpenSSL Project Authors. All Rights Reserved.
   3  *
   4  * Licensed under the Apache License 2.0 (the "License").  You may not use
   5  * this file except in compliance with the License.  You can obtain a copy
   6  * in the file LICENSE in the source distribution or at
   7  * https://www.openssl.org/source/license.html
   8  */
   9
  10 #include <openssl/bio.h>
  11 #include <openssl/err.h>
  12 #include <openssl/ocsp.h>
  13 #include "ocsp_local.h"
  14 #include "internal/cryptlib.h"
  15 #include <openssl/pem.h>
  16
  17 static int ocsp_certid_print(BIO *bp, OCSP_CERTID *a, int indent)
  18 {
  19     BIO_printf(bp, "%*sCertificate ID:\n", indent, "");
  20     indent += 2;
  21     BIO_printf(bp, "%*sHash Algorithm: ", indent, "");
  22     i2a_ASN1_OBJECT(bp, a->hashAlgorithm.algorithm);
  23     BIO_printf(bp, "\n%*sIssuer Name Hash: ", indent, "");
  24     i2a_ASN1_STRING(bp, &a->issuerNameHash, 0);
  25     BIO_printf(bp, "\n%*sIssuer Key Hash: ", indent, "");
  26     i2a_ASN1_STRING(bp, &a->issuerKeyHash, 0);
  27     BIO_printf(bp, "\n%*sSerial Number: ", indent, "");
  28     i2a_ASN1_INTEGER(bp, &a->serialNumber);
  29     BIO_printf(bp, "\n");
  30     return 1;
  31 }
  32
  33 typedef struct {
  34     long t;
  35     const char *m;
  36 } OCSP_TBLSTR;
  37
  38 static const char *do_table2string(long s, const OCSP_TBLSTR *ts, size_t len)
  39 {
  40     size_t i;
  41     for (i = 0; i < len; i++, ts++)
  42         if (ts->t == s)
  43             return ts->m;
  44     return "(UNKNOWN)";
  45 }
  46
  47 #define table2string(s, tbl) do_table2string(s, tbl, OSSL_NELEM(tbl))
  48
  49 const char *OCSP_response_status_str(long s)
  50 {
  51     static const OCSP_TBLSTR rstat_tbl[] = {
  52         {OCSP_RESPONSE_STATUS_SUCCESSFUL, "successful"},
  53         {OCSP_RESPONSE_STATUS_MALFORMEDREQUEST, "malformedrequest"},
  54         {OCSP_RESPONSE_STATUS_INTERNALERROR, "internalerror"},
  55         {OCSP_RESPONSE_STATUS_TRYLATER, "trylater"},
  56         {OCSP_RESPONSE_STATUS_SIGREQUIRED, "sigrequired"},
  57         {OCSP_RESPONSE_STATUS_UNAUTHORIZED, "unauthorized"}
  58     };
  59     return table2string(s, rstat_tbl);
  60 }
  61
  62 const char *OCSP_cert_status_str(long s)
  63 {
  64     static const OCSP_TBLSTR cstat_tbl[] = {
  65         {V_OCSP_CERTSTATUS_GOOD, "good"},
  66         {V_OCSP_CERTSTATUS_REVOKED, "revoked"},
  67         {V_OCSP_CERTSTATUS_UNKNOWN, "unknown"}
  68     };
  69     return table2string(s, cstat_tbl);
  70 }
  71
  72 const char *OCSP_crl_reason_str(long s)
  73 {
  74     static const OCSP_TBLSTR reason_tbl[] = {
  75         {OCSP_REVOKED_STATUS_UNSPECIFIED, "unspecified"},
  76         {OCSP_REVOKED_STATUS_KEYCOMPROMISE, "keyCompromise"},
  77         {OCSP_REVOKED_STATUS_CACOMPROMISE, "cACompromise"},
  78         {OCSP_REVOKED_STATUS_AFFILIATIONCHANGED, "affiliationChanged"},
  79         {OCSP_REVOKED_STATUS_SUPERSEDED, "superseded"},
  80         {OCSP_REVOKED_STATUS_CESSATIONOFOPERATION, "cessationOfOperation"},
  81         {OCSP_REVOKED_STATUS_CERTIFICATEHOLD, "certificateHold"},
  82         {OCSP_REVOKED_STATUS_REMOVEFROMCRL, "removeFromCRL"},
  83         {OCSP_REVOKED_STATUS_PRIVILEGEWITHDRAWN, "privilegeWithdrawn"},
  84         {OCSP_REVOKED_STATUS_AACOMPROMISE, "aACompromise"}
  85     };
  86     return table2string(s, reason_tbl);
  87 }
  88
  89 int OCSP_REQUEST_print(BIO *bp, OCSP_REQUEST *o, unsigned long flags)
  90 {
  91     int i;
  92     long l;
  93     OCSP_CERTID *cid = NULL;
  94     OCSP_ONEREQ *one = NULL;
  95     OCSP_REQINFO *inf = &o->tbsRequest;
  96     OCSP_SIGNATURE *sig = o->optionalSignature;
  97
  98     if (BIO_write(bp, "OCSP Request Data:\n", 19) <= 0)
  99         goto err;
 100     l = ASN1_INTEGER_get(inf->version);
 101     if (BIO_printf(bp, "    Version: %lu (0x%lx)", l + 1, l) <= 0)
 102         goto err;
 103     if (inf->requestorName != NULL) {
 104         if (BIO_write(bp, "\n    Requestor Name: ", 21) <= 0)
 105             goto err;
 106         GENERAL_NAME_print(bp, inf->requestorName);
 107     }
 108     if (BIO_write(bp, "\n    Requestor List:\n", 21) <= 0)
 109         goto err;
 110     for (i = 0; i < sk_OCSP_ONEREQ_num(inf->requestList); i++) {
 111         one = sk_OCSP_ONEREQ_value(inf->requestList, i);
 112         cid = one->reqCert;
 113         ocsp_certid_print(bp, cid, 8);
 114         if (!X509V3_extensions_print(bp,
 115                                      "Request Single Extensions",
 116                                      one->singleRequestExtensions, flags, 8))
 117             goto err;
 118     }
 119     if (!X509V3_extensions_print(bp, "Request Extensions",
 120                                  inf->requestExtensions, flags, 4))
 121         goto err;
 122     if (sig) {
 123         X509_signature_print(bp, &sig->signatureAlgorithm, sig->signature);
 124         for (i = 0; i < sk_X509_num(sig->certs); i++) {
 125             X509_print(bp, sk_X509_value(sig->certs, i));
 126             PEM_write_bio_X509(bp, sk_X509_value(sig->certs, i));
 127         }
 128     }
 129     return 1;
 130  err:
 131     return 0;
 132 }
 133
 134 int OCSP_RESPONSE_print(BIO *bp, OCSP_RESPONSE *o, unsigned long flags)
 135 {
 136     int i, ret = 0;
 137     long l;
 138     OCSP_CERTID *cid = NULL;
 139     OCSP_BASICRESP *br = NULL;
 140     OCSP_RESPID *rid = NULL;
 141     OCSP_RESPDATA *rd = NULL;
 142     OCSP_CERTSTATUS *cst = NULL;
 143     OCSP_REVOKEDINFO *rev = NULL;
 144     OCSP_SINGLERESP *single = NULL;
 145     OCSP_RESPBYTES *rb = o->responseBytes;
 146
 147     if (BIO_puts(bp, "OCSP Response Data:\n") <= 0)
 148         goto err;
 149     l = ASN1_ENUMERATED_get(o->responseStatus);
 150     if (BIO_printf(bp, "    OCSP Response Status: %s (0x%lx)\n",
 151                    OCSP_response_status_str(l), l) <= 0)
 152         goto err;
 153     if (rb == NULL)
 154         return 1;
 155     if (BIO_puts(bp, "    Response Type: ") <= 0)
 156         goto err;
 157     if (i2a_ASN1_OBJECT(bp, rb->responseType) <= 0)
 158         goto err;
 159     if (OBJ_obj2nid(rb->responseType) != NID_id_pkix_OCSP_basic) {
 160         BIO_puts(bp, " (unknown response type)\n");
 161         return 1;
 162     }
 163
 164     if ((br = OCSP_response_get1_basic(o)) == NULL)
 165         goto err;
 166     rd = &br->tbsResponseData;
 167     l = ASN1_INTEGER_get(rd->version);
 168     if (BIO_printf(bp, "\n    Version: %lu (0x%lx)\n", l + 1, l) <= 0)
 169         goto err;
 170     if (BIO_puts(bp, "    Responder Id: ") <= 0)
 171         goto err;
 172
 173     rid = &rd->responderId;
 174     switch (rid->type) {
 175     case V_OCSP_RESPID_NAME:
 176         X509_NAME_print_ex(bp, rid->value.byName, 0, XN_FLAG_ONELINE);
 177         break;
 178     case V_OCSP_RESPID_KEY:
 179         i2a_ASN1_STRING(bp, rid->value.byKey, 0);
 180         break;
 181     }
 182
 183     if (BIO_printf(bp, "\n    Produced At: ") <= 0)
 184         goto err;
 185     if (!ASN1_GENERALIZEDTIME_print(bp, rd->producedAt))
 186         goto err;
 187     if (BIO_printf(bp, "\n    Responses:\n") <= 0)
 188         goto err;
 189     for (i = 0; i < sk_OCSP_SINGLERESP_num(rd->responses); i++) {
 190         if (!sk_OCSP_SINGLERESP_value(rd->responses, i))
 191             continue;
 192         single = sk_OCSP_SINGLERESP_value(rd->responses, i);
 193         cid = single->certId;
 194         if (ocsp_certid_print(bp, cid, 4) <= 0)
 195             goto err;
 196         cst = single->certStatus;
 197         if (BIO_printf(bp, "    Cert Status: %s",
 198                        OCSP_cert_status_str(cst->type)) <= 0)
 199             goto err;
 200         if (cst->type == V_OCSP_CERTSTATUS_REVOKED) {
 201             rev = cst->value.revoked;
 202             if (BIO_printf(bp, "\n    Revocation Time: ") <= 0)
 203                 goto err;
 204             if (!ASN1_GENERALIZEDTIME_print(bp, rev->revocationTime))
 205                 goto err;
 206             if (rev->revocationReason) {
 207                 l = ASN1_ENUMERATED_get(rev->revocationReason);
 208                 if (BIO_printf(bp,
 209                                "\n    Revocation Reason: %s (0x%lx)",
 210                                OCSP_crl_reason_str(l), l) <= 0)
 211                     goto err;
 212             }
 213         }
 214         if (BIO_printf(bp, "\n    This Update: ") <= 0)
 215             goto err;
 216         if (!ASN1_GENERALIZEDTIME_print(bp, single->thisUpdate))
 217             goto err;
 218         if (single->nextUpdate) {
 219             if (BIO_printf(bp, "\n    Next Update: ") <= 0)
 220                 goto err;
 221             if (!ASN1_GENERALIZEDTIME_print(bp, single->nextUpdate))
 222                 goto err;
 223         }
 224         if (BIO_write(bp, "\n", 1) <= 0)
 225             goto err;
 226         if (!X509V3_extensions_print(bp,
 227                                      "Response Single Extensions",
 228                                      single->singleExtensions, flags, 8))
 229             goto err;
 230         if (BIO_write(bp, "\n", 1) <= 0)
 231             goto err;
 232     }
 233     if (!X509V3_extensions_print(bp, "Response Extensions",
 234                                  rd->responseExtensions, flags, 4))
 235         goto err;
 236     if (X509_signature_print(bp, &br->signatureAlgorithm, br->signature) <= 0)
 237         goto err;
 238
 239     for (i = 0; i < sk_X509_num(br->certs); i++) {
 240         X509_print(bp, sk_X509_value(br->certs, i));
 241         PEM_write_bio_X509(bp, sk_X509_value(br->certs, i));
 242     }
 243
 244     ret = 1;
 245  err:
 246     OCSP_BASICRESP_free(br);
 247     return ret;
 248 }