ab8575a427fb5004b22ed3bbf45f16400641603f
[openssl.git] / crypto / pkcs12 / p12_sbag.c
1 /* p12_sbag.c */
2 /* Written by Dr Stephen N Henson (shenson@bigfoot.com) for the OpenSSL
3  * project 1999.
4  */
5 /* ====================================================================
6  * Copyright (c) 1999 The OpenSSL Project.  All rights reserved.
7  *
8  * Redistribution and use in source and binary forms, with or without
9  * modification, are permitted provided that the following conditions
10  * are met:
11  *
12  * 1. Redistributions of source code must retain the above copyright
13  *    notice, this list of conditions and the following disclaimer. 
14  *
15  * 2. Redistributions in binary form must reproduce the above copyright
16  *    notice, this list of conditions and the following disclaimer in
17  *    the documentation and/or other materials provided with the
18  *    distribution.
19  *
20  * 3. All advertising materials mentioning features or use of this
21  *    software must display the following acknowledgment:
22  *    "This product includes software developed by the OpenSSL Project
23  *    for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)"
24  *
25  * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
26  *    endorse or promote products derived from this software without
27  *    prior written permission. For written permission, please contact
28  *    licensing@OpenSSL.org.
29  *
30  * 5. Products derived from this software may not be called "OpenSSL"
31  *    nor may "OpenSSL" appear in their names without prior written
32  *    permission of the OpenSSL Project.
33  *
34  * 6. Redistributions of any form whatsoever must retain the following
35  *    acknowledgment:
36  *    "This product includes software developed by the OpenSSL Project
37  *    for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)"
38  *
39  * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
40  * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
41  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
42  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE OpenSSL PROJECT OR
43  * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
44  * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
45  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
46  * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
47  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
48  * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
49  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
50  * OF THE POSSIBILITY OF SUCH DAMAGE.
51  * ====================================================================
52  *
53  * This product includes cryptographic software written by Eric Young
54  * (eay@cryptsoft.com).  This product includes software written by Tim
55  * Hudson (tjh@cryptsoft.com).
56  *
57  */
58
59 #include <stdio.h>
60 #include "cryptlib.h"
61 #include <openssl/asn1_mac.h>
62 #include <openssl/pkcs12.h>
63
64 /*
65  *ASN1err(ASN1_F_PKCS12_SAFEBAG_NEW,ASN1_R_DECODE_ERROR)
66  *ASN1err(ASN1_F_D2I_PKCS12_SAFEBAG,ASN1_R_DECODE_ERROR)
67  */
68
69 int i2d_PKCS12_SAFEBAG(PKCS12_SAFEBAG *a, unsigned char **pp)
70 {
71         int bagnid, v = 0;
72         M_ASN1_I2D_vars(a);
73         bagnid = OBJ_obj2nid (a->type);
74         M_ASN1_I2D_len (a->type, i2d_ASN1_OBJECT);
75         
76         switch (bagnid) {
77
78                 case NID_keyBag:
79                         M_ASN1_I2D_len_EXP_opt (a->value.keybag,
80                                                  i2d_PKCS8_PRIV_KEY_INFO, 0, v);
81                 break;
82
83                 case NID_pkcs8ShroudedKeyBag:
84                         M_ASN1_I2D_len_EXP_opt (a->value.shkeybag,
85                                                  i2d_X509_SIG, 0, v);
86                 break;
87
88                 case NID_safeContentsBag:
89                         M_ASN1_I2D_len_EXP_SEQUENCE_opt (a->value.safes,
90                                  i2d_PKCS12_SAFEBAG, 0, V_ASN1_SEQUENCE, v);
91                 break;
92
93                 case NID_certBag:
94                 case NID_crlBag:
95                 case NID_secretBag:
96                         M_ASN1_I2D_len_EXP_opt (a->value.bag,
97                                                  i2d_PKCS12_BAGS, 0, v);
98                 break;
99
100                 default:
101                         M_ASN1_I2D_len_EXP_opt (a->value.other,
102                                                  i2d_ASN1_TYPE, 0, v);
103                 break;
104         }
105
106         M_ASN1_I2D_len_SET (a->attrib, i2d_X509_ATTRIBUTE);
107
108         M_ASN1_I2D_seq_total ();
109         
110         M_ASN1_I2D_put (a->type, i2d_ASN1_OBJECT);
111
112         switch (bagnid) {
113
114                 case NID_keyBag:
115                         M_ASN1_I2D_put_EXP_opt (a->value.keybag,
116                                                  i2d_PKCS8_PRIV_KEY_INFO, 0, v);
117                 break;
118
119                 case NID_pkcs8ShroudedKeyBag:
120                         M_ASN1_I2D_put_EXP_opt (a->value.shkeybag,
121                                                  i2d_X509_SIG, 0, v);
122                 break;
123
124                 case NID_safeContentsBag:
125                         M_ASN1_I2D_put_EXP_SEQUENCE_opt (a->value.safes,
126                                  i2d_PKCS12_SAFEBAG, 0, V_ASN1_SEQUENCE, v);
127                 break;
128
129                 case NID_certBag:
130                 case NID_crlBag:
131                 case NID_secretBag:
132                         M_ASN1_I2D_put_EXP_opt (a->value.bag,
133                                                  i2d_PKCS12_BAGS, 0, v);
134                 break;
135
136                 default:
137                         M_ASN1_I2D_put_EXP_opt (a->value.other,
138                                                  i2d_ASN1_TYPE, 0, v);
139                 break;
140         }
141
142         M_ASN1_I2D_put_SET (a->attrib, i2d_X509_ATTRIBUTE);
143
144         M_ASN1_I2D_finish();
145 }
146
147 PKCS12_SAFEBAG *PKCS12_SAFEBAG_new(void)
148 {
149         PKCS12_SAFEBAG *ret=NULL;
150         ASN1_CTX c;
151         M_ASN1_New_Malloc(ret, PKCS12_SAFEBAG);
152         ret->type=NULL;
153         ret->value.other=NULL;
154         M_ASN1_New(ret->attrib, sk_new_null);
155         ret->rest=NULL;
156         return (ret);
157         M_ASN1_New_Error(ASN1_F_PKCS12_SAFEBAG_NEW);
158 }
159
160 PKCS12_SAFEBAG *d2i_PKCS12_SAFEBAG(PKCS12_SAFEBAG **a, unsigned char **pp,
161              long length)
162 {
163         int bagnid;
164         M_ASN1_D2I_vars(a,PKCS12_SAFEBAG *,PKCS12_SAFEBAG_new);
165         M_ASN1_D2I_Init();
166         M_ASN1_D2I_start_sequence();
167         M_ASN1_D2I_get (ret->type, d2i_ASN1_OBJECT);
168         bagnid = OBJ_obj2nid (ret->type);
169
170         switch (bagnid) {
171
172                 case NID_keyBag:
173                         M_ASN1_D2I_get_EXP_opt (ret->value.keybag,
174                                                  d2i_PKCS8_PRIV_KEY_INFO, 0);
175                 break;
176
177                 case NID_pkcs8ShroudedKeyBag:
178                         M_ASN1_D2I_get_EXP_opt (ret->value.shkeybag,
179                                                         d2i_X509_SIG, 0);
180                 break;
181
182                 case NID_safeContentsBag:
183                         M_ASN1_D2I_get_EXP_set_opt(ret->value.safes,
184                                 d2i_PKCS12_SAFEBAG, PKCS12_SAFEBAG_free,
185                                                          0, V_ASN1_SEQUENCE);
186                 break;
187
188                 case NID_certBag:
189                 case NID_crlBag:
190                 case NID_secretBag:
191                         M_ASN1_D2I_get_EXP_opt (ret->value.bag,
192                                                          d2i_PKCS12_BAGS, 0);
193                 break;
194
195                 default:
196                         M_ASN1_D2I_get_EXP_opt (ret->value.other,
197                                                          d2i_ASN1_TYPE, 0);
198                 break;
199         }
200         M_ASN1_D2I_get_set_opt(ret->attrib, d2i_X509_ATTRIBUTE,
201                                                          X509_ATTRIBUTE_free);
202         M_ASN1_D2I_Finish(a, PKCS12_SAFEBAG_free, ASN1_F_D2I_PKCS12_SAFEBAG);
203 }
204
205 void PKCS12_SAFEBAG_free (PKCS12_SAFEBAG *a)
206 {
207         if (a == NULL) return;
208         switch (OBJ_obj2nid(a->type)) {
209
210                 case NID_keyBag:
211                         PKCS8_PRIV_KEY_INFO_free (a->value.keybag);
212                 break;
213
214                 case NID_pkcs8ShroudedKeyBag:
215                         X509_SIG_free (a->value.shkeybag);
216                 break;
217
218                 case NID_certBag:
219                 case NID_crlBag:
220                 case NID_secretBag:
221                         PKCS12_BAGS_free (a->value.bag);
222                 break;
223
224                 default:
225                         ASN1_TYPE_free (a->value.other);
226                 break;
227         }
228
229         ASN1_OBJECT_free (a->type);
230         sk_pop_free (a->attrib, X509_ATTRIBUTE_free);
231         Free ((char *)a);
232 }