(Tcl) Example: Crypt2.SetDecryptCert method

Demonstrates how to call the SetDecryptCert method.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set cert [new_CkCert]

set success [CkCert_LoadPfxFile $cert "c:/pfx_files/my.pfx" "password"]
if {$success != 1} then {
    puts [CkCert_lastErrorText $cert]
    delete_CkCert $cert
    exit
}

set decrypt [new_CkCrypt2]

CkCrypt2_put_CryptAlgorithm $decrypt "pki"

set success [CkCrypt2_SetDecryptCert $decrypt $cert]
if {$success != 1} then {
    puts [CkCrypt2_lastErrorText $decrypt]
    delete_CkCert $cert
    delete_CkCrypt2 $decrypt
    exit
}

set bd [new_CkBinData]

set success [CkBinData_LoadFile $bd "c:/someDir/pkcs7_encrypted.dat"]

set success [CkCrypt2_DecryptBd $decrypt $bd]
if {$success != 1} then {
    puts [CkCrypt2_lastErrorText $decrypt]
    delete_CkCert $cert
    delete_CkCrypt2 $decrypt
    delete_CkBinData $bd
    exit
}

# bd contains the decrypted content.

delete_CkCert $cert
delete_CkCrypt2 $decrypt
delete_CkBinData $bd