Sample code for 30+ languages & platforms
Perl Requires Chilkat v9.5.0.77+

Create XAdES with ec:InclusiveNamespaces within the Transforms

See more XML Digital Signatures Examples

Demonstrates how to generate XAdES that has a Reference that has Transforms that include an ec:InclusiveNamespaces.

Chilkat Perl Downloads

Download Chilkat for Perl
Chilkat2 Perl 
use strict;
use warnings;
use Chilkat2;

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

# This is the XML we'll be signing:

# <soapenv:Envelope xmlns:obs="http://csioz.gov.pl/zsmopl/ws/obslugakomunikatow/" xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/">
#     <soapenv:Header>
#         <wsse:Security
#             xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd"
#             xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd" soapenv:mustUnderstand="1">
#             <wsse:BinarySecurityToken
#                 EncodingType="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-soap-message-security-1.0#Base64Binary"
#                 ValueType="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-x509-token-profile-1.0#X509PKIPathv1"
#                 wsu:Id="X509-02BF0107214FC61449FD0013DF68F0359">MII...</wsse:BinarySecurityToken>
#         </wsse:Security>
#     </soapenv:Header>
#     <soapenv:Body xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd"
#         wsu:Id="id-396BB6026342EB5C0E1EA73593B3CC098">
#         <obs:zapiszKomunikatOS>
#             <komunikatOS>
#                 <idPodmiotuRaportujacego>
#                     <idBiznesowy>000000011986</idBiznesowy>
#                     <rodzajPodmiotuRaportujacego>PA</rodzajPodmiotuRaportujacego>
#                 </idPodmiotuRaportujacego>
#             </komunikatOS>
#         </obs:zapiszKomunikatOS>
#     </soapenv:Body>
# </soapenv:Envelope>
#

my $success = 1;
# Create the above XML to be signed...
my $xmlToSign = Chilkat2::Xml->new;
$xmlToSign->Tag('soapenv:Envelope');
$xmlToSign->AddAttribute('xmlns:obs', 'http://csioz.gov.pl/zsmopl/ws/obslugakomunikatow/');
$xmlToSign->AddAttribute('xmlns:soapenv', 'http://schemas.xmlsoap.org/soap/envelope/');
$xmlToSign->UpdateAttrAt('soapenv:Header|wsse:Security', 1, 'xmlns:wsse', 'http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd');
$xmlToSign->UpdateAttrAt('soapenv:Header|wsse:Security', 1, 'xmlns:wsu', 'http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd');
$xmlToSign->UpdateAttrAt('soapenv:Header|wsse:Security', 1, 'soapenv:mustUnderstand', '1');
$xmlToSign->UpdateAttrAt('soapenv:Header|wsse:Security|wsse:BinarySecurityToken', 1, 'EncodingType', 'http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-soap-message-security-1.0#Base64Binary');
$xmlToSign->UpdateAttrAt('soapenv:Header|wsse:Security|wsse:BinarySecurityToken', 1, 'ValueType', 'http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-x509-token-profile-1.0#X509PKIPathv1');
$xmlToSign->UpdateAttrAt('soapenv:Header|wsse:Security|wsse:BinarySecurityToken', 1, 'wsu:Id', 'X509-02BF0107214FC61449FD0013DF68F0359');
# Note: The content of this XML node is a placeholder that will be updated below with the X509PKIPathv1 for the signing certificate.
$xmlToSign->UpdateChildContent('soapenv:Header|wsse:Security|wsse:BinarySecurityToken', 'BinarySecurityToken_Base64Binary_Content');
$xmlToSign->UpdateAttrAt('soapenv:Body', 1, 'xmlns:wsu', 'http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd');
$xmlToSign->UpdateAttrAt('soapenv:Body', 1, 'wsu:Id', 'id-396BB6026342EB5C0E1EA73593B3CC098');
$xmlToSign->UpdateChildContent('soapenv:Body|obs:zapiszKomunikatOS|komunikatOS|idPodmiotuRaportujacego|idBiznesowy', '000000011986');
$xmlToSign->UpdateChildContent('soapenv:Body|obs:zapiszKomunikatOS|komunikatOS|idPodmiotuRaportujacego|rodzajPodmiotuRaportujacego', 'PA');

my $gen = Chilkat2::XmlDSigGen->new;

$gen->SigLocation('soapenv:Envelope|soapenv:Header|wsse:Security');
$gen->SigLocationMod(0);
$gen->SigId('SIG-BB965DFC3C8AAF87903C0ED898B8D2A8D');
$gen->SigNamespacePrefix('ds');
$gen->SigNamespaceUri('http://www.w3.org/2000/09/xmldsig#');
$gen->SignedInfoCanonAlg('EXCL_C14N');
$gen->SignedInfoDigestMethod('sha1');

# Set the KeyInfoId before adding references..
$gen->KeyInfoId('KI-9D95C38916099AD2EE87DDAC1A76E97E4');

# -------- Reference 1 --------
$gen->AddSameDocRef('id-396BB6026342EB5C0E1EA73593B3CC098', 'sha1', 'EXCL_C14N', 'obs', '');

# The reference to be produced in the Signature should look like this:

# <ds:Reference URI="#id-396BB6026342EB5C0E1EA73593B3CC098">
#     <ds:Transforms><ds:Transform Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#">
#         <ec:InclusiveNamespaces xmlns:ec="http://www.w3.org/2001/10/xml-exc-c14n#" PrefixList="obs"></ec:InclusiveNamespaces>
#     </ds:Transform></ds:Transforms>
#     <ds:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1"></ds:DigestMethod>
#     <ds:DigestValue>2e9hZYj/CN2nPsgQqUraU43k3ds=</ds:DigestValue>
# </ds:Reference>
#

# Provide a certificate + private key. (PFX password is test123)
my $cert = Chilkat2::Cert->new;
$success = $cert->LoadPfxFile('qa_data/pfx/cert_test123.pfx', 'test123');
if (!$success) {
    print $cert->LastErrorText, "\n";
    exit;
}

$gen->SetX509Cert($cert, 1);

$gen->KeyInfoType('Custom');

# Create the custom KeyInfo XML..
my $xmlCustomKeyInfo = Chilkat2::Xml->new;
$xmlCustomKeyInfo->Tag('wsse:SecurityTokenReference');
$xmlCustomKeyInfo->AddAttribute('wsse11:TokenType', 'http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-x509-token-profile-1.0#X509PKIPathv1');
$xmlCustomKeyInfo->AddAttribute('xmlns:wsse11', 'http://docs.oasis-open.org/wss/oasis-wss-wssecurity-secext-1.1.xsd');
$xmlCustomKeyInfo->AddAttribute('wsu:Id', 'STR-FF238E7C061332C5B19752C2FBC8CDEF2');
$xmlCustomKeyInfo->UpdateAttrAt('wsse:Reference', 1, 'URI', '#X509-02BF0107214FC61449FD0013DF68F0359');
$xmlCustomKeyInfo->UpdateAttrAt('wsse:Reference', 1, 'ValueType', 'http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-x509-token-profile-1.0#X509PKIPathv1');

$xmlCustomKeyInfo->EmitXmlDecl(0);
$gen->CustomKeyInfoXml($xmlCustomKeyInfo->GetXml());

# Load XML to be signed...
my $sbXml = Chilkat2::StringBuilder->new;
$xmlToSign->GetXmlSb($sbXml);

# Update BinarySecurityToken_Base64Binary_Content with the actual X509PKIPathv1 of the signing cert.
my $nReplaced = $sbXml->Replace('BinarySecurityToken_Base64Binary_Content', $cert->X509PKIPathv1());

$gen->Behaviors('IndentedSignature');

# Sign the XML...
$success = $gen->CreateXmlDSigSb($sbXml);
if (!$success) {
    print $gen->LastErrorText, "\n";
    exit;
}

# -----------------------------------------------

# Save the signed XML to a file.
$success = $sbXml->WriteFile('qa_output/signedXml.xml', 'utf-8', 0);

print $sbXml->GetAsString(), "\n";

# ----------------------------------------
# Verify the signatures we just produced...
my $verifier = Chilkat2::XmlDSig->new;
$success = $verifier->LoadSignatureSb($sbXml);
if (!$success) {
    print $verifier->LastErrorText, "\n";
    exit;
}

my $numSigs = $verifier->NumSignatures;
my $verifyIdx = 0;
while ($verifyIdx < $numSigs) {
    $verifier->Selector($verifyIdx);
    my $verified = $verifier->VerifySignature(1);
    if (!$verified) {
        print $verifier->LastErrorText, "\n";
        exit;
    }

    $verifyIdx = $verifyIdx + 1;
}

print "All signatures were successfully verified.\n";