1 /* crypto/asn1/a_set.c */
2 /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
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.
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).
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.
23 * Redistribution and use in source and binary forms, with or without
24 * modification, are permitted provided that the following conditions
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)"
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
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.]
61 #include <openssl/asn1_mac.h>
66 unsigned char *pbData
;
71 * SetBlobCmp This function compares two elements of SET_OF block
73 static int SetBlobCmp(const void *elem1
, const void *elem2
)
75 const MYBLOB
*b1
= (const MYBLOB
*)elem1
;
76 const MYBLOB
*b2
= (const MYBLOB
*)elem2
;
79 r
= memcmp(b1
->pbData
, b2
->pbData
,
80 b1
->cbData
< b2
->cbData
? b1
->cbData
: b2
->cbData
);
83 return b1
->cbData
- b2
->cbData
;
87 * int is_set: if TRUE, then sort the contents (i.e. it isn't a SEQUENCE)
89 int i2d_ASN1_SET(STACK_OF(OPENSSL_BLOCK
) *a
, unsigned char **pp
,
90 i2d_of_void
*i2d
, int ex_tag
, int ex_class
, int is_set
)
95 unsigned char *pStart
, *pTempMem
;
101 for (i
= sk_OPENSSL_BLOCK_num(a
) - 1; i
>= 0; i
--)
102 ret
+= i2d(sk_OPENSSL_BLOCK_value(a
, i
), NULL
);
103 r
= ASN1_object_size(1, ret
, ex_tag
);
108 ASN1_put_object(&p
, 1, ret
, ex_tag
, ex_class
);
110 /* Modified by gp@nsj.co.jp */
111 /* And then again by Ben */
112 /* And again by Steve */
114 if (!is_set
|| (sk_OPENSSL_BLOCK_num(a
) < 2)) {
115 for (i
= 0; i
< sk_OPENSSL_BLOCK_num(a
); i
++)
116 i2d(sk_OPENSSL_BLOCK_value(a
, i
), &p
);
122 pStart
= p
; /* Catch the beg of Setblobs */
123 /* In this array we will store the SET blobs */
124 rgSetBlob
= OPENSSL_malloc(sk_OPENSSL_BLOCK_num(a
) * sizeof(MYBLOB
));
125 if (rgSetBlob
== NULL
) {
126 ASN1err(ASN1_F_I2D_ASN1_SET
, ERR_R_MALLOC_FAILURE
);
130 for (i
= 0; i
< sk_OPENSSL_BLOCK_num(a
); i
++) {
131 rgSetBlob
[i
].pbData
= p
; /* catch each set encode blob */
132 i2d(sk_OPENSSL_BLOCK_value(a
, i
), &p
);
133 rgSetBlob
[i
].cbData
= p
- rgSetBlob
[i
].pbData
; /* Length of this
137 totSize
= p
- pStart
; /* This is the total size of all set blobs */
140 * Now we have to sort the blobs. I am using a simple algo. *Sort ptrs
141 * *Copy to temp-mem *Copy from temp-mem to user-mem
143 qsort(rgSetBlob
, sk_OPENSSL_BLOCK_num(a
), sizeof(MYBLOB
), SetBlobCmp
);
144 if (!(pTempMem
= OPENSSL_malloc(totSize
))) {
145 OPENSSL_free(rgSetBlob
);
146 ASN1err(ASN1_F_I2D_ASN1_SET
, ERR_R_MALLOC_FAILURE
);
150 /* Copy to temp mem */
152 for (i
= 0; i
< sk_OPENSSL_BLOCK_num(a
); ++i
) {
153 memcpy(p
, rgSetBlob
[i
].pbData
, rgSetBlob
[i
].cbData
);
154 p
+= rgSetBlob
[i
].cbData
;
157 /* Copy back to user mem*/
158 memcpy(pStart
, pTempMem
, totSize
);
159 OPENSSL_free(pTempMem
);
160 OPENSSL_free(rgSetBlob
);
165 STACK_OF(OPENSSL_BLOCK
) *d2i_ASN1_SET(STACK_OF(OPENSSL_BLOCK
) **a
,
166 const unsigned char **pp
,
167 long length
, d2i_of_void
*d2i
,
168 void (*free_func
) (OPENSSL_BLOCK
),
169 int ex_tag
, int ex_class
)
172 STACK_OF(OPENSSL_BLOCK
) *ret
= NULL
;
174 if ((a
== NULL
) || ((*a
) == NULL
)) {
175 if ((ret
= sk_OPENSSL_BLOCK_new_null()) == NULL
) {
176 ASN1err(ASN1_F_D2I_ASN1_SET
, ERR_R_MALLOC_FAILURE
);
183 c
.max
= (length
== 0) ? 0 : (c
.p
+ length
);
185 c
.inf
= ASN1_get_object(&c
.p
, &c
.slen
, &c
.tag
, &c
.xclass
, c
.max
- c
.p
);
188 if (ex_class
!= c
.xclass
) {
189 ASN1err(ASN1_F_D2I_ASN1_SET
, ASN1_R_BAD_CLASS
);
192 if (ex_tag
!= c
.tag
) {
193 ASN1err(ASN1_F_D2I_ASN1_SET
, ASN1_R_BAD_TAG
);
196 if ((c
.slen
+ c
.p
) > c
.max
) {
197 ASN1err(ASN1_F_D2I_ASN1_SET
, ASN1_R_LENGTH_ERROR
);
201 * check for infinite constructed - it can be as long as the amount of
204 if (c
.inf
== (V_ASN1_CONSTRUCTED
+ 1))
205 c
.slen
= length
+ *pp
- c
.p
;
206 c
.max
= c
.p
+ c
.slen
;
208 while (c
.p
< c
.max
) {
211 if (M_ASN1_D2I_end_sequence())
214 * XXX: This was called with 4 arguments, incorrectly, it seems if
215 * ((s=func(NULL,&c.p,c.slen,c.max-c.p)) == NULL)
217 if ((s
= d2i(NULL
, &c
.p
, c
.slen
)) == NULL
) {
218 ASN1err(ASN1_F_D2I_ASN1_SET
, ASN1_R_ERROR_PARSING_SET_ELEMENT
);
219 asn1_add_error(*pp
, (int)(c
.p
- *pp
));
222 if (!sk_OPENSSL_BLOCK_push(ret
, s
))
230 if ((ret
!= NULL
) && ((a
== NULL
) || (*a
!= ret
))) {
231 if (free_func
!= NULL
)
232 sk_OPENSSL_BLOCK_pop_free(ret
, free_func
);
234 sk_OPENSSL_BLOCK_free(ret
);