(Tcl) Duplicate PHP RSA Encryption

Demonstrates how to duplicate the following PHP function.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# 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
set rsaMOD "F0946D8F05604809E24B8CFFD30349CEA9E5F4D320BFD9E9AA1B088863F02C43E7997D37A3E27B4F8F359F1744DB6B20A437067C0D325A80660D12FF56A57673"

# The RSA exponent in hex is "010001", which is 65537 in decimal.  It's typically the exponent that is always used.
set rsaEXP "010001"

# Get the RSA modulus and exponent in base64.
set bdMod [new_CkBinData]

set bdExp [new_CkBinData]

set success [CkBinData_AppendEncoded $bdMod $rsaMOD "hex"]
set success [CkBinData_AppendEncoded $bdExp $rsaEXP "hex"]

# Build the XML representation of the RSA public key
set xml [new_CkXml]

CkXml_put_Tag $xml "RSAPublicKey"
CkXml_UpdateChildContent $xml "Modulus" [CkBinData_getEncoded $bdMod "base64"]
CkXml_UpdateChildContent $xml "Exponent" [CkBinData_getEncoded $bdExp "base64"]

# Load the RSA public key into a Chilkat public key object.
set pubkey [new_CkPublicKey]

set success [CkPublicKey_LoadFromString $pubkey [CkXml_getXml $xml]]

# Setup the RSA object for encryption and do it..
set rsa [new_CkRsa]

CkRsa_put_VerboseLogging $rsa 1
set success [CkRsa_ImportPublicKeyObj $rsa $pubkey]

# Use PKCSv1.5 padding
CkRsa_put_OaepPadding $rsa 0

# Encrypt and return the string as hex.
CkRsa_put_EncodingMode $rsa "hex"
set plainText "key=abcdefghijkmnopq&iv=abcdefghijkmnopq&h=12345678&s=12345678"
set cipherText [CkRsa_encryptStringENC $rsa $plainText 0]
if {[CkRsa_get_LastMethodSuccess $rsa] == 0} then {
    puts [CkRsa_lastErrorText $rsa]
    delete_CkBinData $bdMod
    delete_CkBinData $bdExp
    delete_CkXml $xml
    delete_CkPublicKey $pubkey
    delete_CkRsa $rsa
    exit
}

# 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.
puts "$cipherText"

delete_CkBinData $bdMod
delete_CkBinData $bdExp
delete_CkXml $xml
delete_CkPublicKey $pubkey
delete_CkRsa $rsa