; Copyright (C) 2010-2016 Apple Inc. All rights reserved. ; ; Redistribution and use in source and binary forms, with or without ; modification, are permitted provided that the following conditions ; are met: ; 1. Redistributions of source code must retain the above copyright ; notice, this list of conditions and the following disclaimer. ; 2. Redistributions in binary form must reproduce the above copyright ; notice, this list of conditions and the following disclaimer in the ; documentation and/or other materials provided with the distribution. ; ; THIS SOFTWARE IS PROVIDED BY APPLE INC. AND ITS CONTRIBUTORS ``AS IS'' ; AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, ; THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR ; PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL APPLE INC. OR ITS CONTRIBUTORS ; BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF ; SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS ; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN ; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF ; THE POSSIBILITY OF SUCH DAMAGE. (version 1) (deny default (with partial-symbolication)) (allow system-audit file-read-metadata) (import "system.sb") ;; Utility functions for home directory relative path filters (define (home-regex home-relative-regex) (regex (string-append "^" (regex-quote (param "HOME_DIR")) home-relative-regex))) (define (home-subpath home-relative-subpath) (subpath (string-append (param "HOME_DIR") home-relative-subpath))) (define (home-literal home-relative-literal) (literal (string-append (param "HOME_DIR") home-relative-literal))) (define (allow-read-directory-and-issue-read-extensions path) (if path (begin (allow file-read* (subpath path)) (allow file-issue-extension (require-all (extension-class "com.apple.app-sandbox.read") (subpath path)))))) ;; Remove when is fixed. (define (HEX-pattern-match-generator pattern-descriptor) (letrec ((pattern-string "")) (for-each (lambda (repeat-count) (if (zero? repeat-count) (set! pattern-string (string-append pattern-string "-")) (let appender ((count repeat-count)) (if (> count 0) (begin (set! pattern-string (string-append pattern-string "[0-9A-F]")) (appender (- count 1))))))) pattern-descriptor) pattern-string)) ;; return a regex pattern matching string for 8-4-4-4-12 UUIDs: (define (uuid-HEX-pattern-match-string) (HEX-pattern-match-generator '(8 0 4 0 4 0 4 0 12))) ;; global to hold the computed UUID matching pattern. (define *uuid-pattern* "") (define (uuid-regex-string) (if (zero? (string-length *uuid-pattern*)) (set! *uuid-pattern* (uuid-HEX-pattern-match-string))) *uuid-pattern*) ;; Read-only preferences and data (allow file-read* ;; Basic system paths (subpath "/Library/Dictionaries") (subpath "/Library/Fonts") (subpath "/Library/Frameworks") (subpath "/Library/Managed Preferences") (subpath "/Library/Speech/Synthesizers") (regex #"^/private/etc/(hosts|group|passwd)$") (literal "/Library/Application Support/CrashReporter/SubmitDiagInfo.domains") ;; System and user preferences (home-literal "/.CFUserTextEncoding") ;; FIXME: This should be removed when is fixed. (home-subpath "/Library/Fonts") ;; FIXME: These should be removed when is fixed. (home-subpath "/Library/Audio/Plug-Ins/Components") (home-subpath "/Library/Preferences/QuickTime Preferences") (home-literal "/Library/Caches/com.apple.coreaudio.components.plist") (subpath "/Library/Audio/Plug-Ins/Components") (subpath "/Library/Audio/Plug-Ins/HAL") (subpath "/Library/Video/Plug-Ins") (subpath "/Library/QuickTime") (home-subpath "/Library/Dictionaries")) ;; Preferences support (allow user-preference-read (preference-domain "kCFPreferencesAnyApplication" "com.apple.ATS" "com.apple.CoreGraphics" "com.apple.DownloadAssessment" "com.apple.HIToolbox" "com.apple.LaunchServices" "com.apple.MultitouchSupport" ;; FIXME: Remove when is fixed. "com.apple.QTKit" "com.apple.ServicesMenu.Services" ;; Needed for NSAttributedString "com.apple.WebFoundation" "com.apple.avfoundation" "com.apple.coremedia" "com.apple.crypto" "com.apple.driver.AppleBluetoothMultitouch.mouse" "com.apple.driver.AppleBluetoothMultitouch.trackpad" "com.apple.driver.AppleHIDMouse" "com.apple.lookup.shared" "com.apple.mediaaccessibility" "com.apple.networkConnect" "com.apple.security" "com.apple.security.common" "com.apple.security.revocation" "com.apple.speech.voice.prefs" "com.apple.systemsound" "com.apple.universalaccess" "edu.mit.Kerberos" "pbs" ;; Needed for NSAttributedString )) ;; On-disk WebKit2 framework location, to account for debug installations outside of /System/Library/Frameworks, ;; and to allow issuing extensions. (allow-read-directory-and-issue-read-extensions (param "WEBKIT2_FRAMEWORK_DIR")) ;; Allow issuing extensions to system libraries that the Network process can already read. ;; This is to avoid warnings attempting to create extensions for these resources. (allow-read-directory-and-issue-read-extensions "/System/Library/PrivateFrameworks/WebInspectorUI.framework") ;; Sandbox extensions (define (apply-read-and-issue-extension op path-filter) (op file-read* path-filter) (op file-issue-extension (require-all (extension-class "com.apple.app-sandbox.read") path-filter))) (define (apply-write-and-issue-extension op path-filter) (op file-write* path-filter) (op file-issue-extension (require-all (extension-class "com.apple.app-sandbox.read-write") path-filter))) (define (read-only-and-issue-extensions path-filter) (apply-read-and-issue-extension allow path-filter)) (define (read-write-and-issue-extensions path-filter) (apply-read-and-issue-extension allow path-filter) (apply-write-and-issue-extension allow path-filter)) (read-only-and-issue-extensions (extension "com.apple.app-sandbox.read")) (read-write-and-issue-extensions (extension "com.apple.app-sandbox.read-write")) (allow mach-lookup (extension "com.apple.app-sandbox.mach")) ;; FIXME: Should be removed when is fixed. ;; Allow the OpenGL Profiler to attach. (if (defined? 'mach-register) (allow mach-register (global-name-regex #"^_oglprof_attach_<[0-9]+>$"))) ;; MediaAccessibility (allow user-preference-read user-preference-write (preference-domain "com.apple.mediaaccessibility.public")) (if (positive? (string-length (param "DARWIN_USER_CACHE_DIR"))) (allow file* (subpath (param "DARWIN_USER_CACHE_DIR")))) (if (positive? (string-length (param "DARWIN_USER_TEMP_DIR"))) (allow file* (subpath (param "DARWIN_USER_TEMP_DIR")))) ;; IOKit user clients (allow iokit-open (iokit-user-client-class "AppleUpstreamUserClient") (iokit-user-client-class "IOHIDParamUserClient") (iokit-user-client-class "RootDomainUserClient") (iokit-user-client-class "IOAudioControlUserClient") (iokit-user-client-class "IOAudioEngineUserClient")) ;; cookied. ;; FIXME: Update for . (allow ipc-posix-shm-read-data (ipc-posix-name "FNetwork.defaultStorageSession") (ipc-posix-name-regex #"\.PrivateBrowsing-") (ipc-posix-name-regex #"^WebKit Test-")) ;; ColorSync (allow ipc-posix-shm* (ipc-posix-name "com.apple.ColorSync.Gen.lock") (ipc-posix-name "com.apple.ColorSync.Disp.lock") (ipc-posix-name "com.apple.ColorSync.Gray2.2") (ipc-posix-name "com.apple.ColorSync.sRGB") (ipc-posix-name "com.apple.ColorSync.GenGray") (ipc-posix-name "com.apple.ColorSync.GenRGB")) ;; Audio (allow ipc-posix-shm-read* ipc-posix-shm-write-data (ipc-posix-name-regex #"^AudioIO")) ;; Remote Web Inspector (allow mach-lookup (global-name "com.apple.webinspector")) ;; Various services required by AppKit and other frameworks (allow mach-lookup (global-name "com.apple.DiskArbitration.diskarbitrationd") (global-name "com.apple.FileCoordination") (global-name "com.apple.FontObjectsServer") #if __MAC_OS_X_VERSION_MIN_REQUIRED < 101200 (global-name "com.apple.FontServer") #endif (global-name "com.apple.PowerManagement.control") (global-name "com.apple.SystemConfiguration.configd") (global-name "com.apple.SystemConfiguration.PPPController") (global-name "com.apple.audio.SystemSoundServer-OSX") (global-name "com.apple.audio.VDCAssistant") (global-name "com.apple.audio.audiohald") (global-name "com.apple.audio.coreaudiod") (global-name "com.apple.awdd") (global-name "com.apple.cfnetwork.AuthBrokerAgent") (global-name "com.apple.cookied") (global-name "com.apple.coreservices.launchservicesd") (global-name "com.apple.dock.server") (global-name "com.apple.fonts") (global-name "com.apple.iconservices") (global-name "com.apple.iconservices.store") #if __MAC_OS_X_VERSION_MIN_REQUIRED >= 101200 (global-name "com.apple.mediaremoted.xpc") #endif #if __MAC_OS_X_VERSION_MIN_REQUIRED >= 101100 (global-name "com.apple.nesessionmanager.flow-divert-token") #endif (global-name "com.apple.speech.speechsynthesisd") (global-name "com.apple.speech.synthesis.console") (global-name "com.apple.system.opendirectoryd.api") (global-name "com.apple.tccd") (global-name "com.apple.tccd.system") (global-name "com.apple.window_proxies") (global-name "com.apple.windowserver.active") ) ;; Security framework (allow mach-lookup (global-name "com.apple.ctkd.token-client") (global-name "com.apple.ocspd") (global-name "com.apple.securityd.xpc") (global-name "com.apple.CoreAuthentication.agent.libxpc") (global-name "com.apple.SecurityServer")) #if __MAC_OS_X_VERSION_MIN_REQUIRED < 101240 ;; FIXME: This should be removed when is fixed. ;; Restrict AppSandboxed processes from creating /Library/Keychains, but allow access to the contents of /Library/Keychains: (allow file-read-data file-read-metadata file-write-data (subpath "/Library/Keychains")) ;; Do permit creating per-user keychains (allow file-read* file-write* (home-subpath "/Library/Keychains")) ;; Except deny access to new-style iOS Keychain folders which are UUIDs. (deny file-read* file-write* (regex (string-append "/Library/Keychains/" (uuid-regex-string) "(/|$)")) (home-regex (string-append "/Library/Keychains/" (uuid-regex-string) "(/|$)"))) #endif (allow file-read* file-write* (subpath "/private/var/db/mds/system")) ;; FIXME: This should be removed when is fixed. (allow file-read* (subpath "/private/var/db/mds") (literal "/private/var/db/DetachedSignatures") ; The following are needed until is resolved. (literal "/Library/Preferences/com.apple.security.plist") (literal "/Library/Preferences/com.apple.security.common.plist") (literal "/Library/Preferences/com.apple.security.revocation.plist") (home-literal "/Library/Application Support/SyncServices/Local/ClientsWithChanges/com.apple.Keychain") (home-literal "/Library/Preferences/com.apple.security.plist") (home-literal "/Library/Preferences/com.apple.security.revocation.plist")) (allow ipc-posix-shm-read* ipc-posix-shm-write-data (ipc-posix-name "com.apple.AppleDatabaseChanged")) ;; CoreFoundation. We don't import com.apple.corefoundation.sb, because it allows unnecessary access to pasteboard. (allow mach-lookup (global-name-regex #"^com.apple.distributed_notifications") (global-name "com.apple.CoreServices.coreservicesd")) (allow file-read-data (literal "/dev/autofs_nowait")) ; Used by CF to circumvent automount triggers (allow ipc-posix-shm (ipc-posix-name-regex #"^CFPBS:")) ; (allow system-fsctl (fsctl-command (_IO "h" 47))) ;; Graphics (system-graphics) ;; Networking (system-network) (allow network-outbound ;; Local mDNSResponder for DNS, arbitrary outbound TCP (literal "/private/var/run/mDNSResponder") (remote tcp)) (allow mach-lookup (global-name "com.apple.pbs.fetch_services")) ;; FIXME should be removed when + related radar in Safari is fixed (allow mach-lookup (global-name "org.h5l.kcm") (global-name "com.apple.GSSCred") (global-name "com.apple.system.logger") (global-name "com.apple.system.notification_center")) (allow network-outbound (remote udp)) (allow user-preference-read (preference-domain "com.apple.Kerberos" "com.apple.GSS")) (allow file-read* (literal "/private/etc/krb5.conf") (literal "/private/etc/services") (literal "/private/etc/host") (subpath "/Library/KerberosPlugins/GSSAPI") (subpath "/Library/KerberosPlugins/KerberosFrameworkPlugins")) (if (defined? 'vnode-type) (deny file-write-create (vnode-type SYMLINK))) ;; Reserve a namespace for additional protected extended attributes. (deny file-read-xattr file-write-xattr (xattr-regex #"^com\.apple\.security\.private\.")) (deny file-read* file-write* (with no-log) ;; FIXME: Should be removed after is fixed. (home-literal "/Library/Preferences/com.apple.LaunchServices.QuarantineEventsV2") (home-literal "/Library/Preferences/com.apple.LaunchServices.QuarantineEventsV2-journal")) ;; Deny access needed for unnecessary NSApplication initialization. ;; FIXME: This can be removed once is fixed. (deny file-read* (with no-log) (subpath "/Library/InputManagers") (home-subpath "/Library/InputManagers")) (deny user-preference-read (with no-log) (preference-domain "com.apple.speech.recognition.AppleSpeechRecognition.prefs")) (deny mach-lookup (with no-log) (global-name "com.apple.coreservices.appleevents") (global-name "com.apple.pasteboard.1") (global-name "com.apple.speech.recognitionserver")) ;; Also part of unnecessary NSApplication initialization, but we can't block access to these yet, see . (allow file-read* (subpath "/Library/Components") (subpath "/Library/Keyboard Layouts") (subpath "/Library/Input Methods") (home-subpath "/Library/Components") (home-subpath "/Library/Keyboard Layouts") (home-subpath "/Library/Input Methods")) ;; AirPlay (allow mach-lookup (global-name "com.apple.coremedia.endpoint.xpc") (global-name "com.apple.coremedia.endpointstream.xpc") (global-name "com.apple.coremedia.endpointplaybacksession.xpc") (global-name "com.apple.coremedia.endpointpicker.xpc")) ;; Data Detectors (allow file-read* (subpath "/private/var/db/datadetectors/sys")) ;; Media capture, utilities (if (not (defined? 'sbpl-filter?)) (define (sbpl-filter? x) (and (list? x) (eq? (car x) 'filter)))) (macro (with-filter form) (let* ((ps (cdr form)) (extra-filter (car ps)) (rules (cdr ps))) `(letrec ((collect (lambda (l filters non-filters) (if (null? l) (list filters non-filters) (let* ((x (car l)) (rest (cdr l))) (if (sbpl-filter? x) (collect rest (cons x filters) non-filters) (collect rest filters (cons x non-filters))))))) (inject-filter (lambda args (let* ((collected (collect args '() '())) (filters (car collected)) (non-filters (cadr collected))) (if (null? filters) (cons ,extra-filter non-filters) (cons (require-all (apply require-any filters) ,extra-filter) non-filters))))) (orig-allow allow) (orig-deny deny) (wrapper (lambda (action) (lambda args (apply action (apply inject-filter args)))))) (set! allow (wrapper orig-allow)) (set! deny (wrapper orig-deny)) ,@rules (set! deny orig-deny) (set! allow orig-allow)))) (define (home-library-preferences-regex home-library-preferences-relative-regex) (regex (string-append "^" (regex-quote (param "HOME_LIBRARY_PREFERENCES_DIR")) home-library-preferences-relative-regex))) (define (home-library-preferences-literal home-library-preferences-relative-literal) (literal (string-append (param "HOME_LIBRARY_PREFERENCES_DIR") home-library-preferences-relative-literal))) (define (shared-preferences-read . domains) (for-each (lambda (domain) (begin (if (defined? `user-preference-read) (allow user-preference-read (preference-domain domain))) ; (Temporary) backward compatibility with non-CFPreferences readers. (allow file-read* (literal (string-append "/Library/Preferences/" domain ".plist")) (home-library-preferences-literal (string-append "/" domain ".plist")) (home-library-preferences-regex (string-append #"/ByHost/" (regex-quote domain) #"\..*\.plist$"))))) domains)) ;; Media capture, microphone access (with-filter (extension "com.apple.webkit.microphone") (allow device-microphone)) ;; Media capture, camera access (with-filter (extension "com.apple.webkit.camera") (shared-preferences-read "com.apple.coremedia") (allow mach-lookup (extension "com.apple.app-sandbox.mach")) (allow mach-lookup (global-name "com.apple.cmio.AppleCameraAssistant") ;; Apple DAL assistants (global-name "com.apple.cmio.VDCAssistant") (global-name "com.apple.cmio.AVCAssistant") (global-name "com.apple.cmio.IIDCVideoAssistant") ;; QuickTimeIIDCDigitizer assistant (global-name "com.apple.IIDCAssistant")) (allow iokit-open ;; QuickTimeUSBVDCDigitizer (iokit-user-client-class "IOUSBDeviceUserClientV2") (iokit-user-client-class "IOUSBInterfaceUserClientV2")) (allow device-camera))