(PowerBuilder) RSA Encrypt String to Encoded Result and Reverse

See more RSA Examples

Demonstrates how to RSA encrypt a string to a base64 encoded result, and the reverse.

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_EncryptedB64
oleobject loo_PrivKey
string ls_Password
string ls_OriginalText

// The RSA public key is used for encryption, and the private key for decryption.

// The public key's role is to make encryption accessible to anyone while ensuring that
// only the private key holder can decrypt the messages.
// The public key is designed to be widely distributed so anyone can use it to encrypt messages
// intended for the owner of the private key.

// Load our 2048-bit RSA public key.
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
// In all Chilkat methods expecting a path, you pass either absolute or relative paths.
li_Success = loo_PubKey.LoadFromFile("rsaKeys/myTestRsaPublic.pem")
if li_Success = 0 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")

// Tell RSA to use the public key.
loo_Rsa.ImportPublicKeyObj(loo_PubKey)

// RSA encryption is for small amounts of data, on the order of 200 bytes or less.
// The maximum number of bytes that can be RSA encrypted depends
// on the RSA key size and padding scheme (OAEP padding vs PKCS#1 v1.5 padding).
// For specific limits, see: RSA Encryption Maximum Number of Bytes

// Encrypt the utf-8 byte representation of the string.
loo_Rsa.Charset = "utf-8"
loo_Rsa.EncodingMode = "base64"

// Be Careful when Using non-us-ascii String Literals in Source Code
ls_EncryptedB64 = loo_Rsa.EncryptStringENC("Élève français dîne à côté d’un café où l’on sert déjà du gâteau au chocolat et des éclairs délicieux",0)

// ------------------------------------------------------------------------------------------------------------------------
// Let's decrypt, which requires the matching private key...

// Load the matching 2048-bit RSA private key.
loo_PrivKey = create oleobject
// Use "Chilkat_9_5_0.PrivateKey" for versions of Chilkat < 10.0.0
li_rc = loo_PrivKey.ConnectToNewObject("Chilkat.PrivateKey")

ls_Password = "secret"
li_Success = loo_PrivKey.LoadAnyFormatFile("rsaKeys/myTestRsaPrivate.pem",ls_Password)
if li_Success = 0 then
    Write-Debug loo_PrivKey.LastErrorText
    destroy loo_PubKey
    destroy loo_Rsa
    destroy loo_PrivKey
    return
end if

// Tell the RSA object to use the private key.
loo_Rsa.ImportPrivateKeyObj(loo_PrivKey)

// Indicate that after decrypting the resultant decrypted bytes contains the utf-8 byte representation of the text.
loo_Rsa.Charset = "utf-8"
loo_Rsa.EncodingMode = "base64"
ls_OriginalText = loo_Rsa.DecryptStringENC(ls_EncryptedB64,1)
if li_Success = 0 then
    Write-Debug loo_Rsa.LastErrorText
    destroy loo_PubKey
    destroy loo_Rsa
    destroy loo_PrivKey
    return
end if

Write-Debug "Original text = " + ls_OriginalText
Write-Debug "Success."


destroy loo_PubKey
destroy loo_Rsa
destroy loo_PrivKey