AutoIt

IMAP Login Secure

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

Local $bSuccess = False

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

$oImap = ObjCreate("Chilkat.Imap")

; Connect to an IMAP server..
$oImap.Ssl = True
$oImap.Port = 993
$bSuccess = $oImap.Connect("imap.mail.me.com")
If ($bSuccess <> True) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
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 = ObjCreate("Chilkat.JsonObject")
$oJson.LoadFile("qa_data/passwords/imap.json")

$oCrypt = ObjCreate("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 = ObjCreate("Chilkat.SecureString")
$oSsPassword = ObjCreate("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:
$bSuccess = $oImap.LoginSecure($oSsLogin,$oSsPassword)
If ($bSuccess <> True) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
EndIf

; ...

$oImap.Disconnect()