(Tcl) Generate RSA Key and return Base64 PKCS8 Private Key
Demonstrates how to generate a new 2048-bit RSA private key and returns the Base64 encoded PKCS8 representation of the private key. Note: This example requires Chilkat v11.0.0 or greater.
load ./chilkat.dll
set success 0
set rsa [new_CkRsa]
# Generate a 2048-bit key. Chilkat RSA supports
# key sizes ranging from 512 bits to 8192 bits.
set privKey [new_CkPrivateKey]
set success [CkRsa_GenKey $rsa 2048 $privKey]
if {$success == 0} then {
puts [CkRsa_lastErrorText $rsa]
delete_CkRsa $rsa
delete_CkPrivateKey $privKey
exit
}
# Get the private key in PKCS8 Base64 format
set privKeyPkcs8Base64 [CkPrivateKey_getPkcs8ENC $privKey "base64"]
# The key in base64 format will start similar to this:
# MIIEvAIBADANBgkqhkiG9w0BA...
puts "$privKeyPkcs8Base64"
delete_CkRsa $rsa
delete_CkPrivateKey $privKey
|