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})"$)
' Note to save the iv array to later be able to Decrypt!
Log($"Decrypt using the IV"$)
Dim decrypted As String = ks.decryptString("DonManfred",base64,iv)
Log($"Decrypted: ${decrypted}"$)
End Sub