Use OPENSSL_hexchar2int
[openssl.git] / crypto / asn1 / f_string.c
1 /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
2  * All rights reserved.
3  *
4  * This package is an SSL implementation written
5  * by Eric Young (eay@cryptsoft.com).
6  * The implementation was written so as to conform with Netscapes SSL.
7  *
8  * This library is free for commercial and non-commercial use as long as
9  * the following conditions are aheared to.  The following conditions
10  * apply to all code found in this distribution, be it the RC4, RSA,
11  * lhash, DES, etc., code; not just the SSL code.  The SSL documentation
12  * included with this distribution is covered by the same copyright terms
13  * except that the holder is Tim Hudson (tjh@cryptsoft.com).
14  *
15  * Copyright remains Eric Young's, and as such any Copyright notices in
16  * the code are not to be removed.
17  * If this package is used in a product, Eric Young should be given attribution
18  * as the author of the parts of the library used.
19  * This can be in the form of a textual message at program startup or
20  * in documentation (online or textual) provided with the package.
21  *
22  * Redistribution and use in source and binary forms, with or without
23  * modification, are permitted provided that the following conditions
24  * are met:
25  * 1. Redistributions of source code must retain the copyright
26  *    notice, this list of conditions and the following disclaimer.
27  * 2. Redistributions in binary form must reproduce the above copyright
28  *    notice, this list of conditions and the following disclaimer in the
29  *    documentation and/or other materials provided with the distribution.
30  * 3. All advertising materials mentioning features or use of this software
31  *    must display the following acknowledgement:
32  *    "This product includes cryptographic software written by
33  *     Eric Young (eay@cryptsoft.com)"
34  *    The word 'cryptographic' can be left out if the rouines from the library
35  *    being used are not cryptographic related :-).
36  * 4. If you include any Windows specific code (or a derivative thereof) from
37  *    the apps directory (application code) you must include an acknowledgement:
38  *    "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
39  *
40  * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
41  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
42  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
43  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
44  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
45  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
46  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
47  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
48  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
49  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
50  * SUCH DAMAGE.
51  *
52  * The licence and distribution terms for any publically available version or
53  * derivative of this code cannot be changed.  i.e. this code cannot simply be
54  * copied and put under another distribution licence
55  * [including the GNU Public Licence.]
56  */
57
58 #include <stdio.h>
59 #include <ctype.h>
60 #include "internal/cryptlib.h"
61 #include <openssl/buffer.h>
62 #include <openssl/asn1.h>
63
64 int i2a_ASN1_STRING(BIO *bp, ASN1_STRING *a, int type)
65 {
66     int i, n = 0;
67     static const char *h = "0123456789ABCDEF";
68     char buf[2];
69
70     if (a == NULL)
71         return (0);
72
73     if (a->length == 0) {
74         if (BIO_write(bp, "0", 1) != 1)
75             goto err;
76         n = 1;
77     } else {
78         for (i = 0; i < a->length; i++) {
79             if ((i != 0) && (i % 35 == 0)) {
80                 if (BIO_write(bp, "\\\n", 2) != 2)
81                     goto err;
82                 n += 2;
83             }
84             buf[0] = h[((unsigned char)a->data[i] >> 4) & 0x0f];
85             buf[1] = h[((unsigned char)a->data[i]) & 0x0f];
86             if (BIO_write(bp, buf, 2) != 2)
87                 goto err;
88             n += 2;
89         }
90     }
91     return (n);
92  err:
93     return (-1);
94 }
95
96 int a2i_ASN1_STRING(BIO *bp, ASN1_STRING *bs, char *buf, int size)
97 {
98     int i, j, k, m, n, again, bufsize, spec_char;
99     unsigned char *s = NULL, *sp;
100     unsigned char *bufp;
101     int num = 0, slen = 0, first = 1;
102
103     bufsize = BIO_gets(bp, buf, size);
104     for (;;) {
105         if (bufsize < 1) {
106             if (first)
107                 break;
108             else
109                 goto err;
110         }
111         first = 0;
112
113         i = bufsize;
114         if (buf[i - 1] == '\n')
115             buf[--i] = '\0';
116         if (i == 0)
117             goto err;
118         if (buf[i - 1] == '\r')
119             buf[--i] = '\0';
120         if (i == 0)
121             goto err;
122         again = (buf[i - 1] == '\\');
123
124         for (j = i - 1; j > 0; j--) {
125 #ifndef CHARSET_EBCDIC
126             spec_char = (!(((buf[j] >= '0') && (buf[j] <= '9')) ||
127                   ((buf[j] >= 'a') && (buf[j] <= 'f')) ||
128                   ((buf[j] >= 'A') && (buf[j] <= 'F'))));
129 #else
130             /*
131              * This #ifdef is not strictly necessary, since the characters
132              * A...F a...f 0...9 are contiguous (yes, even in EBCDIC - but
133              * not the whole alphabet). Nevertheless, isxdigit() is faster.
134              */
135             spec_char = (!isxdigit(buf[j]));
136 #endif
137             if (spec_char) {
138                 i = j;
139                 break;
140             }
141         }
142         buf[i] = '\0';
143         /*
144          * We have now cleared all the crap off the end of the line
145          */
146         if (i < 2)
147             goto err;
148
149         bufp = (unsigned char *)buf;
150
151         k = 0;
152         i -= again;
153         if (i % 2 != 0) {
154             ASN1err(ASN1_F_A2I_ASN1_STRING, ASN1_R_ODD_NUMBER_OF_CHARS);
155             return 0;
156         }
157         i /= 2;
158         if (num + i > slen) {
159             sp = OPENSSL_realloc(s, (unsigned int)num + i * 2);
160             if (sp == NULL) {
161                 ASN1err(ASN1_F_A2I_ASN1_STRING, ERR_R_MALLOC_FAILURE);
162                 OPENSSL_free(s);
163                 return 0;
164             }
165             s = sp;
166             slen = num + i * 2;
167         }
168         for (j = 0; j < i; j++, k += 2) {
169             for (n = 0; n < 2; n++) {
170                 m = OPENSSL_hexchar2int(bufp[k + n]);
171                 if (m < 0) {
172                     ASN1err(ASN1_F_A2I_ASN1_STRING,
173                             ASN1_R_NON_HEX_CHARACTERS);
174                     return 0;
175                 }
176                 s[num + j] <<= 4;
177                 s[num + j] |= m;
178             }
179         }
180         num += i;
181         if (again)
182             bufsize = BIO_gets(bp, buf, size);
183         else
184             break;
185     }
186     bs->length = num;
187     bs->data = s;
188     return 1;
189
190  err:
191     ASN1err(ASN1_F_A2I_ASN1_STRING, ASN1_R_SHORT_LINE);
192     return 0;
193 }