Sample code for 30+ languages & platforms
Xbase++

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 Xbase++ Downloads

Download Chilkat for Xbase++
Xbase++ 
LOCAL nSuccess
LOCAL oXmlToSign
LOCAL oGen
LOCAL oCert
LOCAL oXmlCustomKeyInfo
LOCAL oSbXml
LOCAL nNReplaced
LOCAL oVerifier
LOCAL nNumSigs
LOCAL nVerifyIdx
LOCAL nVerified

nSuccess := 0

//  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>
//  

//  ----------------------------------------------------------------------
//  IMPORTANT: This generated example requires Chilkat v9.5.0.77 or later.
//  ----------------------------------------------------------------------
nSuccess := 1
//  Create the above XML to be signed...
oXmlToSign := CreateObject("Chilkat.Xml")
oXmlToSign:Tag := "soapenv:Envelope"
oXmlToSign:AddAttribute("xmlns:obs", "http://csioz.gov.pl/zsmopl/ws/obslugakomunikatow/")
oXmlToSign:AddAttribute("xmlns:soapenv", "http://schemas.xmlsoap.org/soap/envelope/")
oXmlToSign:UpdateAttrAt("soapenv:Header|wsse:Security", 1, "xmlns:wsse", "http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd")
oXmlToSign:UpdateAttrAt("soapenv:Header|wsse:Security", 1, "xmlns:wsu", "http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd")
oXmlToSign:UpdateAttrAt("soapenv:Header|wsse:Security", 1, "soapenv:mustUnderstand", "1")
oXmlToSign: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")
oXmlToSign: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")
oXmlToSign: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.
oXmlToSign:UpdateChildContent("soapenv:Header|wsse:Security|wsse:BinarySecurityToken", "BinarySecurityToken_Base64Binary_Content")
oXmlToSign:UpdateAttrAt("soapenv:Body", 1, "xmlns:wsu", "http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd")
oXmlToSign:UpdateAttrAt("soapenv:Body", 1, "wsu:Id", "id-396BB6026342EB5C0E1EA73593B3CC098")
oXmlToSign:UpdateChildContent("soapenv:Body|obs:zapiszKomunikatOS|komunikatOS|idPodmiotuRaportujacego|idBiznesowy", "000000011986")
oXmlToSign:UpdateChildContent("soapenv:Body|obs:zapiszKomunikatOS|komunikatOS|idPodmiotuRaportujacego|rodzajPodmiotuRaportujacego", "PA")

oGen := CreateObject("Chilkat.XmlDSigGen")

oGen:SigLocation := "soapenv:Envelope|soapenv:Header|wsse:Security"
oGen:SigLocationMod := 0
oGen:SigId := "SIG-BB965DFC3C8AAF87903C0ED898B8D2A8D"
oGen:SigNamespacePrefix := "ds"
oGen:SigNamespaceUri := "http://www.w3.org/2000/09/xmldsig#"
oGen:SignedInfoCanonAlg := "EXCL_C14N"
oGen:SignedInfoDigestMethod := "sha1"

//  Set the KeyInfoId before adding references..
oGen:KeyInfoId := "KI-9D95C38916099AD2EE87DDAC1A76E97E4"

//  -------- Reference 1 --------
oGen: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)
oCert := CreateObject("Chilkat.Cert")
nSuccess := oCert:LoadPfxFile("qa_data/pfx/cert_test123.pfx", "test123")
IF (nSuccess != 1)
    ? oCert:LastErrorText
    oXmlToSign:destroy()
    oGen:destroy()
    oCert:destroy()
    RETURN
ENDIF

oGen:SetX509Cert(oCert, 1)

oGen:KeyInfoType := "Custom"

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

oXmlCustomKeyInfo:EmitXmlDecl := 0
oGen:CustomKeyInfoXml := oXmlCustomKeyInfo:GetXml()

//  Load XML to be signed...
oSbXml := CreateObject("Chilkat.StringBuilder")
oXmlToSign:GetXmlSb(oSbXml)

//  Update BinarySecurityToken_Base64Binary_Content with the actual X509PKIPathv1 of the signing cert.
nNReplaced := oSbXml:Replace("BinarySecurityToken_Base64Binary_Content", oCert:X509PKIPathv1())

oGen:Behaviors := "IndentedSignature"

//  Sign the XML...
nSuccess := oGen:CreateXmlDSigSb(oSbXml)
IF (nSuccess != 1)
    ? oGen:LastErrorText
    oXmlToSign:destroy()
    oGen:destroy()
    oCert:destroy()
    oXmlCustomKeyInfo:destroy()
    oSbXml:destroy()
    RETURN
ENDIF

//  -----------------------------------------------

//  Save the signed XML to a file.
nSuccess := oSbXml:WriteFile("qa_output/signedXml.xml", "utf-8", 0)

? oSbXml:GetAsString()

//  ----------------------------------------
//  Verify the signatures we just produced...
oVerifier := CreateObject("Chilkat.XmlDSig")
nSuccess := oVerifier:LoadSignatureSb(oSbXml)
IF (nSuccess != 1)
    ? oVerifier:LastErrorText
    oXmlToSign:destroy()
    oGen:destroy()
    oCert:destroy()
    oXmlCustomKeyInfo:destroy()
    oSbXml:destroy()
    oVerifier:destroy()
    RETURN
ENDIF

nNumSigs := oVerifier:NumSignatures
nVerifyIdx := 0
DO WHILE nVerifyIdx < nNumSigs
    oVerifier:Selector := nVerifyIdx
    nVerified := oVerifier:VerifySignature(1)
    IF (nVerified != 1)
        ? oVerifier:LastErrorText
        oXmlToSign:destroy()
        oGen:destroy()
        oCert:destroy()
        oXmlCustomKeyInfo:destroy()
        oSbXml:destroy()
        oVerifier:destroy()
        RETURN
    ENDIF

    nVerifyIdx := nVerifyIdx + 1
ENDDO
? "All signatures were successfully verified."

oXmlToSign:destroy()
oGen:destroy()
oCert:destroy()
oXmlCustomKeyInfo:destroy()
oSbXml:destroy()
oVerifier:destroy()