(Tcl) Load RSA Public Key from Hex Modulus and Exponent

Load an RSA public key from a hex modulus and exponent.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll



# Load a 128-byte (1024-bit) modulus + exponent into a Chilkat public key object..
set modulus "BF5F4AF9A018B5F324A0C10448C0D3248D9BE78967FDC551A27876AC5789ADCBA8245D3D942AE3799563D895DA801E765D225A54FA15DAB2C4731DD817DCF94A9AD62197074C2349442093A206234BF3747F0E88AA6F538355684CC1FB26FCE029C9050A1DAF9F507C2BABF6EFC9FB16320C8036721BE0279FBB76122C41E429"

set exponent "00000003"

# We'll need to re-encode from hex to base64..
set bdModulus [new_CkBinData]

CkBinData_AppendEncoded $bdModulus $modulus "hex"
set bdExponent [new_CkBinData]

CkBinData_AppendEncoded $bdExponent $exponent "hex"

set xml [new_CkXml]

CkXml_put_Tag $xml "RsaKeyValue"
CkXml_NewChild2 $xml "Modulus" [CkBinData_getEncoded $bdModulus "base64"]
CkXml_NewChild2 $xml "Exponent" [CkBinData_getEncoded $bdExponent "base64"]

# Now load into the pubkey object..
set pubkey [new_CkPublicKey]

set success [CkPublicKey_LoadFromString $pubkey [CkXml_getXml $xml]]
if {$success == 0} then {
    puts [CkPublicKey_lastErrorText $pubkey]
    delete_CkBinData $bdModulus
    delete_CkBinData $bdExponent
    delete_CkXml $xml
    delete_CkPublicKey $pubkey
    exit
}

puts "Success."

delete_CkBinData $bdModulus
delete_CkBinData $bdExponent
delete_CkXml $xml
delete_CkPublicKey $pubkey