Perl

Extract XML File from a .p7m (e.g. FATTURA ELETTRONICA, ITALY)

See more Digital Signatures Examples

_LANGUAGE_ example to extract the original file from a .p7m (Signed-Data PKCS7 Format) The .p7m contains the signed contents of the original file.

One use for this example is to extract the XML file from a Fattura Elettronica .p7m signature.

Perl

use chilkat();

$success = 0;

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

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

$outputFile = "testData/xml/original.xml";
$inFile = "testData/p7m/fattura_signature.p7m";

# Verify the signature and extract the XML file.
$success = $crypt->VerifyP7M($inFile,$outputFile);
if ($success == 0) {
    print $crypt->lastErrorText() . "\r\n";
    exit;
}

print "Success!" . "\r\n";