Perl

Workaround for the deprecated Crypt2.VerifyBytes method

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

use chilkat();

$crypt = chilkat::CkCrypt2->new();

$sigPath = "c:/someDir/example.p7s";
$originalDataPath = "c:/someDir/example.dat";

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

$detachedSigBytes = chilkat::CkByteData->new();
$detachedSigBytes->loadFile($sigPath);

$originalDataBytes = chilkat::CkByteData->new();
$originalDataBytes->loadFile($originalDataPath);

$verified = $crypt->VerifyBytes($originalDataBytes,$detachedSigBytes);

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

$bdSig = chilkat::CkBinData->new();
$bdSig->LoadFile($sigPath);

$bdOrigData = chilkat::CkBinData->new();
$bdOrigData->LoadFile($originalDataPath);

$encoding = "base64";
$crypt->put_EncodingMode($encoding);
$verified = $crypt->VerifyBdENC($bdOrigData,$bdSig->getEncoded($encoding));