|
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
(Visual Basic 6.0) Create IRS MeF Login Service Request MessageThis example demonstrates how to create a digitally signed Login Service Request Message. This example used the documentation at https://www.irs.gov/pub/irs-utl/mef-doc-stp_ref_guide.pdf as a guide. It creates signed XML as specified in section 4.1.1 found in Section 4: Example A2A Web Service Messages.
' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' -------------------------------------------------------------------------------- ' Also see Chilkat's Online WSDL Code Generator ' to generate code and SOAP Request and Response XML for each operation in a WSDL. ' -------------------------------------------------------------------------------- ' The goal of this example is to create signed SOAP XML such as the following: ' <?xml version="1.0" encoding="UTF-8"?> ' <SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> ' <SOAP-ENV:Header> ' <wsse:Security xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd"> ' <wsse:BinarySecurityToken ' xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd" ' 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#X509v3" ' wsu:Id="CertId-1673181727">MIIHab...n71P</wsse:BinarySecurityToken> ' <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#rsa-sha256"/> ' <ds:Reference URI="#id-1214941501"> ' <ds:Transforms> ' <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>abcdefghijkLMNOPQRSTUVwxyz012345Em0o3VEOTck=</ds:DigestValue> ' </ds:Reference> ' <ds:Reference URI="#id-1871558655"> ' <ds:Transforms> ' <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>abcdefghijkLMNOPQRSTUVwxyz012345Xm5ViA+royg=</ds:DigestValue> ' </ds:Reference> ' </ds:SignedInfo> ' <ds:SignatureValue>abcd...5Nbw==</ds:SignatureValue> ' <ds:KeyInfo Id="KeyId-256137097"> ' <wsse:SecurityTokenReference xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd" wsu:Id="STRId-1862925355"> ' <wsse:Reference URI="#CertId-1673181727" ValueType="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-x509-token-profile-1.0#X509v3"/> ' </wsse:SecurityTokenReference> ' </ds:KeyInfo> ' </ds:Signature> ' </wsse:Security> ' <ns1:MeFHeader xmlns:ns1="http://www.irs.gov/a2a/mef/MeFHeader.xsd" xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd" wsu:Id="id-1214941501"> ' <ns1:MessageID>12345202018200000234</ns1:MessageID> ' <ns1:Action>Login</ns1:Action> ' <ns1:MessageTs>2020-06-30T15:25:42.678Z</ns1:MessageTs> ' <ns1:ETIN>12345</ns1:ETIN> ' <ns1:SessionKeyCd>Y</ns1:SessionKeyCd> ' <ns1:TestCd>P</ns1:TestCd> ' <ns1:AppSysID>65432190</ns1:AppSysID> ' <ns1:WSDLVersionNum>10.3</ns1:WSDLVersionNum> ' <ns1:ClientSoftwareTxt>SOATest</ns1:ClientSoftwareTxt> ' </ns1:MeFHeader> ' </SOAP-ENV:Header> ' <SOAP-ENV:Body xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd" wsu:Id="id-1871558655"> ' <LoginRequest xmlns="http://www.irs.gov/a2a/mef/MeFMSIServices.xsd"/> ' </SOAP-ENV:Body> ' </SOAP-ENV:Envelope> ' ------------------------------------------------------------------------------------------- ' First, let's load the certificate + private key to be used for signing (from a PFX). ' (It is also possible to use certificates installed on a Windows system, or from other file formats..) Dim pfx As New ChilkatPfx Dim success As Long success = pfx.LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123") If (success <> 1) Then Debug.Print pfx.LastErrorText Exit Sub End If ' We'll be needing the X.509 signing cert as base64 for the BinarySecurityToken, so let's get it now.. ' The certificate having the private key should be the 1st in the PFX. Dim signingCert As ChilkatCert Set signingCert = pfx.GetCert(0) If (pfx.LastMethodSuccess <> 1) Then Debug.Print pfx.LastErrorText Exit Sub End If Dim bdCert As New ChilkatBinData success = signingCert.ExportCertDerBd(bdCert) Dim sbCert64 As New ChilkatStringBuilder success = bdCert.GetEncodedSb("base64",sbCert64) ' ------------------------------------------------------------------------------------------- ' The XML before signing would look like this: ' <?xml version="1.0" encoding="UTF-8"?> ' <SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> ' <SOAP-ENV:Header> ' <wsse:Security xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd"> ' <wsse:BinarySecurityToken ' xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd" ' 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#X509v3" ' wsu:Id="CertId-1673181727">MIIHab...n71P</wsse:BinarySecurityToken> ' </wsse:Security> ' <ns1:MeFHeader xmlns:ns1="http://www.irs.gov/a2a/mef/MeFHeader.xsd" xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd" wsu:Id="id-1214941501"> ' <ns1:MessageID>12345202018200000234</ns1:MessageID> ' <ns1:Action>Login</ns1:Action> ' <ns1:MessageTs>2020-06-30T15:25:42.678Z</ns1:MessageTs> ' <ns1:ETIN>12345</ns1:ETIN> ' <ns1:SessionKeyCd>Y</ns1:SessionKeyCd> ' <ns1:TestCd>P</ns1:TestCd> ' <ns1:AppSysID>65432190</ns1:AppSysID> ' <ns1:WSDLVersionNum>10.3</ns1:WSDLVersionNum> ' <ns1:ClientSoftwareTxt>SOATest</ns1:ClientSoftwareTxt> ' </ns1:MeFHeader> ' </SOAP-ENV:Header> ' <SOAP-ENV:Body xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd" wsu:Id="id-1871558655"> ' <LoginRequest xmlns="http://www.irs.gov/a2a/mef/MeFMSIServices.xsd"/> ' </SOAP-ENV:Body> ' </SOAP-ENV:Envelope> ' You can use the online XML code generation tool at http://tools.chilkat.io/xmlCreate.cshtml ' to generate the following XML creation source code: ' Create the XML to be signed... Dim xmlToSign As New ChilkatXml xmlToSign.Tag = "SOAP-ENV:Envelope" success = xmlToSign.AddAttribute("xmlns:SOAP-ENV","http://schemas.xmlsoap.org/soap/envelope/") success = xmlToSign.AddAttribute("xmlns:xsd","http://www.w3.org/2001/XMLSchema") success = xmlToSign.AddAttribute("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance") success = xmlToSign.UpdateAttrAt("SOAP-ENV:Header|wsse:Security",1,"xmlns:wsse","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd") success = xmlToSign.UpdateAttrAt("SOAP-ENV:Header|wsse:Security|wsse:BinarySecurityToken",1,"xmlns:wsu","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd") success = xmlToSign.UpdateAttrAt("SOAP-ENV:Header|wsse:Security|wsse:BinarySecurityToken",1,"EncodingType","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-soap-message-security-1.0#Base64Binary") success = xmlToSign.UpdateAttrAt("SOAP-ENV:Header|wsse:Security|wsse:BinarySecurityToken",1,"ValueType","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-x509-token-profile-1.0#X509v3") success = xmlToSign.UpdateAttrAt("SOAP-ENV:Header|wsse:Security|wsse:BinarySecurityToken",1,"wsu:Id","CertId-1673181727") xmlToSign.UpdateChildContent "SOAP-ENV:Header|wsse:Security|wsse:BinarySecurityToken",sbCert64.GetAsString() success = xmlToSign.UpdateAttrAt("SOAP-ENV:Header|ns1:MeFHeader",1,"xmlns:ns1","http://www.irs.gov/a2a/mef/MeFHeader.xsd") success = xmlToSign.UpdateAttrAt("SOAP-ENV:Header|ns1:MeFHeader",1,"xmlns:wsu","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd") success = xmlToSign.UpdateAttrAt("SOAP-ENV:Header|ns1:MeFHeader",1,"wsu:Id","id-1214941501") xmlToSign.UpdateChildContent "SOAP-ENV:Header|ns1:MeFHeader|ns1:MessageID","12345202018200000234" xmlToSign.UpdateChildContent "SOAP-ENV:Header|ns1:MeFHeader|ns1:Action","Login" xmlToSign.UpdateChildContent "SOAP-ENV:Header|ns1:MeFHeader|ns1:MessageTs","2020-06-30T15:25:42.678Z" xmlToSign.UpdateChildContentInt "SOAP-ENV:Header|ns1:MeFHeader|ns1:ETIN",12345 xmlToSign.UpdateChildContent "SOAP-ENV:Header|ns1:MeFHeader|ns1:SessionKeyCd","Y" xmlToSign.UpdateChildContent "SOAP-ENV:Header|ns1:MeFHeader|ns1:TestCd","P" xmlToSign.UpdateChildContentInt "SOAP-ENV:Header|ns1:MeFHeader|ns1:AppSysID",65432190 xmlToSign.UpdateChildContent "SOAP-ENV:Header|ns1:MeFHeader|ns1:WSDLVersionNum","10.3" xmlToSign.UpdateChildContent "SOAP-ENV:Header|ns1:MeFHeader|ns1:ClientSoftwareTxt","SOATest" success = xmlToSign.UpdateAttrAt("SOAP-ENV:Body",1,"xmlns:wsu","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd") success = xmlToSign.UpdateAttrAt("SOAP-ENV:Body",1,"wsu:Id","id-1871558655") success = xmlToSign.UpdateAttrAt("SOAP-ENV:Body|LoginRequest",1,"xmlns","http://www.irs.gov/a2a/mef/MeFMSIServices.xsd") ' ------------------------------------------------------------------------------------------- ' Setup the XML DSig generator object to create the desired signature. Dim gen As New ChilkatXmlDSigGen gen.SigLocation = "SOAP-ENV:Envelope|SOAP-ENV:Header|wsse:Security" gen.SigLocationMod = 0 gen.SigNamespacePrefix = "ds" gen.SigNamespaceUri = "http://www.w3.org/2000/09/xmldsig#" gen.SignedInfoCanonAlg = "EXCL_C14N" gen.SignedInfoDigestMethod = "sha256" ' Set the KeyInfoId before adding references.. gen.KeyInfoId = "KeyId-256137097" ' -------- Reference 1 -------- success = gen.AddSameDocRef("id-1214941501","sha256","EXCL_C14N","","") ' -------- Reference 2 -------- success = gen.AddSameDocRef("id-1871558655","sha256","EXCL_C14N","","") ' Provide a certificate + private key. (PFX password is test123) Dim cert As New ChilkatCert success = cert.LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123") If (success <> 1) Then Debug.Print cert.LastErrorText Exit Sub End If success = gen.SetX509Cert(cert,1) gen.KeyInfoType = "Custom" ' Create the custom KeyInfo XML.. Dim xmlCustomKeyInfo As New ChilkatXml xmlCustomKeyInfo.Tag = "wsse:SecurityTokenReference" success = xmlCustomKeyInfo.AddAttribute("xmlns:wsu","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd") success = xmlCustomKeyInfo.AddAttribute("wsu:Id","STRId-1862925355") success = xmlCustomKeyInfo.UpdateAttrAt("wsse:Reference",1,"URI","#CertId-1673181727") success = xmlCustomKeyInfo.UpdateAttrAt("wsse:Reference",1,"ValueType","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-x509-token-profile-1.0#X509v3") xmlCustomKeyInfo.EmitXmlDecl = 0 gen.CustomKeyInfoXml = xmlCustomKeyInfo.GetXml() ' ------------------------------------------------------------------------------------------- ' Load XML to be signed... Dim sbXml As New ChilkatStringBuilder success = xmlToSign.GetXmlSb(sbXml) ' Update BinarySecurityToken_Base64Binary_Content with the actual X509 of the signing cert. Dim nReplaced As Long nReplaced = sbXml.Replace("BinarySecurityToken_Base64Binary_Content",cert.GetEncoded()) gen.Behaviors = "IndentedSignature" ' Sign the XML... success = gen.CreateXmlDSigSb(sbXml) If (success <> 1) Then Debug.Print gen.LastErrorText Exit Sub End If ' ----------------------------------------------- ' Save the signed XML to a file. success = sbXml.WriteFile("c:/temp/qa_output/signedXml.xml","utf-8",0) Debug.Print sbXml.GetAsString() |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.