OSセキュリティ設定

• CachéDBMSテクノロジーアカウントの権利を最小限に抑える
• ローカルコンピューターの管理者アカウントの名前を変更します。
• OSに最低限必要なユーザーのみを残します。
• OSおよび使用するサービスのセキュリティ更新プログラムをタイムリーにインストールします。
• ウイルス対策ソフトウェアを使用して定期的に更新する
• 未使用のサービスおよびサービスを無効化または削除します。
• データベースファイルへのアクセスを制限する
• Cachéデータファイルに対する権限を制限します（所有者とDBAのみに任せます）。
• UNIX / Linuxシステムの場合、次のタイプのグループとユーザーを作成する必要があります。これらはインストール前に作成する必要があります。
  
  • 所有者のユーザーID
  • 管理グループID
  • 内部CachéシステムグループID
  • 内部CachéユーザーID
  
  

InterSystemsCachéインストール時のセキュリティ設定

インストール中に、次の手順を実行する必要があります。

• インストールモードを選択する
• カスタムセットアップインストールモードを選択し、アプリケーションが機能するために最低限必要なコンポーネントのみを選択します。
• インストール時に、TCPポート1972インストールの標準とは異なるSuperServerポートを指定します
• インストール中に、TCPインストールの標準ポート57772とは異なる内部Webサーバーのポートを指定します
• Cachéインスタンスの場所に標準のパスとは異なるパスを指定します（Windowsシステムの場合、デフォルトのパスはC：\ lnterSystems \ Cache、UNIX / Linuxシステムの場合-/ usr / Cachesys

インストール後のCachéセキュリティ設定

インストール後、次のアクションを実行する必要があります（それらのほとんどは、インストールモードLocked down（Elevated）中に実行されます）。

1.ユーザー管理

1.1システムアカウント管理

1.2特権アカウント管理

1.3権利と特権の管理

1.4アクセス権の差別化

ロール（ロール）の場合：

ユーザー向け：

1.5パスワードポリシーの設定

ROUTINE PASSWORD PASSWORD ;    #include %occInclude CHECK(Username,Password) PUBLIC { if '$match(Password,"(?=.*[0-9])(?=.*[a-zA-Z]).{7,}") quit $$$ERROR($$$GeneralError,"    PCI_DSS_v3.2") set Remember=4 ;  ,     PCI-DSS set GlobRef="^PASSWORDLIST" ;    set PasswordHash=$System.Encryption.SHA1Hash(Password) if $d(@GlobRef@(Username,"hash",PasswordHash)){ quit $$$ERROR($$$GeneralError,"   ") } set hor="" for i=1:1 { ;         set hor=$order(@GlobRef@(Username,"datetime",hor),-1) quit:hor="" ;     if i>(Remember-1) { set hash=$g(@GlobRef@(Username,"datetime",hor)) kill @GlobRef@(Username,"datetime",hor) kill:hash'="" @GlobRef@(Username,"hash",hash) } } ;   set @GlobRef@(Username,"hash",PasswordHash)=$h set @GlobRef@(Username,"datetime",$h)=PasswordHash quit $$$OK } 

 %ZSTOP ;  quit SYSTEM ;      merge ^tmpMgtPortalSettings=^CacheTemp.MgtPortalSettings quit 

 %ZSTART ;  quit SYSTEM ;      if $data(^tmpMgtPortalSettings) merge ^CacheTemp.MgtPortalSettings=^tmpMgtPortalSettings quit 

 Include %occKeyword ///     Class %SYS.Task.CustomListBackup Extends %SYS.Task.Definition [ LegacyInstanceContext ] { ///  ..AllDatabases=1,        ..PrefixIncludeDB  ..IncludeDatabases -  Property AllDatabases As %Integer [ InitialExpression = 0 ]; ///  ..AllDatabases=1,        ,   ..IgnoreForAllDatabases   Property IgnoreForAllDatabases As %String(MAXLEN = 32000) [ InitialExpression = " AllDatabases=0   " ]; ///  ..IgnoreTempDatabases=1,     Property IgnoreTempDatabases As %Integer [ InitialExpression = 1 ]; ///  ..IgnorePreparedDatabases=1,     Property IgnorePreparedDatabases As %Integer [ InitialExpression = 1 ]; ///  ..AllDatabases=0   PrefixIncludeDB  ,     ,     ..PrefixIncludeDB Property PrefixIncludeDB As %String [ SqlComputeCode = {S {*}=..ListNS()}, SqlComputed ]; ///  ..AllDatabases=0,         ..IncludeDatabases ,   Property IncludeDatabases As %String(MAXLEN = 32000) [ InitialExpression = {" AllDatabases=1   "_..ListDB()} ]; ///      Parameter TaskName = "CustomListBackup"; /// ,    Property DirBackup As %String(MAXLEN = 1024) [ InitialExpression = {##class(%File).NormalizeDirectory("Backup")} ]; /// ,    Property DirBackupLog As %String(MAXLEN = 1024) [ InitialExpression = {##class(%File).NormalizeDirectory("Backup")} ]; ///   (Full-, Incremental-, Cumulative-) Property TypeBackup As %String(DISPLAYLIST = ",Full,Incremental,Cumulative", VALUELIST = ",Full,Inc,Cum") [ InitialExpression = "Full", SqlColumnNumber = 4 ]; ///     Property PrefixBackUpFile As %String [ InitialExpression = "back" ]; ///    ,    Property MaxBackUpFiles As %Integer [ InitialExpression = 3 ]; ClassMethod DeviceIsValid(Directory As %String) As %Status { If '##class(%Library.File).DirectoryExists(Directory) quit $$$ERROR($$$GeneralError,"Directory does not exist") quit $$$OK } ClassMethod CheckBackup(Device, MaxBackUpFiles, del = 0) As %Status { set path=##class(%File).NormalizeFilename(Device) quit:'##class(%File).DirectoryExists(path) $$$ERROR($$$GeneralError," "_path_"  ") set max=MaxBackUpFiles set result=##class(%ResultSet).%New("%File:FileSet") set st=result.Execute(path,"*.cbk",,1) while result.Next() { If result.GetData(2)="F" { continue:result.GetData(3)=0 set ts=$tr(result.GetData(4),"-: ") set ts(ts)=$lb(result.GetData(1),result.GetData(3)) } } #;        set i="" for count=1:1 { set i=$order(ts(i),-1) quit:i="" #;           if $data(size),'$data(delta) set delta=size-$lg(ts(i),2) #;         if '$data(size) set size=$lg(ts(i),2) #;        ,        if count'<max { set cbk=$lg(ts(i),1) set log=$replace($lg(ts(i),1),".cbk",".log") if del { if ##CLASS(%File).Delete(cbk) if ##CLASS(%File).Delete(log) } } } do result.%Close() If $$$isUNIX quit $$$OK ##;     #;        set drive=$e(path,1) do ##CLASS(%File).GetDirectorySpace(drive_":/",.free,.total,0) #;            quit:($g(size)+$g(delta))>$g(free) $$$ERROR($$$GeneralError,"     ,     :("_$g(size)_"+"_$g(delta)_")>"_$g(free)) quit $$$OK } Method OnTask() As %Status { do $zu(5,"%SYS") set list="" merge oldDBList=^SYS("BACKUPDB") kill ^SYS("BACKUPDB") #;        set status=$$$OK try { ##;     ,       ##;            set status=..CheckBackup(..DirBackup,..MaxBackUpFiles,1) quit:$$$ISERR(status) #;    if ..AllDatabases { set vals="" set disp="" set rss=##class(%ResultSet).%New("Config.Databases:List") do rss.Execute() while rss.Next(.sc) { if ..IgnoreForAllDatabases'="",(","_..IgnoreForAllDatabases_",")[(","_$zconvert(rss.Data("Name"),"U")_",") continue if ..IgnoreTempDatabases continue:..IsTempDB(rss.Data("Name")) if ..IgnorePreparedDatabases continue:..IsPreparedDB(rss.Data("Name")) set ^SYS("BACKUPDB",rss.Data("Name"))="" } } else { #;   PrefixIncludeDB  ,          ..PrefixIncludeDB if ..PrefixIncludeDB'="" { set rss=##class(%ResultSet).%New("Config.Databases:List") do rss.Execute(..PrefixIncludeDB_"*") while rss.Next(.sc) { if ..IgnoreTempDatabases continue:..IsTempDB(rss.Data("Name")) set ^SYS("BACKUPDB",rss.Data("Name"))="" } } #;      if ..IncludeDatabases'="" { set rss=##class(%ResultSet).%New("Config.Databases:List") do rss.Execute("*") while rss.Next(.sc) { if ..IgnoreTempDatabases continue:..IsTempDB(rss.Data("Name")) if (","_..IncludeDatabases_",")'[(","_$zconvert(rss.Data("Name"),"U")_",") continue set ^SYS("BACKUPDB",rss.Data("Name"))="" } } } do ..GetFileName(.backFile,.logFile) set typeB=$zconvert($e(..TypeBackup,1),"U") set:"FIC"'[typeB typeB="F" set res=$$BACKUP^DBACK("",typeB,"",backFile,"Y",logFile,"NOINPUT","Y","Y","","","") if 'res set status=$$$ERROR($$$GeneralError,": "_res) } catch { set status=$$$ERROR($$$GeneralError,": "_$ze) set $ze="" } kill ^SYS("BACKUPDB") merge ^SYS("BACKUPDB")=oldDBList quit status } ///    Method GetFileName(aBackupFile, ByRef aLogFile) As %Status { set tmpName=..PrefixBackUpFile_"_"_..TypeBackup_"_"_$s(..AllDatabases:"All",1:"List")_"_"_$zd($h,8)_$tr($j($i(cnt),3)," ",0) do { s aBackupFile=##class(%File).NormalizeFilename(..DirBackup_"/"_tmpName_".cbk") } while ##class(%File).Exists(aBackupFile) set aLogFile=##class(%File).NormalizeFilename(..DirBackupLog_"/"_tmpName_".log") quit 1 } ///      ClassMethod IsPreparedDB(name) { if (",ENSDEMO,ENSEMBLE,ENSEMBLEENSTEMP,ENSEMBLESECONDARY,ENSLIB,CACHESYS,CACHELIB,CACHETEMP,CACHE,CACHEAUDIT,DOCBOOK,USER,SAMPLES,")[(","_$zconvert(name,"U")_",") quit 1 quit 0 } ///      ClassMethod IsTempDB(name) { quit:$zconvert(name,"U")["TEMP" 1 quit:$zconvert(name,"U")["SECONDARY" 1 quit 0 } ///        ClassMethod ListDB() { set list="" set rss=##class(%ResultSet).%New("Config.Databases:List") do rss.Execute() while rss.Next(.sc) { set list=list_","_rss.Data("Name") } quit list } ClassMethod ListNS() [ Private ] { set disp="" set tRS = ##class(%ResultSet).%New("Config.Namespaces:List") set tSC = tRS.Execute() While tRS.Next() { set disp=disp_","_tRS.GetData(1) } set %class=..%ClassName(1) $$$comSubMemberSet(%class,$$$cCLASSproperty,"PrefixIncludeDB",$$$cPROPparameter,"VALUELIST",disp) quit "" } ClassMethod oncompile() [ CodeMode = generator ] { $$$defMemberKeySet(%class,$$$cCLASSproperty,"PrefixIncludeDB",$$$cPROPtype,"%String") set updateClass=##class("%Dictionary.ClassDefinition").%OpenId(%class) set updateClass.Modified=0 do updateClass.%Save() do updateClass.%Close() } }