2 * security-manager.c: Security Manager (Unmanaged side)
5 * Sebastien Pouliot <sebastien@ximian.com>
7 * Copyright (C) 2004-2005 Novell, Inc (http://www.novell.com)
10 #include "security-manager.h"
15 static MonoSecurityManager secman;
16 static MonoBoolean mono_security_manager_activated = FALSE;
17 static MonoBoolean mono_security_manager_enabled = TRUE;
18 static MonoBoolean mono_security_manager_execution = TRUE;
24 mono_security_manager_get_methods (void)
26 /* Already initialized ? */
27 if (secman.securitymanager)
31 secman.securitymanager = mono_class_from_name (mono_defaults.corlib,
32 "System.Security", "SecurityManager");
33 g_assert (secman.securitymanager);
34 if (!secman.securitymanager->inited)
35 mono_class_init (secman.securitymanager);
37 secman.demand = mono_class_get_method_from_name (secman.securitymanager,
39 g_assert (secman.demand);
41 secman.demandchoice = mono_class_get_method_from_name (secman.securitymanager,
42 "InternalDemandChoice", 2);
43 g_assert (secman.demandchoice);
45 secman.demandunmanaged = mono_class_get_method_from_name (secman.securitymanager,
46 "DemandUnmanaged", 0);
47 g_assert (secman.demandunmanaged);
49 secman.inheritancedemand = mono_class_get_method_from_name (secman.securitymanager,
50 "InheritanceDemand", 2);
51 g_assert (secman.inheritancedemand);
53 secman.inheritsecurityexception = mono_class_get_method_from_name (secman.securitymanager,
54 "InheritanceDemandSecurityException", 4);
55 g_assert (secman.inheritsecurityexception);
57 secman.linkdemand = mono_class_get_method_from_name (secman.securitymanager,
59 g_assert (secman.linkdemand);
61 secman.linkdemandunmanaged = mono_class_get_method_from_name (secman.securitymanager,
62 "LinkDemandUnmanaged", 1);
63 g_assert (secman.linkdemandunmanaged);
65 secman.linkdemandfulltrust = mono_class_get_method_from_name (secman.securitymanager,
66 "LinkDemandFullTrust", 1);
67 g_assert (secman.linkdemandfulltrust);
69 secman.linkdemandsecurityexception = mono_class_get_method_from_name (secman.securitymanager,
70 "LinkDemandSecurityException", 3);
71 g_assert (secman.linkdemandsecurityexception);
73 secman.allowpartiallytrustedcallers = mono_class_from_name (mono_defaults.corlib, "System.Security",
74 "AllowPartiallyTrustedCallersAttribute");
75 g_assert (secman.allowpartiallytrustedcallers);
77 secman.suppressunmanagedcodesecurity = mono_class_from_name (mono_defaults.corlib, "System.Security",
78 "SuppressUnmanagedCodeSecurityAttribute");
79 g_assert (secman.suppressunmanagedcodesecurity);
85 mono_secman_inheritance_check (MonoClass *klass, MonoDeclSecurityActions *demands)
87 MonoSecurityManager* secman = mono_security_manager_get_methods ();
88 MonoDomain *domain = mono_domain_get ();
89 MonoAssembly *assembly = mono_image_get_assembly (klass->image);
90 MonoReflectionAssembly *refass = mono_assembly_get_object (domain, assembly);
97 res = mono_runtime_invoke (secman->inheritancedemand, NULL, args, NULL);
98 return (*(MonoBoolean *) mono_object_unbox (res));
102 mono_secman_inheritancedemand_class (MonoClass *klass, MonoClass *parent)
104 MonoDeclSecurityActions demands;
106 /* don't hide previous results -and- don't calc everything for nothing */
107 if (klass->exception_type != 0)
110 /* short-circuit corlib as it is fully trusted (within itself)
111 * and because this cause major recursion headaches */
112 if ((klass->image == mono_defaults.corlib) && (parent->image == mono_defaults.corlib))
115 /* Check if there are an InheritanceDemand on the parent class */
116 if (mono_declsec_get_inheritdemands_class (parent, &demands)) {
117 /* If so check the demands on the klass (inheritor) */
118 if (!mono_secman_inheritance_check (klass, &demands)) {
119 /* Keep flags in MonoClass to be able to throw a SecurityException later (if required) */
120 klass->exception_type = MONO_EXCEPTION_SECURITY_INHERITANCEDEMAND;
121 klass->exception_data = NULL;
127 mono_secman_inheritancedemand_method (MonoMethod *override, MonoMethod *base)
129 MonoDeclSecurityActions demands;
131 /* don't hide previous results -and- don't calc everything for nothing */
132 if (override->klass->exception_type != 0)
135 /* short-circuit corlib as it is fully trusted (within itself)
136 * and because this cause major recursion headaches */
137 if ((override->klass->image == mono_defaults.corlib) && (base->klass->image == mono_defaults.corlib))
140 /* Check if there are an InheritanceDemand on the base (virtual) method */
141 if (mono_declsec_get_inheritdemands_method (base, &demands)) {
142 /* If so check the demands on the overriding method */
143 if (!mono_secman_inheritance_check (override->klass, &demands)) {
144 /* Keep flags in MonoClass to be able to throw a SecurityException later (if required) */
145 override->klass->exception_type = MONO_EXCEPTION_SECURITY_INHERITANCEDEMAND;
146 override->klass->exception_data = base;
153 * Note: The security manager is activate once when executing the Mono. This
154 * is not meant to be a turn on/off runtime switch.
157 mono_activate_security_manager (void)
159 mono_security_manager_activated = TRUE;
163 mono_is_security_manager_active (void)
165 return mono_security_manager_activated;
169 * @publickey An encoded (with header) public key
170 * @size The length of the public key
172 * returns TRUE if the public key is the ECMA "key", FALSE otherwise
174 * ECMA key isn't a real public key - it's simply an empty (but valid) header
175 * so it's length (16) and value (00000000000000000400000000000000) are
179 mono_is_ecma_key (const char *publickey, int size)
182 if ((publickey == NULL) || (size != MONO_ECMA_KEY_LENGTH) || (publickey [8] != 0x04))
185 for (i=0; i < size; i++) {
186 if ((publickey [i] != 0x00) && (i != 8))
193 * Context propagation is required when:
194 * (a) the security manager is active (1.x and later)
195 * (b) other contexts needs to be propagated (2.x and later)
197 * returns NULL if no context propagation is required, else the returns the
198 * MonoMethod to call to Capture the ExecutionContext.
201 mono_get_context_capture_method (void)
203 static MonoMethod *method = NULL;
205 if (!mono_security_manager_activated) {
206 if (mono_image_get_assembly (mono_defaults.corlib)->aname.major < 2)
210 /* older corlib revisions won't have the class (nor the method) */
211 if (mono_defaults.executioncontext_class && !method) {
212 mono_class_init (mono_defaults.executioncontext_class);
213 method = mono_class_get_method_from_name (mono_defaults.executioncontext_class, "Capture", 0);
220 /* System.Security icalls */
223 ves_icall_System_Security_SecurityManager_get_SecurityEnabled (void)
225 if (!mono_security_manager_activated)
227 return mono_security_manager_enabled;
231 ves_icall_System_Security_SecurityManager_set_SecurityEnabled (MonoBoolean value)
233 /* value can be changed only if the security manager is activated */
234 if (mono_security_manager_activated) {
235 mono_security_manager_enabled = value;
240 ves_icall_System_Security_SecurityManager_get_CheckExecutionRights (void)
242 if (!mono_security_manager_activated)
244 return mono_security_manager_execution;
248 ves_icall_System_Security_SecurityManager_set_CheckExecutionRights (MonoBoolean value)
250 /* value can be changed only id the security manager is activated */
251 if (mono_security_manager_activated) {
252 mono_security_manager_execution = value;
257 ves_icall_System_Security_SecurityManager_GetLinkDemandSecurity (MonoReflectionMethod *m, MonoDeclSecurityActions *kactions, MonoDeclSecurityActions *mactions)
259 MonoMethod *method = m->method;
260 /* we want the original as the wrapper is "free" of the security informations */
261 if (method->wrapper_type == MONO_WRAPPER_MANAGED_TO_NATIVE) {
262 method = mono_marshal_method_from_wrapper (method);
265 mono_class_init (method->klass);
267 /* if either the method or it's class has security (any type) */
268 if ((method->flags & METHOD_ATTRIBUTE_HAS_SECURITY) || (method->klass->flags & TYPE_ATTRIBUTE_HAS_SECURITY)) {
269 memset (kactions, 0, sizeof (MonoDeclSecurityActions));
270 memset (mactions, 0, sizeof (MonoDeclSecurityActions));
272 /* get any linkdemand (either on the method or it's class) */
273 return mono_declsec_get_linkdemands (method, kactions, mactions);