Xbase++

IMAP Login Secure

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

LOCAL nSuccess
LOCAL oImap
LOCAL oJson
LOCAL oCrypt
LOCAL oSsLogin
LOCAL oSsPassword

nSuccess := 0

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

oImap := CreateObject("Chilkat.Imap")

//  Connect to an IMAP server..
oImap:Ssl := 1
oImap:Port := 993
nSuccess := oImap:Connect("imap.mail.me.com")
IF (nSuccess != 1)
    ? oImap:LastErrorText
    oImap:destroy()
    RETURN
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=="
//  }

oJson := CreateObject("Chilkat.JsonObject")
oJson:LoadFile("qa_data/passwords/imap.json")

oCrypt := CreateObject("Chilkat.Crypt2")

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

oSsLogin := CreateObject("Chilkat.SecureString")
oSsPassword := 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.)
oCrypt:DecryptSecureENC(oJson:StringOf("imap_login"), oSsLogin)
oCrypt:DecryptSecureENC(oJson:StringOf("imap_password"), oSsPassword)

//  Pass the credentials to the LoginSecure method:
nSuccess := oImap:LoginSecure(oSsLogin, oSsPassword)
IF (nSuccess != 1)
    ? oImap:LastErrorText
    oImap:destroy()
    oJson:destroy()
    oCrypt:destroy()
    oSsLogin:destroy()
    oSsPassword:destroy()
    RETURN
ENDIF

//  ...

oImap:Disconnect()

oImap:destroy()
oJson:destroy()
oCrypt:destroy()
oSsLogin:destroy()
oSsPassword:destroy()