Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Xojo Plugin) Sign SOAP XML for New Zealand Customs ServiceSee more XAdES ExamplesDemonstrates how to create an XAdES signed SOAP XML pertaining to the New Zealand Customs Service. Note: This example requires Chilkat v9.5.0.96 or later.
// This example assumes the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. Dim success As Boolean success = True // Create the following XML to be signed: // <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" // xmlns:v1="http://customs.govt.nz/jbms/msggate/reqresp/v1"> // <soapenv:Header> // <wsse:Security soapenv:mustUnderstand="1" // 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"> // <wsu:Timestamp wsu:Id="TS-037E78514E9B9132CB16817563559151"> // <wsu:Created>2023-04-17T18:32:35.913Z</wsu:Created> // <wsu:Expires>2023-04-17T19:32:35.913Z</wsu:Expires> // </wsu:Timestamp> // </wsse:Security> // </soapenv:Header> // <soapenv:Body wsu:Id="id-8" // xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd"> // <v1:RequestResponse> // <v1:Submitter>TEST1234</v1:Submitter> // <v1:MailboxMsgId>999999</v1:MailboxMsgId> // </v1:RequestResponse> // </soapenv:Body> // </soapenv:Envelope> // Create a random ID like this: TS-037E78514E9B9132CB16817563559151 Dim tsId As New Chilkat.StringBuilder success = tsId.Append("TS-") success = tsId.AppendRandom(16,"hex") // STR-037E78514E9B9132CB16817563559614 Dim strId As New Chilkat.StringBuilder success = strId.Append("STR-") success = strId.AppendRandom(16,"hex") // KI-037E78514E9B9132CB16817563559583 Dim keyInfoId As New Chilkat.StringBuilder success = keyInfoId.Append("KI-") success = keyInfoId.AppendRandom(16,"hex") // Create a date/time for the current time with this format: 2023-04-17T18:32:35.913Z Dim dt As New Chilkat.CkDateTime success = dt.SetFromCurrentSystemTime() Dim sbNow As New Chilkat.StringBuilder success = sbNow.Append(dt.GetAsTimestamp(False)) // If we really need the milliseconds, we can replace the "Z" with ".000Z" // The server will also likely accept a timestamp without milliseconds, such as 2023-04-17T18:32:35Z Dim n As Int32 n = sbNow.Replace("Z",".000Z") Dim sbNowPlusOneHour As New Chilkat.StringBuilder success = dt.AddSeconds(3600) success = sbNowPlusOneHour.Append(dt.GetAsTimestamp(False)) n = sbNowPlusOneHour.Replace("Z",".000Z") Dim xmlToSign As New Chilkat.Xml xmlToSign.Tag = "soapenv:Envelope" success = xmlToSign.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/") success = xmlToSign.AddAttribute("xmlns:v1","http://customs.govt.nz/jbms/msggate/reqresp/v1") success = xmlToSign.UpdateAttrAt("soapenv:Header|wsse:Security",True,"soapenv:mustUnderstand","1") success = xmlToSign.UpdateAttrAt("soapenv:Header|wsse:Security",True,"xmlns:wsse","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd") success = xmlToSign.UpdateAttrAt("soapenv:Header|wsse:Security",True,"xmlns:wsu","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd") success = xmlToSign.UpdateAttrAt("soapenv:Header|wsse:Security|wsu:Timestamp",True,"wsu:Id",tsId.GetAsString()) xmlToSign.UpdateChildContent "soapenv:Header|wsse:Security|wsu:Timestamp|wsu:Created",sbNow.GetAsString() xmlToSign.UpdateChildContent "soapenv:Header|wsse:Security|wsu:Timestamp|wsu:Expires",sbNowPlusOneHour.GetAsString() success = xmlToSign.UpdateAttrAt("soapenv:Body",True,"wsu:Id","id-8") success = xmlToSign.UpdateAttrAt("soapenv:Body",True,"xmlns:wsu","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd") xmlToSign.UpdateChildContent "soapenv:Body|v1:RequestResponse|v1:Submitter","TEST1234" xmlToSign.UpdateChildContent "soapenv:Body|v1:RequestResponse|v1:MailboxMsgId","999999" Dim gen As New Chilkat.XmlDSigGen gen.SigLocation = "soapenv:Envelope|soapenv:Header|wsse:Security" gen.SigLocationMod = 0 gen.SigId = "SIG-037E78514E9B9132CB16817563559695" gen.SigNamespacePrefix = "ds" gen.SigNamespaceUri = "http://www.w3.org/2000/09/xmldsig#" gen.SignedInfoPrefixList = "soapenv v1" gen.IncNamespacePrefix = "ec" gen.IncNamespaceUri = "http://www.w3.org/2001/10/xml-exc-c14n#" gen.SignedInfoCanonAlg = "EXCL_C14N" gen.SignedInfoDigestMethod = "sha256" // Set the KeyInfoId before adding references.. gen.KeyInfoId = keyInfoId.GetAsString() // -------- Reference 1 -------- Dim xml1 As New Chilkat.Xml xml1.Tag = "ds:Transforms" success = xml1.UpdateAttrAt("ds:Transform",True,"Algorithm","http://www.w3.org/2001/10/xml-exc-c14n#") success = xml1.UpdateAttrAt("ds:Transform|ec:InclusiveNamespaces",True,"PrefixList","wsse soapenv v1") success = xml1.UpdateAttrAt("ds:Transform|ec:InclusiveNamespaces",True,"xmlns:ec","http://www.w3.org/2001/10/xml-exc-c14n#") success = gen.AddSameDocRef2(tsId.GetAsString(),"sha256",xml1,"") // -------- Reference 2 -------- Dim xml2 As New Chilkat.Xml xml2.Tag = "ds:Transforms" success = xml2.UpdateAttrAt("ds:Transform",True,"Algorithm","http://www.w3.org/2001/10/xml-exc-c14n#") success = xml2.UpdateAttrAt("ds:Transform|ec:InclusiveNamespaces",True,"PrefixList","v1") success = xml2.UpdateAttrAt("ds:Transform|ec:InclusiveNamespaces",True,"xmlns:ec","http://www.w3.org/2001/10/xml-exc-c14n#") success = gen.AddSameDocRef2("id-8","sha256",xml2,"") // Provide a certificate + private key. (PFX password is test123) Dim cert As New Chilkat.Cert success = cert.LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123") If (success <> True) Then System.DebugLog(cert.LastErrorText) Return End If success = gen.SetX509Cert(cert,True) gen.KeyInfoType = "Custom" // Create the custom KeyInfo XML.. Dim xmlCustomKeyInfo As New Chilkat.Xml xmlCustomKeyInfo.Tag = "wsse:SecurityTokenReference" success = xmlCustomKeyInfo.AddAttribute("wsu:Id",strId.GetAsString()) success = xmlCustomKeyInfo.UpdateAttrAt("wsse:KeyIdentifier",True,"EncodingType","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-soap-message-security-1.0#Base64Binary") success = xmlCustomKeyInfo.UpdateAttrAt("wsse:KeyIdentifier",True,"ValueType","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-x509-token-profile-1.0#X509v3") // Insert the single-line base64 of the signing certificate's DER cert.UncommonOptions = "Base64CertNoCRLF" xmlCustomKeyInfo.UpdateChildContent "wsse:KeyIdentifier",cert.GetEncoded() xmlCustomKeyInfo.EmitXmlDecl = False gen.CustomKeyInfoXml = xmlCustomKeyInfo.GetXml() // Load XML to be signed... Dim sbXml As New Chilkat.StringBuilder success = xmlToSign.GetXmlSb(sbXml) gen.Behaviors = "IndentedSignature" // Sign the XML... gen.VerboseLogging = True success = gen.CreateXmlDSigSb(sbXml) If (success <> True) Then System.DebugLog(gen.LastErrorText) Return End If // Save the signed XML to a file. success = sbXml.WriteFile("c:/temp/qa_output/signedXml.xml","utf-8",False) System.DebugLog(sbXml.GetAsString()) |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.