Line data Source code
1 : /* crypto/asn1/evp_asn1.c */
2 : /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
3 : * All rights reserved.
4 : *
5 : * This package is an SSL implementation written
6 : * by Eric Young (eay@cryptsoft.com).
7 : * The implementation was written so as to conform with Netscapes SSL.
8 : *
9 : * This library is free for commercial and non-commercial use as long as
10 : * the following conditions are aheared to. The following conditions
11 : * apply to all code found in this distribution, be it the RC4, RSA,
12 : * lhash, DES, etc., code; not just the SSL code. The SSL documentation
13 : * included with this distribution is covered by the same copyright terms
14 : * except that the holder is Tim Hudson (tjh@cryptsoft.com).
15 : *
16 : * Copyright remains Eric Young's, and as such any Copyright notices in
17 : * the code are not to be removed.
18 : * If this package is used in a product, Eric Young should be given attribution
19 : * as the author of the parts of the library used.
20 : * This can be in the form of a textual message at program startup or
21 : * in documentation (online or textual) provided with the package.
22 : *
23 : * Redistribution and use in source and binary forms, with or without
24 : * modification, are permitted provided that the following conditions
25 : * are met:
26 : * 1. Redistributions of source code must retain the copyright
27 : * notice, this list of conditions and the following disclaimer.
28 : * 2. Redistributions in binary form must reproduce the above copyright
29 : * notice, this list of conditions and the following disclaimer in the
30 : * documentation and/or other materials provided with the distribution.
31 : * 3. All advertising materials mentioning features or use of this software
32 : * must display the following acknowledgement:
33 : * "This product includes cryptographic software written by
34 : * Eric Young (eay@cryptsoft.com)"
35 : * The word 'cryptographic' can be left out if the rouines from the library
36 : * being used are not cryptographic related :-).
37 : * 4. If you include any Windows specific code (or a derivative thereof) from
38 : * the apps directory (application code) you must include an acknowledgement:
39 : * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
40 : *
41 : * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
42 : * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
43 : * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
44 : * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
45 : * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
46 : * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
47 : * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
48 : * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
49 : * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
50 : * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
51 : * SUCH DAMAGE.
52 : *
53 : * The licence and distribution terms for any publically available version or
54 : * derivative of this code cannot be changed. i.e. this code cannot simply be
55 : * copied and put under another distribution licence
56 : * [including the GNU Public Licence.]
57 : */
58 :
59 : #include <stdio.h>
60 : #include "cryptlib.h"
61 : #include <openssl/asn1.h>
62 : #include <openssl/asn1_mac.h>
63 :
64 0 : int ASN1_TYPE_set_octetstring(ASN1_TYPE *a, unsigned char *data, int len)
65 : {
66 : ASN1_STRING *os;
67 :
68 0 : if ((os = M_ASN1_OCTET_STRING_new()) == NULL)
69 : return (0);
70 0 : if (!M_ASN1_OCTET_STRING_set(os, data, len)) {
71 0 : M_ASN1_OCTET_STRING_free(os);
72 0 : return 0;
73 : }
74 0 : ASN1_TYPE_set(a, V_ASN1_OCTET_STRING, os);
75 0 : return (1);
76 : }
77 :
78 : /* int max_len: for returned value */
79 0 : int ASN1_TYPE_get_octetstring(ASN1_TYPE *a, unsigned char *data, int max_len)
80 : {
81 : int ret, num;
82 : unsigned char *p;
83 :
84 0 : if ((a->type != V_ASN1_OCTET_STRING) || (a->value.octet_string == NULL)) {
85 0 : ASN1err(ASN1_F_ASN1_TYPE_GET_OCTETSTRING, ASN1_R_DATA_IS_WRONG);
86 0 : return (-1);
87 : }
88 0 : p = M_ASN1_STRING_data(a->value.octet_string);
89 0 : ret = M_ASN1_STRING_length(a->value.octet_string);
90 0 : if (ret < max_len)
91 : num = ret;
92 : else
93 : num = max_len;
94 0 : memcpy(data, p, num);
95 0 : return (ret);
96 : }
97 :
98 0 : int ASN1_TYPE_set_int_octetstring(ASN1_TYPE *a, long num, unsigned char *data,
99 : int len)
100 : {
101 : int n, size;
102 : ASN1_OCTET_STRING os, *osp;
103 : ASN1_INTEGER in;
104 : unsigned char *p;
105 : unsigned char buf[32]; /* when they have 256bit longs, I'll be in
106 : * trouble */
107 0 : in.data = buf;
108 0 : in.length = 32;
109 0 : os.data = data;
110 0 : os.type = V_ASN1_OCTET_STRING;
111 0 : os.length = len;
112 0 : ASN1_INTEGER_set(&in, num);
113 0 : n = i2d_ASN1_INTEGER(&in, NULL);
114 0 : n += M_i2d_ASN1_OCTET_STRING(&os, NULL);
115 :
116 0 : size = ASN1_object_size(1, n, V_ASN1_SEQUENCE);
117 :
118 0 : if ((osp = ASN1_STRING_new()) == NULL)
119 : return (0);
120 : /* Grow the 'string' */
121 0 : if (!ASN1_STRING_set(osp, NULL, size)) {
122 0 : ASN1_STRING_free(osp);
123 0 : return (0);
124 : }
125 :
126 0 : M_ASN1_STRING_length_set(osp, size);
127 0 : p = M_ASN1_STRING_data(osp);
128 :
129 0 : ASN1_put_object(&p, 1, n, V_ASN1_SEQUENCE, V_ASN1_UNIVERSAL);
130 0 : i2d_ASN1_INTEGER(&in, &p);
131 0 : M_i2d_ASN1_OCTET_STRING(&os, &p);
132 :
133 0 : ASN1_TYPE_set(a, V_ASN1_SEQUENCE, osp);
134 0 : return (1);
135 : }
136 :
137 : /*
138 : * we return the actual length..., num may be missing, in which case, set it
139 : * to zero
140 : */
141 : /* int max_len: for returned value */
142 0 : int ASN1_TYPE_get_int_octetstring(ASN1_TYPE *a, long *num,
143 : unsigned char *data, int max_len)
144 : {
145 : int ret = -1, n;
146 : ASN1_INTEGER *ai = NULL;
147 : ASN1_OCTET_STRING *os = NULL;
148 : const unsigned char *p;
149 : long length;
150 : ASN1_const_CTX c;
151 :
152 0 : if ((a->type != V_ASN1_SEQUENCE) || (a->value.sequence == NULL)) {
153 : goto err;
154 : }
155 0 : p = M_ASN1_STRING_data(a->value.sequence);
156 0 : length = M_ASN1_STRING_length(a->value.sequence);
157 :
158 0 : c.pp = &p;
159 0 : c.p = p;
160 0 : c.max = p + length;
161 0 : c.error = ASN1_R_DATA_IS_WRONG;
162 :
163 0 : M_ASN1_D2I_start_sequence();
164 0 : c.q = c.p;
165 0 : if ((ai = d2i_ASN1_INTEGER(NULL, &c.p, c.slen)) == NULL)
166 : goto err;
167 0 : c.slen -= (c.p - c.q);
168 0 : c.q = c.p;
169 0 : if ((os = d2i_ASN1_OCTET_STRING(NULL, &c.p, c.slen)) == NULL)
170 : goto err;
171 0 : c.slen -= (c.p - c.q);
172 0 : if (!M_ASN1_D2I_end_sequence())
173 : goto err;
174 :
175 0 : if (num != NULL)
176 0 : *num = ASN1_INTEGER_get(ai);
177 :
178 0 : ret = M_ASN1_STRING_length(os);
179 0 : if (max_len > ret)
180 : n = ret;
181 : else
182 : n = max_len;
183 :
184 0 : if (data != NULL)
185 0 : memcpy(data, M_ASN1_STRING_data(os), n);
186 : if (0) {
187 : err:
188 0 : ASN1err(ASN1_F_ASN1_TYPE_GET_INT_OCTETSTRING, ASN1_R_DATA_IS_WRONG);
189 : }
190 0 : if (os != NULL)
191 0 : M_ASN1_OCTET_STRING_free(os);
192 0 : if (ai != NULL)
193 0 : M_ASN1_INTEGER_free(ai);
194 0 : return (ret);
195 : }
|