(Tcl) Generate RSA Public/Private Key Pair and Export to PEM
Tcl example code showing how to generate an RSA public/private key pair and export to PEM files.
load ./chilkat.dll
# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.
set rsa [new_CkRsa]
# Generate a 1024-bit key. Chilkat RSA supports
# key sizes ranging from 512 bits to 4096 bits.
set success [CkRsa_GenerateKey $rsa 1024]
if {$success != 1} then {
puts [CkRsa_lastErrorText $rsa]
delete_CkRsa $rsa
exit
}
# Keys are exported in XML format:
set publicKeyXml [CkRsa_exportPublicKey $rsa]
puts "$publicKeyXml"
set privateKeyXml [CkRsa_exportPrivateKey $rsa]
puts "$privateKeyXml"
# Save the private key in PEM format:
set privKey [new_CkPrivateKey]
set success [CkPrivateKey_LoadXml $privKey $privateKeyXml]
set success [CkPrivateKey_SavePemFile $privKey "privateKey.pem"]
# Save the public key in PEM format:
set pubKey [new_CkPublicKey]
set success [CkPublicKey_LoadFromString $pubKey $publicKeyXml]
set success [CkPublicKey_SavePemFile $pubKey 0 "publicKey.pem"]
delete_CkRsa $rsa
delete_CkPrivateKey $privKey
delete_CkPublicKey $pubKey
|
