Sub Process_Globals
Dim ks As KeyStore
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
ks.Initialize("Keystore")
listAliases
Dim alias As String = "DonManfred"
Dim sk As Object = ks.createNewKeys(alias,2,"Dummyprincipal")
Log(sk)
Dim strtoencrypt As String = "Test bla bla bla ;-)"
Log($"String to Encrypt using Alias "${alias}" ${strtoencrypt}"$)
ks.encryptString(alias,strtoencrypt)
End Sub
Sub KeyStore_Encrypted(encrypted() As Byte, iv() As Byte, base64 As String)
Log($"KeyStore_Encrypted(${base64},${encrypted.Length},${iv.Length})"$)
Log($"Decrypt using the IV"$)
Dim decrypted As String = ks.decryptString("DonManfred",base64,iv)
Log($"Decrypted: ${decrypted}"$)
End Sub