(Tcl) Example: Crypt2.SetDecryptCert2 method

Demonstrates how to call the SetDecryptCert2 method. This example loads the certificate and private key from PEM files:

PEM Format

Certificate file (cert.pem or cert.crt):

-----BEGIN CERTIFICATE-----
MIID... (base64-encoded data)
-----END CERTIFICATE-----

Private key file (key.pem or key.key):

-----BEGIN PRIVATE KEY-----
MIIE... (base64-encoded data)
-----END PRIVATE KEY-----

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set cert [new_CkCert]

set success [CkCert_LoadFromFile $cert "c:/certs_and_keys/certAbc.pem"]
# Assume success...

set privKey [new_CkPrivateKey]

set success [CkPrivateKey_LoadAnyFormatFile $privKey "c:/certs_and_keys/certAbc_key.pem"]
# Assume success...

set crypt [new_CkCrypt2]

CkCrypt2_put_CryptAlgorithm $crypt "pki"

# ...
# ...

set success [CkCrypt2_SetDecryptCert2 $crypt $cert $privKey]
if {$success == 0} then {
    puts [CkCrypt2_lastErrorText $crypt]
    delete_CkCert $cert
    delete_CkPrivateKey $privKey
    delete_CkCrypt2 $crypt
    exit
}

puts "Success."

delete_CkCert $cert
delete_CkPrivateKey $privKey
delete_CkCrypt2 $crypt