crypto/asn1/f_string.c

   1 /*
   2  * Copyright 1995-2020 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 "crypto/ctype.h"
  12 #include "internal/cryptlib.h"
  13 #include <openssl/buffer.h>
  14 #include <openssl/asn1.h>
  15
  16 int i2a_ASN1_STRING(BIO *bp, const ASN1_STRING *a, int type)
  17 {
  18     int i, n = 0;
  19     static const char *h = "0123456789ABCDEF";
  20     char buf[2];
  21
  22     if (a == NULL)
  23         return 0;
  24
  25     if (a->length == 0) {
  26         if (BIO_write(bp, "0", 1) != 1)
  27             goto err;
  28         n = 1;
  29     } else {
  30         for (i = 0; i < a->length; i++) {
  31             if ((i != 0) && (i % 35 == 0)) {
  32                 if (BIO_write(bp, "\\\n", 2) != 2)
  33                     goto err;
  34                 n += 2;
  35             }
  36             buf[0] = h[((unsigned char)a->data[i] >> 4) & 0x0f];
  37             buf[1] = h[((unsigned char)a->data[i]) & 0x0f];
  38             if (BIO_write(bp, buf, 2) != 2)
  39                 goto err;
  40             n += 2;
  41         }
  42     }
  43     return n;
  44  err:
  45     return -1;
  46 }
  47
  48 int a2i_ASN1_STRING(BIO *bp, ASN1_STRING *bs, char *buf, int size)
  49 {
  50     int i, j, k, m, n, again, bufsize;
  51     unsigned char *s = NULL, *sp;
  52     unsigned char *bufp;
  53     int num = 0, slen = 0, first = 1;
  54
  55     bufsize = BIO_gets(bp, buf, size);
  56     for (;;) {
  57         if (bufsize < 1) {
  58             if (first)
  59                 break;
  60             else
  61                 goto err;
  62         }
  63         first = 0;
  64
  65         i = bufsize;
  66         if (buf[i - 1] == '\n')
  67             buf[--i] = '\0';
  68         if (i == 0)
  69             goto err;
  70         if (buf[i - 1] == '\r')
  71             buf[--i] = '\0';
  72         if (i == 0)
  73             goto err;
  74         again = (buf[i - 1] == '\\');
  75
  76         for (j = i - 1; j > 0; j--) {
  77             if (!ossl_isxdigit(buf[j])) {
  78                 i = j;
  79                 break;
  80             }
  81         }
  82         buf[i] = '\0';
  83         /*
  84          * We have now cleared all the crap off the end of the line
  85          */
  86         if (i < 2)
  87             goto err;
  88
  89         bufp = (unsigned char *)buf;
  90
  91         k = 0;
  92         i -= again;
  93         if (i % 2 != 0) {
  94             ERR_raise(ERR_LIB_ASN1, ASN1_R_ODD_NUMBER_OF_CHARS);
  95             OPENSSL_free(s);
  96             return 0;
  97         }
  98         i /= 2;
  99         if (num + i > slen) {
 100             sp = OPENSSL_realloc(s, (unsigned int)num + i * 2);
 101             if (sp == NULL) {
 102                 OPENSSL_free(s);
 103                 return 0;
 104             }
 105             s = sp;
 106             slen = num + i * 2;
 107         }
 108         for (j = 0; j < i; j++, k += 2) {
 109             for (n = 0; n < 2; n++) {
 110                 m = OPENSSL_hexchar2int(bufp[k + n]);
 111                 if (m < 0) {
 112                     ERR_raise(ERR_LIB_ASN1, ASN1_R_NON_HEX_CHARACTERS);
 113                     OPENSSL_free(s);
 114                     return 0;
 115                 }
 116                 s[num + j] <<= 4;
 117                 s[num + j] |= m;
 118             }
 119         }
 120         num += i;
 121         if (again)
 122             bufsize = BIO_gets(bp, buf, size);
 123         else
 124             break;
 125     }
 126     bs->length = num;
 127     bs->data = s;
 128     return 1;
 129
 130  err:
 131     ERR_raise(ERR_LIB_ASN1, ASN1_R_SHORT_LINE);
 132     OPENSSL_free(s);
 133     return 0;
 134 }