PureBasic

Example: Crypt2.EncryptSb method

Demonstrates how to call the EncryptSb method. PureBasic

IncludeFile "CkBinData.pb"
IncludeFile "CkStringBuilder.pb"
IncludeFile "CkCrypt2.pb"

Procedure ChilkatExample()

    success.i = 0

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

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

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

    CkStringBuilder::ckAppend(sbPlainText,"Text to be encrypted")

    ; ...
    ; Set the secret key ...
    ; Set properties such as CryptAlgorithm, CipherMode, PaddingScheme, KeyLength
    ; Set the IV if needed ...
    ; ...

    CkCrypt2::setCkCharset(crypt, "utf-8")

    success = CkCrypt2::ckEncryptSb(crypt,sbPlainText,bdEncrypted)
    If success = 0
        Debug CkCrypt2::ckLastErrorText(crypt)
        CkCrypt2::ckDispose(crypt)
        CkBinData::ckDispose(bdEncrypted)
        CkStringBuilder::ckDispose(sbPlainText)
        ProcedureReturn
    EndIf



    CkCrypt2::ckDispose(crypt)
    CkBinData::ckDispose(bdEncrypted)
    CkStringBuilder::ckDispose(sbPlainText)


    ProcedureReturn
EndProcedure