(PowerBuilder) RSA Decrypt using PEM

This example demonstrates decryping RSA encrypted data that is base64 encoded. It uses a private key loaded from a PEM file.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Rsa
oleobject loo_Key
integer li_Success
string ls_EncryptedStr
integer li_UsePrivateKey
string ls_DecryptedStr

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

loo_Rsa = create oleobject
// Use "Chilkat_9_5_0.Rsa" for versions of Chilkat < 10.0.0
li_rc = loo_Rsa.ConnectToNewObject("Chilkat.Rsa")
if li_rc < 0 then
    destroy loo_Rsa
    MessageBox("Error","Connecting to COM object failed")
    return
end if

loo_Key = create oleobject
// Use "Chilkat_9_5_0.PrivateKey" for versions of Chilkat < 10.0.0
li_rc = loo_Key.ConnectToNewObject("Chilkat.PrivateKey")

// Load an RSA private key from an unencrypted PEM file:
// (To load from an encrypted PEM file, call LoadEncryptedPemFile instead.)

li_Success = loo_Key.LoadPemFile("qa_data/rsa/decryptTest/priv.pem")
if li_Success <> 1 then
    Write-Debug loo_Key.LastErrorText
    destroy loo_Rsa
    destroy loo_Key
    return
end if

// Make the key available to the RSA object
li_Success = loo_Rsa.ImportPrivateKeyObj(loo_Key)
if li_Success <> 1 then
    Write-Debug loo_Rsa.LastErrorText
    destroy loo_Rsa
    destroy loo_Key
    return
end if

ls_EncryptedStr = "pP9XFJEsGgxPNHEgNiLB5H5ksCOXDk/G49BPTog1jKLAhYofV4UTH5k2TOYiqRnDnKs8+8uPoN/IxdiGXvuYG8HRzN0HtkhoZO/AxeyaB9S7eddCUlT0Pl2PEB2yQ9HG5rM7jqYOD6MAM4cuX7hqT8fa8tbzJzmBwdfFDBz94bwQjULHiO+gklIBC4vhkXT4yjuvEjxTAKU6tJeZYkBooJNdS/vE5RZRpuF6bGZU41Qc17qFR+iReBq+9f8IMmw8WR8fMbOCaygOfFS1nw7JVsIMGsAIXS8rUaJ/2DfGPfQx5HCiVtTOreGYRUI3esAQjnvUCnavZyQgs53nl7e2aA=="

loo_Rsa.EncodingMode = "base64"

li_UsePrivateKey = 1
ls_DecryptedStr = loo_Rsa.DecryptStringENC(ls_EncryptedStr,li_UsePrivateKey)

Write-Debug "Decrypted:"
Write-Debug ls_DecryptedStr


destroy loo_Rsa
destroy loo_Key