]>
Commit | Line | Data |
---|---|---|
d02b48c6 | 1 | /* crypto/pkcs7/pk7_lib.c */ |
58964a49 | 2 | /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com) |
d02b48c6 RE |
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" | |
ec577822 BM |
61 | #include <openssl/objects.h> |
62 | #include <openssl/x509.h> | |
d02b48c6 | 63 | |
6b691a5c | 64 | long PKCS7_ctrl(PKCS7 *p7, int cmd, long larg, char *parg) |
d02b48c6 RE |
65 | { |
66 | int nid; | |
67 | long ret; | |
68 | ||
69 | nid=OBJ_obj2nid(p7->type); | |
70 | ||
71 | switch (cmd) | |
72 | { | |
73 | case PKCS7_OP_SET_DETACHED_SIGNATURE: | |
74 | if (nid == NID_pkcs7_signed) | |
75 | { | |
76 | ret=p7->detached=(int)larg; | |
77 | } | |
78 | else | |
79 | { | |
80 | PKCS7err(PKCS7_F_PKCS7_CTRL,PKCS7_R_OPERATION_NOT_SUPPORTED_ON_THIS_TYPE); | |
81 | ret=0; | |
82 | } | |
83 | break; | |
84 | case PKCS7_OP_GET_DETACHED_SIGNATURE: | |
85 | if (nid == NID_pkcs7_signed) | |
86 | { | |
87 | ret=p7->detached; | |
88 | } | |
89 | else | |
90 | { | |
91 | PKCS7err(PKCS7_F_PKCS7_CTRL,PKCS7_R_OPERATION_NOT_SUPPORTED_ON_THIS_TYPE); | |
92 | ret=0; | |
93 | } | |
94 | ||
95 | break; | |
96 | default: | |
dfeab068 RE |
97 | PKCS7err(PKCS7_F_PKCS7_CTRL,PKCS7_R_UNKNOWN_OPERATION); |
98 | ret=0; | |
d02b48c6 RE |
99 | } |
100 | return(ret); | |
101 | } | |
102 | ||
6b691a5c | 103 | int PKCS7_content_new(PKCS7 *p7, int type) |
d02b48c6 RE |
104 | { |
105 | PKCS7 *ret=NULL; | |
106 | ||
107 | if ((ret=PKCS7_new()) == NULL) goto err; | |
108 | if (!PKCS7_set_type(ret,type)) goto err; | |
109 | if (!PKCS7_set_content(p7,ret)) goto err; | |
110 | ||
111 | return(1); | |
112 | err: | |
113 | if (ret != NULL) PKCS7_free(ret); | |
114 | return(0); | |
115 | } | |
116 | ||
6b691a5c | 117 | int PKCS7_set_content(PKCS7 *p7, PKCS7 *p7_data) |
d02b48c6 RE |
118 | { |
119 | int i; | |
120 | ||
121 | i=OBJ_obj2nid(p7->type); | |
122 | switch (i) | |
123 | { | |
124 | case NID_pkcs7_signed: | |
125 | if (p7->d.sign->contents != NULL) | |
d8223efd | 126 | PKCS7_free(p7->d.sign->contents); |
d02b48c6 RE |
127 | p7->d.sign->contents=p7_data; |
128 | break; | |
129 | case NID_pkcs7_digest: | |
130 | case NID_pkcs7_data: | |
131 | case NID_pkcs7_enveloped: | |
132 | case NID_pkcs7_signedAndEnveloped: | |
133 | case NID_pkcs7_encrypted: | |
134 | default: | |
135 | PKCS7err(PKCS7_F_PKCS7_SET_CONTENT,PKCS7_R_UNSUPPORTED_CONTENT_TYPE); | |
136 | goto err; | |
137 | } | |
138 | return(1); | |
139 | err: | |
140 | return(0); | |
141 | } | |
142 | ||
6b691a5c | 143 | int PKCS7_set_type(PKCS7 *p7, int type) |
d02b48c6 RE |
144 | { |
145 | ASN1_OBJECT *obj; | |
146 | ||
147 | PKCS7_content_free(p7); | |
148 | obj=OBJ_nid2obj(type); /* will not fail */ | |
149 | ||
150 | switch (type) | |
151 | { | |
152 | case NID_pkcs7_signed: | |
153 | p7->type=obj; | |
154 | if ((p7->d.sign=PKCS7_SIGNED_new()) == NULL) | |
155 | goto err; | |
156 | ASN1_INTEGER_set(p7->d.sign->version,1); | |
157 | break; | |
158 | case NID_pkcs7_data: | |
159 | p7->type=obj; | |
08e9c1af | 160 | if ((p7->d.data=M_ASN1_OCTET_STRING_new()) == NULL) |
d02b48c6 RE |
161 | goto err; |
162 | break; | |
58964a49 RE |
163 | case NID_pkcs7_signedAndEnveloped: |
164 | p7->type=obj; | |
165 | if ((p7->d.signed_and_enveloped=PKCS7_SIGN_ENVELOPE_new()) | |
dfeab068 RE |
166 | == NULL) goto err; |
167 | ASN1_INTEGER_set(p7->d.signed_and_enveloped->version,1); | |
58964a49 | 168 | break; |
d02b48c6 | 169 | case NID_pkcs7_enveloped: |
dfeab068 RE |
170 | p7->type=obj; |
171 | if ((p7->d.enveloped=PKCS7_ENVELOPE_new()) | |
172 | == NULL) goto err; | |
173 | ASN1_INTEGER_set(p7->d.enveloped->version,0); | |
174 | break; | |
d02b48c6 | 175 | case NID_pkcs7_encrypted: |
c6c34506 DSH |
176 | p7->type=obj; |
177 | if ((p7->d.encrypted=PKCS7_ENCRYPT_new()) | |
178 | == NULL) goto err; | |
179 | ASN1_INTEGER_set(p7->d.encrypted->version,0); | |
180 | break; | |
181 | ||
182 | case NID_pkcs7_digest: | |
d02b48c6 RE |
183 | default: |
184 | PKCS7err(PKCS7_F_PKCS7_SET_TYPE,PKCS7_R_UNSUPPORTED_CONTENT_TYPE); | |
185 | goto err; | |
186 | } | |
187 | return(1); | |
188 | err: | |
189 | return(0); | |
190 | } | |
191 | ||
6b691a5c | 192 | int PKCS7_add_signer(PKCS7 *p7, PKCS7_SIGNER_INFO *psi) |
d02b48c6 RE |
193 | { |
194 | int i,j,nid; | |
195 | X509_ALGOR *alg; | |
b05b50e6 | 196 | STACK_OF(PKCS7_SIGNER_INFO) *signer_sk; |
426edadf | 197 | STACK_OF(X509_ALGOR) *md_sk; |
d02b48c6 RE |
198 | |
199 | i=OBJ_obj2nid(p7->type); | |
58964a49 | 200 | switch (i) |
d02b48c6 | 201 | { |
58964a49 RE |
202 | case NID_pkcs7_signed: |
203 | signer_sk= p7->d.sign->signer_info; | |
204 | md_sk= p7->d.sign->md_algs; | |
205 | break; | |
206 | case NID_pkcs7_signedAndEnveloped: | |
207 | signer_sk= p7->d.signed_and_enveloped->signer_info; | |
208 | md_sk= p7->d.signed_and_enveloped->md_algs; | |
209 | break; | |
210 | default: | |
d02b48c6 RE |
211 | PKCS7err(PKCS7_F_PKCS7_ADD_SIGNER,PKCS7_R_WRONG_CONTENT_TYPE); |
212 | return(0); | |
213 | } | |
214 | ||
d02b48c6 RE |
215 | nid=OBJ_obj2nid(psi->digest_alg->algorithm); |
216 | ||
217 | /* If the digest is not currently listed, add it */ | |
218 | j=0; | |
426edadf | 219 | for (i=0; i<sk_X509_ALGOR_num(md_sk); i++) |
d02b48c6 | 220 | { |
426edadf | 221 | alg=sk_X509_ALGOR_value(md_sk,i); |
d02b48c6 RE |
222 | if (OBJ_obj2nid(alg->algorithm) == nid) |
223 | { | |
224 | j=1; | |
225 | break; | |
226 | } | |
227 | } | |
228 | if (!j) /* we need to add another algorithm */ | |
229 | { | |
b216664f DSH |
230 | if(!(alg=X509_ALGOR_new()) |
231 | || !(alg->parameter = ASN1_TYPE_new())) { | |
232 | PKCS7err(PKCS7_F_PKCS7_ADD_SIGNER,ERR_R_MALLOC_FAILURE); | |
233 | return(0); | |
234 | } | |
d02b48c6 | 235 | alg->algorithm=OBJ_nid2obj(nid); |
b216664f | 236 | alg->parameter->type = V_ASN1_NULL; |
426edadf | 237 | sk_X509_ALGOR_push(md_sk,alg); |
d02b48c6 RE |
238 | } |
239 | ||
b05b50e6 | 240 | sk_PKCS7_SIGNER_INFO_push(signer_sk,psi); |
d02b48c6 RE |
241 | return(1); |
242 | } | |
243 | ||
6b691a5c | 244 | int PKCS7_add_certificate(PKCS7 *p7, X509 *x509) |
d02b48c6 RE |
245 | { |
246 | int i; | |
f73e07cf | 247 | STACK_OF(X509) **sk; |
d02b48c6 RE |
248 | |
249 | i=OBJ_obj2nid(p7->type); | |
58964a49 | 250 | switch (i) |
d02b48c6 | 251 | { |
58964a49 RE |
252 | case NID_pkcs7_signed: |
253 | sk= &(p7->d.sign->cert); | |
254 | break; | |
255 | case NID_pkcs7_signedAndEnveloped: | |
256 | sk= &(p7->d.signed_and_enveloped->cert); | |
257 | break; | |
258 | default: | |
259 | PKCS7err(PKCS7_F_PKCS7_ADD_CERTIFICATE,PKCS7_R_WRONG_CONTENT_TYPE); | |
d02b48c6 RE |
260 | return(0); |
261 | } | |
262 | ||
58964a49 | 263 | if (*sk == NULL) |
f73e07cf | 264 | *sk=sk_X509_new_null(); |
d02b48c6 | 265 | CRYPTO_add(&x509->references,1,CRYPTO_LOCK_X509); |
f73e07cf | 266 | sk_X509_push(*sk,x509); |
d02b48c6 RE |
267 | return(1); |
268 | } | |
269 | ||
6b691a5c | 270 | int PKCS7_add_crl(PKCS7 *p7, X509_CRL *crl) |
d02b48c6 RE |
271 | { |
272 | int i; | |
6d114240 | 273 | STACK_OF(X509_CRL) **sk; |
58964a49 | 274 | |
d02b48c6 | 275 | i=OBJ_obj2nid(p7->type); |
58964a49 | 276 | switch (i) |
d02b48c6 | 277 | { |
58964a49 RE |
278 | case NID_pkcs7_signed: |
279 | sk= &(p7->d.sign->crl); | |
280 | break; | |
281 | case NID_pkcs7_signedAndEnveloped: | |
282 | sk= &(p7->d.signed_and_enveloped->crl); | |
283 | break; | |
284 | default: | |
285 | PKCS7err(PKCS7_F_PKCS7_ADD_CRL,PKCS7_R_WRONG_CONTENT_TYPE); | |
d02b48c6 RE |
286 | return(0); |
287 | } | |
288 | ||
58964a49 | 289 | if (*sk == NULL) |
6d114240 | 290 | *sk=sk_X509_CRL_new_null(); |
d02b48c6 RE |
291 | |
292 | CRYPTO_add(&crl->references,1,CRYPTO_LOCK_X509_CRL); | |
6d114240 | 293 | sk_X509_CRL_push(*sk,crl); |
d02b48c6 RE |
294 | return(1); |
295 | } | |
296 | ||
6b691a5c UM |
297 | int PKCS7_SIGNER_INFO_set(PKCS7_SIGNER_INFO *p7i, X509 *x509, EVP_PKEY *pkey, |
298 | EVP_MD *dgst) | |
d02b48c6 RE |
299 | { |
300 | /* We now need to add another PKCS7_SIGNER_INFO entry */ | |
301 | ASN1_INTEGER_set(p7i->version,1); | |
302 | X509_NAME_set(&p7i->issuer_and_serial->issuer, | |
303 | X509_get_issuer_name(x509)); | |
304 | ||
305 | /* because ASN1_INTEGER_set is used to set a 'long' we will do | |
306 | * things the ugly way. */ | |
08e9c1af | 307 | M_ASN1_INTEGER_free(p7i->issuer_and_serial->serial); |
d02b48c6 | 308 | p7i->issuer_and_serial->serial= |
08e9c1af | 309 | M_ASN1_INTEGER_dup(X509_get_serialNumber(x509)); |
d02b48c6 RE |
310 | |
311 | /* lets keep the pkey around for a while */ | |
312 | CRYPTO_add(&pkey->references,1,CRYPTO_LOCK_EVP_PKEY); | |
313 | p7i->pkey=pkey; | |
314 | ||
315 | /* Set the algorithms */ | |
dfeab068 RE |
316 | if (pkey->type == EVP_PKEY_DSA) |
317 | p7i->digest_alg->algorithm=OBJ_nid2obj(NID_sha1); | |
318 | else | |
319 | p7i->digest_alg->algorithm=OBJ_nid2obj(EVP_MD_type(dgst)); | |
d02b48c6 | 320 | |
10243d97 DSH |
321 | if (p7i->digest_alg->parameter != NULL) |
322 | ASN1_TYPE_free(p7i->digest_alg->parameter); | |
323 | if ((p7i->digest_alg->parameter=ASN1_TYPE_new()) == NULL) | |
324 | goto err; | |
325 | p7i->digest_alg->parameter->type=V_ASN1_NULL; | |
326 | ||
c8b41850 DSH |
327 | p7i->digest_enc_alg->algorithm=OBJ_nid2obj(EVP_PKEY_type(pkey->type)); |
328 | ||
d02b48c6 RE |
329 | if (p7i->digest_enc_alg->parameter != NULL) |
330 | ASN1_TYPE_free(p7i->digest_enc_alg->parameter); | |
331 | if ((p7i->digest_enc_alg->parameter=ASN1_TYPE_new()) == NULL) | |
332 | goto err; | |
333 | p7i->digest_enc_alg->parameter->type=V_ASN1_NULL; | |
d02b48c6 | 334 | |
d02b48c6 RE |
335 | return(1); |
336 | err: | |
337 | return(0); | |
338 | } | |
339 | ||
6b691a5c UM |
340 | PKCS7_SIGNER_INFO *PKCS7_add_signature(PKCS7 *p7, X509 *x509, EVP_PKEY *pkey, |
341 | EVP_MD *dgst) | |
d02b48c6 RE |
342 | { |
343 | PKCS7_SIGNER_INFO *si; | |
344 | ||
345 | if ((si=PKCS7_SIGNER_INFO_new()) == NULL) goto err; | |
346 | if (!PKCS7_SIGNER_INFO_set(si,x509,pkey,dgst)) goto err; | |
347 | if (!PKCS7_add_signer(p7,si)) goto err; | |
348 | return(si); | |
349 | err: | |
350 | return(NULL); | |
351 | } | |
352 | ||
b05b50e6 | 353 | STACK_OF(PKCS7_SIGNER_INFO) *PKCS7_get_signer_info(PKCS7 *p7) |
d02b48c6 RE |
354 | { |
355 | if (PKCS7_type_is_signed(p7)) | |
356 | { | |
357 | return(p7->d.sign->signer_info); | |
358 | } | |
dfeab068 RE |
359 | else if (PKCS7_type_is_signedAndEnveloped(p7)) |
360 | { | |
361 | return(p7->d.signed_and_enveloped->signer_info); | |
362 | } | |
d02b48c6 RE |
363 | else |
364 | return(NULL); | |
365 | } | |
366 | ||
6b691a5c | 367 | PKCS7_RECIP_INFO *PKCS7_add_recipient(PKCS7 *p7, X509 *x509) |
58964a49 RE |
368 | { |
369 | PKCS7_RECIP_INFO *ri; | |
370 | ||
371 | if ((ri=PKCS7_RECIP_INFO_new()) == NULL) goto err; | |
372 | if (!PKCS7_RECIP_INFO_set(ri,x509)) goto err; | |
373 | if (!PKCS7_add_recipient_info(p7,ri)) goto err; | |
374 | return(ri); | |
375 | err: | |
376 | return(NULL); | |
377 | } | |
378 | ||
6b691a5c | 379 | int PKCS7_add_recipient_info(PKCS7 *p7, PKCS7_RECIP_INFO *ri) |
58964a49 RE |
380 | { |
381 | int i; | |
8f0edcd1 | 382 | STACK_OF(PKCS7_RECIP_INFO) *sk; |
58964a49 RE |
383 | |
384 | i=OBJ_obj2nid(p7->type); | |
385 | switch (i) | |
386 | { | |
387 | case NID_pkcs7_signedAndEnveloped: | |
388 | sk= p7->d.signed_and_enveloped->recipientinfo; | |
389 | break; | |
dfeab068 RE |
390 | case NID_pkcs7_enveloped: |
391 | sk= p7->d.enveloped->recipientinfo; | |
392 | break; | |
58964a49 RE |
393 | default: |
394 | PKCS7err(PKCS7_F_PKCS7_ADD_RECIPIENT_INFO,PKCS7_R_WRONG_CONTENT_TYPE); | |
395 | return(0); | |
396 | } | |
397 | ||
8f0edcd1 | 398 | sk_PKCS7_RECIP_INFO_push(sk,ri); |
58964a49 RE |
399 | return(1); |
400 | } | |
401 | ||
6b691a5c | 402 | int PKCS7_RECIP_INFO_set(PKCS7_RECIP_INFO *p7i, X509 *x509) |
58964a49 RE |
403 | { |
404 | ASN1_INTEGER_set(p7i->version,0); | |
405 | X509_NAME_set(&p7i->issuer_and_serial->issuer, | |
406 | X509_get_issuer_name(x509)); | |
407 | ||
08e9c1af | 408 | M_ASN1_INTEGER_free(p7i->issuer_and_serial->serial); |
58964a49 | 409 | p7i->issuer_and_serial->serial= |
08e9c1af | 410 | M_ASN1_INTEGER_dup(X509_get_serialNumber(x509)); |
58964a49 | 411 | |
dfeab068 RE |
412 | X509_ALGOR_free(p7i->key_enc_algor); |
413 | p7i->key_enc_algor=(X509_ALGOR *)ASN1_dup(i2d_X509_ALGOR, | |
414 | (char *(*)())d2i_X509_ALGOR, | |
415 | (char *)x509->cert_info->key->algor); | |
416 | ||
58964a49 RE |
417 | CRYPTO_add(&x509->references,1,CRYPTO_LOCK_X509); |
418 | p7i->cert=x509; | |
419 | ||
420 | return(1); | |
421 | } | |
422 | ||
6b691a5c | 423 | X509 *PKCS7_cert_from_signer_info(PKCS7 *p7, PKCS7_SIGNER_INFO *si) |
d02b48c6 RE |
424 | { |
425 | if (PKCS7_type_is_signed(p7)) | |
426 | return(X509_find_by_issuer_and_serial(p7->d.sign->cert, | |
427 | si->issuer_and_serial->issuer, | |
428 | si->issuer_and_serial->serial)); | |
429 | else | |
430 | return(NULL); | |
431 | } | |
432 | ||
84fa704c | 433 | int PKCS7_set_cipher(PKCS7 *p7, const EVP_CIPHER *cipher) |
58964a49 RE |
434 | { |
435 | int i; | |
436 | PKCS7_ENC_CONTENT *ec; | |
437 | ||
438 | i=OBJ_obj2nid(p7->type); | |
439 | switch (i) | |
440 | { | |
441 | case NID_pkcs7_signedAndEnveloped: | |
442 | ec=p7->d.signed_and_enveloped->enc_data; | |
443 | break; | |
dfeab068 RE |
444 | case NID_pkcs7_enveloped: |
445 | ec=p7->d.enveloped->enc_data; | |
446 | break; | |
58964a49 RE |
447 | default: |
448 | PKCS7err(PKCS7_F_PKCS7_SET_CIPHER,PKCS7_R_WRONG_CONTENT_TYPE); | |
449 | return(0); | |
450 | } | |
451 | ||
84fa704c DSH |
452 | /* Setup cipher OID */ |
453 | ||
454 | ec->cipher = cipher; | |
455 | return 1; | |
58964a49 RE |
456 | } |
457 |