(PowerBuilder) Encrypt with Chilkat, Decrypt with OpenSSL

Demonstrates how to RSA encrypt a string using Chilkat, and then shows the corresponding OpenSSL command to RSA decrypt. The OpenSSL command to decrypt is as follows:

openssl rsautl -decrypt -inkey VP_Private.pem -in rsa_encrypted.bin -out original.txt

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_StrToEncrypt
integer li_UsePrivateKey
oleobject loo_Fac

// This example requires 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

// Note: RSA encryption uses the public key.  
// RSA decryption uses the private key.
// The reason is that the public key can be freely provided to anybody.  This allows anybody
// to send an encrypted message to the private key owner, and only the private key owner 
// can decrypt.
loo_Key = create oleobject
// Use "Chilkat_9_5_0.PublicKey" for versions of Chilkat < 10.0.0
li_rc = loo_Key.ConnectToNewObject("Chilkat.PublicKey")

// Load an RSA public key from a PEM file:
li_Success = loo_Key.LoadFromFile("qa_data/pem/VP_Public.pem")
if li_Success <> 1 then
    Write-Debug loo_Key.LastErrorText
    destroy loo_Rsa
    destroy loo_Key
    return
end if

// Load the public key into the RSA object.
li_Success = loo_Rsa.ImportPublicKeyObj(loo_Key)
if li_Success <> 1 then
    Write-Debug loo_Rsa.LastErrorText
    destroy loo_Rsa
    destroy loo_Key
    return
end if

ls_StrToEncrypt = "00000000;XYZ2-3BHQ-ABCD-MMVV;6MY1-GHJK-9LRR;0"

// The LittleEndian property is 0 by default, but it is set here
// anyway to show that LittleEndian byte ordering is required for OpenSSL compatibility.
loo_Rsa.LittleEndian = 0

li_UsePrivateKey = 0

loo_EncryptedBytes = loo_Rsa.EncryptString(ls_StrToEncrypt,li_UsePrivateKey)
if loo_Rsa.LastMethodSuccess <> 1 then
    Write-Debug loo_Rsa.LastErrorText
    destroy loo_Rsa
    destroy loo_Key
    return
end if

// The OpenSSL command to decrypt would be this:
// openssl rsautl -decrypt -inkey VP_Private.pem -in rsa_encrypted.bin -out original.txt

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

li_Success = loo_Fac.WriteEntireFile("qa_output/rsa_encrypted.bin",loo_EncryptedBytes)
if li_Success <> 1 then
    Write-Debug loo_Fac.LastErrorText
    destroy loo_Rsa
    destroy loo_Key
    destroy loo_Fac
    return
end if

Write-Debug "RSA Encryption Succeeded."


destroy loo_Rsa
destroy loo_Key
destroy loo_Fac