|
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
(AutoIt) Create Signed SOAP XML for Albanian Fiscalization ServiceImportant: This example requires Chilkat v9.5.0.80 or greater. This example is created for a customer that needs to send signed billing/invoicing SOAP XML requests to http://efiskalizimi-test.tatime.gov.al:80/FiscalizationService The example demonstrates how to create and signed the SOAP XML message that is to be sent.
; This example assumes 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. ; -------------------------------------------------------------------------------- ; We want to build and send a signed SOAP XML that looks like the following: ; ; <?xml version="1.0" encoding="utf-8"?> ; <SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"> ; <SOAP-ENV:Header/> ; <SOAP-ENV:Body> ; <RegisterWTNRequest xmlns="https://eFiskalizimi.tatime.gov.al/FiscalizationService/schema" xmlns:ns2="http://www.w3.org/2000/09/xmldsig#" Id="Request"> ; <Header SendDateTime="2019-09-03T14:19:01+02:00" UUID="42db3af5-0d9f-4dea-95b4-4b947ab8d8e7"/> ; <WTN BusinUnit="bb123bb123" DateTimeCreated="2019-09-03T14:19:01+02:00" DestinAddr="Destination address" ; DestinCity="Destination city" IsAfterDel="false" OperatorCode="oo123oo123" ; SoftNum="ss123ss123" StartAddr="Start address" StartCity="Start city" TransDate="2019-09-03T14:19:01+02:00" ; VehPlates="AA0000AA" WTNIC="5C5E58580D0A24E1F7A5E5E011929511" WTNICSignature="82D69C38206D ... F5FCA48" WTNNum="12345678901"> ; <Issuer NUIS="I12345678I" Name="Issuer name"/> ; <Items> ; <I C="501234567890" N="Item name" Q="1.0" U="piece"/> ; </Items> ; </WTN> ; <Signature xmlns="http://www.w3.org/2000/09/xmldsig#"> ; <SignedInfo> ; <CanonicalizationMethod Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#"/> ; <SignatureMethod Algorithm="http://www.w3.org/2001/04/xmldsig-more#rsa-sha256"/> ; <Reference URI="#Request"> ; <Transforms> ; <Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature"/> ; <Transform Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#"/> ; </Transforms> ; <DigestMethod Algorithm="http://www.w3.org/2001/04/xmlenc#sha256"/> ; <DigestValue>aNa0r4RW04BlsAciTUrWHGW9PADskl2op315BAQ0hTg=</DigestValue> ; </Reference> ; </SignedInfo> ; <SignatureValue>4/j/d4j/5xCJ2YUP+XTC6li0B94...........................KESd38NT5+puArBcNgLYIjLx/dh6Q==</SignatureValue> ; <KeyInfo> ; <X509Data> ; <X509Certificate>MIIE6TCCAtGgAwIBAgICEA8wDQYJKoZIhvcNA......................uoqWsSuLmA==</X509Certificate> ; </X509Data> ; </KeyInfo> ; </Signature> ; </RegisterWTNRequest> ; </SOAP-ENV:Body> ; </SOAP-ENV:Envelope> Local $bSuccess = True ; Create the XML to be signed... $oXmlToSign = ObjCreate("Chilkat.Xml") $oXmlToSign.Tag = "SOAP-ENV:Envelope" $oXmlToSign.AddAttribute("xmlns:SOAP-ENV","http://schemas.xmlsoap.org/soap/envelope/") $oXmlToSign.UpdateChildContent "SOAP-ENV:Header","" $oXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest",True,"xmlns","https://eFiskalizimi.tatime.gov.al/FiscalizationService/schema") $oXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest",True,"xmlns:ns2","http://www.w3.org/2000/09/xmldsig#") $oXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest",True,"Id","Request") $oXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|Header",True,"SendDateTime","2019-09-03T14:19:01+02:00") $oXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|Header",True,"UUID","42db3af5-0d9f-4dea-95b4-4b947ab8d8e7") $oXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",True,"BusinUnit","bb123bb123") $oXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",True,"DateTimeCreated","2019-09-03T14:19:01+02:00") $oXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",True,"DestinAddr","Destination address") $oXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",True,"DestinCity","Destination city") $oXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",True,"IsAfterDel","false") $oXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",True,"OperatorCode","oo123oo123") $oXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",True,"SoftNum","ss123ss123") $oXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",True,"StartAddr","Start address") $oXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",True,"StartCity","Start city") $oXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",True,"TransDate","2019-09-03T14:19:01+02:00") $oXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",True,"VehPlates","AA0000AA") $oXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",True,"WTNIC","5C5E58580D0A24E1F7A5E5E011929511") $oXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",True,"WTNICSignature","82D69C38206D ... F5FCA48") $oXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",True,"WTNNum","12345678901") $oXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN|Issuer",True,"NUIS","I12345678I") $oXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN|Issuer",True,"Name","Issuer name") $oXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I",True,"C","501234567890") $oXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I",True,"N","Item name") $oXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I",True,"Q","1.0") $oXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I",True,"U","piece") $oGen = ObjCreate("Chilkat.XmlDSigGen") $oGen.SigLocation = "SOAP-ENV:Envelope|SOAP-ENV:Body|RegisterWTNRequest" $oGen.SigLocationMod = 0 $oGen.SigNamespacePrefix = "" $oGen.SigNamespaceUri = "http://www.w3.org/2000/09/xmldsig#" $oGen.SignedInfoCanonAlg = "EXCL_C14N" $oGen.SignedInfoDigestMethod = "sha256" ; -------- Reference 1 -------- $oGen.AddSameDocRef("Request","sha256","EXCL_C14N","","") ; Provide a certificate + private key. (PFX password is test123) $oCert = ObjCreate("Chilkat.Cert") $bSuccess = $oCert.LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123") If ($bSuccess <> True) Then ConsoleWrite($oCert.LastErrorText & @CRLF) Exit EndIf $oGen.SetX509Cert($oCert,True) $oGen.KeyInfoType = "X509Data" $oGen.X509Type = "Certificate" ; Load XML to be signed... $oSbXml = ObjCreate("Chilkat.StringBuilder") $oXmlToSign.GetXmlSb($oSbXml) $oGen.Behaviors = "CompactSignedXml,ForceAddEnvelopedSignatureTransform" ; Sign the XML... $bSuccess = $oGen.CreateXmlDSigSb($oSbXml) If ($bSuccess <> True) Then ConsoleWrite($oGen.LastErrorText & @CRLF) Exit EndIf ; ----------------------------------------------- ; Now to send the SOAP request.... ; Note: Chilkat did not actually test this by sending the request to the server. ; The example is a best-guess for how to do it... Local $strXml = $oSbXml.GetAsString() Local $iResponseStatusCode ; We'll need to add this in the HTTP header: ; SOAPAction: "https://eFiskalizimi.tatime.gov.al/FiscalizationService/RegisterWTN" ; Note: This is for the RegisterWTN request. ; You may wish to load the WSDL at https://efiskalizimi-test.tatime.gov.al/FiscalizationService-v1/FiscalizationService.wsdl into the SoapUI application to see ; the SOAP requests.. $oHttp = ObjCreate("Chilkat.Http") $oHttp.SetRequestHeader "SOAPAction","https://eFiskalizimi.tatime.gov.al/FiscalizationService/RegisterWTN" ; Some services expect the content-type in the HTTP header to be "application/xml" while ; other expect text/xml. The default sent by Chilkat is "application/xml", but this web service ; likely expects "text/xml". Therefore, change the content-type: $oHttp.SetRequestHeader "Content-Type","text/xml; charset=utf-8" ; The testing endpoint for this soap service is likely: Local $sEndPoint = "https://efiskalizimi-test.tatime.gov.al/FiscalizationService-v1" Local $oResp = $oHttp.PostXml($sEndPoint,$strXml,"utf-8") If ($oHttp.LastMethodSuccess <> True) Then ConsoleWrite($oHttp.LastErrorText & @CRLF) ConsoleWrite("LastHeader:" & @CRLF) ConsoleWrite($oHttp.LastHeader & @CRLF) Exit EndIf $iResponseStatusCode = $oResp.StatusCode ; Check that the responseStatusCode equals 200... ConsoleWrite("Response Status Code: " & $iResponseStatusCode & @CRLF) ; Examine the exact HTTP header sent with the POST like this: ConsoleWrite("LastHeader:" & @CRLF) ConsoleWrite($oHttp.LastHeader & @CRLF) ; Examine the XML returned by the web service: ConsoleWrite("XML Response:" & @CRLF) $oXmlResp = ObjCreate("Chilkat.Xml") $oXmlResp.LoadXml($oResp.BodyStr) ConsoleWrite($oXmlResp.GetXml() & @CRLF) ; Use this online tool to generate parsing code from response XML: ; Generate Parsing Code from XML |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.