Use inner algorithm when printing certificate.
[openssl.git] / crypto / asn1 / t_x509.c
index 4bf5c893e731612a25c7b52fddb1aa3201915d0f..0bdc2c22304d90dcb230b5fe8344e2f2d8a3c812 100644 (file)
@@ -5,21 +5,21 @@
  * This package is an SSL implementation written
  * by Eric Young (eay@cryptsoft.com).
  * The implementation was written so as to conform with Netscapes SSL.
- * 
+ *
  * This library is free for commercial and non-commercial use as long as
  * the following conditions are aheared to.  The following conditions
  * apply to all code found in this distribution, be it the RC4, RSA,
  * lhash, DES, etc., code; not just the SSL code.  The SSL documentation
  * included with this distribution is covered by the same copyright terms
  * except that the holder is Tim Hudson (tjh@cryptsoft.com).
- * 
+ *
  * Copyright remains Eric Young's, and as such any Copyright notices in
  * the code are not to be removed.
  * If this package is used in a product, Eric Young should be given attribution
  * as the author of the parts of the library used.
  * This can be in the form of a textual message at program startup or
  * in documentation (online or textual) provided with the package.
- * 
+ *
  * Redistribution and use in source and binary forms, with or without
  * modification, are permitted provided that the following conditions
  * are met:
  *     Eric Young (eay@cryptsoft.com)"
  *    The word 'cryptographic' can be left out if the rouines from the library
  *    being used are not cryptographic related :-).
- * 4. If you include any Windows specific code (or a derivative thereof) from 
+ * 4. If you include any Windows specific code (or a derivative thereof) from
  *    the apps directory (application code) you must include an acknowledgement:
  *    "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
- * 
+ *
  * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
@@ -49,7 +49,7 @@
  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  * SUCH DAMAGE.
- * 
+ *
  * The licence and distribution terms for any publically available version or
  * derivative of this code cannot be changed.  i.e. this code cannot simply be
  * copied and put under another distribution licence
 #include <openssl/buffer.h>
 #include <openssl/bn.h>
 #ifndef OPENSSL_NO_RSA
-#include <openssl/rsa.h>
+# include <openssl/rsa.h>
 #endif
 #ifndef OPENSSL_NO_DSA
-#include <openssl/dsa.h>
+# include <openssl/dsa.h>
 #endif
 #ifndef OPENSSL_NO_EC
-#include <openssl/ec.h>
+# include <openssl/ec.h>
 #endif
 #include <openssl/objects.h>
 #include <openssl/x509.h>
 #include <openssl/x509v3.h>
+#include "asn1_locl.h"
 
-#ifndef OPENSSL_NO_FP_API
+#ifndef OPENSSL_NO_STDIO
 int X509_print_fp(FILE *fp, X509 *x)
-       {
-       return X509_print_ex_fp(fp, x, XN_FLAG_COMPAT, X509_FLAG_COMPAT);
-       }
+{
+    return X509_print_ex_fp(fp, x, XN_FLAG_COMPAT, X509_FLAG_COMPAT);
+}
 
-int X509_print_ex_fp(FILE *fp, X509 *x, unsigned long nmflag, unsigned long cflag)
-        {
-        BIO *b;
-        int ret;
-
-        if ((b=BIO_new(BIO_s_file())) == NULL)
-               {
-               X509err(X509_F_X509_PRINT_EX_FP,ERR_R_BUF_LIB);
-                return(0);
-               }
-        BIO_set_fp(b,fp,BIO_NOCLOSE);
-        ret=X509_print_ex(b, x, nmflag, cflag);
-        BIO_free(b);
-        return(ret);
-        }
+int X509_print_ex_fp(FILE *fp, X509 *x, unsigned long nmflag,
+                     unsigned long cflag)
+{
+    BIO *b;
+    int ret;
+
+    if ((b = BIO_new(BIO_s_file())) == NULL) {
+        X509err(X509_F_X509_PRINT_EX_FP, ERR_R_BUF_LIB);
+        return (0);
+    }
+    BIO_set_fp(b, fp, BIO_NOCLOSE);
+    ret = X509_print_ex(b, x, nmflag, cflag);
+    BIO_free(b);
+    return (ret);
+}
 #endif
 
 int X509_print(BIO *bp, X509 *x)
 {
-       return X509_print_ex(bp, x, XN_FLAG_COMPAT, X509_FLAG_COMPAT);
+    return X509_print_ex(bp, x, XN_FLAG_COMPAT, X509_FLAG_COMPAT);
 }
 
-int X509_print_ex(BIO *bp, X509 *x, unsigned long nmflags, unsigned long cflag)
-       {
-       long l;
-       int ret=0,i;
-       char *m=NULL,mlch = ' ';
-       int nmindent = 0;
-       X509_CINF *ci;
-       ASN1_INTEGER *bs;
-       EVP_PKEY *pkey=NULL;
-       const char *neg;
-       ASN1_STRING *str=NULL;
-
-       if((nmflags & XN_FLAG_SEP_MASK) == XN_FLAG_SEP_MULTILINE) {
-                       mlch = '\n';
-                       nmindent = 12;
-       }
-
-       if(nmflags == X509_FLAG_COMPAT)
-               nmindent = 16;
-
-       ci=x->cert_info;
-       if(!(cflag & X509_FLAG_NO_HEADER))
-               {
-               if (BIO_write(bp,"Certificate:\n",13) <= 0) goto err;
-               if (BIO_write(bp,"    Data:\n",10) <= 0) goto err;
-               }
-       if(!(cflag & X509_FLAG_NO_VERSION))
-               {
-               l=X509_get_version(x);
-               if (BIO_printf(bp,"%8sVersion: %lu (0x%lx)\n","",l+1,l) <= 0) goto err;
-               }
-       if(!(cflag & X509_FLAG_NO_SERIAL))
-               {
-
-               if (BIO_write(bp,"        Serial Number:",22) <= 0) goto err;
-
-               bs=X509_get_serialNumber(x);
-               if (bs->length <= 4)
-                       {
-                       l=ASN1_INTEGER_get(bs);
-                       if (l < 0)
-                               {
-                               l= -l;
-                               neg="-";
-                               }
-                       else
-                               neg="";
-                       if (BIO_printf(bp," %s%lu (%s0x%lx)\n",neg,l,neg,l) <= 0)
-                               goto err;
-                       }
-               else
-                       {
-                       neg=(bs->type == V_ASN1_NEG_INTEGER)?" (Negative)":"";
-                       if (BIO_printf(bp,"\n%12s%s","",neg) <= 0) goto err;
-
-                       for (i=0; i<bs->length; i++)
-                               {
-                               if (BIO_printf(bp,"%02x%c",bs->data[i],
-                                       ((i+1 == bs->length)?'\n':':')) <= 0)
-                                       goto err;
-                               }
-                       }
-
-               }
-
-       if(!(cflag & X509_FLAG_NO_SIGNAME))
-               {
-               if (BIO_printf(bp,"%8sSignature Algorithm: ","") <= 0) 
-                       goto err;
-               if (i2a_ASN1_OBJECT(bp, ci->signature->algorithm) <= 0)
-                       goto err;
-               if (BIO_puts(bp, "\n") <= 0)
-                       goto err;
-               }
-
-       if(!(cflag & X509_FLAG_NO_ISSUER))
-               {
-               if (BIO_printf(bp,"        Issuer:%c",mlch) <= 0) goto err;
-               if (X509_NAME_print_ex(bp,X509_get_issuer_name(x),nmindent, nmflags) < 0) goto err;
-               if (BIO_write(bp,"\n",1) <= 0) goto err;
-               }
-       if(!(cflag & X509_FLAG_NO_VALIDITY))
-               {
-               if (BIO_write(bp,"        Validity\n",17) <= 0) goto err;
-               if (BIO_write(bp,"            Not Before: ",24) <= 0) goto err;
-               if (!ASN1_TIME_print(bp,X509_get_notBefore(x))) goto err;
-               if (BIO_write(bp,"\n            Not After : ",25) <= 0) goto err;
-               if (!ASN1_TIME_print(bp,X509_get_notAfter(x))) goto err;
-               if (BIO_write(bp,"\n",1) <= 0) goto err;
-               }
-       if(!(cflag & X509_FLAG_NO_SUBJECT))
-               {
-               if (BIO_printf(bp,"        Subject:%c",mlch) <= 0) goto err;
-               if (X509_NAME_print_ex(bp,X509_get_subject_name(x),nmindent, nmflags) < 0) goto err;
-               if (BIO_write(bp,"\n",1) <= 0) goto err;
-               }
-       if(!(cflag & X509_FLAG_NO_PUBKEY))
-               {
-               if (BIO_write(bp,"        Subject Public Key Info:\n",33) <= 0)
-                       goto err;
-               if (BIO_printf(bp,"%12sPublic Key Algorithm: ","") <= 0)
-                       goto err;
-               if (i2a_ASN1_OBJECT(bp, ci->key->algor->algorithm) <= 0)
-                       goto err;
-               if (BIO_puts(bp, "\n") <= 0)
-                       goto err;
-
-               pkey=X509_get_pubkey(x);
-               if (pkey == NULL)
-                       {
-                       BIO_printf(bp,"%12sUnable to load Public Key\n","");
-                       ERR_print_errors(bp);
-                       }
-               else
-#ifndef OPENSSL_NO_RSA
-               if (pkey->type == EVP_PKEY_RSA)
-                       {
-                       BIO_printf(bp,"%12sRSA Public Key: (%d bit)\n","",
-                       BN_num_bits(pkey->pkey.rsa->n));
-                       RSA_print(bp,pkey->pkey.rsa,16);
-                       }
-               else
-#endif
-#ifndef OPENSSL_NO_DSA
-               if (pkey->type == EVP_PKEY_DSA)
-                       {
-                       BIO_printf(bp,"%12sDSA Public Key:\n","");
-                       DSA_print(bp,pkey->pkey.dsa,16);
-                       }
-               else
-#endif
-#ifndef OPENSSL_NO_EC
-               if (pkey->type == EVP_PKEY_EC)
-                       {
-                       BIO_printf(bp, "%12sEC Public Key:\n","");
-                       EC_KEY_print(bp, pkey->pkey.eckey, 16);
-                       }
-               else
+int X509_print_ex(BIO *bp, X509 *x, unsigned long nmflags,
+                  unsigned long cflag)
+{
+    long l;
+    int ret = 0, i;
+    char *m = NULL, mlch = ' ';
+    int nmindent = 0;
+    X509_CINF *ci;
+    ASN1_INTEGER *bs;
+    EVP_PKEY *pkey = NULL;
+    const char *neg;
+
+    if ((nmflags & XN_FLAG_SEP_MASK) == XN_FLAG_SEP_MULTILINE) {
+        mlch = '\n';
+        nmindent = 12;
+    }
+
+    if (nmflags == X509_FLAG_COMPAT)
+        nmindent = 16;
+
+    ci = x->cert_info;
+    if (!(cflag & X509_FLAG_NO_HEADER)) {
+        if (BIO_write(bp, "Certificate:\n", 13) <= 0)
+            goto err;
+        if (BIO_write(bp, "    Data:\n", 10) <= 0)
+            goto err;
+    }
+    if (!(cflag & X509_FLAG_NO_VERSION)) {
+        l = X509_get_version(x);
+        if (BIO_printf(bp, "%8sVersion: %lu (0x%lx)\n", "", l + 1, l) <= 0)
+            goto err;
+    }
+    if (!(cflag & X509_FLAG_NO_SERIAL)) {
+
+        if (BIO_write(bp, "        Serial Number:", 22) <= 0)
+            goto err;
+
+        bs = X509_get_serialNumber(x);
+        if (bs->length <= (int)sizeof(long)) {
+            l = ASN1_INTEGER_get(bs);
+            if (bs->type == V_ASN1_NEG_INTEGER) {
+                l = -l;
+                neg = "-";
+            } else
+                neg = "";
+            if (BIO_printf(bp, " %s%lu (%s0x%lx)\n", neg, l, neg, l) <= 0)
+                goto err;
+        } else {
+            neg = (bs->type == V_ASN1_NEG_INTEGER) ? " (Negative)" : "";
+            if (BIO_printf(bp, "\n%12s%s", "", neg) <= 0)
+                goto err;
+
+            for (i = 0; i < bs->length; i++) {
+                if (BIO_printf(bp, "%02x%c", bs->data[i],
+                               ((i + 1 == bs->length) ? '\n' : ':')) <= 0)
+                    goto err;
+            }
+        }
+
+    }
+
+    if (!(cflag & X509_FLAG_NO_SIGNAME)) {
+        if (X509_signature_print(bp, ci->signature, NULL) <= 0)
+            goto err;
+#if 0
+        if (BIO_printf(bp, "%8sSignature Algorithm: ", "") <= 0)
+            goto err;
+        if (i2a_ASN1_OBJECT(bp, ci->signature->algorithm) <= 0)
+            goto err;
+        if (BIO_puts(bp, "\n") <= 0)
+            goto err;
 #endif
-                       BIO_printf(bp,"%12sUnknown Public Key:\n","");
-
-               EVP_PKEY_free(pkey);
-               }
-
-       if (!(cflag & X509_FLAG_NO_EXTENSIONS))
-               X509V3_extensions_print(bp, "X509v3 extensions",
-                                       ci->extensions, cflag, 8);
-
-       if(!(cflag & X509_FLAG_NO_SIGDUMP))
-               {
-               if(X509_signature_print(bp, x->sig_alg, x->signature) <= 0) goto err;
-               }
-       if(!(cflag & X509_FLAG_NO_AUX))
-               {
-               if (!X509_CERT_AUX_print(bp, x->aux, 0)) goto err;
-               }
-       ret=1;
-err:
-       if (str != NULL) ASN1_STRING_free(str);
-       if (m != NULL) OPENSSL_free(m);
-       return(ret);
-       }
-
-int X509_ocspid_print (BIO *bp, X509 *x)
-       {
-       unsigned char *der=NULL ;
-       unsigned char *dertmp;
-       int derlen;
-       int i;
-       unsigned char SHA1md[SHA_DIGEST_LENGTH];
-
-       /* display the hash of the subject as it would appear
-          in OCSP requests */
-       if (BIO_printf(bp,"        Subject OCSP hash: ") <= 0)
-               goto err;
-       derlen = i2d_X509_NAME(x->cert_info->subject, NULL);
-       if ((der = dertmp = (unsigned char *)OPENSSL_malloc (derlen)) == NULL)
-               goto err;
-       i2d_X509_NAME(x->cert_info->subject, &dertmp);
-
-       EVP_Digest(der, derlen, SHA1md, NULL, EVP_sha1(), NULL);
-       for (i=0; i < SHA_DIGEST_LENGTH; i++)
-               {
-               if (BIO_printf(bp,"%02X",SHA1md[i]) <= 0) goto err;
-               }
-       OPENSSL_free (der);
-       der=NULL;
-
-       /* display the hash of the public key as it would appear
-          in OCSP requests */
-       if (BIO_printf(bp,"\n        Public key OCSP hash: ") <= 0)
-               goto err;
-
-       EVP_Digest(x->cert_info->key->public_key->data,
-               x->cert_info->key->public_key->length, SHA1md, NULL, EVP_sha1(), NULL);
-       for (i=0; i < SHA_DIGEST_LENGTH; i++)
-               {
-               if (BIO_printf(bp,"%02X",SHA1md[i]) <= 0)
-                       goto err;
-               }
-       BIO_printf(bp,"\n");
-
-       return (1);
-err:
-       if (der != NULL) OPENSSL_free(der);
-       return(0);
-       }
+    }
+
+    if (!(cflag & X509_FLAG_NO_ISSUER)) {
+        if (BIO_printf(bp, "        Issuer:%c", mlch) <= 0)
+            goto err;
+        if (X509_NAME_print_ex(bp, X509_get_issuer_name(x), nmindent, nmflags)
+            < 0)
+            goto err;
+        if (BIO_write(bp, "\n", 1) <= 0)
+            goto err;
+    }
+    if (!(cflag & X509_FLAG_NO_VALIDITY)) {
+        if (BIO_write(bp, "        Validity\n", 17) <= 0)
+            goto err;
+        if (BIO_write(bp, "            Not Before: ", 24) <= 0)
+            goto err;
+        if (!ASN1_TIME_print(bp, X509_get_notBefore(x)))
+            goto err;
+        if (BIO_write(bp, "\n            Not After : ", 25) <= 0)
+            goto err;
+        if (!ASN1_TIME_print(bp, X509_get_notAfter(x)))
+            goto err;
+        if (BIO_write(bp, "\n", 1) <= 0)
+            goto err;
+    }
+    if (!(cflag & X509_FLAG_NO_SUBJECT)) {
+        if (BIO_printf(bp, "        Subject:%c", mlch) <= 0)
+            goto err;
+        if (X509_NAME_print_ex
+            (bp, X509_get_subject_name(x), nmindent, nmflags) < 0)
+            goto err;
+        if (BIO_write(bp, "\n", 1) <= 0)
+            goto err;
+    }
+    if (!(cflag & X509_FLAG_NO_PUBKEY)) {
+        if (BIO_write(bp, "        Subject Public Key Info:\n", 33) <= 0)
+            goto err;
+        if (BIO_printf(bp, "%12sPublic Key Algorithm: ", "") <= 0)
+            goto err;
+        if (i2a_ASN1_OBJECT(bp, ci->key->algor->algorithm) <= 0)
+            goto err;
+        if (BIO_puts(bp, "\n") <= 0)
+            goto err;
+
+        pkey = X509_get_pubkey(x);
+        if (pkey == NULL) {
+            BIO_printf(bp, "%12sUnable to load Public Key\n", "");
+            ERR_print_errors(bp);
+        } else {
+            EVP_PKEY_print_public(bp, pkey, 16, NULL);
+            EVP_PKEY_free(pkey);
+        }
+    }
+
+    if (!(cflag & X509_FLAG_NO_IDS)) {
+        if (ci->issuerUID) {
+            if (BIO_printf(bp, "%8sIssuer Unique ID: ", "") <= 0)
+                goto err;
+            if (!X509_signature_dump(bp, ci->issuerUID, 12))
+                goto err;
+        }
+        if (ci->subjectUID) {
+            if (BIO_printf(bp, "%8sSubject Unique ID: ", "") <= 0)
+                goto err;
+            if (!X509_signature_dump(bp, ci->subjectUID, 12))
+                goto err;
+        }
+    }
+
+    if (!(cflag & X509_FLAG_NO_EXTENSIONS))
+        X509V3_extensions_print(bp, "X509v3 extensions",
+                                ci->extensions, cflag, 8);
+
+    if (!(cflag & X509_FLAG_NO_SIGDUMP)) {
+        if (X509_signature_print(bp, x->sig_alg, x->signature) <= 0)
+            goto err;
+    }
+    if (!(cflag & X509_FLAG_NO_AUX)) {
+        if (!X509_CERT_AUX_print(bp, x->aux, 0))
+            goto err;
+    }
+    ret = 1;
+ err:
+    if (m != NULL)
+        OPENSSL_free(m);
+    return (ret);
+}
+
+int X509_ocspid_print(BIO *bp, X509 *x)
+{
+    unsigned char *der = NULL;
+    unsigned char *dertmp;
+    int derlen;
+    int i;
+    unsigned char SHA1md[SHA_DIGEST_LENGTH];
+
+    /*
+     * display the hash of the subject as it would appear in OCSP requests
+     */
+    if (BIO_printf(bp, "        Subject OCSP hash: ") <= 0)
+        goto err;
+    derlen = i2d_X509_NAME(x->cert_info->subject, NULL);
+    if ((der = dertmp = (unsigned char *)OPENSSL_malloc(derlen)) == NULL)
+        goto err;
+    i2d_X509_NAME(x->cert_info->subject, &dertmp);
+
+    if (!EVP_Digest(der, derlen, SHA1md, NULL, EVP_sha1(), NULL))
+        goto err;
+    for (i = 0; i < SHA_DIGEST_LENGTH; i++) {
+        if (BIO_printf(bp, "%02X", SHA1md[i]) <= 0)
+            goto err;
+    }
+    OPENSSL_free(der);
+    der = NULL;
+
+    /*
+     * display the hash of the public key as it would appear in OCSP requests
+     */
+    if (BIO_printf(bp, "\n        Public key OCSP hash: ") <= 0)
+        goto err;
+
+    if (!EVP_Digest(x->cert_info->key->public_key->data,
+                    x->cert_info->key->public_key->length,
+                    SHA1md, NULL, EVP_sha1(), NULL))
+        goto err;
+    for (i = 0; i < SHA_DIGEST_LENGTH; i++) {
+        if (BIO_printf(bp, "%02X", SHA1md[i]) <= 0)
+            goto err;
+    }
+    BIO_printf(bp, "\n");
+
+    return (1);
+ err:
+    if (der != NULL)
+        OPENSSL_free(der);
+    return (0);
+}
+
+int X509_signature_dump(BIO *bp, const ASN1_STRING *sig, int indent)
+{
+    const unsigned char *s;
+    int i, n;
+
+    n = sig->length;
+    s = sig->data;
+    for (i = 0; i < n; i++) {
+        if ((i % 18) == 0) {
+            if (BIO_write(bp, "\n", 1) <= 0)
+                return 0;
+            if (BIO_indent(bp, indent, indent) <= 0)
+                return 0;
+        }
+        if (BIO_printf(bp, "%02x%s", s[i], ((i + 1) == n) ? "" : ":") <= 0)
+            return 0;
+    }
+    if (BIO_write(bp, "\n", 1) != 1)
+        return 0;
+
+    return 1;
+}
 
 int X509_signature_print(BIO *bp, X509_ALGOR *sigalg, ASN1_STRING *sig)
 {
-       unsigned char *s;
-       int i, n;
-       if (BIO_puts(bp,"    Signature Algorithm: ") <= 0) return 0;
-       if (i2a_ASN1_OBJECT(bp, sigalg->algorithm) <= 0) return 0;
-
-       n=sig->length;
-       s=sig->data;
-       for (i=0; i<n; i++)
-               {
-               if ((i%18) == 0)
-                       if (BIO_write(bp,"\n        ",9) <= 0) return 0;
-                       if (BIO_printf(bp,"%02x%s",s[i],
-                               ((i+1) == n)?"":":") <= 0) return 0;
-               }
-       if (BIO_write(bp,"\n",1) != 1) return 0;
-       return 1;
+    int sig_nid;
+    if (BIO_puts(bp, "    Signature Algorithm: ") <= 0)
+        return 0;
+    if (i2a_ASN1_OBJECT(bp, sigalg->algorithm) <= 0)
+        return 0;
+
+    sig_nid = OBJ_obj2nid(sigalg->algorithm);
+    if (sig_nid != NID_undef) {
+        int pkey_nid, dig_nid;
+        const EVP_PKEY_ASN1_METHOD *ameth;
+        if (OBJ_find_sigid_algs(sig_nid, &dig_nid, &pkey_nid)) {
+            ameth = EVP_PKEY_asn1_find(NULL, pkey_nid);
+            if (ameth && ameth->sig_print)
+                return ameth->sig_print(bp, sigalg, sig, 9, 0);
+        }
+    }
+    if (sig)
+        return X509_signature_dump(bp, sig, 9);
+    else if (BIO_puts(bp, "\n") <= 0)
+        return 0;
+    return 1;
+}
+
+int ASN1_STRING_print(BIO *bp, const ASN1_STRING *v)
+{
+    int i, n;
+    char buf[80];
+    const char *p;
+
+    if (v == NULL)
+        return (0);
+    n = 0;
+    p = (const char *)v->data;
+    for (i = 0; i < v->length; i++) {
+        if ((p[i] > '~') || ((p[i] < ' ') &&
+                             (p[i] != '\n') && (p[i] != '\r')))
+            buf[n] = '.';
+        else
+            buf[n] = p[i];
+        n++;
+        if (n >= 80) {
+            if (BIO_write(bp, buf, n) <= 0)
+                return (0);
+            n = 0;
+        }
+    }
+    if (n > 0)
+        if (BIO_write(bp, buf, n) <= 0)
+            return (0);
+    return (1);
+}
+
+int ASN1_TIME_print(BIO *bp, const ASN1_TIME *tm)
+{
+    if (tm->type == V_ASN1_UTCTIME)
+        return ASN1_UTCTIME_print(bp, tm);
+    if (tm->type == V_ASN1_GENERALIZEDTIME)
+        return ASN1_GENERALIZEDTIME_print(bp, tm);
+    BIO_write(bp, "Bad time value", 14);
+    return (0);
 }
 
-int ASN1_STRING_print(BIO *bp, ASN1_STRING *v)
-       {
-       int i,n;
-       char buf[80],*p;;
-
-       if (v == NULL) return(0);
-       n=0;
-       p=(char *)v->data;
-       for (i=0; i<v->length; i++)
-               {
-               if ((p[i] > '~') || ((p[i] < ' ') &&
-                       (p[i] != '\n') && (p[i] != '\r')))
-                       buf[n]='.';
-               else
-                       buf[n]=p[i];
-               n++;
-               if (n >= 80)
-                       {
-                       if (BIO_write(bp,buf,n) <= 0)
-                               return(0);
-                       n=0;
-                       }
-               }
-       if (n > 0)
-               if (BIO_write(bp,buf,n) <= 0)
-                       return(0);
-       return(1);
-       }
-
-int ASN1_TIME_print(BIO *bp, ASN1_TIME *tm)
+static const char *mon[12] = {
+    "Jan", "Feb", "Mar", "Apr", "May", "Jun",
+    "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"
+};
+
+int ASN1_GENERALIZEDTIME_print(BIO *bp, const ASN1_GENERALIZEDTIME *tm)
 {
-       if(tm->type == V_ASN1_UTCTIME) return ASN1_UTCTIME_print(bp, tm);
-       if(tm->type == V_ASN1_GENERALIZEDTIME)
-                               return ASN1_GENERALIZEDTIME_print(bp, tm);
-       BIO_write(bp,"Bad time value",14);
-       return(0);
+    char *v;
+    int gmt = 0;
+    int i;
+    int y = 0, M = 0, d = 0, h = 0, m = 0, s = 0;
+    char *f = NULL;
+    int f_len = 0;
+
+    i = tm->length;
+    v = (char *)tm->data;
+
+    if (i < 12)
+        goto err;
+    if (v[i - 1] == 'Z')
+        gmt = 1;
+    for (i = 0; i < 12; i++)
+        if ((v[i] > '9') || (v[i] < '0'))
+            goto err;
+    y = (v[0] - '0') * 1000 + (v[1] - '0') * 100
+        + (v[2] - '0') * 10 + (v[3] - '0');
+    M = (v[4] - '0') * 10 + (v[5] - '0');
+    if ((M > 12) || (M < 1))
+        goto err;
+    d = (v[6] - '0') * 10 + (v[7] - '0');
+    h = (v[8] - '0') * 10 + (v[9] - '0');
+    m = (v[10] - '0') * 10 + (v[11] - '0');
+    if (tm->length >= 14 &&
+        (v[12] >= '0') && (v[12] <= '9') &&
+        (v[13] >= '0') && (v[13] <= '9')) {
+        s = (v[12] - '0') * 10 + (v[13] - '0');
+        /* Check for fractions of seconds. */
+        if (tm->length >= 15 && v[14] == '.') {
+            int l = tm->length;
+            f = &v[14];         /* The decimal point. */
+            f_len = 1;
+            while (14 + f_len < l && f[f_len] >= '0' && f[f_len] <= '9')
+                ++f_len;
+        }
+    }
+
+    if (BIO_printf(bp, "%s %2d %02d:%02d:%02d%.*s %d%s",
+                   mon[M - 1], d, h, m, s, f_len, f, y,
+                   (gmt) ? " GMT" : "") <= 0)
+        return (0);
+    else
+        return (1);
+ err:
+    BIO_write(bp, "Bad time value", 14);
+    return (0);
 }
 
-static const char *mon[12]=
-    {
-    "Jan","Feb","Mar","Apr","May","Jun",
-    "Jul","Aug","Sep","Oct","Nov","Dec"
-    };
-
-int ASN1_GENERALIZEDTIME_print(BIO *bp, ASN1_GENERALIZEDTIME *tm)
-       {
-       char *v;
-       int gmt=0;
-       int i;
-       int y=0,M=0,d=0,h=0,m=0,s=0;
-
-       i=tm->length;
-       v=(char *)tm->data;
-
-       if (i < 12) goto err;
-       if (v[i-1] == 'Z') gmt=1;
-       for (i=0; i<12; i++)
-               if ((v[i] > '9') || (v[i] < '0')) goto err;
-       y= (v[0]-'0')*1000+(v[1]-'0')*100 + (v[2]-'0')*10+(v[3]-'0');
-       M= (v[4]-'0')*10+(v[5]-'0');
-       if ((M > 12) || (M < 1)) goto err;
-       d= (v[6]-'0')*10+(v[7]-'0');
-       h= (v[8]-'0')*10+(v[9]-'0');
-       m=  (v[10]-'0')*10+(v[11]-'0');
-       if (    (v[12] >= '0') && (v[12] <= '9') &&
-               (v[13] >= '0') && (v[13] <= '9'))
-               s=  (v[12]-'0')*10+(v[13]-'0');
-
-       if (BIO_printf(bp,"%s %2d %02d:%02d:%02d %d%s",
-               mon[M-1],d,h,m,s,y,(gmt)?" GMT":"") <= 0)
-               return(0);
-       else
-               return(1);
-err:
-       BIO_write(bp,"Bad time value",14);
-       return(0);
-       }
-
-int ASN1_UTCTIME_print(BIO *bp, ASN1_UTCTIME *tm)
-       {
-       char *v;
-       int gmt=0;
-       int i;
-       int y=0,M=0,d=0,h=0,m=0,s=0;
-
-       i=tm->length;
-       v=(char *)tm->data;
-
-       if (i < 10) goto err;
-       if (v[i-1] == 'Z') gmt=1;
-       for (i=0; i<10; i++)
-               if ((v[i] > '9') || (v[i] < '0')) goto err;
-       y= (v[0]-'0')*10+(v[1]-'0');
-       if (y < 50) y+=100;
-       M= (v[2]-'0')*10+(v[3]-'0');
-       if ((M > 12) || (M < 1)) goto err;
-       d= (v[4]-'0')*10+(v[5]-'0');
-       h= (v[6]-'0')*10+(v[7]-'0');
-       m=  (v[8]-'0')*10+(v[9]-'0');
-       if (    (v[10] >= '0') && (v[10] <= '9') &&
-               (v[11] >= '0') && (v[11] <= '9'))
-               s=  (v[10]-'0')*10+(v[11]-'0');
-
-       if (BIO_printf(bp,"%s %2d %02d:%02d:%02d %d%s",
-               mon[M-1],d,h,m,s,y+1900,(gmt)?" GMT":"") <= 0)
-               return(0);
-       else
-               return(1);
-err:
-       BIO_write(bp,"Bad time value",14);
-       return(0);
-       }
+int ASN1_UTCTIME_print(BIO *bp, const ASN1_UTCTIME *tm)
+{
+    const char *v;
+    int gmt = 0;
+    int i;
+    int y = 0, M = 0, d = 0, h = 0, m = 0, s = 0;
+
+    i = tm->length;
+    v = (const char *)tm->data;
+
+    if (i < 10)
+        goto err;
+    if (v[i - 1] == 'Z')
+        gmt = 1;
+    for (i = 0; i < 10; i++)
+        if ((v[i] > '9') || (v[i] < '0'))
+            goto err;
+    y = (v[0] - '0') * 10 + (v[1] - '0');
+    if (y < 50)
+        y += 100;
+    M = (v[2] - '0') * 10 + (v[3] - '0');
+    if ((M > 12) || (M < 1))
+        goto err;
+    d = (v[4] - '0') * 10 + (v[5] - '0');
+    h = (v[6] - '0') * 10 + (v[7] - '0');
+    m = (v[8] - '0') * 10 + (v[9] - '0');
+    if (tm->length >= 12 &&
+        (v[10] >= '0') && (v[10] <= '9') && (v[11] >= '0') && (v[11] <= '9'))
+        s = (v[10] - '0') * 10 + (v[11] - '0');
+
+    if (BIO_printf(bp, "%s %2d %02d:%02d:%02d %d%s",
+                   mon[M - 1], d, h, m, s, y + 1900,
+                   (gmt) ? " GMT" : "") <= 0)
+        return (0);
+    else
+        return (1);
+ err:
+    BIO_write(bp, "Bad time value", 14);
+    return (0);
+}
 
 int X509_NAME_print(BIO *bp, X509_NAME *name, int obase)
-       {
-       char *s,*c,*b;
-       int ret=0,l,ll,i,first=1;
-
-       ll=80-2-obase;
-
-       b=s=X509_NAME_oneline(name,NULL,0);
-       if (!*s)
-               {
-               OPENSSL_free(b);
-               return 1;
-               }
-       s++; /* skip the first slash */
-
-       l=ll;
-       c=s;
-       for (;;)
-               {
+{
+    char *s, *c, *b;
+    int ret = 0, l, i;
+
+    l = 80 - 2 - obase;
+
+    b = X509_NAME_oneline(name, NULL, 0);
+    if (!b)
+        return 0;
+    if (!*b) {
+        OPENSSL_free(b);
+        return 1;
+    }
+    s = b + 1;                  /* skip the first slash */
+
+    c = s;
+    for (;;) {
 #ifndef CHARSET_EBCDIC
-               if (    ((*s == '/') &&
-                               ((s[1] >= 'A') && (s[1] <= 'Z') && (
-                                       (s[2] == '=') ||
-                                       ((s[2] >= 'A') && (s[2] <= 'Z') &&
-                                       (s[3] == '='))
-                                ))) ||
-                       (*s == '\0'))
+        if (((*s == '/') &&
+             ((s[1] >= 'A') && (s[1] <= 'Z') && ((s[2] == '=') ||
+                                                 ((s[2] >= 'A')
+                                                  && (s[2] <= 'Z')
+                                                  && (s[3] == '='))
+              ))) || (*s == '\0'))
 #else
-               if (    ((*s == '/') &&
-                               (isupper(s[1]) && (
-                                       (s[2] == '=') ||
-                                       (isupper(s[2]) &&
-                                       (s[3] == '='))
-                                ))) ||
-                       (*s == '\0'))
+        if (((*s == '/') &&
+             (isupper(s[1]) && ((s[2] == '=') ||
+                                (isupper(s[2]) && (s[3] == '='))
+              ))) || (*s == '\0'))
 #endif
-                       {
-                       if ((l <= 0) && !first)
-                               {
-                               first=0;
-                               if (BIO_write(bp,"\n",1) != 1) goto err;
-                               for (i=0; i<obase; i++)
-                                       {
-                                       if (BIO_write(bp," ",1) != 1) goto err;
-                                       }
-                               l=ll;
-                               }
-                       i=s-c;
-                       if (BIO_write(bp,c,i) != i) goto err;
-                       c+=i;
-                       c++;
-                       if (*s != '\0')
-                               {
-                               if (BIO_write(bp,", ",2) != 2) goto err;
-                               }
-                       l--;
-                       }
-               if (*s == '\0') break;
-               s++;
-               l--;
-               }
-       
-       ret=1;
-       if (0)
-               {
-err:
-               X509err(X509_F_X509_NAME_PRINT,ERR_R_BUF_LIB);
-               }
-       OPENSSL_free(b);
-       return(ret);
-       }
-
+        {
+            i = s - c;
+            if (BIO_write(bp, c, i) != i)
+                goto err;
+            c = s + 1;          /* skip following slash */
+            if (*s != '\0') {
+                if (BIO_write(bp, ", ", 2) != 2)
+                    goto err;
+            }
+            l--;
+        }
+        if (*s == '\0')
+            break;
+        s++;
+        l--;
+    }
+
+    ret = 1;
+    if (0) {
+ err:
+        X509err(X509_F_X509_NAME_PRINT, ERR_R_BUF_LIB);
+    }
+    OPENSSL_free(b);
+    return (ret);
+}