Export a Public Key as DER into a BinData

Demonstrates the Chilkat PublicKey.GetDerBd method, which writes the public key as binary DER into a BinData. The first argument selects the representation (as for GetPem) and the second is the BinData that receives the bytes (its contents are replaced).

Note: The file paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

load ./chilkat.dll

set success 0

#  Load a public key to export.  LoadFromFile inspects the content, so it accepts DER, PEM, XML,
#  JWK, and other supported representations.
set pubKey [new_CkPublicKey]

set success [CkPublicKey_LoadFromFile $pubKey "qa_data/public.pem"]
if {$success == 0} then {
    puts [CkPublicKey_lastErrorText $pubKey]
    delete_CkPublicKey $pubKey
    exit
}

#  Write the public key as binary DER into a BinData.  The 1st argument selects the representation
#  (as for GetPem) and the 2nd is the BinData that receives the bytes (its contents are replaced).
set preferPkcs1 0
set bd [new_CkBinData]

set success [CkPublicKey_GetDerBd $pubKey $preferPkcs1 $bd]
if {$success == 0} then {
    puts [CkPublicKey_lastErrorText $pubKey]
    delete_CkPublicKey $pubKey
    delete_CkBinData $bd
    exit
}

puts "Exported [CkBinData_get_NumBytes $bd] DER bytes."

delete_CkPublicKey $pubKey
delete_CkBinData $bd