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 "crypto/ctype.h"
12#include "internal/cryptlib.h"
13#include <openssl/buffer.h>
14#include <openssl/asn1.h>
15
16int 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
54int 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 ASN1err(ASN1_F_A2I_ASN1_INTEGER, 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 ASN1err(ASN1_F_A2I_ASN1_INTEGER, 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 ASN1err(ASN1_F_A2I_ASN1_INTEGER,
123 ASN1_R_NON_HEX_CHARACTERS);
124 goto err;
125 }
126 s[num + j] <<= 4;
127 s[num + j] |= m;
128 }
129 }
130 num += i;
131 if (again)
132 bufsize = BIO_gets(bp, buf, size);
133 else
134 break;
135 }
136 bs->length = num;
137 bs->data = s;
138 return 1;
139 err:
140 ASN1err(ASN1_F_A2I_ASN1_INTEGER, ASN1_R_SHORT_LINE);
141 OPENSSL_free(s);
142 return 0;
143}
144
145int i2a_ASN1_ENUMERATED(BIO *bp, const ASN1_ENUMERATED *a)
146{
147 return i2a_ASN1_INTEGER(bp, a);
148}
149
150int a2i_ASN1_ENUMERATED(BIO *bp, ASN1_ENUMERATED *bs, char *buf, int size)
151{
152 int rv = a2i_ASN1_INTEGER(bp, bs, buf, size);
153 if (rv == 1)
154 bs->type = V_ASN1_INTEGER | (bs->type & V_ASN1_NEG);
155 return rv;
156}
157