(Visual FoxPro) IMAP Login Secure

Demonstrates how to use the LoginSecure method introduced in Chilkat v9.5.0.71.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loImap
LOCAL lnSuccess
LOCAL loJson
LOCAL loCrypt
LOCAL loSsLogin
LOCAL loSsPassword

* This example requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Imap')
loImap = CreateObject('Chilkat.Imap')

* Connect to an IMAP server..
loImap.Ssl = 1
loImap.Port = 993
lnSuccess = loImap.Connect("imap.mail.me.com")
IF (lnSuccess <> 1) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    CANCEL
ENDIF

* Imagine we've previously saved our encrypted login and password within a JSON config file
* that contains this:

* {
*   "imap_login": "fLkxsfnVaIWLiL/R32jo6g==",
*   "imap_password": "/NbaFBoCftBLFf8WBU9Xtw=="
* }

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')
loJson.LoadFile("qa_data/passwords/imap.json")

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Crypt2')
loCrypt = CreateObject('Chilkat.Crypt2')

* These are the encryption settings we previously used to encrypt the credentials within the JSON config file.
loCrypt.CryptAlgorithm = "aes"
loCrypt.CipherMode = "cbc"
loCrypt.KeyLength = 128
loCrypt.SetEncodedKey("000102030405060708090A0B0C0D0E0F","hex")
loCrypt.SetEncodedIV("000102030405060708090A0B0C0D0E0F","hex")
loCrypt.EncodingMode = "base64"

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.SecureString')
loSsLogin = CreateObject('Chilkat.SecureString')
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.SecureString')
loSsPassword = CreateObject('Chilkat.SecureString')

* Decrypt to the secure string.  (the strings will still held in memory encrypted, but are now encrypted using
* a randomly generated session key.)
loCrypt.DecryptSecureENC(loJson.StringOf("imap_login"),loSsLogin)
loCrypt.DecryptSecureENC(loJson.StringOf("imap_password"),loSsPassword)

* Pass the credentials to the LoginSecure method:
lnSuccess = loImap.LoginSecure(loSsLogin,loSsPassword)
IF (lnSuccess <> 1) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    RELEASE loJson
    RELEASE loCrypt
    RELEASE loSsLogin
    RELEASE loSsPassword
    CANCEL
ENDIF

* ...

loImap.Disconnect()

RELEASE loImap
RELEASE loJson
RELEASE loCrypt
RELEASE loSsLogin
RELEASE loSsPassword