(DataFlex) Swift Alliance LAU XML Signature

Calculating the LAU for Swift Alliance File Act XML using HMAC SHA256. (The XML signature, also referred to as Local Authentication (LAU), is computed using the algorithm HMAC based on SHA-256.)

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Variant vSbXml
    Handle hoSbXml
    Boolean iSuccess
    Integer iNumReplaced
    Handle hoGen
    String sTemp1

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

    // We begin with the following 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:SwInt="urn:swift:snl:ns.SwInt" xmlns:SwGbl="urn:swift:snl:ns.SwGbl" xmlns:SwSec="urn:swift:snl:ns.SwSec">
    //     <Saa:Revision>2.0.6</Saa:Revision>
    //     <Saa:Header>
    //         <Saa:Message>
    //             <Saa:SenderReference>Ref760FA1234</Saa:SenderReference>
    //             <Saa:MessageIdentifier>tsrv.fin.mt7xx.gteesstandbys</Saa:MessageIdentifier>
    //             <Saa:Format>File</Saa:Format>
    //             <Saa:SubFormat>Input</Saa:SubFormat>
    //             <Saa:Sender>
    //                 <Saa:DN>cn=su8,o=ptsqgbbb,o=swift</Saa:DN>
    //                 <Saa:FullName>
    //                     <Saa:X1>PTSQGBBBXXX</Saa:X1>
    //                 </Saa:FullName>
    //             </Saa:Sender>
    //             <Saa:Receiver>
    //                 <Saa:DN>cn=abc,ou=saa,o=xxx,o=swift</Saa:DN>
    //                 <Saa:FullName>
    //                     <Saa:X1>PTSXXXXXXXX</Saa:X1>
    //                     <Saa:X2>saa</Saa:X2>
    //                 </Saa:FullName>
    //             </Saa:Receiver>
    //             <Saa:InterfaceInfo>
    //                 <Saa:UserReference>CRE...</Saa:UserReference>
    //                 <Saa:MessageCreator>ApplicationInterface</Saa:MessageCreator>
    //                 <Saa:MessageContext>Original</Saa:MessageContext>
    //                 <Saa:MessageNature>Financial</Saa:MessageNature>
    //             </Saa:InterfaceInfo>
    //             <Saa:NetworkInfo>
    //                 <Saa:Priority>Normal</Saa:Priority>
    //                 <Saa:IsPossibleDuplicate>true</Saa:IsPossibleDuplicate>
    //                 <Saa:Service>swift.corp.fast!x</Saa:Service>
    //                 <Saa:Network>Application</Saa:Network>
    //                 <Saa:SessionNr>0080</Saa:SessionNr>
    //                 <Saa:SeqNr>000001</Saa:SeqNr>
    //                 <Saa:SWIFTNetNetworkInfo>
    //                     <Saa:RequestType>tsrv.fin.mt7xx.gteesstandbys</Saa:RequestType>
    //                     <Saa:Reference>2f949999-d32e-49eb-9999-9a819b9b9c0d</Saa:Reference>
    //                     <Saa:FileInfo>SwCompression=Zip</Saa:FileInfo>
    //                 </Saa:SWIFTNetNetworkInfo>
    //             </Saa:NetworkInfo>
    //             <Saa:SecurityInfo>
    //                 <Saa:SWIFTNetSecurityInfo>
    //                     <Saa:FileDigestAlgorithm>SHA-256</Saa:FileDigestAlgorithm>
    //                     <Saa:FileDigestValue>9tnnjIgsowPSU+ehm8Rb0J5TvZIvhCYnySzFkpur1aw=</Saa:FileDigestValue>
    //                 </Saa:SWIFTNetSecurityInfo>
    //             </Saa:SecurityInfo>
    //             <Saa:FileLogicalName>Payload.ZIP</Saa:FileLogicalName>
    //             <Saa:ExpiryDateTime>20210712074808</Saa:ExpiryDateTime>
    //         </Saa:Message>
    //     </Saa:Header>
    //     <Saa:Body>Payload.ZIP</Saa:Body>
    // </Saa:DataPDU>

    // Load the XML file to be signed.
    Get Create (RefClass(cComChilkatStringBuilder)) To hoSbXml
    If (Not(IsComObjectCreated(hoSbXml))) Begin
        Send CreateComObject of hoSbXml
    End
    Get ComLoadFile Of hoSbXml "c:/someDir/fileToSign.xml" "utf-8" To iSuccess
    If (iSuccess = False) Begin
        Showln "Failed to load XML file."
        Procedure_Return
    End

    // We need to add a "LAU" XML element just before the "</Saa:DataPDU>"
    Get ComReplace Of hoSbXml "</Saa:DataPDU>" '<LAU xmlns="urn:swift:saa:xsd:saa.2.0"></LAU></Saa:DataPDU>' To iNumReplaced

    Get Create (RefClass(cComChilkatXmlDSigGen)) To hoGen
    If (Not(IsComObjectCreated(hoGen))) Begin
        Send CreateComObject of hoGen
    End
    Set ComSigLocation Of hoGen To "Saa:DataPDU|LAU"
    Set ComSigLocationMod Of hoGen To 0
    Set ComSigNamespacePrefix Of hoGen To "ds"
    Set ComSigNamespaceUri Of hoGen To "http://www.w3.org/2000/09/xmldsig#"
    Set ComSignedInfoCanonAlg Of hoGen To "EXCL_C14N"
    Set ComSignedInfoDigestMethod Of hoGen To "sha256"
    Set ComBehaviors Of hoGen To "CompactSignedXml"

    // Sign the entire document.
    Get ComAddSameDocRef Of hoGen "" "sha256" "EXCL_C14N" "" "" To iSuccess

    // Set our HMAC key
    Get ComSetHmacKey Of hoGen "Abcdef0123456789Abcdef0123456789" "ascii" To iSuccess

    // Sign the XML:
    Get pvComObject of hoSbXml to vSbXml
    Get ComCreateXmlDSigSb Of hoGen vSbXml To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoGen To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Examine the signed XML
    Get ComGetAsString Of hoSbXml To sTemp1
    Showln sTemp1

    // Save the signed XML to a file.
    Get ComWriteFile Of hoSbXml "c:/someDir/signedFile.xml" "utf-8" False To iSuccess


End_Procedure