2 /* Written by Dr Stephen N Henson (shenson@bigfoot.com) for the OpenSSL
5 /* ====================================================================
6 * Copyright (c) 1999, 2005 The OpenSSL Project. All rights reserved.
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions
12 * 1. Redistributions of source code must retain the above copyright
13 * notice, this list of conditions and the following disclaimer.
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
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/)"
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.
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.
34 * 6. Redistributions of any form whatsoever must retain the following
36 * "This product includes software developed by the OpenSSL Project
37 * for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)"
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 * ====================================================================
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).
61 #include <openssl/conf.h>
62 #include <openssl/asn1.h>
63 #include <openssl/asn1t.h>
64 #include <openssl/x509v3.h>
66 static STACK_OF(CONF_VALUE
) *i2v_crld(X509V3_EXT_METHOD
*method
,
67 STACK_OF(DIST_POINT
) *crld
, STACK_OF(CONF_VALUE
) *extlist
);
68 static STACK_OF(DIST_POINT
) *v2i_crld(X509V3_EXT_METHOD
*method
,
69 X509V3_CTX
*ctx
, STACK_OF(CONF_VALUE
) *nval
);
71 X509V3_EXT_METHOD v3_crld
= {
72 NID_crl_distribution_points
, X509V3_EXT_MULTILINE
, ASN1_ITEM_ref(CRL_DIST_POINTS
),
75 (X509V3_EXT_I2V
)i2v_crld
,
76 (X509V3_EXT_V2I
)v2i_crld
,
81 static STACK_OF(CONF_VALUE
) *i2v_crld(X509V3_EXT_METHOD
*method
,
82 STACK_OF(DIST_POINT
) *crld
, STACK_OF(CONF_VALUE
) *exts
)
86 for(i
= 0; i
< sk_DIST_POINT_num(crld
); i
++) {
87 point
= sk_DIST_POINT_value(crld
, i
);
88 if(point
->distpoint
) {
89 if(point
->distpoint
->type
== 0)
90 exts
= i2v_GENERAL_NAMES(NULL
,
91 point
->distpoint
->name
.fullname
, exts
);
92 else X509V3_add_value("RelativeName","<UNSUPPORTED>", &exts
);
95 X509V3_add_value("reasons","<UNSUPPORTED>", &exts
);
97 X509V3_add_value("CRLissuer","<UNSUPPORTED>", &exts
);
102 static STACK_OF(DIST_POINT
) *v2i_crld(X509V3_EXT_METHOD
*method
,
103 X509V3_CTX
*ctx
, STACK_OF(CONF_VALUE
) *nval
)
105 STACK_OF(DIST_POINT
) *crld
= NULL
;
106 GENERAL_NAMES
*gens
= NULL
;
107 GENERAL_NAME
*gen
= NULL
;
110 if(!(crld
= sk_DIST_POINT_new_null())) goto merr
;
111 for(i
= 0; i
< sk_CONF_VALUE_num(nval
); i
++) {
113 cnf
= sk_CONF_VALUE_value(nval
, i
);
114 if(!(gen
= v2i_GENERAL_NAME(method
, ctx
, cnf
))) goto err
;
115 if(!(gens
= GENERAL_NAMES_new())) goto merr
;
116 if(!sk_GENERAL_NAME_push(gens
, gen
)) goto merr
;
118 if(!(point
= DIST_POINT_new())) goto merr
;
119 if(!sk_DIST_POINT_push(crld
, point
)) {
120 DIST_POINT_free(point
);
123 if(!(point
->distpoint
= DIST_POINT_NAME_new())) goto merr
;
124 point
->distpoint
->name
.fullname
= gens
;
125 point
->distpoint
->type
= 0;
131 X509V3err(X509V3_F_V2I_CRLD
,ERR_R_MALLOC_FAILURE
);
133 GENERAL_NAME_free(gen
);
134 GENERAL_NAMES_free(gens
);
135 sk_DIST_POINT_pop_free(crld
, DIST_POINT_free
);
139 IMPLEMENT_STACK_OF(DIST_POINT
)
140 IMPLEMENT_ASN1_SET_OF(DIST_POINT
)
143 ASN1_CHOICE(DIST_POINT_NAME
) = {
144 ASN1_IMP_SEQUENCE_OF(DIST_POINT_NAME
, name
.fullname
, GENERAL_NAME
, 0),
145 ASN1_IMP_SET_OF(DIST_POINT_NAME
, name
.relativename
, X509_NAME_ENTRY
, 1)
146 } ASN1_CHOICE_END(DIST_POINT_NAME
)
148 IMPLEMENT_ASN1_FUNCTIONS(DIST_POINT_NAME
)
150 ASN1_SEQUENCE(DIST_POINT
) = {
151 ASN1_EXP_OPT(DIST_POINT
, distpoint
, DIST_POINT_NAME
, 0),
152 ASN1_IMP_OPT(DIST_POINT
, reasons
, ASN1_BIT_STRING
, 1),
153 ASN1_IMP_SEQUENCE_OF_OPT(DIST_POINT
, CRLissuer
, GENERAL_NAME
, 2)
154 } ASN1_SEQUENCE_END(DIST_POINT
)
156 IMPLEMENT_ASN1_FUNCTIONS(DIST_POINT
)
158 ASN1_ITEM_TEMPLATE(CRL_DIST_POINTS
) =
159 ASN1_EX_TEMPLATE_TYPE(ASN1_TFLG_SEQUENCE_OF
, 0, CRLDistributionPoints
, DIST_POINT
)
160 ASN1_ITEM_TEMPLATE_END(CRL_DIST_POINTS
)
162 IMPLEMENT_ASN1_FUNCTIONS(CRL_DIST_POINTS
)
164 ASN1_SEQUENCE(ISSUING_DIST_POINT
) = {
165 ASN1_EXP_OPT(ISSUING_DIST_POINT
, distpoint
, DIST_POINT_NAME
, 0),
166 ASN1_IMP_OPT(ISSUING_DIST_POINT
, onlyuser
, ASN1_FBOOLEAN
, 1),
167 ASN1_IMP_OPT(ISSUING_DIST_POINT
, onlyCA
, ASN1_FBOOLEAN
, 2),
168 ASN1_IMP_OPT(ISSUING_DIST_POINT
, onlysomereasons
, ASN1_BIT_STRING
, 3),
169 ASN1_IMP_OPT(ISSUING_DIST_POINT
, indirectCRL
, ASN1_FBOOLEAN
, 4),
170 ASN1_IMP_OPT(ISSUING_DIST_POINT
, onlyattr
, ASN1_FBOOLEAN
, 5)
171 } ASN1_SEQUENCE_END(ISSUING_DIST_POINT
)
173 static int i2r_idp(X509V3_EXT_METHOD
*method
,
174 void *pidp
, BIO
*out
, int indent
);
176 X509V3_EXT_METHOD v3_idp
=
178 NID_issuing_distribution_point
, X509V3_EXT_MULTILINE
,
179 ASN1_ITEM_ref(ISSUING_DIST_POINT
),
187 static const BIT_STRING_BITNAME reason_flags
[] = {
188 {1, "Key Compromise", "keyCompromise"},
189 {2, "CA Compromise", "CACompromise"},
190 {3, "Affiliation Changed", "affiliationChanged"},
191 {4, "Superseded", "superseded"},
192 {5, "Cessation Of Operation", "cessationOfOperation"},
193 {6, "Certificate Hold", "certificateHold"},
194 {7, "Privilege Withdrawn", "privilegeWithdrawn"},
195 {8, "AA Compromise", "AACompromise"},
199 static int print_reasons(BIO
*out
, const char *rname
,
200 ASN1_BIT_STRING
*rflags
, int indent
)
203 const BIT_STRING_BITNAME
*pbn
;
204 BIO_printf(out
, "%*s%s:\n%*s", indent
, "", rname
, indent
+ 2, "");
205 for (pbn
= reason_flags
; pbn
->lname
; pbn
++)
207 if (ASN1_BIT_STRING_get_bit(rflags
, pbn
->bitnum
))
213 BIO_puts(out
, pbn
->lname
);
217 BIO_puts(out
, "<EMPTY>\n");
223 static int print_distpoint(BIO
*out
, DIST_POINT_NAME
*dpn
, int indent
)
228 STACK_OF(GENERAL_NAME
) *gens
;
229 BIO_printf(out
, "%*sFull Name:\n", indent
, "");
230 gens
= dpn
->name
.fullname
;
231 for (i
= 0; i
< sk_GENERAL_NAME_num(gens
); i
++)
233 BIO_printf(out
, "%*s", indent
+ 2, "");
234 GENERAL_NAME_print(out
, sk_GENERAL_NAME_value(gens
, i
));
240 ntmp
.entries
= dpn
->name
.relativename
;
241 BIO_printf(out
, "%*sRelative Name:\n%*s",
242 indent
, "", indent
+ 2, "");
243 X509_NAME_print_ex(out
, &ntmp
, 0, XN_FLAG_ONELINE
);
249 static int i2r_idp(X509V3_EXT_METHOD
*method
, void *pidp
, BIO
*out
, int indent
)
251 ISSUING_DIST_POINT
*idp
= pidp
;
253 print_distpoint(out
, idp
->distpoint
, indent
);
254 if (idp
->onlyuser
> 0)
255 BIO_printf(out
, "%*sOnly User Certificates\n", indent
, "");
257 BIO_printf(out
, "%*sOnly CA Certificates\n", indent
, "");
258 if (idp
->indirectCRL
> 0)
259 BIO_printf(out
, "%*sIndirect CRL\n", indent
, "");
260 if (idp
->onlysomereasons
)
261 print_reasons(out
, "Only Some Reasons",
262 idp
->onlysomereasons
, indent
);
263 if (idp
->onlyattr
> 0)
264 BIO_printf(out
, "%*sOnly Attribute Certificates\n", indent
, "");
265 if (!idp
->distpoint
&& (idp
->onlyuser
<= 0) && (idp
->onlyCA
<= 0)
266 && (idp
->indirectCRL
<= 0) && !idp
->onlysomereasons
267 && (idp
->onlyattr
<= 0))
268 BIO_printf(out
, "%*s<EMPTY>\n", indent
, "");