以编程方式加密 Notes 数据库

Question

我需要构建一个可以在服务器上加密数据库的工具。

到目前为止我已经找到了这个信息（但这还不够）。

可以使用 NSFDbIsLocallyEncrypted 检查数据库是否加密（仅在本地工作）。
制作副本W32_NSFDbCreateAndCopy并在创建副本时设置加密（将应用于副本）。
有一个未记录的 Notes C API 调用为 compact 设置加密标志，但我无法使它起作用。

STATUS far PASCAL NSFDbLocalSecInfoSet(DBHANDLE hDB, WORD Option, BYTE EncryptStrength, char far *用户名);
我还读到可以（对于较旧的 ODS 版本）更改 'icon note' 或使用 DBINFO3 用于较新的 ODS 版本（我也无法使其工作）

有人知道如何解决这个任务吗？

p.s。我听说 HCL 将来会提供适当的解决方案（但不确定何时）。

Answer 1

您应该查看 BCC 解决方案 DominoProtect 或 Ulrich Krause 的其他解决方案，在服务器上进行数据库加密是许多合规情况的要求。

Answer 2

这是工作代码。我不知道要使用此代码将什么设置为 EncrytionStrength 以删除本地加密。

%REM
Agent encrypt
Created Dec 22, 2019 by Ulrich Krause/singultus
Description: Comments for Agent
%END REM
Option Public
Option Declare

Public Const W32_LIB = {nnotes.dll}
Declare Function W32_NSFDbCompactExtended Lib W32_LIB Alias {NSFDbCompactExtended}  (ByVal Pathname As String, Options As Long, retStats As Long) As Integer
Declare Function W32_NSFDbLocalSecInfoSet Lib W32_LIB Alias {NSFDbLocalSecInfoSet} (ByVal hDb As Long, ByVal wOptions As Integer, ByVal EncryptStrength As Integer, ByVal Username As String) As Integer
Declare Function W32_NSFDbIsLocallyEncrypted Lib W32_LIB Alias {NSFDbIsLocallyEncrypted} ( ByVal hDB As Long, V As Integer) As Integer
Declare Sub W32_OSLoadString Lib W32_LIB Alias {OSLoadString} (ByVal null1 As Long, ByVal sError As Integer, ByVal errstr As String, ByVal lenstr As Integer)
Declare Function W32_NSFDbOpen Lib W32_LIB Alias {NSFDbOpen}(ByVal dbName As String, hDb As Long) As Integer
Declare Function W32_NSFDbClose Lib W32_LIB Alias {NSFDbClose} (ByVal hDb As Long) As Integer
Sub Initialize
Dim hDb As Long
Dim rc As Integer
Dim sDb As String
Dim retStats As Long

sDb = "serv01/singultus!!crash.nsf"

rc = W32_NSFDbOpen(sDb, hDb)

If rc = 0 Then
    rc = W32_NSFDbLocalSecInfoSet(hDb, 0,1, "")
    msgbox GetError(rc)

    If rc = 0 Then
        rc = W32_NSFDbCompactExtended (sDb, 0, retStats)
    End if
    rc = W32_NSFDbClose(hDb)
End If
End Sub
Function GetError (errnum As Integer) As String
Dim s As String*256
If IsDefined("WINDOWS") Then
    W32_OSLoadString 0, errnum And &h03FFFFFFF, s, 256
Else
    'TUX_OSLoadString 0, errnum And &h03FFFFFFF, s, 256
End If
getError = StrLeft(s, Chr(0))
End Function

以编程方式加密 Notes 数据库

Encrypt Notes Database programmatically

lotus

lotusscript

lotus-domino