Tcl

Load a Private Key from a PKCS #1 File

Demonstrates the Chilkat PrivateKey.LoadPkcs1File method, which loads a private key from a file. The only argument is the file path. Despite the historical PKCS #1 name, it accepts any supported unencrypted private-key representation.

Note: The file path is relative to the application's current working directory. Absolute paths may also be used. Supply the path to your own key file.

Background: PKCS #1 is the older, RSA-specific key format — the BEGIN RSA PRIVATE KEY block still common from OpenSSL. This method reads it, and like the other content-inspecting loaders it also accepts other unencrypted representations, so it is forgiving of what is actually in the file. For unknown or mixed formats, prefer LoadAnyFormatFile.

Chilkat Tcl Downloads

Download Chilkat for Tcl

Tcl


load ./chilkat.dll

set success 0

#  Demonstrates the PrivateKey.LoadPkcs1File method, which loads a private key from a file.  The
#  only argument is the file path.  Despite the historical PKCS #1 name, it accepts any supported
#  unencrypted private-key representation.

set privKey [new_CkPrivateKey]

set success [CkPrivateKey_LoadPkcs1File $privKey "qa_data/private_pkcs1.pem"]
if {$success == 0} then {
    puts [CkPrivateKey_lastErrorText $privKey]
    delete_CkPrivateKey $privKey
    exit
}

puts "Loaded a [CkPrivateKey_keyType $privKey] private key."

delete_CkPrivateKey $privKey