Unicode C

Create CAdES-BES .p7m for FatturaPA XML Invoice

See more Digital Signatures Examples

Demonstrates how to create a CAdES BES invoice.xml.p7m for the Italian FatturaPA exchange system.

Note: This example requires Chilkat v9.5.0.75.

Unicode C

#include <C_CkCrypt2W.h>
#include <C_CkCertW.h>
#include <C_CkJsonObjectW.h>

void ChilkatSample(void)
    {
    BOOL success;
    HCkCrypt2W crypt;
    const wchar_t *pfxPath;
    const wchar_t *pfxPassword;
    HCkCertW cert;
    HCkJsonObjectW jsonSignedAttrs;
    const wchar_t *inFile;
    const wchar_t *sigFile;

    success = FALSE;

    // Note: Requires Chilkat v9.5.0.75 or greater.

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

    crypt = CkCrypt2W_Create();

    // Use a digital certificate and private key from a PFX file (.pfx or .p12).
    pfxPath = L"qa_data/pfx/cert_test123.pfx";
    pfxPassword = L"test123";

    cert = CkCertW_Create();
    success = CkCertW_LoadPfxFile(cert,pfxPath,pfxPassword);
    if (success != TRUE) {
        wprintf(L"%s\n",CkCertW_lastErrorText(cert));
        CkCrypt2W_Dispose(crypt);
        CkCertW_Dispose(cert);
        return;
    }

    // Provide the signing cert (with associated private key).
    success = CkCrypt2W_SetSigningCert(crypt,cert);
    if (success != TRUE) {
        wprintf(L"%s\n",CkCrypt2W_lastErrorText(crypt));
        CkCrypt2W_Dispose(crypt);
        CkCertW_Dispose(cert);
        return;
    }

    // Indicate that SHA-256 should be used.
    CkCrypt2W_putHashAlgorithm(crypt,L"sha256");

    // Specify the signed attributes to be included.
    // (This is what makes it CAdES-BES compliant.)
    jsonSignedAttrs = CkJsonObjectW_Create();
    CkJsonObjectW_UpdateInt(jsonSignedAttrs,L"contentType",1);
    CkJsonObjectW_UpdateInt(jsonSignedAttrs,L"signingTime",1);
    CkJsonObjectW_UpdateInt(jsonSignedAttrs,L"messageDigest",1);
    CkJsonObjectW_UpdateInt(jsonSignedAttrs,L"signingCertificateV2",1);
    CkCrypt2W_putSigningAttributes(crypt,CkJsonObjectW_emit(jsonSignedAttrs));

    inFile = L"qa_data/xml/IT01234567890_11002.xml";
    sigFile = L"qa_output/IT01234567890_11002.xml.p7m";

    // Create the CAdES-BES signature, which contains the original data.
    success = CkCrypt2W_CreateP7M(crypt,inFile,sigFile);
    if (success == FALSE) {
        wprintf(L"%s\n",CkCrypt2W_lastErrorText(crypt));
        CkCrypt2W_Dispose(crypt);
        CkCertW_Dispose(cert);
        CkJsonObjectW_Dispose(jsonSignedAttrs);
        return;
    }

    wprintf(L"Success.\n");


    CkCrypt2W_Dispose(crypt);
    CkCertW_Dispose(cert);
    CkJsonObjectW_Dispose(jsonSignedAttrs);

    }