mono/metadata/security-core-clr.c

   1 /*
   2  * security-core-clr.c: CoreCLR security
   3  *
   4  * Author:
   5  *      Mark Probst <mark.probst@gmail.com>
   6  *
   7  * (C) 2007 Novell, Inc
   8  */
   9
  10 #include <mono/metadata/class-internals.h>
  11 #include <mono/metadata/security-manager.h>
  12 #include <mono/metadata/assembly.h>
  13
  14 #include "security-core-clr.h"
  15
  16 gboolean mono_security_core_clr_test = FALSE;
  17
  18 static MonoClass*
  19 security_critical_attribute (void)
  20 {
  21         static MonoClass *class = NULL;
  22
  23         if (!class) {
  24                 class = mono_class_from_name (mono_defaults.corlib, "System.Security",
  25                         "SecurityCriticalAttribute");
  26         }
  27         g_assert (class);
  28         return class;
  29 }
  30
  31 static MonoClass*
  32 security_safe_critical_attribute (void)
  33 {
  34         static MonoClass *class = NULL;
  35
  36         if (!class) {
  37                 class = mono_class_from_name (mono_defaults.corlib, "System.Security",
  38                         "SecuritySafeCriticalAttribute");
  39         }
  40         g_assert (class);
  41         return class;
  42 }
  43
  44 MonoSecurityCoreCLRLevel
  45 mono_security_core_clr_level_from_cinfo (MonoCustomAttrInfo *cinfo, MonoImage *image)
  46 {
  47         int level = MONO_SECURITY_CORE_CLR_TRANSPARENT;
  48
  49         if (!mono_security_core_clr_test && !mono_security_core_clr_is_platform_image (image))
  50                 return level;
  51
  52         if (cinfo && mono_custom_attrs_has_attr (cinfo, security_safe_critical_attribute ()))
  53                 level = MONO_SECURITY_CORE_CLR_SAFE_CRITICAL;
  54         if (cinfo && mono_custom_attrs_has_attr (cinfo, security_critical_attribute ()))
  55                 level = MONO_SECURITY_CORE_CLR_CRITICAL;
  56
  57         return level;
  58 }
  59
  60 MonoSecurityCoreCLRLevel
  61 mono_security_core_clr_method_level (MonoMethod *method, gboolean with_class_level)
  62 {
  63         MonoCustomAttrInfo *cinfo = mono_custom_attrs_from_method (method);
  64         MonoSecurityCoreCLRLevel level = mono_security_core_clr_level_from_cinfo (cinfo, method->klass->image);
  65
  66         if (with_class_level && level == MONO_SECURITY_CORE_CLR_TRANSPARENT)
  67                 level = mono_security_core_clr_level_from_cinfo (mono_custom_attrs_from_class (method->klass), method->klass->image);
  68
  69         if (cinfo)
  70                 mono_custom_attrs_free (cinfo);
  71
  72         return level;
  73 }
  74
  75 gboolean
  76 mono_security_core_clr_is_platform_image (MonoImage *image)
  77 {
  78         const char *prefix = mono_assembly_getrootdir ();
  79         int prefix_len = strlen (prefix);
  80         static const char subprefix[] = "/mono/2.1/";
  81         int subprefix_len = strlen (subprefix);
  82
  83         if (!image->name)
  84                 return FALSE;
  85         if (strncmp (prefix, image->name, prefix_len) != 0)
  86                 return FALSE;
  87         if (strncmp (subprefix, image->name + prefix_len, subprefix_len) != 0)
  88                 return FALSE;
  89         if (strchr (image->name + prefix_len + subprefix_len, '/'))
  90                 return FALSE;
  91         return TRUE;
  92 }