如何沙箱 clojure.string/blank？在 Clojure 中使用 Clojail？

Question

我将 Clojail 用于沙盒，它适用于 clojure.core 函数，但当涉及其他命名空间时，它无法按预期工作。

我需要沙盒（限制）clojure.string/blank? 函数。

(defn blacklist-symbols
  []
  (testers/blacklist-symbols
    '#{alter-var-root
       intern
       eval
       clojure.string/blank?
       ...}))

这应该抛出一个安全异常，但它不会。

(sb '(do
      (println "Hey: " (clojure.string/blank? ""))))

Answer 1

应该是这样的，如果我理解正确的话，

(defn blacklist-symbols
  []
  (testers/blacklist-symbols
    #{'alter-var-root
      'intern
      'eval
      'clojure.string/blank?
       ...}))

经过全面测试的示例

user=> (ns my.project
  #_=>   (:use [clojail.core :only [sandbox]]
  #_=>         [clojail.testers :only [blacklist-symbols blacklist-objects]]))
nil
my.project=> 

my.project=> (def tester [(blacklist-symbols #{'alter-var-root 'clojure.string/blank?})
        #_=>              (blacklist-objects [java.lang.Thread])]) ; Create a blacklist.
#'my.project/tester
my.project=> (def sb (sandbox tester :timeout 5000))
#'my.project/sb
my.project=> 

my.project=> (sb '(println (clojure.string/blank? "")))

AccessControlException access denied ("java.lang.RuntimePermission" "createClassLoader")  java.security.AccessControlContext.checkPermission (AccessControlContext.java:457)

您可以在图书馆主页找到示例 https://github.com/Raynes/clojail