Lianja

Example: Crypt2.EncryptSb method

Demonstrates how to call the EncryptSb method. Lianja

llSuccess = .F.

loCrypt = createobject("CkCrypt2")

loBdEncrypted = createobject("CkBinData")
loSbPlainText = createobject("CkStringBuilder")

loSbPlainText.Append("Text to be encrypted")

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

loCrypt.Charset = "utf-8"

llSuccess = loCrypt.EncryptSb(loSbPlainText,loBdEncrypted)
if (llSuccess = .F.) then
    ? loCrypt.LastErrorText
    release loCrypt
    release loBdEncrypted
    release loSbPlainText
    return
endif



release loCrypt
release loBdEncrypted
release loSbPlainText