2 * security-core-clr.c: CoreCLR security
5 * Mark Probst <mark.probst@gmail.com>
6 * Sebastien Pouliot <sebastien@ximian.com>
8 * Copyright 2007-2010 Novell, Inc (http://www.novell.com)
11 #include <mono/metadata/class-internals.h>
12 #include <mono/metadata/security-manager.h>
13 #include <mono/metadata/assembly.h>
14 #include <mono/metadata/appdomain.h>
15 #include <mono/metadata/verify-internals.h>
16 #include <mono/metadata/object.h>
17 #include <mono/metadata/exception.h>
18 #include <mono/metadata/debug-helpers.h>
19 #include <mono/utils/mono-logger-internal.h>
21 #include "security-core-clr.h"
23 gboolean mono_security_core_clr_test
= FALSE
;
26 security_critical_attribute (void)
28 static MonoClass
*class = NULL
;
31 class = mono_class_from_name (mono_defaults
.corlib
, "System.Security",
32 "SecurityCriticalAttribute");
39 security_safe_critical_attribute (void)
41 static MonoClass
*class = NULL
;
44 class = mono_class_from_name (mono_defaults
.corlib
, "System.Security",
45 "SecuritySafeCriticalAttribute");
52 * set_type_load_exception_type
54 * Set MONO_EXCEPTION_TYPE_LOAD on the specified 'class' and provide
55 * a descriptive message for the exception. This message is also,
56 * optionally, being logged (export MONO_LOG_MASK="security") for
60 set_type_load_exception_type (const char *format
, MonoClass
*class)
62 char *type_name
= mono_type_get_full_name (class);
63 char *parent_name
= mono_type_get_full_name (class->parent
);
64 char *message
= g_strdup_printf (format
, type_name
, parent_name
);
69 mono_trace (G_LOG_LEVEL_WARNING
, MONO_TRACE_SECURITY
, message
);
70 mono_class_set_failure (class, MONO_EXCEPTION_TYPE_LOAD
, message
);
71 // note: do not free string given to mono_class_set_failure
75 * set_type_load_exception_methods
77 * Set MONO_EXCEPTION_TYPE_LOAD on the 'override' class and provide
78 * a descriptive message for the exception. This message is also,
79 * optionally, being logged (export MONO_LOG_MASK="security") for
83 set_type_load_exception_methods (const char *format
, MonoMethod
*override
, MonoMethod
*base
)
85 char *method_name
= mono_method_full_name (override
, TRUE
);
86 char *base_name
= mono_method_full_name (base
, TRUE
);
87 char *message
= g_strdup_printf (format
, method_name
, base_name
);
92 mono_trace (G_LOG_LEVEL_WARNING
, MONO_TRACE_SECURITY
, message
);
93 mono_class_set_failure (override
->klass
, MONO_EXCEPTION_TYPE_LOAD
, message
);
94 // note: do not free string given to mono_class_set_failure
97 /* MonoClass is not fully initialized (inited is not yet == 1) when we
98 * check the inheritance rules so we need to look for the default ctor
99 * ourselve to avoid recursion (and aborting)
102 get_default_ctor (MonoClass
*klass
)
109 for (i
= 0; i
< klass
->method
.count
; ++i
) {
110 MonoMethodSignature
*sig
;
111 MonoMethod
*method
= klass
->methods
[i
];
113 if ((method
->flags
& METHOD_ATTRIBUTE_SPECIAL_NAME
) == 0)
115 if ((method
->name
[0] != '.') || strcmp (".ctor", method
->name
))
117 sig
= mono_method_signature (method
);
118 if (sig
&& (sig
->param_count
== 0))
126 * mono_security_core_clr_check_inheritance:
128 * Determine if the specified class can inherit from its parent using
129 * the CoreCLR inheritance rules.
131 * Base Type Allow Derived Type
132 * ------------ ------------------
133 * Transparent Transparent, SafeCritical, Critical
134 * SafeCritical SafeCritical, Critical
137 * Reference: http://msdn.microsoft.com/en-us/magazine/cc765416.aspx#id0190030
139 * Furthermore a class MUST have a default constructor if its base
140 * class has a non-transparent default constructor. The same
141 * inheritance rule applies to both default constructors.
143 * Reference: message from a SecurityException in SL4RC
146 mono_security_core_clr_check_inheritance (MonoClass
*class)
148 MonoSecurityCoreCLRLevel class_level
, parent_level
;
149 MonoClass
*parent
= class->parent
;
154 class_level
= mono_security_core_clr_class_level (class);
155 parent_level
= mono_security_core_clr_class_level (parent
);
157 if (class_level
< parent_level
) {
158 set_type_load_exception_type (
159 "Inheritance failure for type %s. Parent class %s is more restricted.",
162 class_level
= mono_security_core_clr_method_level (get_default_ctor (class), FALSE
);
163 parent_level
= mono_security_core_clr_method_level (get_default_ctor (parent
), FALSE
);
164 if (class_level
< parent_level
) {
165 set_type_load_exception_type (
166 "Inheritance failure for type %s. Default constructor security mismatch with %s.",
173 * mono_security_core_clr_check_override:
175 * Determine if the specified override can "legally" override the
176 * specified base method using the CoreCLR inheritance rules.
178 * Base (virtual/interface) Allowed override
179 * ------------------------ -------------------------
180 * Transparent Transparent, SafeCritical
181 * SafeCritical Transparent, SafeCritical
184 * Reference: http://msdn.microsoft.com/en-us/magazine/cc765416.aspx#id0190030
187 mono_security_core_clr_check_override (MonoClass
*class, MonoMethod
*override
, MonoMethod
*base
)
189 MonoSecurityCoreCLRLevel base_level
= mono_security_core_clr_method_level (base
, FALSE
);
190 MonoSecurityCoreCLRLevel override_level
= mono_security_core_clr_method_level (override
, FALSE
);
191 /* if the base method is decorated with [SecurityCritical] then the overrided method MUST be too */
192 if (base_level
== MONO_SECURITY_CORE_CLR_CRITICAL
) {
193 if (override_level
!= MONO_SECURITY_CORE_CLR_CRITICAL
) {
194 set_type_load_exception_methods (
195 "Override failure for %s over %s. Override MUST be [SecurityCritical].",
199 /* base is [SecuritySafeCritical] or [SecurityTransparent], override MUST NOT be [SecurityCritical] */
200 if (override_level
== MONO_SECURITY_CORE_CLR_CRITICAL
) {
201 set_type_load_exception_methods (
202 "Override failure for %s over %s. Override must NOT be [SecurityCritical].",
209 * get_caller_no_reflection_related:
211 * Find the first managed caller that is either:
212 * (a) located outside the platform code assemblies; or
213 * (b) not related to reflection and delegates
215 * Returns TRUE to stop the stackwalk, FALSE to continue to the next frame.
218 get_caller_no_reflection_related (MonoMethod
*m
, gint32 no
, gint32 ilo
, gboolean managed
, gpointer data
)
220 MonoMethod
**dest
= data
;
223 /* skip unmanaged frames */
227 if (m
->wrapper_type
!= MONO_WRAPPER_NONE
)
230 /* quick out (any namespace not starting with an 'S' */
231 ns
= m
->klass
->name_space
;
232 if (!ns
|| (*ns
!= 'S')) {
237 /* stop if the method is not part of platform code */
238 if (!mono_security_core_clr_is_platform_image (m
->klass
->image
)) {
243 /* any number of calls inside System.Reflection are allowed */
244 if (strcmp (ns
, "System.Reflection") == 0)
247 /* any number of calls inside System.Reflection are allowed */
248 if (strcmp (ns
, "System.Reflection.Emit") == 0)
251 /* calls from System.Delegate are also possible and allowed */
252 if (strcmp (ns
, "System") == 0) {
253 const char *kname
= m
->klass
->name
;
254 if ((*kname
== 'A') && (strcmp (kname
, "Activator") == 0))
257 /* unlike most Invoke* cases InvokeMember is not inside System.Reflection[.Emit] but is SecuritySafeCritical */
258 if (((*kname
== 'T') && (strcmp (kname
, "Type") == 0)) ||
259 ((*kname
== 'M') && (strcmp (kname
, "MonoType")) == 0)) {
261 /* if calling InvokeMember then we can't stop the stackwalk here and need to look at the caller */
262 if (strcmp (m
->name
, "InvokeMember") == 0)
266 /* the security check on the delegate is made at creation time, not at invoke time */
267 if (((*kname
== 'D') && (strcmp (kname
, "Delegate") == 0)) ||
268 ((*kname
== 'M') && (strcmp (kname
, "MulticastDelegate")) == 0)) {
270 /* if we're invoking then we can stop our stack walk */
271 if (strcmp (m
->name
, "DynamicInvoke") != 0)
286 * get_reflection_caller:
288 * Walk to the first managed method outside:
289 * - System.Reflection* namespaces
290 * - System.[MulticastDelegate]Delegate or Activator type
292 * and return a pointer to its MonoMethod.
294 * This is required since CoreCLR checks needs to be done on this "real" caller.
297 get_reflection_caller (void)
299 MonoMethod
*m
= NULL
;
300 mono_stack_walk_no_il (get_caller_no_reflection_related
, &m
);
301 if (G_UNLIKELY (!m
)) {
302 mono_trace (G_LOG_LEVEL_ERROR
, MONO_TRACE_SECURITY
, "No caller outside reflection was found");
308 * check_field_access:
310 * Return TRUE if the caller method can access the specified field, FALSE otherwise.
313 check_field_access (MonoMethod
*caller
, MonoClassField
*field
)
315 /* if get_reflection_caller returns NULL then we assume the caller has NO privilege */
317 MonoClass
*klass
= (mono_field_get_flags (field
) & FIELD_ATTRIBUTE_STATIC
) ? NULL
: mono_field_get_parent (field
);
318 return mono_method_can_access_field_full (caller
, field
, klass
);
324 * check_method_access:
326 * Return TRUE if the caller method can access the specified callee method, FALSE otherwise.
329 check_method_access (MonoMethod
*caller
, MonoMethod
*callee
)
331 /* if get_reflection_caller returns NULL then we assume the caller has NO privilege */
333 MonoClass
*klass
= (callee
->flags
& METHOD_ATTRIBUTE_STATIC
) ? NULL
: callee
->klass
;
334 return mono_method_can_access_method_full (caller
, callee
, klass
);
340 * get_argument_exception
342 * Helper function to create an MonoException (ArgumentException in
343 * managed-land) and provide a descriptive message for it. This
344 * message is also, optionally, being logged (export
345 * MONO_LOG_MASK="security") for debugging purposes.
347 static MonoException
*
348 get_argument_exception (const char *format
, MonoMethod
*caller
, MonoMethod
*callee
)
351 char *caller_name
= mono_method_full_name (caller
, TRUE
);
352 char *callee_name
= mono_method_full_name (callee
, TRUE
);
353 char *message
= g_strdup_printf (format
, caller_name
, callee_name
);
354 g_free (callee_name
);
355 g_free (caller_name
);
357 mono_trace (G_LOG_LEVEL_WARNING
, MONO_TRACE_SECURITY
, message
);
358 ex
= mono_get_exception_argument ("method", message
);
365 * get_field_access_exception
367 * Helper function to create an MonoException (FieldAccessException
368 * in managed-land) and provide a descriptive message for it. This
369 * message is also, optionally, being logged (export
370 * MONO_LOG_MASK="security") for debugging purposes.
372 static MonoException
*
373 get_field_access_exception (const char *format
, MonoMethod
*caller
, MonoClassField
*field
)
376 char *caller_name
= mono_method_full_name (caller
, TRUE
);
377 char *field_name
= mono_field_full_name (field
);
378 char *message
= g_strdup_printf (format
, caller_name
, field_name
);
380 g_free (caller_name
);
382 mono_trace (G_LOG_LEVEL_WARNING
, MONO_TRACE_SECURITY
, message
);
383 ex
= mono_get_exception_field_access_msg (message
);
390 * get_method_access_exception
392 * Helper function to create an MonoException (MethodAccessException
393 * in managed-land) and provide a descriptive message for it. This
394 * message is also, optionally, being logged (export
395 * MONO_LOG_MASK="security") for debugging purposes.
397 static MonoException
*
398 get_method_access_exception (const char *format
, MonoMethod
*caller
, MonoMethod
*callee
)
401 char *caller_name
= mono_method_full_name (caller
, TRUE
);
402 char *callee_name
= mono_method_full_name (callee
, TRUE
);
403 char *message
= g_strdup_printf (format
, caller_name
, callee_name
);
404 g_free (callee_name
);
405 g_free (caller_name
);
407 mono_trace (G_LOG_LEVEL_WARNING
, MONO_TRACE_SECURITY
, message
);
408 ex
= mono_get_exception_method_access_msg (message
);
415 * mono_security_core_clr_ensure_reflection_access_field:
417 * Ensure that the specified field can be used with reflection since
418 * Transparent code cannot access to Critical fields and can only use
419 * them if they are visible from it's point of view.
421 * A FieldAccessException is thrown if the field is cannot be accessed.
424 mono_security_core_clr_ensure_reflection_access_field (MonoClassField
*field
)
426 MonoMethod
*caller
= get_reflection_caller ();
427 /* CoreCLR restrictions applies to Transparent code/caller */
428 if (mono_security_core_clr_method_level (caller
, TRUE
) != MONO_SECURITY_CORE_CLR_TRANSPARENT
)
431 /* Transparent code cannot [get|set]value on Critical fields */
432 if (mono_security_core_clr_class_level (mono_field_get_parent (field
)) == MONO_SECURITY_CORE_CLR_CRITICAL
) {
433 mono_raise_exception (get_field_access_exception (
434 "Transparent method %s cannot get or set Critical field %s.",
438 /* also it cannot access a fields that is not visible from it's (caller) point of view */
439 if (!check_field_access (caller
, field
)) {
440 mono_raise_exception (get_field_access_exception (
441 "Transparent method %s cannot get or set private/internal field %s.",
447 * mono_security_core_clr_ensure_reflection_access_method:
449 * Ensure that the specified method can be used with reflection since
450 * Transparent code cannot call Critical methods and can only call them
451 * if they are visible from it's point of view.
453 * A MethodAccessException is thrown if the field is cannot be accessed.
456 mono_security_core_clr_ensure_reflection_access_method (MonoMethod
*method
)
458 MonoMethod
*caller
= get_reflection_caller ();
459 /* CoreCLR restrictions applies to Transparent code/caller */
460 if (mono_security_core_clr_method_level (caller
, TRUE
) != MONO_SECURITY_CORE_CLR_TRANSPARENT
)
463 /* Transparent code cannot invoke, even using reflection, Critical code */
464 if (mono_security_core_clr_method_level (method
, TRUE
) == MONO_SECURITY_CORE_CLR_CRITICAL
) {
465 mono_raise_exception (get_method_access_exception (
466 "Transparent method %s cannot invoke Critical method %s.",
470 /* also it cannot invoke a method that is not visible from it's (caller) point of view */
471 if (!check_method_access (caller
, method
)) {
472 mono_raise_exception (get_method_access_exception (
473 "Transparent method %s cannot invoke private/internal method %s.",
479 * can_avoid_corlib_reflection_delegate_optimization:
481 * Mono's mscorlib use delegates to optimize PropertyInfo and EventInfo
482 * reflection calls. This requires either a bunch of additional, and not
483 * really required, [SecuritySafeCritical] in the class libraries or
484 * (like this) a way to skip them. As a bonus we also avoid the stack
485 * walk to find the caller.
487 * Return TRUE if we can skip this "internal" delegate creation, FALSE
491 can_avoid_corlib_reflection_delegate_optimization (MonoMethod
*method
)
493 if (!mono_security_core_clr_is_platform_image (method
->klass
->image
))
496 if (strcmp (method
->klass
->name_space
, "System.Reflection") != 0)
499 if (strcmp (method
->klass
->name
, "MonoProperty") == 0) {
500 if ((strcmp (method
->name
, "GetterAdapterFrame") == 0) || strcmp (method
->name
, "StaticGetterAdapterFrame") == 0)
502 } else if (strcmp (method
->klass
->name
, "EventInfo") == 0) {
503 if ((strcmp (method
->name
, "AddEventFrame") == 0) || strcmp (method
->name
, "StaticAddEventAdapterFrame") == 0)
511 * mono_security_core_clr_ensure_delegate_creation:
513 * Return TRUE if a delegate can be created on the specified method.
514 * CoreCLR also affect the binding, so throwOnBindFailure must be
515 * FALSE to let this function return (FALSE) normally, otherwise (if
516 * throwOnBindFailure is TRUE) it will throw an ArgumentException.
518 * A MethodAccessException is thrown if the specified method is not
519 * visible from the caller point of view.
522 mono_security_core_clr_ensure_delegate_creation (MonoMethod
*method
, gboolean throwOnBindFailure
)
526 /* note: mscorlib creates delegates to avoid reflection (optimization), we ignore those cases */
527 if (can_avoid_corlib_reflection_delegate_optimization (method
))
530 caller
= get_reflection_caller ();
531 /* if the "real" caller is not Transparent then it do can anything */
532 if (mono_security_core_clr_method_level (caller
, TRUE
) != MONO_SECURITY_CORE_CLR_TRANSPARENT
)
535 /* otherwise it (as a Transparent caller) cannot create a delegate on a Critical method... */
536 if (mono_security_core_clr_method_level (method
, TRUE
) == MONO_SECURITY_CORE_CLR_CRITICAL
) {
537 /* but this throws only if 'throwOnBindFailure' is TRUE */
538 if (!throwOnBindFailure
)
541 mono_raise_exception (get_argument_exception (
542 "Transparent method %s cannot create a delegate on Critical method %s.",
546 /* also it cannot create the delegate on a method that is not visible from it's (caller) point of view */
547 if (!check_method_access (caller
, method
)) {
548 mono_raise_exception (get_method_access_exception (
549 "Transparent method %s cannot create a delegate on private/internal method %s.",
557 * mono_security_core_clr_ensure_dynamic_method_resolved_object:
559 * Called from mono_reflection_create_dynamic_method (reflection.c) to add some extra checks required for CoreCLR.
560 * Dynamic methods needs to check to see if the objects being used (e.g. methods, fields) comes from platform code
561 * and do an accessibility check in this case. Otherwise (i.e. user/application code) can be used without this extra
562 * accessbility check.
565 mono_security_core_clr_ensure_dynamic_method_resolved_object (gpointer ref
, MonoClass
*handle_class
)
567 /* XXX find/create test cases for other handle_class XXX */
568 if (handle_class
== mono_defaults
.fieldhandle_class
) {
569 MonoClassField
*field
= (MonoClassField
*) ref
;
570 MonoClass
*klass
= mono_field_get_parent (field
);
571 /* fields coming from platform code have extra protection (accessibility check) */
572 if (mono_security_core_clr_is_platform_image (klass
->image
)) {
573 MonoMethod
*caller
= get_reflection_caller ();
574 /* XXX Critical code probably can do this / need some test cases (safer off otherwise) XXX */
575 if (!check_field_access (caller
, field
)) {
576 return get_field_access_exception (
577 "Dynamic method %s cannot create access private/internal field %s.",
581 } else if (handle_class
== mono_defaults
.methodhandle_class
) {
582 MonoMethod
*method
= (MonoMethod
*) ref
;
583 /* methods coming from platform code have extra protection (accessibility check) */
584 if (mono_security_core_clr_is_platform_image (method
->klass
->image
)) {
585 MonoMethod
*caller
= get_reflection_caller ();
586 /* XXX Critical code probably can do this / need some test cases (safer off otherwise) XXX */
587 if (!check_method_access (caller
, method
)) {
588 return get_method_access_exception (
589 "Dynamic method %s cannot create access private/internal method %s.",
598 * mono_security_core_clr_can_access_internals
600 * Check if we allow [InternalsVisibleTo] to work between two images.
603 mono_security_core_clr_can_access_internals (MonoImage
*accessing
, MonoImage
* accessed
)
605 /* are we trying to access internals of a platform assembly ? if not this is acceptable */
606 if (!mono_security_core_clr_is_platform_image (accessed
))
609 /* we can't let everyone with the right name and public key token access the internals of platform code.
610 * (Silverlight can rely on the strongname signature of the assemblies, but Mono does not verify them)
611 * However platform code is fully trusted so it can access the internals of other platform code assemblies */
612 if (mono_security_core_clr_is_platform_image (accessing
))
615 /* catch-22: System.Xml needs access to mscorlib's internals (e.g. ArrayList) but is not considered platform code.
616 * Promoting it to platform code would create another issue since (both Mono/Moonlight or MS version of)
617 * System.Xml.Linq.dll (an SDK, not platform, assembly) needs access to System.Xml.dll internals (either ).
618 * The solution is to trust, even transparent code, in the plugin directory to access platform code internals */
619 if (!accessed
->assembly
->basedir
|| !accessing
->assembly
->basedir
)
621 return (strcmp (accessed
->assembly
->basedir
, accessing
->assembly
->basedir
) == 0);
625 * mono_security_core_clr_is_field_access_allowed
627 * Return a MonoException (FieldccessException in managed-land) if
628 * the access from "caller" to "field" is not valid under CoreCLR -
629 * i.e. a [SecurityTransparent] method calling a [SecurityCritical]
633 mono_security_core_clr_is_field_access_allowed (MonoMethod
*caller
, MonoClassField
*field
)
635 /* there's no restriction to access Transparent or SafeCritical fields, so we only check calls to Critical methods */
636 if (mono_security_core_clr_class_level (mono_field_get_parent (field
)) != MONO_SECURITY_CORE_CLR_CRITICAL
)
639 /* caller is Critical! only SafeCritical and Critical callers can access the field, so we throw if caller is Transparent */
640 if (!caller
|| (mono_security_core_clr_method_level (caller
, TRUE
) != MONO_SECURITY_CORE_CLR_TRANSPARENT
))
643 return get_field_access_exception (
644 "Transparent method %s cannot call use Critical field %s.",
649 * mono_security_core_clr_is_call_allowed
651 * Return a MonoException (MethodAccessException in managed-land) if
652 * the call from "caller" to "callee" is not valid under CoreCLR -
653 * i.e. a [SecurityTransparent] method calling a [SecurityCritical]
657 mono_security_core_clr_is_call_allowed (MonoMethod
*caller
, MonoMethod
*callee
)
659 /* there's no restriction to call Transparent or SafeCritical code, so we only check calls to Critical methods */
660 if (mono_security_core_clr_method_level (callee
, TRUE
) != MONO_SECURITY_CORE_CLR_CRITICAL
)
663 /* callee is Critical! only SafeCritical and Critical callers can call it, so we throw if the caller is Transparent */
664 if (!caller
|| (mono_security_core_clr_method_level (caller
, TRUE
) != MONO_SECURITY_CORE_CLR_TRANSPARENT
))
667 return get_method_access_exception (
668 "Transparent method %s cannot call Critical method %s.",
673 * mono_security_core_clr_level_from_cinfo:
675 * Return the MonoSecurityCoreCLRLevel that match the attribute located
676 * in the specified custom attributes. If no attribute is present it
677 * defaults to MONO_SECURITY_CORE_CLR_TRANSPARENT, which is the default
678 * level for all code under the CoreCLR.
680 static MonoSecurityCoreCLRLevel
681 mono_security_core_clr_level_from_cinfo (MonoCustomAttrInfo
*cinfo
, MonoImage
*image
)
683 int level
= MONO_SECURITY_CORE_CLR_TRANSPARENT
;
685 if (cinfo
&& mono_custom_attrs_has_attr (cinfo
, security_safe_critical_attribute ()))
686 level
= MONO_SECURITY_CORE_CLR_SAFE_CRITICAL
;
687 if (cinfo
&& mono_custom_attrs_has_attr (cinfo
, security_critical_attribute ()))
688 level
= MONO_SECURITY_CORE_CLR_CRITICAL
;
694 * mono_security_core_clr_class_level_no_platform_check:
696 * Return the MonoSecurityCoreCLRLevel for the specified class, without
697 * checking for platform code. This help us avoid multiple redundant
699 * - a check for the method and one for the class;
700 * - a check for the class and outer class(es) ...
702 static MonoSecurityCoreCLRLevel
703 mono_security_core_clr_class_level_no_platform_check (MonoClass
*class)
705 MonoSecurityCoreCLRLevel level
= MONO_SECURITY_CORE_CLR_TRANSPARENT
;
706 MonoCustomAttrInfo
*cinfo
= mono_custom_attrs_from_class (class);
708 level
= mono_security_core_clr_level_from_cinfo (cinfo
, class->image
);
709 mono_custom_attrs_free (cinfo
);
712 if (level
== MONO_SECURITY_CORE_CLR_TRANSPARENT
&& class->nested_in
)
713 level
= mono_security_core_clr_class_level_no_platform_check (class->nested_in
);
719 * mono_security_core_clr_class_level:
721 * Return the MonoSecurityCoreCLRLevel for the specified class.
723 MonoSecurityCoreCLRLevel
724 mono_security_core_clr_class_level (MonoClass
*class)
726 /* non-platform code is always Transparent - whatever the attributes says */
727 if (!mono_security_core_clr_test
&& !mono_security_core_clr_is_platform_image (class->image
))
728 return MONO_SECURITY_CORE_CLR_TRANSPARENT
;
730 return mono_security_core_clr_class_level_no_platform_check (class);
734 * mono_security_core_clr_method_level:
736 * Return the MonoSecurityCoreCLRLevel for the specified method.
737 * If with_class_level is TRUE then the type (class) will also be
738 * checked, otherwise this will only report the information about
741 MonoSecurityCoreCLRLevel
742 mono_security_core_clr_method_level (MonoMethod
*method
, gboolean with_class_level
)
744 MonoCustomAttrInfo
*cinfo
;
745 MonoSecurityCoreCLRLevel level
= MONO_SECURITY_CORE_CLR_TRANSPARENT
;
747 /* if get_reflection_caller returns NULL then we assume the caller has NO privilege */
751 /* non-platform code is always Transparent - whatever the attributes says */
752 if (!mono_security_core_clr_test
&& !mono_security_core_clr_is_platform_image (method
->klass
->image
))
755 cinfo
= mono_custom_attrs_from_method (method
);
757 level
= mono_security_core_clr_level_from_cinfo (cinfo
, method
->klass
->image
);
758 mono_custom_attrs_free (cinfo
);
761 if (with_class_level
&& level
== MONO_SECURITY_CORE_CLR_TRANSPARENT
)
762 level
= mono_security_core_clr_class_level (method
->klass
);
768 * mono_security_core_clr_is_platform_image:
770 * Return the (cached) boolean value indicating if this image represent platform code
773 mono_security_core_clr_is_platform_image (MonoImage
*image
)
775 return image
->core_clr_platform_code
;
779 * default_platform_check:
781 * Default platform check. Always TRUE for current corlib (minimum
782 * trust-able subset) otherwise return FALSE. Any real CoreCLR host
783 * should provide its own callback to define platform code (i.e.
784 * this default is meant for test only).
787 default_platform_check (const char *image_name
)
789 if (mono_defaults
.corlib
) {
790 return (strcmp (mono_defaults
.corlib
->name
, image_name
) == 0);
792 /* this can get called even before we load corlib (e.g. the EXE itself) */
793 const char *corlib
= "mscorlib.dll";
794 int ilen
= strlen (image_name
);
795 int clen
= strlen (corlib
);
796 return ((ilen
>= clen
) && (strcmp ("mscorlib.dll", image_name
+ ilen
- clen
) == 0));
800 static MonoCoreClrPlatformCB platform_callback
= default_platform_check
;
803 * mono_security_core_clr_determine_platform_image:
805 * Call the supplied callback (from mono_security_set_core_clr_platform_callback)
806 * to determine if this image represents platform code.
809 mono_security_core_clr_determine_platform_image (MonoImage
*image
)
811 return platform_callback (image
->name
);
815 * mono_security_enable_core_clr:
817 * Enable the verifier and the CoreCLR security model
820 mono_security_enable_core_clr ()
822 mono_verifier_set_mode (MONO_VERIFIER_MODE_VERIFIABLE
);
823 mono_security_set_mode (MONO_SECURITY_MODE_CORE_CLR
);
827 * mono_security_set_core_clr_platform_callback:
829 * Set the callback function that will be used to determine if an image
830 * is part, or not, of the platform code.
833 mono_security_set_core_clr_platform_callback (MonoCoreClrPlatformCB callback
)
835 platform_callback
= callback
;