Anyone have code to set local encryption on a db?

HCL Domino Domino Forum
1

I assume short of sendkeys the only way to turn on local database encryption is through the API since there doesn’t seem to be any methods or props for it in LotusScript/Java. I’ve searched the forums and others seem to have the same issue. Any help would be greatly appreciated!!!

2

Subject: I wrote the send keys subroutine…

Here is a subroutine that will set it using sendkeys. All you need to do is get the db open on the screen with uiw.opendatabase or however you want. I must say that I don’t 100% trust sending keystrokes but I don’t seem to have any other choice.

Someone PLEASE write it with the API (maybe undocumented calls?)

Declare Sub keybd_event Lib “user32.dll” (Byval bVk As Integer, Byval bScan As Integer, Byval dwFlags As Integer,Byval dwExtraInfo As Integer)

Sub TurnEncryptionOn

keybd_event &H12,0,0,0 ' Alt key down 

keybd_event &H12,0,2,0 ' Alt key up

keybd_event Asc("F"),0,0,0 ' F key down -- invokes edit menu

keybd_event Asc("D"),0,0,0 ' D key down - Database menu   

keybd_event Asc("P"),0,0,0 ' O key down - open database dialog

keybd_event &H9,0,0,0 ' Tab key down 

keybd_event &H9,0,2,0 ' Tab key up

keybd_event &H9,0,0,0 ' Tab key down 

keybd_event &H9,0,2,0 ' Tab key up

keybd_event &H9,0,0,0 ' Tab key down 

keybd_event &H9,0,2,0 ' Tab key up

keybd_event &H20,0,0,0 ' Space key down 

keybd_event &H20,0,2,0 ' Space key up

keybd_event &H28,0,0,0 ' Down key down 

keybd_event &H28,0,2,0 ' Down key up

keybd_event &HD,0,0,0 ' Enter key down 

keybd_event &HD,0,2,0 ' Enter key up

keybd_event &H12,0,0,0 ' Alt key down 

keybd_event &HD,0,0,0 ' Enter key down 

keybd_event &HD,0,2,0 ' Enter key up

keybd_event &H12,0,2,0 ' Alt key up

End Sub