1 #include <openssl/x509.h>
2 #include <openssl/x509v3.h>
6 static const char *const names
[] = {
7 "a", "b", ".", "*", "@",
8 ".a", "a.", ".b", "b.", ".*", "*.", "*@", "@*", "a@", "@a", "b@", "..",
9 "@@", "**", "*.com", "*com", "*.*.com", "*com", "com*", "*example.com",
10 "*@example.com", "test@*.example.com", "example.com", "www.example.com",
11 "test.www.example.com", "*.example.com", "*.www.example.com",
12 "test.*.example.com", "www.*.com",
13 ".www.example.com", "*www.example.com",
14 "example.net", "xn--rger-koa.example.com",
15 "a.example.com", "b.example.com",
16 "postmaster@example.com", "Postmaster@example.com",
17 "postmaster@EXAMPLE.COM",
21 static const char *const exceptions
[] = {
22 "set CN: host: [*.example.com] matches [a.example.com]",
23 "set CN: host: [*.example.com] matches [b.example.com]",
24 "set CN: host: [*.example.com] matches [www.example.com]",
25 "set CN: host: [*.example.com] matches [xn--rger-koa.example.com]",
26 "set CN: host: [*.www.example.com] matches [test.www.example.com]",
27 "set CN: host: [*.www.example.com] matches [.www.example.com]",
28 "set CN: host: [*www.example.com] matches [www.example.com]",
29 "set CN: host: [test.www.example.com] matches [.www.example.com]",
30 "set CN: host-no-wildcards: [*.www.example.com] matches [.www.example.com]",
31 "set CN: host-no-wildcards: [test.www.example.com] matches [.www.example.com]",
32 "set emailAddress: email: [postmaster@example.com] does not match [Postmaster@example.com]",
33 "set emailAddress: email: [postmaster@EXAMPLE.COM] does not match [Postmaster@example.com]",
34 "set emailAddress: email: [Postmaster@example.com] does not match [postmaster@example.com]",
35 "set emailAddress: email: [Postmaster@example.com] does not match [postmaster@EXAMPLE.COM]",
36 "set dnsName: host: [*.example.com] matches [www.example.com]",
37 "set dnsName: host: [*.example.com] matches [a.example.com]",
38 "set dnsName: host: [*.example.com] matches [b.example.com]",
39 "set dnsName: host: [*.example.com] matches [xn--rger-koa.example.com]",
40 "set dnsName: host: [*.www.example.com] matches [test.www.example.com]",
41 "set dnsName: host-no-wildcards: [*.www.example.com] matches [.www.example.com]",
42 "set dnsName: host-no-wildcards: [test.www.example.com] matches [.www.example.com]",
43 "set dnsName: host: [*.www.example.com] matches [.www.example.com]",
44 "set dnsName: host: [*www.example.com] matches [www.example.com]",
45 "set dnsName: host: [test.www.example.com] matches [.www.example.com]",
46 "set rfc822Name: email: [postmaster@example.com] does not match [Postmaster@example.com]",
47 "set rfc822Name: email: [Postmaster@example.com] does not match [postmaster@example.com]",
48 "set rfc822Name: email: [Postmaster@example.com] does not match [postmaster@EXAMPLE.COM]",
49 "set rfc822Name: email: [postmaster@EXAMPLE.COM] does not match [Postmaster@example.com]",
53 static int is_exception(const char *msg
)
56 for (p
= exceptions
; *p
; ++p
)
57 if (strcmp(msg
, *p
) == 0)
62 static int set_cn(X509
*crt
, ...)
74 nid
= va_arg(ap
, int);
77 name
= va_arg(ap
, const char *);
78 if (!X509_NAME_add_entry_by_NID(n
, nid
, MBSTRING_ASC
,
79 (unsigned char *)name
, -1, -1, 1))
82 if (!X509_set_subject_name(crt
, n
))
92 int X509_add_ext(X509 *x, X509_EXTENSION *ex, int loc);
93 X509_EXTENSION *X509_EXTENSION_create_by_NID(X509_EXTENSION **ex,
94 int nid, int crit, ASN1_OCTET_STRING *data);
95 int X509_add_ext(X509 *x, X509_EXTENSION *ex, int loc);
98 static int set_altname(X509
*crt
, ...)
101 GENERAL_NAMES
*gens
= NULL
;
102 GENERAL_NAME
*gen
= NULL
;
103 ASN1_IA5STRING
*ia5
= NULL
;
106 gens
= sk_GENERAL_NAME_new_null();
112 type
= va_arg(ap
, int);
115 name
= va_arg(ap
, const char *);
117 gen
= GENERAL_NAME_new();
120 ia5
= ASN1_IA5STRING_new();
123 if (!ASN1_STRING_set(ia5
, name
, -1))
128 GENERAL_NAME_set0_value(gen
, type
, ia5
);
134 sk_GENERAL_NAME_push(gens
, gen
);
137 if (!X509_add1_ext_i2d(crt
, NID_subject_alt_name
, gens
, 0, 0))
141 ASN1_IA5STRING_free(ia5
);
142 GENERAL_NAME_free(gen
);
143 GENERAL_NAMES_free(gens
);
148 static int set_cn1(X509
*crt
, const char *name
)
150 return set_cn(crt
, NID_commonName
, name
, 0);
153 static int set_cn_and_email(X509
*crt
, const char *name
)
155 return set_cn(crt
, NID_commonName
, name
,
156 NID_pkcs9_emailAddress
, "dummy@example.com", 0);
159 static int set_cn2(X509
*crt
, const char *name
)
161 return set_cn(crt
, NID_commonName
, "dummy value",
162 NID_commonName
, name
, 0);
165 static int set_cn3(X509
*crt
, const char *name
)
167 return set_cn(crt
, NID_commonName
, name
,
168 NID_commonName
, "dummy value", 0);
171 static int set_email1(X509
*crt
, const char *name
)
173 return set_cn(crt
, NID_pkcs9_emailAddress
, name
, 0);
176 static int set_email2(X509
*crt
, const char *name
)
178 return set_cn(crt
, NID_pkcs9_emailAddress
, "dummy@example.com",
179 NID_pkcs9_emailAddress
, name
, 0);
182 static int set_email3(X509
*crt
, const char *name
)
184 return set_cn(crt
, NID_pkcs9_emailAddress
, name
,
185 NID_pkcs9_emailAddress
, "dummy@example.com", 0);
188 static int set_email_and_cn(X509
*crt
, const char *name
)
190 return set_cn(crt
, NID_pkcs9_emailAddress
, name
,
191 NID_commonName
, "www.example.org", 0);
194 static int set_altname_dns(X509
*crt
, const char *name
)
196 return set_altname(crt
, GEN_DNS
, name
, 0);
199 static int set_altname_email(X509
*crt
, const char *name
)
201 return set_altname(crt
, GEN_EMAIL
, name
, 0);
205 int (*fn
) (X509
*, const char *);
211 static const struct set_name_fn name_fns
[] = {
212 {set_cn1
, "set CN", 1, 0},
213 {set_cn2
, "set CN", 1, 0},
214 {set_cn3
, "set CN", 1, 0},
215 {set_cn_and_email
, "set CN", 1, 0},
216 {set_email1
, "set emailAddress", 0, 1},
217 {set_email2
, "set emailAddress", 0, 1},
218 {set_email3
, "set emailAddress", 0, 1},
219 {set_email_and_cn
, "set emailAddress", 0, 1},
220 {set_altname_dns
, "set dnsName", 1, 0},
221 {set_altname_email
, "set rfc822Name", 0, 1},
225 static X509
*make_cert()
229 X509_NAME
*issuer
= NULL
;
233 if (!X509_set_version(crt
, 3))
238 X509_NAME_free(issuer
);
244 static void check_message(const struct set_name_fn
*fn
, const char *op
,
245 const char *nameincert
, int match
, const char *name
)
250 BIO_snprintf(msg
, sizeof(msg
), "%s: %s: [%s] %s [%s]",
251 fn
->name
, op
, nameincert
,
252 match
? "matches" : "does not match", name
);
253 if (is_exception(msg
))
259 static void run_cert(X509
*crt
, const char *nameincert
,
260 const struct set_name_fn
*fn
)
262 const char *const *pname
= names
;
264 int samename
= strcasecmp(nameincert
, *pname
) == 0;
265 size_t namelen
= strlen(*pname
);
266 char *name
= malloc(namelen
);
268 memcpy(name
, *pname
, namelen
);
270 ret
= X509_check_host(crt
, name
, namelen
, 0, NULL
);
273 fprintf(stderr
, "internal error in X509_check_host");
275 } else if (fn
->host
) {
276 if (ret
== 1 && !samename
)
278 if (ret
== 0 && samename
)
282 check_message(fn
, "host", nameincert
, match
, *pname
);
284 ret
= X509_check_host(crt
, name
, namelen
,
285 X509_CHECK_FLAG_NO_WILDCARDS
, NULL
);
288 fprintf(stderr
, "internal error in X509_check_host");
290 } else if (fn
->host
) {
291 if (ret
== 1 && !samename
)
293 if (ret
== 0 && samename
)
297 check_message(fn
, "host-no-wildcards", nameincert
, match
, *pname
);
299 ret
= X509_check_email(crt
, name
, namelen
, 0);
302 if (ret
&& !samename
)
304 if (!ret
&& samename
&& strchr(nameincert
, '@') != NULL
)
308 check_message(fn
, "email", nameincert
, match
, *pname
);
316 const struct set_name_fn
*pfn
= name_fns
;
318 const char *const *pname
= names
;
320 X509
*crt
= make_cert();
322 fprintf(stderr
, "make_cert failed\n");
325 if (!pfn
->fn(crt
, *pname
)) {
326 fprintf(stderr
, "X509 name setting failed\n");
329 run_cert(crt
, *pname
, pfn
);
335 return errors
> 0 ? 1 : 0;