crypto/bn/bn_print.c

   1 /*
   2  * Copyright 1995-2017 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 <openssl/bio.h>
  12 #include "bn_lcl.h"
  13
  14 static const char Hex[] = "0123456789ABCDEF";
  15
  16 #ifndef OPENSSL_NO_STDIO
  17 int BN_print_fp(FILE *fp, const BIGNUM *a)
  18 {
  19     BIO *b;
  20     int ret;
  21
  22     if ((b = BIO_new(BIO_s_file())) == NULL)
  23         return 0;
  24     BIO_set_fp(b, fp, BIO_NOCLOSE);
  25     ret = BN_print(b, a);
  26     BIO_free(b);
  27     return ret;
  28 }
  29 #endif
  30
  31 int BN_print(BIO *bp, const BIGNUM *a)
  32 {
  33     int i, j, v, z = 0;
  34     int ret = 0;
  35
  36     if ((a->neg) && BIO_write(bp, "-", 1) != 1)
  37         goto end;
  38     if (BN_is_zero(a) && BIO_write(bp, "0", 1) != 1)
  39         goto end;
  40     for (i = a->top - 1; i >= 0; i--) {
  41         for (j = BN_BITS2 - 4; j >= 0; j -= 4) {
  42             /* strip leading zeros */
  43             v = (int)((a->d[i] >> j) & 0x0f);
  44             if (z || v != 0) {
  45                 if (BIO_write(bp, &Hex[v], 1) != 1)
  46                     goto end;
  47                 z = 1;
  48             }
  49         }
  50     }
  51     ret = 1;
  52  end:
  53     return ret;
  54 }
  55
  56 char *BN_options(void)
  57 {
  58     static int init = 0;
  59     static char data[16];
  60
  61     if (!init) {
  62         init++;
  63 #ifdef BN_LLONG
  64         BIO_snprintf(data, sizeof(data), "bn(%zu,%zu)",
  65                      sizeof(BN_ULLONG) * 8, sizeof(BN_ULONG) * 8);
  66 #else
  67         BIO_snprintf(data, sizeof(data), "bn(%zu,%zu)",
  68                      sizeof(BN_ULONG) * 8, sizeof(BN_ULONG) * 8);
  69 #endif
  70     }
  71     return data;
  72 }