(PowerBuilder) Use Base64 RSA Key to Encrypt

Loads a Base64 RSA key and uses it to encrypt a string, returning the result in base64.

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

integer li_rc
oleobject loo_Pubkey
integer li_Success
oleobject loo_Rsa
string ls_EncryptedStr

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

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

li_Success = loo_Pubkey.LoadBase64("MIICdgIBADA ... A9PXLk+j5A==")
if li_Success <> 1 then
    Write-Debug loo_Pubkey.LastErrorText
    destroy loo_Pubkey
    return
end if

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

li_Success = loo_Rsa.ImportPublicKeyObj(loo_Pubkey)
if li_Success <> 1 then
    Write-Debug loo_Rsa.LastErrorText
    destroy loo_Pubkey
    destroy loo_Rsa
    return
end if

loo_Rsa.EncodingMode = "base64"

ls_EncryptedStr = loo_Rsa.EncryptStringENC("12345678",0)

Write-Debug ls_EncryptedStr


destroy loo_Pubkey
destroy loo_Rsa