b9258bba8b62fcb613c4f5fba7041506c05003bd
[openssl.git] / crypto / asn1 / f_string.c
1 /*
2  * Copyright 1995-2016 The OpenSSL Project Authors. All Rights Reserved.
3  *
4  * Licensed under the OpenSSL license (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 <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, spec_char;
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 #ifndef CHARSET_EBCDIC
78             spec_char = (!(((buf[j] >= '0') && (buf[j] <= '9')) ||
79                   ((buf[j] >= 'a') && (buf[j] <= 'f')) ||
80                   ((buf[j] >= 'A') && (buf[j] <= 'F'))));
81 #else
82             /*
83              * This #ifdef is not strictly necessary, since the characters
84              * A...F a...f 0...9 are contiguous (yes, even in EBCDIC - but
85              * not the whole alphabet). Nevertheless, isxdigit() is faster.
86              */
87             spec_char = (!isxdigit(buf[j]));
88 #endif
89             if (spec_char) {
90                 i = j;
91                 break;
92             }
93         }
94         buf[i] = '\0';
95         /*
96          * We have now cleared all the crap off the end of the line
97          */
98         if (i < 2)
99             goto err;
100
101         bufp = (unsigned char *)buf;
102
103         k = 0;
104         i -= again;
105         if (i % 2 != 0) {
106             ASN1err(ASN1_F_A2I_ASN1_STRING, ASN1_R_ODD_NUMBER_OF_CHARS);
107             OPENSSL_free(s);
108             return 0;
109         }
110         i /= 2;
111         if (num + i > slen) {
112             sp = OPENSSL_realloc(s, (unsigned int)num + i * 2);
113             if (sp == NULL) {
114                 ASN1err(ASN1_F_A2I_ASN1_STRING, ERR_R_MALLOC_FAILURE);
115                 OPENSSL_free(s);
116                 return 0;
117             }
118             s = sp;
119             slen = num + i * 2;
120         }
121         for (j = 0; j < i; j++, k += 2) {
122             for (n = 0; n < 2; n++) {
123                 m = OPENSSL_hexchar2int(bufp[k + n]);
124                 if (m < 0) {
125                     ASN1err(ASN1_F_A2I_ASN1_STRING,
126                             ASN1_R_NON_HEX_CHARACTERS);
127                     OPENSSL_free(s);
128                     return 0;
129                 }
130                 s[num + j] <<= 4;
131                 s[num + j] |= m;
132             }
133         }
134         num += i;
135         if (again)
136             bufsize = BIO_gets(bp, buf, size);
137         else
138             break;
139     }
140     bs->length = num;
141     bs->data = s;
142     return 1;
143
144  err:
145     ASN1err(ASN1_F_A2I_ASN1_STRING, ASN1_R_SHORT_LINE);
146     OPENSSL_free(s);
147     return 0;
148 }