mono/btls/btls-x509-lookup.c

   1 //
   2 //  btls-x509-lookup.c
   3 //  MonoBtls
   4 //
   5 //  Created by Martin Baulig on 3/6/16.
   6 //  Copyright © 2016 Xamarin. All rights reserved.
   7 //
   8
   9 #include <btls-x509-lookup.h>
  10 #include <btls-x509-lookup-mono.h>
  11
  12 struct MonoBtlsX509Lookup {
  13         MonoBtlsX509LookupType type;
  14         X509_LOOKUP *lookup;
  15         int owns_lookup;
  16         MonoBtlsX509Store *store;
  17         CRYPTO_refcount_t references;
  18 };
  19
  20 static X509_LOOKUP_METHOD *
  21 get_lookup_method (MonoBtlsX509LookupType type)
  22 {
  23         switch (type) {
  24         case MONO_BTLS_X509_LOOKUP_TYPE_FILE:
  25                 return X509_LOOKUP_file ();
  26         case MONO_BTLS_X509_LOOKUP_TYPE_HASH_DIR:
  27                 return X509_LOOKUP_hash_dir ();
  28         case MONO_BTLS_X509_LOOKUP_TYPE_MONO:
  29                 return mono_btls_x509_lookup_mono_method ();
  30         default:
  31                 return NULL;
  32         }
  33 }
  34
  35 MONO_API MonoBtlsX509Lookup *
  36 mono_btls_x509_lookup_new (MonoBtlsX509Store *store, MonoBtlsX509LookupType type)
  37 {
  38         MonoBtlsX509Lookup *lookup;
  39         X509_LOOKUP *store_lookup;
  40         X509_LOOKUP_METHOD *method;
  41
  42         method = get_lookup_method (type);
  43         if (!method)
  44                 return NULL;
  45
  46         lookup = OPENSSL_malloc (sizeof(MonoBtlsX509Lookup));
  47         if (!lookup)
  48                 return NULL;
  49
  50         store_lookup = X509_STORE_add_lookup (mono_btls_x509_store_peek_store (store), method);
  51         if (!store_lookup)
  52                 return NULL;
  53
  54         memset (lookup, 0, sizeof(MonoBtlsX509Lookup));
  55         // The X509_STORE owns the X509_LOOKUP.
  56         lookup->store = mono_btls_x509_store_up_ref (store);
  57         lookup->lookup = store_lookup;
  58         lookup->owns_lookup = 0;
  59         lookup->references = 1;
  60         lookup->type = type;
  61         return lookup;
  62 }
  63
  64 MONO_API int
  65 mono_btls_x509_lookup_load_file (MonoBtlsX509Lookup *lookup, const char *file, MonoBtlsX509FileType type)
  66 {
  67         return X509_LOOKUP_load_file (lookup->lookup, file, type);
  68 }
  69
  70 MONO_API int
  71 mono_btls_x509_lookup_add_dir (MonoBtlsX509Lookup *lookup, const char *dir, MonoBtlsX509FileType type)
  72 {
  73         return X509_LOOKUP_add_dir (lookup->lookup, dir, type);
  74 }
  75
  76 MONO_API MonoBtlsX509Lookup *
  77 mono_btls_x509_lookup_up_ref (MonoBtlsX509Lookup *lookup)
  78 {
  79         CRYPTO_refcount_inc (&lookup->references);
  80         return lookup;
  81 }
  82
  83 MONO_API int
  84 mono_btls_x509_lookup_free (MonoBtlsX509Lookup *lookup)
  85 {
  86         if (!CRYPTO_refcount_dec_and_test_zero (&lookup->references))
  87                 return 0;
  88
  89         if (lookup->store) {
  90                 mono_btls_x509_store_free (lookup->store);
  91                 lookup->store = NULL;
  92         }
  93
  94         if (lookup->lookup) {
  95                 if (lookup->owns_lookup)
  96                         X509_LOOKUP_free (lookup->lookup);
  97                 lookup->lookup = NULL;
  98         }
  99
 100         OPENSSL_free (lookup);
 101         return 1;
 102 }
 103
 104 MONO_API int
 105 mono_btls_x509_lookup_init (MonoBtlsX509Lookup *lookup)
 106 {
 107         return X509_LOOKUP_init (lookup->lookup);
 108 }
 109
 110 MONO_API int
 111 mono_btls_x509_lookup_shutdown (MonoBtlsX509Lookup *lookup)
 112 {
 113         return X509_LOOKUP_shutdown (lookup->lookup);
 114 }
 115
 116 MONO_API MonoBtlsX509LookupType
 117 mono_btls_x509_lookup_get_type (MonoBtlsX509Lookup *lookup)
 118 {
 119         return lookup->type;
 120 }
 121
 122 MONO_API X509_LOOKUP *
 123 mono_btls_x509_lookup_peek_lookup (MonoBtlsX509Lookup *lookup)
 124 {
 125         return lookup->lookup;
 126 }
 127
 128 MONO_API X509 *
 129 mono_btls_x509_lookup_by_subject (MonoBtlsX509Lookup *lookup, MonoBtlsX509Name *name)
 130 {
 131         X509_OBJECT obj;
 132         X509 *x509;
 133         int ret;
 134
 135         ret = X509_LOOKUP_by_subject (lookup->lookup, X509_LU_X509, mono_btls_x509_name_peek_name (name), &obj);
 136         if (ret != X509_LU_X509) {
 137                 X509_OBJECT_free_contents (&obj);
 138                 return NULL;
 139         }
 140
 141         x509 = X509_up_ref (obj.data.x509);
 142         return x509;
 143 }
 144
 145 MONO_API X509 *
 146 mono_btls_x509_lookup_by_fingerprint (MonoBtlsX509Lookup *lookup, unsigned char *bytes, int len)
 147 {
 148         X509_OBJECT obj;
 149         X509 *x509;
 150         int ret;
 151
 152         ret = X509_LOOKUP_by_fingerprint (lookup->lookup, X509_LU_X509, bytes, len, &obj);
 153         if (ret != X509_LU_X509) {
 154                 X509_OBJECT_free_contents (&obj);
 155                 return NULL;
 156         }
 157
 158         x509 = X509_up_ref (obj.data.x509);
 159         return x509;
 160 }