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
i2a_ASN1_INTEGER(BIO * bp,const ASN1_INTEGER * a)16 int i2a_ASN1_INTEGER(BIO *bp, const ASN1_INTEGER *a)
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->type & V_ASN1_NEG) {
26 if (BIO_write(bp, "-", 1) != 1)
27 goto err;
28 n = 1;
29 }
30
31 if (a->length == 0) {
32 if (BIO_write(bp, "00", 2) != 2)
33 goto err;
34 n += 2;
35 } else {
36 for (i = 0; i < a->length; i++) {
37 if ((i != 0) && (i % 35 == 0)) {
38 if (BIO_write(bp, "\\\n", 2) != 2)
39 goto err;
40 n += 2;
41 }
42 buf[0] = h[((unsigned char)a->data[i] >> 4) & 0x0f];
43 buf[1] = h[((unsigned char)a->data[i]) & 0x0f];
44 if (BIO_write(bp, buf, 2) != 2)
45 goto err;
46 n += 2;
47 }
48 }
49 return n;
50 err:
51 return -1;
52 }
53
a2i_ASN1_INTEGER(BIO * bp,ASN1_INTEGER * bs,char * buf,int size)54 int a2i_ASN1_INTEGER(BIO *bp, ASN1_INTEGER *bs, char *buf, int size)
55 {
56 int i, j, k, m, n, again, bufsize;
57 unsigned char *s = NULL, *sp;
58 unsigned char *bufp;
59 int num = 0, slen = 0, first = 1;
60
61 bs->type = V_ASN1_INTEGER;
62
63 bufsize = BIO_gets(bp, buf, size);
64 for (;;) {
65 if (bufsize < 1)
66 goto err;
67 i = bufsize;
68 if (buf[i - 1] == '\n')
69 buf[--i] = '\0';
70 if (i == 0)
71 goto err;
72 if (buf[i - 1] == '\r')
73 buf[--i] = '\0';
74 if (i == 0)
75 goto err;
76 again = (buf[i - 1] == '\\');
77
78 for (j = 0; j < i; j++) {
79 if (!ossl_isxdigit(buf[j]))
80 {
81 i = j;
82 break;
83 }
84 }
85 buf[i] = '\0';
86 /*
87 * We have now cleared all the crap off the end of the line
88 */
89 if (i < 2)
90 goto err;
91
92 bufp = (unsigned char *)buf;
93 if (first) {
94 first = 0;
95 if ((bufp[0] == '0') && (bufp[1] == '0')) {
96 bufp += 2;
97 i -= 2;
98 }
99 }
100 k = 0;
101 i -= again;
102 if (i % 2 != 0) {
103 ERR_raise(ERR_LIB_ASN1, ASN1_R_ODD_NUMBER_OF_CHARS);
104 OPENSSL_free(s);
105 return 0;
106 }
107 i /= 2;
108 if (num + i > slen) {
109 sp = OPENSSL_clear_realloc(s, slen, num + i * 2);
110 if (sp == NULL) {
111 ERR_raise(ERR_LIB_ASN1, ERR_R_MALLOC_FAILURE);
112 OPENSSL_free(s);
113 return 0;
114 }
115 s = sp;
116 slen = num + i * 2;
117 }
118 for (j = 0; j < i; j++, k += 2) {
119 for (n = 0; n < 2; n++) {
120 m = OPENSSL_hexchar2int(bufp[k + n]);
121 if (m < 0) {
122 ERR_raise(ERR_LIB_ASN1, ASN1_R_NON_HEX_CHARACTERS);
123 goto err;
124 }
125 s[num + j] <<= 4;
126 s[num + j] |= m;
127 }
128 }
129 num += i;
130 if (again)
131 bufsize = BIO_gets(bp, buf, size);
132 else
133 break;
134 }
135 bs->length = num;
136 bs->data = s;
137 return 1;
138 err:
139 ERR_raise(ERR_LIB_ASN1, ASN1_R_SHORT_LINE);
140 OPENSSL_free(s);
141 return 0;
142 }
143
i2a_ASN1_ENUMERATED(BIO * bp,const ASN1_ENUMERATED * a)144 int i2a_ASN1_ENUMERATED(BIO *bp, const ASN1_ENUMERATED *a)
145 {
146 return i2a_ASN1_INTEGER(bp, a);
147 }
148
a2i_ASN1_ENUMERATED(BIO * bp,ASN1_ENUMERATED * bs,char * buf,int size)149 int a2i_ASN1_ENUMERATED(BIO *bp, ASN1_ENUMERATED *bs, char *buf, int size)
150 {
151 int rv = a2i_ASN1_INTEGER(bp, bs, buf, size);
152 if (rv == 1)
153 bs->type = V_ASN1_INTEGER | (bs->type & V_ASN1_NEG);
154 return rv;
155 }
156