(Tcl) Workaround for the deprecated Crypt2.VerifyBytes method

Shows how to replace the deprecated VerifyBytes method. (Chilkat is moving away from the use of CkByteData.)

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set crypt [new_CkCrypt2]

set sigPath "c:/someDir/example.p7s"
set originalDataPath "c:/someDir/example.dat"

# ------------------------------------------------------------------------
# The VerifyBytes method is deprecated:

set detachedSigBytes [new_CkByteData]

CkByteData_loadFile $detachedSigBytes $sigPath

set originalDataBytes [new_CkByteData]

CkByteData_loadFile $originalDataBytes $originalDataPath

set verified [CkCrypt2_VerifyBytes $crypt $originalDataBytes $detachedSigBytes]

# ------------------------------------------------------------------------
# Workaround.
# (Chilkat is moving away from using CkByteData)

set bdSig [new_CkBinData]

CkBinData_LoadFile $bdSig $sigPath

set bdOrigData [new_CkBinData]

CkBinData_LoadFile $bdOrigData $originalDataPath

set encoding "base64"
CkCrypt2_put_EncodingMode $crypt $encoding
set verified [CkCrypt2_VerifyBdENC $crypt $bdOrigData [CkBinData_getEncoded $bdSig $encoding]]

delete_CkCrypt2 $crypt
delete_CkByteData $detachedSigBytes
delete_CkByteData $originalDataBytes
delete_CkBinData $bdSig
delete_CkBinData $bdOrigData