PureBasic

Transition from RandomizeKey to GenRandomBytesENC

Provides instructions for replacing deprecated RandomizeKey method calls with GenRandomBytesENC. PureBasic

IncludeFile "CkCrypt2.pb"

Procedure ChilkatExample()

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

    CkCrypt2::setCkCryptAlgorithm(crypt, "aes")
    CkCrypt2::setCkCipherMode(crypt, "cbc")
    CkCrypt2::setCkKeyLength(crypt, 256)
    ; ...

    ; ------------------------------------------------------------------------
    ; The RandomizeKey method is deprecated:

    ; Generates and sets a random 32-byte (256-bit) secret key.
    CkCrypt2::ckRandomizeKey(crypt)

    ; ------------------------------------------------------------------------
    ; Do the equivalent using GenRandomBytesENC followed by SetEncodedKey

    CkCrypt2::setCkEncodingMode(crypt, "base64")
    randomKeyBase64.s = CkCrypt2::ckGenRandomBytesENC(crypt,32)
    CkCrypt2::ckSetEncodedKey(crypt,randomKeyBase64,"base64")


    CkCrypt2::ckDispose(crypt)


    ProcedureReturn
EndProcedure