x509_cmp.c revision 296465 
1/* crypto/x509/x509_cmp.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 <ctype.h>
61#include "cryptlib.h"
62#include <openssl/asn1.h>
63#include <openssl/objects.h>
64#include <openssl/x509.h>
65#include <openssl/x509v3.h>
66
67int X509_issuer_and_serial_cmp(const X509 *a, const X509 *b)
68{
69    int i;
70    X509_CINF *ai, *bi;
71
72    ai = a->cert_info;
73    bi = b->cert_info;
74    i = M_ASN1_INTEGER_cmp(ai->serialNumber, bi->serialNumber);
75    if (i)
76        return (i);
77    return (X509_NAME_cmp(ai->issuer, bi->issuer));
78}
79
80#ifndef OPENSSL_NO_MD5
81unsigned long X509_issuer_and_serial_hash(X509 *a)
82{
83    unsigned long ret = 0;
84    EVP_MD_CTX ctx;
85    unsigned char md[16];
86    char *f;
87
88    EVP_MD_CTX_init(&ctx);
89    f = X509_NAME_oneline(a->cert_info->issuer, NULL, 0);
90    ret = strlen(f);
91    EVP_DigestInit_ex(&ctx, EVP_md5(), NULL);
92    EVP_DigestUpdate(&ctx, (unsigned char *)f, ret);
93    OPENSSL_free(f);
94    EVP_DigestUpdate(&ctx, (unsigned char *)a->cert_info->serialNumber->data,
95                     (unsigned long)a->cert_info->serialNumber->length);
96    EVP_DigestFinal_ex(&ctx, &(md[0]), NULL);
97    ret = (((unsigned long)md[0]) | ((unsigned long)md[1] << 8L) |
98           ((unsigned long)md[2] << 16L) | ((unsigned long)md[3] << 24L)
99        ) & 0xffffffffL;
100    EVP_MD_CTX_cleanup(&ctx);
101    return (ret);
102}
103#endif
104
105int X509_issuer_name_cmp(const X509 *a, const X509 *b)
106{
107    return (X509_NAME_cmp(a->cert_info->issuer, b->cert_info->issuer));
108}
109
110int X509_subject_name_cmp(const X509 *a, const X509 *b)
111{
112    return (X509_NAME_cmp(a->cert_info->subject, b->cert_info->subject));
113}
114
115int X509_CRL_cmp(const X509_CRL *a, const X509_CRL *b)
116{
117    return (X509_NAME_cmp(a->crl->issuer, b->crl->issuer));
118}
119
120X509_NAME *X509_get_issuer_name(X509 *a)
121{
122    return (a->cert_info->issuer);
123}
124
125unsigned long X509_issuer_name_hash(X509 *x)
126{
127    return (X509_NAME_hash(x->cert_info->issuer));
128}
129
130X509_NAME *X509_get_subject_name(X509 *a)
131{
132    return (a->cert_info->subject);
133}
134
135ASN1_INTEGER *X509_get_serialNumber(X509 *a)
136{
137    return (a->cert_info->serialNumber);
138}
139
140unsigned long X509_subject_name_hash(X509 *x)
141{
142    return (X509_NAME_hash(x->cert_info->subject));
143}
144
145#ifndef OPENSSL_NO_SHA
146/*
147 * Compare two certificates: they must be identical for this to work. NB:
148 * Although "cmp" operations are generally prototyped to take "const"
149 * arguments (eg. for use in STACKs), the way X509 handling is - these
150 * operations may involve ensuring the hashes are up-to-date and ensuring
151 * certain cert information is cached. So this is the point where the
152 * "depth-first" constification tree has to halt with an evil cast.
153 */
154int X509_cmp(const X509 *a, const X509 *b)
155{
156    /* ensure hash is valid */
157    X509_check_purpose((X509 *)a, -1, 0);
158    X509_check_purpose((X509 *)b, -1, 0);
159
160    return memcmp(a->sha1_hash, b->sha1_hash, SHA_DIGEST_LENGTH);
161}
162#endif
163
164/* Case insensitive string comparision */
165static int nocase_cmp(const ASN1_STRING *a, const ASN1_STRING *b)
166{
167    int i;
168
169    if (a->length != b->length)
170        return (a->length - b->length);
171
172    for (i = 0; i < a->length; i++) {
173        int ca, cb;
174
175        ca = tolower(a->data[i]);
176        cb = tolower(b->data[i]);
177
178        if (ca != cb)
179            return (ca - cb);
180    }
181    return 0;
182}
183
184/*
185 * Case insensitive string comparision with space normalization Space
186 * normalization - ignore leading, trailing spaces, multiple spaces between
187 * characters are replaced by single space
188 */
189static int nocase_spacenorm_cmp(const ASN1_STRING *a, const ASN1_STRING *b)
190{
191    unsigned char *pa = NULL, *pb = NULL;
192    int la, lb;
193
194    la = a->length;
195    lb = b->length;
196    pa = a->data;
197    pb = b->data;
198
199    /* skip leading spaces */
200    while (la > 0 && isspace(*pa)) {
201        la--;
202        pa++;
203    }
204    while (lb > 0 && isspace(*pb)) {
205        lb--;
206        pb++;
207    }
208
209    /* skip trailing spaces */
210    while (la > 0 && isspace(pa[la - 1]))
211        la--;
212    while (lb > 0 && isspace(pb[lb - 1]))
213        lb--;
214
215    /* compare strings with space normalization */
216    while (la > 0 && lb > 0) {
217        int ca, cb;
218
219        /* compare character */
220        ca = tolower(*pa);
221        cb = tolower(*pb);
222        if (ca != cb)
223            return (ca - cb);
224
225        pa++;
226        pb++;
227        la--;
228        lb--;
229
230        if (la <= 0 || lb <= 0)
231            break;
232
233        /* is white space next character ? */
234        if (isspace(*pa) && isspace(*pb)) {
235            /* skip remaining white spaces */
236            while (la > 0 && isspace(*pa)) {
237                la--;
238                pa++;
239            }
240            while (lb > 0 && isspace(*pb)) {
241                lb--;
242                pb++;
243            }
244        }
245    }
246    if (la > 0 || lb > 0)
247        return la - lb;
248
249    return 0;
250}
251
252static int asn1_string_memcmp(ASN1_STRING *a, ASN1_STRING *b)
253{
254    int j;
255    j = a->length - b->length;
256    if (j)
257        return j;
258    return memcmp(a->data, b->data, a->length);
259}
260
261#define STR_TYPE_CMP (B_ASN1_PRINTABLESTRING|B_ASN1_T61STRING|B_ASN1_UTF8STRING)
262
263int X509_NAME_cmp(const X509_NAME *a, const X509_NAME *b)
264{
265    int i, j;
266    X509_NAME_ENTRY *na, *nb;
267
268    unsigned long nabit, nbbit;
269
270    j = sk_X509_NAME_ENTRY_num(a->entries)
271        - sk_X509_NAME_ENTRY_num(b->entries);
272    if (j)
273        return j;
274    for (i = sk_X509_NAME_ENTRY_num(a->entries) - 1; i >= 0; i--) {
275        na = sk_X509_NAME_ENTRY_value(a->entries, i);
276        nb = sk_X509_NAME_ENTRY_value(b->entries, i);
277        j = na->value->type - nb->value->type;
278        if (j) {
279            nabit = ASN1_tag2bit(na->value->type);
280            nbbit = ASN1_tag2bit(nb->value->type);
281            if (!(nabit & STR_TYPE_CMP) || !(nbbit & STR_TYPE_CMP))
282                return j;
283            if (!asn1_string_memcmp(na->value, nb->value))
284                j = 0;
285        } else if (na->value->type == V_ASN1_PRINTABLESTRING)
286            j = nocase_spacenorm_cmp(na->value, nb->value);
287        else if (na->value->type == V_ASN1_IA5STRING
288                 && OBJ_obj2nid(na->object) == NID_pkcs9_emailAddress)
289            j = nocase_cmp(na->value, nb->value);
290        else
291            j = asn1_string_memcmp(na->value, nb->value);
292        if (j)
293            return (j);
294        j = na->set - nb->set;
295        if (j)
296            return (j);
297    }
298
299    /*
300     * We will check the object types after checking the values since the
301     * values will more often be different than the object types.
302     */
303    for (i = sk_X509_NAME_ENTRY_num(a->entries) - 1; i >= 0; i--) {
304        na = sk_X509_NAME_ENTRY_value(a->entries, i);
305        nb = sk_X509_NAME_ENTRY_value(b->entries, i);
306        j = OBJ_cmp(na->object, nb->object);
307        if (j)
308            return (j);
309    }
310    return (0);
311}
312
313#ifndef OPENSSL_NO_MD5
314/*
315 * I now DER encode the name and hash it.  Since I cache the DER encoding,
316 * this is reasonably efficient.
317 */
318unsigned long X509_NAME_hash(X509_NAME *x)
319{
320    unsigned long ret = 0;
321    unsigned char md[16];
322    EVP_MD_CTX md_ctx;
323
324    /* Make sure X509_NAME structure contains valid cached encoding */
325    i2d_X509_NAME(x, NULL);
326    EVP_MD_CTX_init(&md_ctx);
327    EVP_MD_CTX_set_flags(&md_ctx, EVP_MD_CTX_FLAG_NON_FIPS_ALLOW);
328    EVP_DigestInit_ex(&md_ctx, EVP_md5(), NULL);
329    EVP_DigestUpdate(&md_ctx, x->bytes->data, x->bytes->length);
330    EVP_DigestFinal_ex(&md_ctx, md, NULL);
331    EVP_MD_CTX_cleanup(&md_ctx);
332
333    ret = (((unsigned long)md[0]) | ((unsigned long)md[1] << 8L) |
334           ((unsigned long)md[2] << 16L) | ((unsigned long)md[3] << 24L)
335        ) & 0xffffffffL;
336    return (ret);
337}
338#endif
339
340/* Search a stack of X509 for a match */
341X509 *X509_find_by_issuer_and_serial(STACK_OF(X509) *sk, X509_NAME *name,
342                                     ASN1_INTEGER *serial)
343{
344    int i;
345    X509_CINF cinf;
346    X509 x, *x509 = NULL;
347
348    if (!sk)
349        return NULL;
350
351    x.cert_info = &cinf;
352    cinf.serialNumber = serial;
353    cinf.issuer = name;
354
355    for (i = 0; i < sk_X509_num(sk); i++) {
356        x509 = sk_X509_value(sk, i);
357        if (X509_issuer_and_serial_cmp(x509, &x) == 0)
358            return (x509);
359    }
360    return (NULL);
361}
362
363X509 *X509_find_by_subject(STACK_OF(X509) *sk, X509_NAME *name)
364{
365    X509 *x509;
366    int i;
367
368    for (i = 0; i < sk_X509_num(sk); i++) {
369        x509 = sk_X509_value(sk, i);
370        if (X509_NAME_cmp(X509_get_subject_name(x509), name) == 0)
371            return (x509);
372    }
373    return (NULL);
374}
375
376EVP_PKEY *X509_get_pubkey(X509 *x)
377{
378    if ((x == NULL) || (x->cert_info == NULL))
379        return (NULL);
380    return (X509_PUBKEY_get(x->cert_info->key));
381}
382
383ASN1_BIT_STRING *X509_get0_pubkey_bitstr(const X509 *x)
384{
385    if (!x)
386        return NULL;
387    return x->cert_info->key->public_key;
388}
389
390int X509_check_private_key(X509 *x, EVP_PKEY *k)
391{
392    EVP_PKEY *xk = NULL;
393    int ok = 0;
394
395    xk = X509_get_pubkey(x);
396    switch (EVP_PKEY_cmp(xk, k)) {
397    case 1:
398        ok = 1;
399        break;
400    case 0:
401        X509err(X509_F_X509_CHECK_PRIVATE_KEY, X509_R_KEY_VALUES_MISMATCH);
402        break;
403    case -1:
404        X509err(X509_F_X509_CHECK_PRIVATE_KEY, X509_R_KEY_TYPE_MISMATCH);
405        break;
406    case -2:
407#ifndef OPENSSL_NO_EC
408        if (k->type == EVP_PKEY_EC) {
409            X509err(X509_F_X509_CHECK_PRIVATE_KEY, ERR_R_EC_LIB);
410            break;
411        }
412#endif
413#ifndef OPENSSL_NO_DH
414        if (k->type == EVP_PKEY_DH) {
415            /* No idea */
416            X509err(X509_F_X509_CHECK_PRIVATE_KEY, X509_R_CANT_CHECK_DH_KEY);
417            break;
418        }
419#endif
420        X509err(X509_F_X509_CHECK_PRIVATE_KEY, X509_R_UNKNOWN_KEY_TYPE);
421    }
422
423    EVP_PKEY_free(xk);
424    return (ok);
425}
426