(VB.NET UWP/WinRT) Create Signed SOAP XML for Albanian Fiscalization Service

Important: 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.

Chilkat Universal Windows Platform (UWP) / WinRT Downloads Chilkat for the Universal Windows Platform (UWP)

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

' 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>



Dim success As Boolean = True
' Create the XML to be signed...
Dim xmlToSign As New Chilkat.Xml
xmlToSign.Tag = "SOAP-ENV:Envelope"
xmlToSign.AddAttribute("xmlns:SOAP-ENV","http://schemas.xmlsoap.org/soap/envelope/")
xmlToSign.UpdateChildContent("SOAP-ENV:Header","")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest",True,"xmlns","https://eFiskalizimi.tatime.gov.al/FiscalizationService/schema")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest",True,"xmlns:ns2","http://www.w3.org/2000/09/xmldsig#")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest",True,"Id","Request")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|Header",True,"SendDateTime","2019-09-03T14:19:01+02:00")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|Header",True,"UUID","42db3af5-0d9f-4dea-95b4-4b947ab8d8e7")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",True,"BusinUnit","bb123bb123")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",True,"DateTimeCreated","2019-09-03T14:19:01+02:00")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",True,"DestinAddr","Destination address")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",True,"DestinCity","Destination city")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",True,"IsAfterDel","false")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",True,"OperatorCode","oo123oo123")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",True,"SoftNum","ss123ss123")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",True,"StartAddr","Start address")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",True,"StartCity","Start city")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",True,"TransDate","2019-09-03T14:19:01+02:00")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",True,"VehPlates","AA0000AA")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",True,"WTNIC","5C5E58580D0A24E1F7A5E5E011929511")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",True,"WTNICSignature","82D69C38206D ... F5FCA48")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",True,"WTNNum","12345678901")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN|Issuer",True,"NUIS","I12345678I")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN|Issuer",True,"Name","Issuer name")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I",True,"C","501234567890")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I",True,"N","Item name")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I",True,"Q","1.0")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I",True,"U","piece")


Dim gen As New Chilkat.XmlDSigGen

gen.SigLocation = "SOAP-ENV:Envelope|SOAP-ENV:Body|RegisterWTNRequest"
gen.SigLocationMod = 0
gen.SigNamespacePrefix = ""
gen.SigNamespaceUri = "http://www.w3.org/2000/09/xmldsig#"
gen.SignedInfoCanonAlg = "EXCL_C14N"
gen.SignedInfoDigestMethod = "sha256"

' -------- Reference 1 --------
gen.AddSameDocRef("Request","sha256","EXCL_C14N","","")

' 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
    Debug.WriteLine(cert.LastErrorText)
    Exit Sub
End If

gen.SetX509Cert(cert,True)

gen.KeyInfoType = "X509Data"
gen.X509Type = "Certificate"

' Load XML to be signed...
Dim sbXml As New Chilkat.StringBuilder
xmlToSign.GetXmlSb(sbXml)

gen.Behaviors = "CompactSignedXml,ForceAddEnvelopedSignatureTransform"

' Sign the XML...
success = gen.CreateXmlDSigSb(sbXml)
If (success <> True) Then
    Debug.WriteLine(gen.LastErrorText)
    Exit Sub
End If

' -----------------------------------------------
' 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...

Dim strXml As String = sbXml.GetAsString()

Dim responseStatusCode As Integer

' 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..
Dim http As New Chilkat.Http
http.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:
http.SetRequestHeader("Content-Type","text/xml; charset=utf-8")


' The testing endpoint for this soap service is likely:
Dim endPoint As String = "https://efiskalizimi-test.tatime.gov.al/FiscalizationService-v1"

Dim resp As Chilkat.HttpResponse = Await http.PostXmlAsync(endPoint,strXml,"utf-8")
If (http.LastMethodSuccess <> True) Then
    Debug.WriteLine(http.LastErrorText)
    Debug.WriteLine("LastHeader:")
    Debug.WriteLine(http.LastHeader)
    Exit Sub
End If


responseStatusCode = resp.StatusCode

' Check that the responseStatusCode equals 200...
Debug.WriteLine("Response Status Code: " & responseStatusCode)

' Examine the exact HTTP header sent with the POST like this:
Debug.WriteLine("LastHeader:")
Debug.WriteLine(http.LastHeader)

' Examine the XML returned by the web service:
Debug.WriteLine("XML Response:")
Dim xmlResp As New Chilkat.Xml
xmlResp.LoadXml(resp.BodyStr)
Debug.WriteLine(xmlResp.GetXml())

' Use this online tool to generate parsing code from response XML: 
' Generate Parsing Code from XML