(Tcl) Generate RSA Key and Export to Encrypted PEM
Tcl sample showing how to generate an RSA key and export to encrypted PEM. Note: This example requires Chilkat v11.0.0 or greater.
load ./chilkat.dll
set success 0
# 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 privKey [new_CkPrivateKey]
set success [CkRsa_GenKey $rsa 1024 $privKey]
if {$success == 0} then {
puts [CkRsa_lastErrorText $rsa]
delete_CkRsa $rsa
delete_CkPrivateKey $privKey
exit
}
set strEncPem [CkPrivateKey_getPkcs8EncryptedPem $privKey "myPassword"]
# You now have the private key in an encrypted format,
# which may be (for example) saved to a database.
puts "$strEncPem"
delete_CkRsa $rsa
delete_CkPrivateKey $privKey
|