Xbase++

Example: Crypt2.EncryptEncoded method

Demonstrates how to call the EncryptEncoded method. Xbase++

LOCAL oCrypt
LOCAL cEncrypted
LOCAL cDecrypted

oCrypt := CreateObject("Chilkat.Crypt2")

oCrypt:CryptAlgorithm := "aes"
oCrypt:CipherMode := "cbc"
oCrypt:KeyLength := 128
oCrypt:SetEncodedKey("000102030405060708090A0B0C0D0E0F", "hex")
oCrypt:SetEncodedIV("000102030405060708090A0B0C0D0E0F", "hex")

//  Encrypt the bytes 0x00, 0x01, 0x02, ... 0x0A
//  and return the encrypted bytes using the lowercase hex encoding.
oCrypt:EncodingMode := "hex_lower"
cEncrypted := oCrypt:EncryptEncoded("000102030405060708090a")
? cEncrypted

//  Output:
//  9da2ae71a5378487114b430e5e230378

cDecrypted := oCrypt:DecryptEncoded(cEncrypted)
? cDecrypted

//  Output:
//  000102030405060708090a

oCrypt:destroy()