crypto/asn1/t_pkey.c

   1 /*
   2  * Copyright 1995-2016 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 <stdio.h>
  11 #include "internal/cryptlib.h"
  12 #include <openssl/objects.h>
  13 #include <openssl/buffer.h>
  14 #include "crypto/bn.h"
  15
  16 /* Number of octets per line */
  17 #define ASN1_BUF_PRINT_WIDTH    15
  18 /* Maximum indent */
  19 #define ASN1_PRINT_MAX_INDENT 128
  20
  21 int ASN1_buf_print(BIO *bp, const unsigned char *buf, size_t buflen, int indent)
  22 {
  23     size_t i;
  24
  25     for (i = 0; i < buflen; i++) {
  26         if ((i % ASN1_BUF_PRINT_WIDTH) == 0) {
  27             if (i > 0 && BIO_puts(bp, "\n") <= 0)
  28                 return 0;
  29             if (!BIO_indent(bp, indent, ASN1_PRINT_MAX_INDENT))
  30                 return 0;
  31         }
  32         /*
  33          * Use colon separators for each octet for compatibility as
  34          * this function is used to print out key components.
  35          */
  36         if (BIO_printf(bp, "%02x%s", buf[i],
  37                        (i == buflen - 1) ? "" : ":") <= 0)
  38                 return 0;
  39     }
  40     if (BIO_write(bp, "\n", 1) <= 0)
  41         return 0;
  42     return 1;
  43 }
  44
  45 int ASN1_bn_print(BIO *bp, const char *number, const BIGNUM *num,
  46                   unsigned char *ign, int indent)
  47 {
  48     int n, rv = 0;
  49     const char *neg;
  50     unsigned char *buf = NULL, *tmp = NULL;
  51     int buflen;
  52
  53     if (num == NULL)
  54         return 1;
  55     neg = BN_is_negative(num) ? "-" : "";
  56     if (!BIO_indent(bp, indent, ASN1_PRINT_MAX_INDENT))
  57         return 0;
  58     if (BN_is_zero(num)) {
  59         if (BIO_printf(bp, "%s 0\n", number) <= 0)
  60             return 0;
  61         return 1;
  62     }
  63
  64     if (BN_num_bytes(num) <= BN_BYTES) {
  65         if (BIO_printf(bp, "%s %s%lu (%s0x%lx)\n", number, neg,
  66                        (unsigned long)bn_get_words(num)[0], neg,
  67                        (unsigned long)bn_get_words(num)[0]) <= 0)
  68             return 0;
  69         return 1;
  70     }
  71
  72     buflen = BN_num_bytes(num) + 1;
  73     buf = tmp = OPENSSL_malloc(buflen);
  74     if (buf == NULL)
  75         goto err;
  76     buf[0] = 0;
  77     if (BIO_printf(bp, "%s%s\n", number,
  78                    (neg[0] == '-') ? " (Negative)" : "") <= 0)
  79         goto err;
  80     n = BN_bn2bin(num, buf + 1);
  81
  82     if (buf[1] & 0x80)
  83         n++;
  84     else
  85         tmp++;
  86
  87     if (ASN1_buf_print(bp, tmp, n, indent + 4) == 0)
  88         goto err;
  89     rv = 1;
  90     err:
  91     OPENSSL_clear_free(buf, buflen);
  92     return rv;
  93 }