Xbase++ Requires Chilkat v11.0.0+

Duplicate PHP RSA Encryption

See more RSA Examples

Demonstrates how to duplicate the following PHP function. Xbase++

LOCAL nSuccess
LOCAL cRsaMOD
LOCAL cRsaEXP
LOCAL oBdMod
LOCAL oBdExp
LOCAL oXml
LOCAL oPubkey
LOCAL oRsa
LOCAL cPlainText
LOCAL cCipherText

nSuccess := 0

//  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
cRsaMOD := "F0946D8F05604809E24B8CFFD30349CEA9E5F4D320BFD9E9AA1B088863F02C43E7997D37A3E27B4F8F359F1744DB6B20A437067C0D325A80660D12FF56A57673"

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

//  Get the RSA modulus and exponent in base64.
oBdMod := CreateObject("Chilkat.BinData")
oBdExp := CreateObject("Chilkat.BinData")
nSuccess := oBdMod:AppendEncoded(cRsaMOD, "hex")
nSuccess := oBdExp:AppendEncoded(cRsaEXP, "hex")

//  Build the XML representation of the RSA public key
oXml := CreateObject("Chilkat.Xml")
oXml:Tag := "RSAPublicKey"
oXml:UpdateChildContent("Modulus", oBdMod:GetEncoded("base64"))
oXml:UpdateChildContent("Exponent", oBdExp:GetEncoded("base64"))

//  Load the RSA public key into a Chilkat public key object.
oPubkey := CreateObject("Chilkat.PublicKey")
nSuccess := oPubkey:LoadFromString(oXml:GetXml())

//  Setup the RSA object for encryption and do it..
oRsa := CreateObject("Chilkat.Rsa")
oRsa:VerboseLogging := 1
nSuccess := oRsa:UsePublicKey(oPubkey)

//  Use PKCSv1.5 padding
oRsa:PkcsPadding := 1

//  Encrypt and return the string as hex.
oRsa:EncodingMode := "hex"
cPlainText := "key=abcdefghijkmnopq&iv=abcdefghijkmnopq&h=12345678&s=12345678"
cCipherText := oRsa:EncryptStringENC(cPlainText, 0)
IF (oRsa:LastMethodSuccess == 0)
    ? oRsa:LastErrorText
    oBdMod:destroy()
    oBdExp:destroy()
    oXml:destroy()
    oPubkey:destroy()
    oRsa:destroy()
    RETURN
ENDIF

//  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.
? cCipherText

oBdMod:destroy()
oBdExp:destroy()
oXml:destroy()
oPubkey:destroy()
oRsa:destroy()