PowerBuilder

PBES2 Password-Based Encryption

See more Encryption Examples

Demonstrates PBES2 encryption PowerBuilder

integer li_rc
oleobject loo_Crypt
string ls_PlainText
string ls_EncryptedText
string ls_DecryptedText

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

loo_Crypt = create oleobject
li_rc = loo_Crypt.ConnectToNewObject("Chilkat.Crypt2")
if li_rc < 0 then
    destroy loo_Crypt
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// Set properties for PBES2 encryption:

// When the encryption algorithm is set to "pbes2",
// Chilkat will automatically derive the actual secret key using PBKDF2 and
// the specified paramters: password, salt, iteration count, hash function, and desired key length.

loo_Crypt.CryptAlgorithm = "pbes2"
loo_Crypt.PbesPassword = "mySecretPassword"

// Set the underlying PBE algorithm (and key length):
loo_Crypt.PbesAlgorithm = "aes"
loo_Crypt.KeyLength = 256

loo_Crypt.SetEncodedIV("000102030405060708090A0B0C0D0E0F","hex")

// Give it some salt:
loo_Crypt.SetEncodedSalt("0102030405060708","hex")

// A higher iteration count makes the algorithm more
// computationally expensive and therefore exhaustive
// searches (for breaking the encryption) is more difficult:
loo_Crypt.IterationCount = 1024

// A hash algorithm needs to be set for PBES2:
loo_Crypt.HashAlgorithm = "sha256"

// Indicate that the encrypted bytes should be returned
// as a hex string:
loo_Crypt.EncodingMode = "hex"

ls_PlainText = "To be encrypted."

ls_EncryptedText = loo_Crypt.EncryptStringENC(ls_PlainText)

Write-Debug ls_EncryptedText

// Now decrypt:
ls_DecryptedText = loo_Crypt.DecryptStringENC(ls_EncryptedText)

Write-Debug ls_DecryptedText


destroy loo_Crypt