Xbase++

Alliance Access LAU Sign Message (XML Signature using HMAC-SHA-256)

See more XML Digital Signatures Examples

Demonstrates how to sign XML according to the requirements for Alliance Access LAU (Local Authentication) using HMAC-SHA-256. Xbase++

LOCAL nSuccess
LOCAL oXmlToSign
LOCAL oGen
LOCAL oSbXml

nSuccess := 0

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

//  We begin with this message:

//  <?xml version="1.0" encoding="utf-8"?>
//  <Saa:DataPDU xmlns:Saa="urn:swift:saa:xsd:saa.2.0" xmlns:Sw="urn:swift:snl:ns.Sw"
//    xmlns:SwGbl="urn:swift:snl:ns.SwGbl" xmlns:SwInt="urn:swift:snl:ns:SwInt" xmlns:SwSec="url:swift:snl:ns.SwSec">
//      <Saa:Revision>2.0.7</Saa:Revision>
//      <Saa:Header>
//          <Saa:Message>
//  			<test>blah blah</test>
//          </Saa:Message>
//      </Saa:Header>
//      <Saa:Body>...</Saa:Body>
//      <Saa:LAU>
//      </Saa:LAU>
//  </Saa:DataPDU>

//  And we want so sign to create this as the result:
//  The signed XML we'll create will not be indented and pretty-printed like this.
//  Instead, we'll use the "CompactSignedXml" behavior to produce compact single-line XML.

//  <?xml version="1.0" encoding="utf-8"?>
//  <Saa:DataPDU xmlns:Saa="urn:swift:saa:xsd:saa.2.0" xmlns:Sw="urn:swift:snl:ns.Sw"
//    xmlns:SwGbl="urn:swift:snl:ns.SwGbl" xmlns:SwInt="urn:swift:snl:ns:SwInt" xmlns:SwSec="url:swift:snl:ns.SwSec">
//      <Saa:Revision>2.0.7</Saa:Revision>
//      <Saa:Header>
//          <Saa:Message>
//  			<test>blah blah</test>
//          </Saa:Message>
//      </Saa:Header>
//      <Saa:Body>...</Saa:Body>
//      <Saa:LAU>
//          <ds:Signature xmlns:ds="http://www.w3.org/2000/09/xmldsig#">
//              <ds:SignedInfo>
//                  <ds:CanonicalizationMethod Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#"/>
//                  <ds:SignatureMethod Algorithm="http://www.w3.org/2001/04/xmldsig-more#hmac-sha256"/>
//                  <ds:Reference URI="">
//                      <ds:Transforms>
//                          <ds:Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature"/>
//                          <ds:Transform Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#"/>
//                      </ds:Transforms>
//                      <ds:DigestMethod Algorithm="http://www.w3.org/2001/04/xmlenc#sha256"/>
//                      <ds:DigestValue>Y7oScHnYOUQvni/TSzZbDec+HR+mWIFH149GXpwj1Ws=</ds:DigestValue>
//                  </ds:Reference>
//              </ds:SignedInfo>
//              <ds:SignatureValue>6ynF/FcwbPsHrtlj3h2agJigdnvpbO6hOzKSRGzqkw0=</ds:SignatureValue>
//          </ds:Signature>
//      </Saa:LAU>
//  </Saa:DataPDU>

nSuccess := 1

//  Create the XML to be signed...

//  (The XML does not need to be created this way.  It can be loaded from a file or a string.)
//  Also, use this online tool to generate code from sample XML: 
//  Generate Code to Create XML

oXmlToSign := CreateObject("Chilkat.Xml")
oXmlToSign:Tag := "Saa:DataPDU"
oXmlToSign:AddAttribute("xmlns:Saa", "urn:swift:saa:xsd:saa.2.0")
oXmlToSign:AddAttribute("xmlns:Sw", "urn:swift:snl:ns.Sw")
oXmlToSign:AddAttribute("xmlns:SwGbl", "urn:swift:snl:ns.SwGbl")
oXmlToSign:AddAttribute("xmlns:SwInt", "urn:swift:snl:ns:SwInt")
oXmlToSign:AddAttribute("xmlns:SwSec", "url:swift:snl:ns.SwSec")
oXmlToSign:UpdateChildContent("Saa:Revision", "2.0.7")
oXmlToSign:UpdateChildContent("Saa:Header|Saa:Message|test", "blah blah")
oXmlToSign:UpdateChildContent("Saa:Body", "...")
oXmlToSign:UpdateChildContent("Saa:LAU", "")

oGen := CreateObject("Chilkat.XmlDSigGen")

oGen:SigLocation := "Saa:DataPDU|Saa:LAU"
oGen:SigLocationMod := 0
oGen:SigNamespacePrefix := "ds"
oGen:SigNamespaceUri := "http://www.w3.org/2000/09/xmldsig#"
oGen:SignedInfoCanonAlg := "EXCL_C14N"
oGen:SignedInfoDigestMethod := "sha256"

//  You may alternatively choose "IndentedSignature" instead of "CompactSignedXml"
oGen:Behaviors := "CompactSignedXml"

oGen:AddSameDocRef("", "sha256", "EXCL_C14N", "", "")

//  Specify the HMAC key.
//  For example, if the HMAC key is to be the us-ascii bytes of the string "secret",
//  the HMAC key can be set in any of the following ways (and also more ways not shown here..)
oGen:SetHmacKey("secret", "ascii")
//  or
oGen:SetHmacKey("c2VjcmV0", "base64")
//  or
oGen:SetHmacKey("736563726574", "hex")

//  Sign the XML..
oSbXml := CreateObject("Chilkat.StringBuilder")
oXmlToSign:GetXmlSb(oSbXml)
nSuccess := oGen:CreateXmlDSigSb(oSbXml)
IF (nSuccess != 1)
    ? oGen:LastErrorText
    oXmlToSign:destroy()
    oGen:destroy()
    oSbXml:destroy()
    RETURN
ENDIF

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

//  Show the signed XML.
? oSbXml:GetAsString()

oXmlToSign:destroy()
oGen:destroy()
oSbXml:destroy()