PureBasic

IMAP Login Secure

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

IncludeFile "CkSecureString.pb"
IncludeFile "CkJsonObject.pb"
IncludeFile "CkImap.pb"
IncludeFile "CkCrypt2.pb"

Procedure ChilkatExample()

    success.i = 0

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

    imap.i = CkImap::ckCreate()
    If imap.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Connect to an IMAP server..
    CkImap::setCkSsl(imap, 1)
    CkImap::setCkPort(imap, 993)
    success = CkImap::ckConnect(imap,"imap.mail.me.com")
    If success <> 1
        Debug CkImap::ckLastErrorText(imap)
        CkImap::ckDispose(imap)
        ProcedureReturn
    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=="
    ; }

    json.i = CkJsonObject::ckCreate()
    If json.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkJsonObject::ckLoadFile(json,"qa_data/passwords/imap.json")

    crypt.i = CkCrypt2::ckCreate()
    If crypt.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; These are the encryption settings we previously used to encrypt the credentials within the JSON config file.
    CkCrypt2::setCkCryptAlgorithm(crypt, "aes")
    CkCrypt2::setCkCipherMode(crypt, "cbc")
    CkCrypt2::setCkKeyLength(crypt, 128)
    CkCrypt2::ckSetEncodedKey(crypt,"000102030405060708090A0B0C0D0E0F","hex")
    CkCrypt2::ckSetEncodedIV(crypt,"000102030405060708090A0B0C0D0E0F","hex")
    CkCrypt2::setCkEncodingMode(crypt, "base64")

    ssLogin.i = CkSecureString::ckCreate()
    If ssLogin.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ssPassword.i = CkSecureString::ckCreate()
    If ssPassword.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Decrypt to the secure string.  (the strings will still held in memory encrypted, but are now encrypted using
    ; a randomly generated session key.)
    CkCrypt2::ckDecryptSecureENC(crypt,CkJsonObject::ckStringOf(json,"imap_login"),ssLogin)
    CkCrypt2::ckDecryptSecureENC(crypt,CkJsonObject::ckStringOf(json,"imap_password"),ssPassword)

    ; Pass the credentials to the LoginSecure method:
    success = CkImap::ckLoginSecure(imap,ssLogin,ssPassword)
    If success <> 1
        Debug CkImap::ckLastErrorText(imap)
        CkImap::ckDispose(imap)
        CkJsonObject::ckDispose(json)
        CkCrypt2::ckDispose(crypt)
        CkSecureString::ckDispose(ssLogin)
        CkSecureString::ckDispose(ssPassword)
        ProcedureReturn
    EndIf

    ; ...

    CkImap::ckDisconnect(imap)


    CkImap::ckDispose(imap)
    CkJsonObject::ckDispose(json)
    CkCrypt2::ckDispose(crypt)
    CkSecureString::ckDispose(ssLogin)
    CkSecureString::ckDispose(ssPassword)


    ProcedureReturn
EndProcedure