(PowerBuilder) Duplicate PHP RSA Encryption

Demonstrates how to duplicate the following PHP function.

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

integer li_rc
string ls_RsaMOD
string ls_RsaEXP
oleobject loo_BdMod
oleobject loo_BdExp
integer li_Success
oleobject loo_Xml
oleobject loo_Pubkey
oleobject loo_Rsa
string ls_PlainText
string ls_CipherText

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

// Duplicate the following PHP code:
// 
//    public function encryptRSA($plainText,$rsaMOD,$pubKEY){
//         $rsa  = new RSA();
//         $rsa->setEncryptionMode(RSA::ENCRYPTION_PKCS1);
//         $publicKey = [
//             'e' => new BigInteger($pubKEY,16),
//             'n' => new BigInteger($rsaMOD,16)
//         ];
// 		
//         $rsa->loadKey($publicKey);
//         $ciphertext = $rsa->encrypt($plainText);
//         return bin2hex($ciphertext);
//     }
// 
//     $plainText="key=abcdefghijkmnopq&iv=abcdefghijkmnopq&h=12345678&s=12345678"
//     $rsaMOD="F0946D8F05604809E24B8CFFD30349CEA9E5F4D320BFD9E9AA1B088863F02C43E7997D37A3E27B4F8F359F1744DB6B20A437067C0D325A80660D12FF56A57673"
//     $pubKEY="010001"

// We have the RSA modulus in hex
ls_RsaMOD = "F0946D8F05604809E24B8CFFD30349CEA9E5F4D320BFD9E9AA1B088863F02C43E7997D37A3E27B4F8F359F1744DB6B20A437067C0D325A80660D12FF56A57673"

// The RSA exponent in hex is "010001", which is 65537 in decimal.  It's typically the exponent that is always used.
ls_RsaEXP = "010001"

// Get the RSA modulus and exponent in base64.
loo_BdMod = create oleobject
li_rc = loo_BdMod.ConnectToNewObject("Chilkat_9_5_0.BinData")
if li_rc < 0 then
    destroy loo_BdMod
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_BdExp = create oleobject
li_rc = loo_BdExp.ConnectToNewObject("Chilkat_9_5_0.BinData")

li_Success = loo_BdMod.AppendEncoded(ls_RsaMOD,"hex")
li_Success = loo_BdExp.AppendEncoded(ls_RsaEXP,"hex")

// Build the XML representation of the RSA public key
loo_Xml = create oleobject
li_rc = loo_Xml.ConnectToNewObject("Chilkat_9_5_0.Xml")

loo_Xml.Tag = "RSAPublicKey"
loo_Xml.UpdateChildContent("Modulus",loo_BdMod.GetEncoded("base64"))
loo_Xml.UpdateChildContent("Exponent",loo_BdExp.GetEncoded("base64"))

// Load the RSA public key into a Chilkat public key object.
loo_Pubkey = create oleobject
li_rc = loo_Pubkey.ConnectToNewObject("Chilkat_9_5_0.PublicKey")

li_Success = loo_Pubkey.LoadFromString(loo_Xml.GetXml())

// Setup the RSA object for encryption and do it..
loo_Rsa = create oleobject
li_rc = loo_Rsa.ConnectToNewObject("Chilkat_9_5_0.Rsa")

loo_Rsa.VerboseLogging = 1
li_Success = loo_Rsa.ImportPublicKeyObj(loo_Pubkey)

// Use PKCSv1.5 padding
loo_Rsa.OaepPadding = 0

// Encrypt and return the string as hex.
loo_Rsa.EncodingMode = "hex"
ls_PlainText = "key=abcdefghijkmnopq&iv=abcdefghijkmnopq&h=12345678&s=12345678"
ls_CipherText = loo_Rsa.EncryptStringENC(ls_PlainText,0)
if loo_Rsa.LastMethodSuccess = 0 then
    Write-Debug loo_Rsa.LastErrorText
    destroy loo_BdMod
    destroy loo_BdExp
    destroy loo_Xml
    destroy loo_Pubkey
    destroy loo_Rsa
    return
end if

// Note: The PKCSv1_5 padding incorporates random bytes.  Therefore, the RSA encryption will produce different results each time -- all of which are valid 
// and decrypt correctly to the same original text.
Write-Debug ls_CipherText


destroy loo_BdMod
destroy loo_BdExp
destroy loo_Xml
destroy loo_Pubkey
destroy loo_Rsa