x509_cmp.c 12 KB

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