PowerBuilder Requires Chilkat v11.0.0+

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. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_PubKey
oleobject loo_Rsa
string ls_EncryptedB64
oleobject loo_PrivKey
string ls_Password
string ls_OriginalText

li_Success = 0

//  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
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
li_rc = loo_Rsa.ConnectToNewObject("Chilkat.Rsa")

//  Tell RSA to use the public key.
loo_Rsa.UsePublicKey(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
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.UsePrivateKey(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