52cfb93c72519f4d3d1b74cb66db144479c84734
[openssl.git] / crypto / asn1 / p7_lib.c
1 /* crypto/asn1/p7_lib.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_mac.h>
62 #include <openssl/objects.h>
63
64 /* ASN1err(ASN1_F_D2I_PKCS7,ASN1_R_BAD_PKCS7_CONTENT);
65  * ASN1err(ASN1_F_I2D_PKCS7,ASN1_R_BAD_PKCS7_TYPE);
66  * ASN1err(ASN1_F_PKCS7_NEW,ASN1_R_BAD_PKCS7_TYPE);
67  */
68
69 int i2d_PKCS7(PKCS7 *a, unsigned char **pp)
70         {
71         M_ASN1_I2D_vars(a);
72
73         if (a->asn1 != NULL)
74                 {
75                 if (pp == NULL)
76                         return((int)a->length);
77                 memcpy(*pp,a->asn1,(int)a->length);
78                 *pp+=a->length;
79                 return((int)a->length);
80                 }
81
82         ret+=4; /* sequence, BER header plus '0 0' end padding */
83         M_ASN1_I2D_len(a->type,i2d_ASN1_OBJECT);
84         if (a->d.ptr != NULL)
85                 {
86                 ret+=4; /* explicit tag [ 0 ] BER plus '0 0' */
87                 switch (OBJ_obj2nid(a->type))
88                         {
89                 case NID_pkcs7_data:
90                         M_ASN1_I2D_len(a->d.data,i2d_ASN1_OCTET_STRING);
91                         break;
92                 case NID_pkcs7_signed:
93                         M_ASN1_I2D_len(a->d.sign,i2d_PKCS7_SIGNED);
94                         break;
95                 case NID_pkcs7_enveloped:
96                         M_ASN1_I2D_len(a->d.enveloped,i2d_PKCS7_ENVELOPE);
97                         break;
98                 case NID_pkcs7_signedAndEnveloped:
99                         M_ASN1_I2D_len(a->d.signed_and_enveloped,
100                                 i2d_PKCS7_SIGN_ENVELOPE);
101                         break;
102                 case NID_pkcs7_digest:
103                         M_ASN1_I2D_len(a->d.digest,i2d_PKCS7_DIGEST);
104                         break;
105                 case NID_pkcs7_encrypted:
106                         M_ASN1_I2D_len(a->d.encrypted,i2d_PKCS7_ENCRYPT);
107                         break;
108                 default:
109                         break;
110                         }
111                 }
112         r=ret;
113         if (pp == NULL) return(r);
114         p= *pp;
115         M_ASN1_I2D_INF_seq_start(V_ASN1_SEQUENCE,V_ASN1_UNIVERSAL);
116         M_ASN1_I2D_put(a->type,i2d_ASN1_OBJECT);
117
118         if (a->d.ptr != NULL)
119                 {
120                 M_ASN1_I2D_INF_seq_start(0,V_ASN1_CONTEXT_SPECIFIC);
121                 switch (OBJ_obj2nid(a->type))
122                         {
123                 case NID_pkcs7_data:
124                         M_ASN1_I2D_put(a->d.data,i2d_ASN1_OCTET_STRING);
125                         break;
126                 case NID_pkcs7_signed:
127                         M_ASN1_I2D_put(a->d.sign,i2d_PKCS7_SIGNED);
128                         break;
129                 case NID_pkcs7_enveloped:
130                         M_ASN1_I2D_put(a->d.enveloped,i2d_PKCS7_ENVELOPE);
131                         break;
132                 case NID_pkcs7_signedAndEnveloped:
133                         M_ASN1_I2D_put(a->d.signed_and_enveloped,
134                                 i2d_PKCS7_SIGN_ENVELOPE);
135                         break;
136                 case NID_pkcs7_digest:
137                         M_ASN1_I2D_put(a->d.digest,i2d_PKCS7_DIGEST);
138                         break;
139                 case NID_pkcs7_encrypted:
140                         M_ASN1_I2D_put(a->d.encrypted,i2d_PKCS7_ENCRYPT);
141                         break;
142                 default:
143                         break;
144                         }
145                 M_ASN1_I2D_INF_seq_end();
146                 }
147         M_ASN1_I2D_INF_seq_end();
148         M_ASN1_I2D_finish();
149         }
150
151 PKCS7 *d2i_PKCS7(PKCS7 **a, unsigned char **pp, long length)
152         {
153         M_ASN1_D2I_vars(a,PKCS7 *,PKCS7_new);
154
155         if ((a != NULL) && ((*a) != NULL))
156                 {
157                 if ((*a)->asn1 != NULL)
158                         {
159                         Free((char *)(*a)->asn1);
160                         (*a)->asn1=NULL;
161                         }
162                 (*a)->length=0;
163                 }
164
165         M_ASN1_D2I_Init();
166         M_ASN1_D2I_start_sequence();
167         M_ASN1_D2I_get(ret->type,d2i_ASN1_OBJECT);
168         if (!M_ASN1_D2I_end_sequence())
169                 {
170                 int Tinf,Ttag,Tclass;
171                 long Tlen;
172
173                 if (M_ASN1_next != (V_ASN1_CONSTRUCTED|
174                         V_ASN1_CONTEXT_SPECIFIC|0))
175                         {
176                         c.error=ASN1_R_BAD_PKCS7_CONTENT;
177                         c.line=__LINE__;
178                         goto err;
179                         }
180
181                 ret->detached=0;
182
183                 c.q=c.p;
184                 Tinf=ASN1_get_object(&c.p,&Tlen,&Ttag,&Tclass,
185                         (c.inf & 1)?(length+ *pp-c.q):c.slen);
186                 if (Tinf & 0x80) { c.line=__LINE__; goto err; }
187                 c.slen-=(c.p-c.q);
188
189                 switch (OBJ_obj2nid(ret->type))
190                         {
191                 case NID_pkcs7_data:
192                         M_ASN1_D2I_get(ret->d.data,d2i_ASN1_OCTET_STRING);
193                         break;
194                 case NID_pkcs7_signed:
195                         M_ASN1_D2I_get(ret->d.sign,d2i_PKCS7_SIGNED);
196                         if (ret->d.sign->contents->d.ptr == NULL)
197                                 ret->detached=1;
198                         break;
199                 case NID_pkcs7_enveloped:
200                         M_ASN1_D2I_get(ret->d.enveloped,d2i_PKCS7_ENVELOPE);
201                         break;
202                 case NID_pkcs7_signedAndEnveloped:
203                         M_ASN1_D2I_get(ret->d.signed_and_enveloped,
204                                 d2i_PKCS7_SIGN_ENVELOPE);
205                         break;
206                 case NID_pkcs7_digest:
207                         M_ASN1_D2I_get(ret->d.digest,d2i_PKCS7_DIGEST);
208                         break;
209                 case NID_pkcs7_encrypted:
210                         M_ASN1_D2I_get(ret->d.encrypted,d2i_PKCS7_ENCRYPT);
211                         break;
212                 default:
213                         c.error=ASN1_R_BAD_PKCS7_TYPE;
214                         c.line=__LINE__;
215                         goto err;
216                         /* break; */
217                         }
218                 if (Tinf == (1|V_ASN1_CONSTRUCTED))
219                         {
220                         if (!ASN1_check_infinite_end(&c.p,c.slen))
221                                 {
222                                 c.error=ERR_R_MISSING_ASN1_EOS;
223                                 c.line=__LINE__;
224                                 goto err;
225                                 }
226                         }
227                 }
228         else
229                 ret->detached=1;
230                 
231         M_ASN1_D2I_Finish(a,PKCS7_free,ASN1_F_D2I_PKCS7);
232         }
233
234 PKCS7 *PKCS7_new(void)
235         {
236         PKCS7 *ret=NULL;
237         ASN1_CTX c;
238
239         M_ASN1_New_Malloc(ret,PKCS7);
240         ret->type=OBJ_nid2obj(NID_undef);
241         ret->asn1=NULL;
242         ret->length=0;
243         ret->detached=0;
244         ret->d.ptr=NULL;
245         return(ret);
246         M_ASN1_New_Error(ASN1_F_PKCS7_NEW);
247         }
248
249 void PKCS7_free(PKCS7 *a)
250         {
251         if (a == NULL) return;
252
253         PKCS7_content_free(a);
254         if (a->type != NULL)
255                 {
256                 ASN1_OBJECT_free(a->type);
257                 }
258         Free((char *)(char *)a);
259         }
260
261 void PKCS7_content_free(PKCS7 *a)
262         {
263         if(a == NULL)
264             return;
265
266         if (a->asn1 != NULL) Free((char *)a->asn1);
267
268         if (a->d.ptr != NULL)
269                 {
270                 if (a->type == NULL) return;
271
272                 switch (OBJ_obj2nid(a->type))
273                         {
274                 case NID_pkcs7_data:
275                         ASN1_OCTET_STRING_free(a->d.data);
276                         break;
277                 case NID_pkcs7_signed:
278                         PKCS7_SIGNED_free(a->d.sign);
279                         break;
280                 case NID_pkcs7_enveloped:
281                         PKCS7_ENVELOPE_free(a->d.enveloped);
282                         break;
283                 case NID_pkcs7_signedAndEnveloped:
284                         PKCS7_SIGN_ENVELOPE_free(a->d.signed_and_enveloped);
285                         break;
286                 case NID_pkcs7_digest:
287                         PKCS7_DIGEST_free(a->d.digest);
288                         break;
289                 case NID_pkcs7_encrypted:
290                         PKCS7_ENCRYPT_free(a->d.encrypted);
291                         break;
292                 default:
293                         /* MEMORY LEAK */
294                         break;
295                         }
296                 }
297         a->d.ptr=NULL;
298         }
299