1 /*
2  * COPYRIGHT (C) 2006,2007
3  * THE REGENTS OF THE UNIVERSITY OF MICHIGAN
4  * ALL RIGHTS RESERVED
5  *
6  * Permission is granted to use, copy, create derivative works
7  * and redistribute this software and such derivative works
8  * for any purpose, so long as the name of The University of
9  * Michigan is not used in any advertising or publicity
10  * pertaining to the use of distribution of this software
11  * without specific, written prior authorization.  If the
12  * above copyright notice or any other identification of the
13  * University of Michigan is included in any copy of any
14  * portion of this software, then the disclaimer below must
15  * also be included.
16  *
17  * THIS SOFTWARE IS PROVIDED AS IS, WITHOUT REPRESENTATION
18  * FROM THE UNIVERSITY OF MICHIGAN AS TO ITS FITNESS FOR ANY
19  * PURPOSE, AND WITHOUT WARRANTY BY THE UNIVERSITY OF
20  * MICHIGAN OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING
21  * WITHOUT LIMITATION THE IMPLIED WARRANTIES OF
22  * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE
23  * REGENTS OF THE UNIVERSITY OF MICHIGAN SHALL NOT BE LIABLE
24  * FOR ANY DAMAGES, INCLUDING SPECIAL, INDIRECT, INCIDENTAL, OR
25  * CONSEQUENTIAL DAMAGES, WITH RESPECT TO ANY CLAIM ARISING
26  * OUT OF OR IN CONNECTION WITH THE USE OF THE SOFTWARE, EVEN
27  * IF IT HAS BEEN OR IS HEREAFTER ADVISED OF THE POSSIBILITY OF
28  * SUCH DAMAGES.
29  */
30 
31 /*
32  * Copyright 2010 Sun Microsystems, Inc.  All rights reserved.
33  * Use is subject to license terms.
34  */
35 
36 #ifndef _PKINIT_CRYPTO_OPENSSL_H
37 #define _PKINIT_CRYPTO_OPENSSL_H
38 
39 #include <openssl/bn.h>
40 #include <openssl/dh.h>
41 #include <openssl/x509.h>
42 #include <openssl/pkcs7.h>
43 #include <openssl/pkcs12.h>
44 #include <openssl/obj_mac.h>
45 #include <openssl/x509v3.h>
46 #include <openssl/err.h>
47 #include <openssl/evp.h>
48 #include <openssl/asn1_mac.h>
49 #include <openssl/sha.h>
50 #include <openssl/asn1.h>
51 #include <openssl/pem.h>
52 
53 #include "pkinit.h"
54 
55 #define DN_BUF_LEN  256
56 #define MAX_CREDS_ALLOWED 20
57 
58 struct _pkinit_cred_info {
59     X509 *cert;
60     EVP_PKEY *key;
61 #ifndef WITHOUT_PKCS11
62     CK_BYTE_PTR cert_id;
63     int cert_id_len;
64 #endif
65 };
66 typedef struct _pkinit_cred_info * pkinit_cred_info;
67 
68 struct _pkinit_identity_crypto_context {
69     pkinit_cred_info creds[MAX_CREDS_ALLOWED+1];
70     STACK_OF(X509) *my_certs;   /* available user certs */
71     int cert_index;             /* cert to use out of available certs*/
72     EVP_PKEY *my_key;           /* available user keys if in filesystem */
73     STACK_OF(X509) *trustedCAs; /* available trusted ca certs */
74     STACK_OF(X509) *intermediateCAs;   /* available intermediate ca certs */
75     STACK_OF(X509_CRL) *revoked;    /* available crls */
76     int pkcs11_method;
77     krb5_prompter_fct prompter;
78     void *prompter_data;
79 #ifndef WITHOUT_PKCS11
80     char *p11_module_name;
81     CK_SLOT_ID slotid;
82     char *token_label;
83     char *cert_label;
84     /* These are crypto-specific */
85     void *p11_module;
86     CK_SESSION_HANDLE session;
87     CK_FUNCTION_LIST_PTR p11;
88     CK_BYTE_PTR cert_id;
89     int cert_id_len;
90     CK_MECHANISM_TYPE mech;
91     /* Solaris Kerberos: need to keep some state */
92     uint_t p11flags;
93     /*
94      * Solaris Kerberos:
95      * If PKCS#11 is already being used by the process then C_Finalize should
96      * not be called by pkinit as it would invalidate any PKCS#11 sessions the
97      * process was using prior to loading the pkinit plugin. "finalize_pkcs11"
98      * indicates whether or not C_Finalize should be called by pkinit.
99      */
100     krb5_boolean finalize_pkcs11;
101 #endif
102 };
103 
104 /* Solaris Kerberos: need to know if login was done */
105 #define	C_LOGIN_DONE 0x1 /* The session is logged in. */
106 
107 struct _pkinit_plg_crypto_context {
108     DH *dh_1024;
109     DH *dh_2048;
110     DH *dh_4096;
111     ASN1_OBJECT *id_pkinit_authData;
112     ASN1_OBJECT *id_pkinit_authData9;
113     ASN1_OBJECT *id_pkinit_DHKeyData;
114     ASN1_OBJECT *id_pkinit_rkeyData;
115     ASN1_OBJECT *id_pkinit_san;
116     ASN1_OBJECT *id_ms_san_upn;
117     ASN1_OBJECT *id_pkinit_KPClientAuth;
118     ASN1_OBJECT *id_pkinit_KPKdc;
119     ASN1_OBJECT *id_ms_kp_sc_logon;
120     ASN1_OBJECT *id_kp_serverAuth;
121 };
122 
123 struct _pkinit_req_crypto_context {
124     X509 *received_cert;
125     DH *dh;
126 };
127 
128 #define CERT_MAGIC 0x53534c43
129 struct _pkinit_cert_data {
130     unsigned int magic;
131     pkinit_plg_crypto_context plgctx;
132     pkinit_req_crypto_context reqctx;
133     pkinit_identity_crypto_context idctx;
134     pkinit_cred_info cred;
135     unsigned int index;	    /* Index of this cred in the creds[] array */
136 };
137 
138 #define ITER_MAGIC 0x53534c49
139 struct _pkinit_cert_iter_data {
140     unsigned int magic;
141     pkinit_plg_crypto_context plgctx;
142     pkinit_req_crypto_context reqctx;
143     pkinit_identity_crypto_context idctx;
144     unsigned int index;
145 };
146 
147 static void openssl_init(void);
148 
149 static krb5_error_code pkinit_init_pkinit_oids(pkinit_plg_crypto_context );
150 static void pkinit_fini_pkinit_oids(pkinit_plg_crypto_context );
151 
152 static krb5_error_code pkinit_init_dh_params(pkinit_plg_crypto_context );
153 static void pkinit_fini_dh_params(pkinit_plg_crypto_context );
154 
155 static krb5_error_code pkinit_init_certs(pkinit_identity_crypto_context ctx);
156 static void pkinit_fini_certs(pkinit_identity_crypto_context ctx);
157 
158 static krb5_error_code pkinit_init_pkcs11(pkinit_identity_crypto_context ctx);
159 static void pkinit_fini_pkcs11(pkinit_identity_crypto_context ctx);
160 
161 static krb5_error_code pkinit_encode_dh_params
162 	(BIGNUM *, BIGNUM *, BIGNUM *, unsigned char **, unsigned int *);
163 static DH *pkinit_decode_dh_params
164 	(DH **, unsigned char **, unsigned int );
165 static int pkinit_check_dh_params
166 	(BIGNUM * p1, BIGNUM * p2, BIGNUM * g1, BIGNUM * q1);
167 
168 static krb5_error_code pkinit_sign_data
169 	(krb5_context context, pkinit_identity_crypto_context cryptoctx,
170 		unsigned char *data, unsigned int data_len,
171 		unsigned char **sig, unsigned int *sig_len);
172 
173 static krb5_error_code create_signature
174 	(unsigned char **, unsigned int *, unsigned char *, unsigned int,
175 		EVP_PKEY *pkey);
176 
177 static krb5_error_code pkinit_decode_data
178 	(krb5_context context, pkinit_identity_crypto_context cryptoctx,
179 		unsigned char *data, unsigned int data_len,
180 		unsigned char **decoded, unsigned int *decoded_len);
181 
182 static krb5_error_code decode_data
183 	(unsigned char **, unsigned int *, unsigned char *, unsigned int,
184 		EVP_PKEY *pkey, X509 *cert);
185 
186 #ifdef DEBUG_DH
187 static void print_dh(DH *, char *);
188 static void print_pubkey(BIGNUM *, char *);
189 #endif
190 
191 static int prepare_enc_data
192 	(unsigned char *indata, int indata_len, unsigned char **outdata,
193 		int *outdata_len);
194 
195 static int openssl_callback (int, X509_STORE_CTX *);
196 static int openssl_callback_ignore_crls (int, X509_STORE_CTX *);
197 
198 static int pkcs7_decrypt
199 	(krb5_context context, pkinit_identity_crypto_context id_cryptoctx,
200 		PKCS7 *p7, BIO *bio);
201 
202 static BIO * pkcs7_dataDecode
203 	(krb5_context context, pkinit_identity_crypto_context id_cryptoctx,
204 		PKCS7 *p7);
205 
206 static ASN1_OBJECT * pkinit_pkcs7type2oid
207 	(pkinit_plg_crypto_context plg_cryptoctx, int pkcs7_type);
208 
209 static krb5_error_code pkinit_create_sequence_of_principal_identifiers
210 	(krb5_context context, pkinit_plg_crypto_context plg_cryptoctx,
211 		pkinit_req_crypto_context req_cryptoctx,
212 		pkinit_identity_crypto_context id_cryptoctx,
213 		int type, krb5_data **out_data);
214 
215 #ifndef WITHOUT_PKCS11
216 static krb5_error_code pkinit_find_private_key
217 	(pkinit_identity_crypto_context, CK_ATTRIBUTE_TYPE usage,
218 		CK_OBJECT_HANDLE *objp);
219 static krb5_error_code pkinit_login
220 	(krb5_context context, pkinit_identity_crypto_context id_cryptoctx,
221 		CK_TOKEN_INFO *tip);
222 static krb5_error_code pkinit_open_session
223 	(krb5_context context, pkinit_identity_crypto_context id_cryptoctx);
224 static void * pkinit_C_LoadModule(const char *modname, CK_FUNCTION_LIST_PTR_PTR p11p);
225 static CK_RV pkinit_C_UnloadModule(void *handle);
226 #ifdef SILLYDECRYPT
227 CK_RV pkinit_C_Decrypt
228 	(pkinit_identity_crypto_context id_cryptoctx,
229 		CK_BYTE_PTR pEncryptedData, CK_ULONG  ulEncryptedDataLen,
230 		CK_BYTE_PTR pData, CK_ULONG_PTR pulDataLen);
231 #endif
232 
233 static krb5_error_code pkinit_sign_data_pkcs11
234 	(krb5_context context, pkinit_identity_crypto_context id_cryptoctx,
235 		unsigned char *data, unsigned int data_len,
236 		unsigned char **sig, unsigned int *sig_len);
237 static krb5_error_code pkinit_decode_data_pkcs11
238 	(krb5_context context, pkinit_identity_crypto_context id_cryptoctx,
239 		unsigned char *data, unsigned int data_len,
240 		unsigned char **decoded_data, unsigned int *decoded_data_len);
241 #endif	/* WITHOUT_PKCS11 */
242 
243 static krb5_error_code pkinit_sign_data_fs
244 	(krb5_context context, pkinit_identity_crypto_context id_cryptoctx,
245 		unsigned char *data, unsigned int data_len,
246 		unsigned char **sig, unsigned int *sig_len);
247 static krb5_error_code pkinit_decode_data_fs
248 	(krb5_context context, pkinit_identity_crypto_context id_cryptoctx,
249 		unsigned char *data, unsigned int data_len,
250 		unsigned char **decoded_data, unsigned int *decoded_data_len);
251 
252 static krb5_error_code der_decode_data
253 	(unsigned char *, long, unsigned char **, long *);
254 
255 static krb5_error_code
256 create_krb5_invalidCertificates(krb5_context context,
257 				pkinit_plg_crypto_context plg_cryptoctx,
258 				pkinit_req_crypto_context req_cryptoctx,
259 				pkinit_identity_crypto_context id_cryptoctx,
260 				krb5_external_principal_identifier *** ids);
261 
262 static krb5_error_code
263 create_identifiers_from_stack(STACK_OF(X509) *sk,
264 			      krb5_external_principal_identifier *** ids);
265 #ifdef LONGHORN_BETA_COMPAT
266 static int
267 wrap_signeddata(unsigned char *data, unsigned int data_len,
268 		unsigned char **out, unsigned int *out_len,
269 		int is_longhorn_server);
270 #else
271 static int
272 wrap_signeddata(unsigned char *data, unsigned int data_len,
273 		unsigned char **out, unsigned int *out_len);
274 #endif
275 
276 /* This handy macro borrowed from crypto/x509v3/v3_purp.c */
277 #define ku_reject(x, usage) \
278 	(((x)->ex_flags & EXFLAG_KUSAGE) && !((x)->ex_kusage & (usage)))
279 
280 static char *
281 pkinit_pkcs11_code_to_text(int err);
282 
283 #endif	/* _PKINIT_CRYPTO_OPENSSL_H */
284