3 #if MONO_SECURITY_ALIAS
4 extern alias MonoSecurity;
7 extern alias PrebuiltSystem;
10 #if MONO_SECURITY_ALIAS
11 using MonoSecurity::Mono.Security.Interface;
12 using MSX = MonoSecurity::Mono.Security.X509;
13 using MonoSecurity::Mono.Security.X509.Extensions;
15 using Mono.Security.Interface;
16 using MSX = Mono.Security.X509;
17 using Mono.Security.X509.Extensions;
20 using XX509CertificateCollection = PrebuiltSystem::System.Security.Cryptography.X509Certificates.X509CertificateCollection;
22 using XX509CertificateCollection = System.Security.Cryptography.X509Certificates.X509CertificateCollection;
27 using System.Threading;
28 using System.Collections;
29 using System.Collections.Generic;
30 using System.Collections.Specialized;
31 using System.Configuration;
32 using System.Net.Configuration;
33 using System.Text.RegularExpressions;
34 using System.Security.Cryptography.X509Certificates;
36 using System.Globalization;
37 using System.Net.Security;
38 using System.Diagnostics;
40 namespace Mono.Net.Security
42 internal static class SystemCertificateValidator
44 static bool is_macosx;
45 static bool is_mobile;
47 static X509RevocationMode revocation_mode;
50 static SystemCertificateValidator ()
59 is_macosx = System.IO.File.Exists (OSX509Certificates.SecurityLibrary);
64 revocation_mode = X509RevocationMode.NoCheck;
66 string str = Environment.GetEnvironmentVariable ("MONO_X509_REVOCATION_MODE");
67 if (String.IsNullOrEmpty (str))
69 revocation_mode = (X509RevocationMode)Enum.Parse (typeof(X509RevocationMode), str, true);
75 static X509Chain ComputeX509Chain (XX509CertificateCollection certs, ref SslPolicyErrors errors, ref int status11)
83 var chain = new X509Chain ();
84 chain.ChainPolicy = new X509ChainPolicy ();
86 chain.ChainPolicy.RevocationMode = revocation_mode;
88 for (int i = 1; i < certs.Count; i++) {
89 chain.ChainPolicy.ExtraStore.Add (certs [i]);
92 var leaf = (X509Certificate2)certs [0];
95 if (!chain.Build (leaf))
96 errors |= GetErrorsFromChain (chain);
97 } catch (Exception e) {
98 Console.Error.WriteLine ("ERROR building certificate chain: {0}", e);
99 Console.Error.WriteLine ("Please, report this problem to the Mono team");
100 errors |= SslPolicyErrors.RemoteCertificateChainErrors;
103 status11 = GetStatusFromChain (chain);
109 static void CheckUsage (XX509CertificateCollection certs, string host, ref SslPolicyErrors errors, ref int status11)
112 var leaf = (X509Certificate2)certs[0];
113 // for OSX and iOS we're using the native API to check for the SSL server policy and host names
115 if (!CheckCertificateUsage (leaf)) {
116 errors |= SslPolicyErrors.RemoteCertificateChainErrors;
117 status11 = -2146762490; //CERT_E_PURPOSE 0x800B0106
120 if (host != null && !CheckServerIdentity (leaf, host)) {
121 errors |= SslPolicyErrors.RemoteCertificateNameMismatch;
122 status11 = -2146762481; // CERT_E_CN_NO_MATCH 0x800B010F
128 static bool EvaluateSystem (XX509CertificateCollection certs, XX509CertificateCollection anchors, string host, X509Chain chain, ref SslPolicyErrors errors, ref int status11)
130 var leaf = certs [0];
134 result = AndroidPlatform.TrustEvaluateSsl (certs);
136 // chain.Build() + GetErrorsFromChain() (above) will ALWAYS fail on
137 // Android (there are no mozroots or preinstalled root certificates),
138 // thus `errors` will ALWAYS have RemoteCertificateChainErrors.
139 // Android just verified the chain; clear RemoteCertificateChainErrors.
140 errors &= ~SslPolicyErrors.RemoteCertificateChainErrors;
144 // Attempt to use OSX certificates
145 // Ideally we should return the SecTrustResult
146 OSX509Certificates.SecTrustResult trustResult = OSX509Certificates.SecTrustResult.Deny;
148 trustResult = OSX509Certificates.TrustEvaluateSsl (certs, anchors, host);
149 // We could use the other values of trustResult to pass this extra information
150 // to the .NET 2 callback for values like SecTrustResult.Confirm
151 result = (trustResult == OSX509Certificates.SecTrustResult.Proceed ||
152 trustResult == OSX509Certificates.SecTrustResult.Unspecified);
158 // TrustEvaluateSsl was successful so there's no trust error
159 // IOW we discard our own chain (since we trust OSX one instead)
162 // callback and DefaultCertificatePolicy needs this since 'result' is not specified
163 status11 = (int)trustResult;
164 errors |= SslPolicyErrors.RemoteCertificateChainErrors;
172 public static bool Evaluate (
173 MonoTlsSettings settings, string host, XX509CertificateCollection certs,
174 ref X509Chain chain, ref SslPolicyErrors errors, ref int status11)
177 if (NeedsChain (settings) && chain == null)
178 chain = ComputeX509Chain (certs, ref errors, ref status11);
181 CheckUsage (certs, host, ref errors, ref status11);
183 if (settings != null && settings.SkipSystemValidators)
186 var anchors = settings != null ? settings.TrustAnchors : null;
187 return EvaluateSystem (certs, anchors, host, chain, ref errors, ref status11);
190 internal static bool NeedsChain (MonoTlsSettings settings)
195 if (!CertificateValidationHelper.SupportsX509Chain)
197 if (settings != null)
198 return !settings.SkipSystemValidators || settings.CallbackNeedsCertificateChain;
205 static int GetStatusFromChain (X509Chain chain)
208 foreach (var status in chain.ChainStatus) {
209 X509ChainStatusFlags flags = status.Status;
210 if (flags == X509ChainStatusFlags.NoError)
214 if ((flags & X509ChainStatusFlags.NotTimeValid) != 0)
216 // CERT_E_VALIDITYPERIODNESTING
217 else if ((flags & X509ChainStatusFlags.NotTimeNested) != 0)
220 else if ((flags & X509ChainStatusFlags.Revoked) != 0)
222 // TRUST_E_CERT_SIGNATURE
223 else if ((flags & X509ChainStatusFlags.NotSignatureValid) != 0)
225 // CERT_E_WRONG_USAGE
226 else if ((flags & X509ChainStatusFlags.NotValidForUsage) != 0)
228 // CERT_E_UNTRUSTEDROOT
229 else if ((flags & X509ChainStatusFlags.UntrustedRoot) != 0)
231 // CRYPT_E_NO_REVOCATION_CHECK
232 else if ((flags & X509ChainStatusFlags.RevocationStatusUnknown) != 0)
235 else if ((flags & X509ChainStatusFlags.Cyclic) != 0)
237 // TRUST_E_FAIL - generic
238 else if ((flags & X509ChainStatusFlags.InvalidExtension) != 0)
240 // CERT_E_UNTRUSTEDROOT
241 else if ((flags & X509ChainStatusFlags.InvalidPolicyConstraints) != 0)
243 // TRUST_E_BASIC_CONSTRAINTS
244 else if ((flags & X509ChainStatusFlags.InvalidBasicConstraints) != 0)
246 // CERT_E_INVALID_NAME
247 else if ((flags & X509ChainStatusFlags.InvalidNameConstraints) != 0)
249 // CERT_E_INVALID_NAME
250 else if ((flags & X509ChainStatusFlags.HasNotSupportedNameConstraint) != 0)
252 // CERT_E_INVALID_NAME
253 else if ((flags & X509ChainStatusFlags.HasNotDefinedNameConstraint) != 0)
255 // CERT_E_INVALID_NAME
256 else if ((flags & X509ChainStatusFlags.HasNotPermittedNameConstraint) != 0)
258 // CERT_E_INVALID_NAME
259 else if ((flags & X509ChainStatusFlags.HasExcludedNameConstraint) != 0)
262 else if ((flags & X509ChainStatusFlags.PartialChain) != 0)
265 else if ((flags & X509ChainStatusFlags.CtlNotTimeValid) != 0)
267 // TRUST_E_CERT_SIGNATURE
268 else if ((flags & X509ChainStatusFlags.CtlNotSignatureValid) != 0)
270 // CERT_E_WRONG_USAGE
271 else if ((flags & X509ChainStatusFlags.CtlNotValidForUsage) != 0)
273 // CRYPT_E_NO_REVOCATION_CHECK
274 else if ((flags & X509ChainStatusFlags.OfflineRevocation) != 0)
276 // CERT_E_ISSUERCHAINING
277 else if ((flags & X509ChainStatusFlags.NoIssuanceChainPolicy) != 0)
280 result = 0x800B010B; // TRUST_E_FAIL - generic
282 break; // Exit the loop on the first error
287 static SslPolicyErrors GetErrorsFromChain (X509Chain chain)
289 SslPolicyErrors errors = SslPolicyErrors.None;
290 foreach (var status in chain.ChainStatus) {
291 if (status.Status == X509ChainStatusFlags.NoError)
293 errors |= SslPolicyErrors.RemoteCertificateChainErrors;
301 static X509KeyUsageFlags s_flags = X509KeyUsageFlags.DigitalSignature |
302 X509KeyUsageFlags.KeyAgreement |
303 X509KeyUsageFlags.KeyEncipherment;
304 // Adapted to System 2.0+ from TlsServerCertificate.cs
305 //------------------------------
306 // Note: this method only works for RSA certificates
307 // DH certificates requires some changes - does anyone use one ?
308 static bool CheckCertificateUsage (X509Certificate2 cert)
311 // certificate extensions are required for this
312 // we "must" accept older certificates without proofs
313 if (cert.Version < 3)
316 X509KeyUsageExtension kux = (cert.Extensions ["2.5.29.15"] as X509KeyUsageExtension);
317 X509EnhancedKeyUsageExtension eku = (cert.Extensions ["2.5.29.37"] as X509EnhancedKeyUsageExtension);
318 if (kux != null && eku != null) {
319 // RFC3280 states that when both KeyUsageExtension and
320 // ExtendedKeyUsageExtension are present then BOTH should
322 if ((kux.KeyUsages & s_flags) == 0)
324 return eku.EnhancedKeyUsages ["1.3.6.1.5.5.7.3.1"] != null ||
325 eku.EnhancedKeyUsages ["2.16.840.1.113730.4.1"] != null;
326 } else if (kux != null) {
327 return ((kux.KeyUsages & s_flags) != 0);
328 } else if (eku != null) {
329 // Server Authentication (1.3.6.1.5.5.7.3.1) or
330 // Netscape Server Gated Crypto (2.16.840.1.113730.4)
331 return eku.EnhancedKeyUsages ["1.3.6.1.5.5.7.3.1"] != null ||
332 eku.EnhancedKeyUsages ["2.16.840.1.113730.4.1"] != null;
335 // last chance - try with older (deprecated) Netscape extensions
336 X509Extension ext = cert.Extensions ["2.16.840.1.113730.1.1"];
338 string text = ext.NetscapeCertType (false);
339 return text.IndexOf ("SSL Server Authentication", StringComparison.Ordinal) != -1;
342 } catch (Exception e) {
343 Console.Error.WriteLine ("ERROR processing certificate: {0}", e);
344 Console.Error.WriteLine ("Please, report this problem to the Mono team");
349 // RFC2818 - HTTP Over TLS, Section 3.1
350 // http://www.ietf.org/rfc/rfc2818.txt
352 // 1. if present MUST use subjectAltName dNSName as identity
353 // 1.1. if multiples entries a match of any one is acceptable
354 // 1.2. wildcard * is acceptable
355 // 2. URI may be an IP address -> subjectAltName.iPAddress
356 // 2.1. exact match is required
357 // 3. Use of the most specific Common Name (CN=) in the Subject
358 // 3.1 Existing practice but DEPRECATED
359 static bool CheckServerIdentity (X509Certificate2 cert, string targetHost)
362 var mcert = new MSX.X509Certificate (cert.RawData);
363 MSX.X509Extension ext = mcert.Extensions ["2.5.29.17"];
366 SubjectAltNameExtension subjectAltName = new SubjectAltNameExtension (ext);
367 // 1.1 - multiple dNSName
368 foreach (string dns in subjectAltName.DNSNames) {
369 // 1.2 TODO - wildcard support
370 if (Match (targetHost, dns))
374 foreach (string ip in subjectAltName.IPAddresses) {
375 // 2.1. Exact match required
376 if (ip == targetHost)
380 // 3. Common Name (CN=)
381 return CheckDomainName (mcert.SubjectName, targetHost);
382 } catch (Exception e) {
383 Console.Error.WriteLine ("ERROR processing certificate: {0}", e);
384 Console.Error.WriteLine ("Please, report this problem to the Mono team");
389 static bool CheckDomainName (string subjectName, string targetHost)
391 string domainName = String.Empty;
392 Regex search = new Regex (@"CN\s*=\s*([^,]*)");
393 MatchCollection elements = search.Matches (subjectName);
394 if (elements.Count == 1) {
395 if (elements [0].Success)
396 domainName = elements [0].Groups [1].Value.ToString ();
399 return Match (targetHost, domainName);
402 // ensure the pattern is valid wrt to RFC2595 and RFC2818
403 // http://www.ietf.org/rfc/rfc2595.txt
404 // http://www.ietf.org/rfc/rfc2818.txt
405 static bool Match (string hostname, string pattern)
407 // check if this is a pattern
408 int index = pattern.IndexOf ('*');
410 // not a pattern, do a direct case-insensitive comparison
411 return (String.Compare (hostname, pattern, true, CultureInfo.InvariantCulture) == 0);
414 // check pattern validity
415 // A "*" wildcard character MAY be used as the left-most name component in the certificate.
417 // unless this is the last char (valid)
418 if (index != pattern.Length - 1) {
419 // then the next char must be a dot .'.
420 if (pattern [index + 1] != '.')
424 // only one (A) wildcard is supported
425 int i2 = pattern.IndexOf ('*', index + 1);
429 // match the end of the pattern
430 string end = pattern.Substring (index + 1);
431 int length = hostname.Length - end.Length;
432 // no point to check a pattern that is longer than the hostname
436 if (String.Compare (hostname, length, end, 0, end.Length, true, CultureInfo.InvariantCulture) != 0)
439 // special case, we start with the wildcard
441 // ensure we hostname non-matched part (start) doesn't contain a dot
442 int i3 = hostname.IndexOf ('.');
443 return ((i3 == -1) || (i3 >= (hostname.Length - end.Length)));
446 // match the start of the pattern
447 string start = pattern.Substring (0, index);
448 return (String.Compare (hostname, 0, start, 0, start.Length, true, CultureInfo.InvariantCulture) == 0);