Sample code for 30+ languages & platforms
B4X

Paraguay E-Invoicing Signed XML (SIFEN)

See more XML Digital Signatures Examples

Demonstrates how to sign XML for e-invoicing -- SISTEMA INTEGRADO DE FACTURACIÓN ELECTRÓNICA NACIONAL (SIFEN). This is for signing XML files that need to be submitted to a government agency (Country Paraguay, SIFEN / EKUATIA, Sistema Nacional de Facturacion Electrónica).

Chilkat B4X Downloads

Download Chilkat for B4X
B4X 
Dim success As Boolean = False

success = True

'  Create the XML to be signed...

'  Use this online tool to generate code from sample XML: 
'  Generate Code to Create XML

Dim xmlToSign As ChilkatXml
xmlToSign.Initialize
xmlToSign.Tag = "rDE"
xmlToSign.AddAttribute("xmlns", "http://ekuatia.set.gov.py/sifen/xsd")
xmlToSign.AddAttribute("xmlns:xsi", "http://www.w3.org/2001/XMLSchema-instance")
xmlToSign.AddAttribute("xsi:schemaLocation", "http://ekuatia.set.gov.py/sifen/xsd siRecepDE_v150.xsd")
xmlToSign.UpdateChildContent("dVerFor", "150")
xmlToSign.UpdateAttrAt("DE", True, "Id", "01800228774059001001501012022091519999999990")
xmlToSign.UpdateChildContent("DE|dDVId", "0")
xmlToSign.UpdateChildContent("DE|dFecFirma", "2022-09-15T10:23:05")
xmlToSign.UpdateChildContent("DE|dSisFact", "1")
xmlToSign.UpdateChildContent("DE|gOpeDE|iTipEmi", "1")
xmlToSign.UpdateChildContent("DE|gOpeDE|dDesTipEmi", "Normal")
xmlToSign.UpdateChildContent("DE|gOpeDE|dCodSeg", "999999999")
xmlToSign.UpdateChildContent("DE|gOpeDE|dInfoEmi", "GENERADA DE PEDIDO 131043202")
xmlToSign.UpdateChildContent("DE|gTimb|iTiDE", "1")
xmlToSign.UpdateChildContent("DE|gTimb|dDesTiDE", "Factura electr�nica")
xmlToSign.UpdateChildContent("DE|gTimb|dNumTim", "18889014")
xmlToSign.UpdateChildContent("DE|gTimb|dEst", "059")
xmlToSign.UpdateChildContent("DE|gTimb|dPunExp", "001")
xmlToSign.UpdateChildContent("DE|gTimb|dNumDoc", "0015010")
xmlToSign.UpdateChildContent("DE|gTimb|dFeIniT", "2022-05-25")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|dFeEmiDE", "2022-09-15T10:22:57")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|gOpeCom|iTipTra", "1")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|gOpeCom|dDesTipTra", "Venta de mercader�a")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|gOpeCom|iTImp", "1")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|gOpeCom|dDesTImp", "IVA")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|gOpeCom|cMoneOpe", "PYG")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|gOpeCom|dDesMoneOpe", "Guarani")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|gEmis|dRucEm", "80022877")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|gEmis|dDVEmi", "4")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|gEmis|iTipCont", "1")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|gEmis|cTipReg", "1")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|gEmis|dNomEmi", "ABCDEF SA")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|gEmis|dNomFanEmi", "ABCDEF SA")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|gEmis|dDirEmi", "Jos� Abcde Xyz N� 666 e/Abxyz123")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|gEmis|dNumCas", "0")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|gEmis|dCompDir1", "N/A")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|gEmis|dCompDir2", "N/A")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|gEmis|cDepEmi", "12")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|gEmis|dDesDepEmi", "CENTRAL")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|gEmis|cDisEmi", "153")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|gEmis|dDesDisEmi", "CAPIATA")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|gEmis|cCiuEmi", "1234")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|gEmis|dDesCiuEmi", "CAPIATA")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|gEmis|dTelEmi", "(022) 1111 000")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|gEmis|dEmailE", "somebody@example.com.py")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|gEmis|dDenSuc", "PUNTO 99")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|gEmis|gActEco|cActEco", "47721")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|gEmis|gActEco|dDesActEco", "COMERCIO AL POR MENOR DE PRODUCTOS")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|gDatRec|iNatRec", "1")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|gDatRec|iTiOpe", "2")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|gDatRec|cPaisRec", "PRY")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|gDatRec|dDesPaisRe", "Paraguay")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|gDatRec|iTiContRec", "2")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|gDatRec|dRucRec", "80082971")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|gDatRec|dDVRec", "9")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|gDatRec|dNomRec", "XXXXXXX")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|gDatRec|dNomFanRec", "XXXXXXX")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|gDatRec|dNumCasRec", "0")
xmlToSign.UpdateChildContent("DE|gDatGralOpe|gDatRec|dCodCliente", "9999999")
xmlToSign.UpdateChildContent("DE|gDtipDE|gCamFE|iIndPres", "1")
xmlToSign.UpdateChildContent("DE|gDtipDE|gCamFE|dDesIndPres", "Operaci�n presencial")
xmlToSign.UpdateChildContent("DE|gDtipDE|gCamCond|iCondOpe", "1")
xmlToSign.UpdateChildContent("DE|gDtipDE|gCamCond|dDCondOpe", "Contado")
xmlToSign.UpdateChildContent("DE|gDtipDE|gCamCond|gPaConEIni|iTiPago", "1")
xmlToSign.UpdateChildContent("DE|gDtipDE|gCamCond|gPaConEIni|dDesTiPag", "Efectivo")
xmlToSign.UpdateChildContent("DE|gDtipDE|gCamCond|gPaConEIni|dMonTiPag", "100000.0000")
xmlToSign.UpdateChildContent("DE|gDtipDE|gCamCond|gPaConEIni|cMoneTiPag", "PYG")
xmlToSign.UpdateChildContent("DE|gDtipDE|gCamCond|gPaConEIni|dDMoneTiPag", "Guarani")
xmlToSign.UpdateChildContent("DE|gDtipDE|gCamCond|gPaConEIni[1]|iTiPago", "1")
xmlToSign.UpdateChildContent("DE|gDtipDE|gCamCond|gPaConEIni[1]|dDesTiPag", "Efectivo")
xmlToSign.UpdateChildContent("DE|gDtipDE|gCamCond|gPaConEIni[1]|dMonTiPag", "73600.0000")
xmlToSign.UpdateChildContent("DE|gDtipDE|gCamCond|gPaConEIni[1]|cMoneTiPag", "PYG")
xmlToSign.UpdateChildContent("DE|gDtipDE|gCamCond|gPaConEIni[1]|dDMoneTiPag", "Guarani")
xmlToSign.UpdateChildContent("DE|gDtipDE|gCamItem|dCodInt", "818181")
xmlToSign.UpdateChildContent("DE|gDtipDE|gCamItem|dDesProSer", "Widget Abc Xyz")
xmlToSign.UpdateChildContent("DE|gDtipDE|gCamItem|cUniMed", "77")
xmlToSign.UpdateChildContent("DE|gDtipDE|gCamItem|dDesUniMed", "UNI")
xmlToSign.UpdateChildContent("DE|gDtipDE|gCamItem|dCantProSer", "2.0000")
xmlToSign.UpdateChildContent("DE|gDtipDE|gCamItem|gValorItem|dPUniProSer", "16500.0000")
xmlToSign.UpdateChildContent("DE|gDtipDE|gCamItem|gValorItem|dTotBruOpeItem", "33000.0000")
xmlToSign.UpdateChildContent("DE|gDtipDE|gCamItem|gValorItem|gValorRestaItem|dDescItem", "3300.0000")
xmlToSign.UpdateChildContent("DE|gDtipDE|gCamItem|gValorItem|gValorRestaItem|dPorcDesIt", "20.0000")
xmlToSign.UpdateChildContent("DE|gDtipDE|gCamItem|gValorItem|gValorRestaItem|dTotOpeItem", "26400.0000")
xmlToSign.UpdateChildContent("DE|gDtipDE|gCamItem|gCamIVA|iAfecIVA", "1")
xmlToSign.UpdateChildContent("DE|gDtipDE|gCamItem|gCamIVA|dDesAfecIVA", "Gravado IVA")
xmlToSign.UpdateChildContent("DE|gDtipDE|gCamItem|gCamIVA|dPropIVA", "100")
xmlToSign.UpdateChildContent("DE|gDtipDE|gCamItem|gCamIVA|dTasaIVA", "5")
xmlToSign.UpdateChildContent("DE|gDtipDE|gCamItem|gCamIVA|dBasGravIVA", "25142.8571")
xmlToSign.UpdateChildContent("DE|gDtipDE|gCamItem|gCamIVA|dLiqIVAItem", "1257.1429")
xmlToSign.UpdateChildContent("DE|gTotSub|dSubExe", "0.0000")
xmlToSign.UpdateChildContent("DE|gTotSub|dSub5", "26400.0000")
xmlToSign.UpdateChildContent("DE|gTotSub|dSub10", "0.0000")
xmlToSign.UpdateChildContent("DE|gTotSub|dTotOpe", "26400.0000")
xmlToSign.UpdateChildContent("DE|gTotSub|dTotDesc", "6600.0000")
xmlToSign.UpdateChildContent("DE|gTotSub|dTotDescGlotem", "0.0000")
xmlToSign.UpdateChildContent("DE|gTotSub|dTotAntItem", "0.0000")
xmlToSign.UpdateChildContent("DE|gTotSub|dTotAnt", "0.0000")
xmlToSign.UpdateChildContent("DE|gTotSub|dPorcDescTotal", "0.0000")
xmlToSign.UpdateChildContent("DE|gTotSub|dDescTotal", "6600.0000")
xmlToSign.UpdateChildContent("DE|gTotSub|dAnticipo", "0.0000")
xmlToSign.UpdateChildContent("DE|gTotSub|dRedon", "0.0000")
xmlToSign.UpdateChildContent("DE|gTotSub|dTotGralOpe", "26400.0000")
xmlToSign.UpdateChildContent("DE|gTotSub|dIVA5", "1257.1429")
xmlToSign.UpdateChildContent("DE|gTotSub|dIVA10", "0.0000")
xmlToSign.UpdateChildContent("DE|gTotSub|dTotIVA", "1257.1429")
xmlToSign.UpdateChildContent("DE|gTotSub|dBaseGrav5", "25142.8571")
xmlToSign.UpdateChildContent("DE|gTotSub|dBaseGrav10", "0.0000")
xmlToSign.UpdateChildContent("DE|gTotSub|dTBasGraIVA", "25142.8571")

Dim gen As ChilkatXmlDSigGen
gen.Initialize("gen")

gen.SigLocation = "rDE"
gen.SigLocationMod = 0
gen.SigNamespacePrefix = ""
gen.SigNamespaceUri = "http://www.w3.org/2000/09/xmldsig#"
gen.SignedInfoCanonAlg = "C14N"
gen.SignedInfoDigestMethod = "sha256"

'  -------- Reference 1 --------
Dim xml1 As ChilkatXml
xml1.Initialize
xml1.Tag = "Transforms"
xml1.UpdateAttrAt("Transform", True, "Algorithm", "http://www.w3.org/2000/09/xmldsig#enveloped-signature")
xml1.UpdateAttrAt("Transform[1]", True, "Algorithm", "http://www.w3.org/2001/10/xml-exc-c14n#")

gen.AddSameDocRef2("01800228774059001001501012022091516941989060", "sha256", xml1, "")

'  Provide a certificate + private key. (PFX password is test123)
Dim cert As ChilkatCert
cert.Initialize("cert")
success = cert.LoadPfxFile("qa_data/pfx/cert_test123.pfx", "test123")
If success <> True Then
    Log(cert.LastErrorText)
    Return
End If

gen.SetX509Cert(cert, True)

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

'  Load XML to be signed...
Dim sbXml As ChilkatStringBuilder
sbXml.Initialize
xmlToSign.GetXmlSb(sbXml)

gen.Behaviors = "IndentedSignature"

'  Sign the XML...
success = gen.CreateXmlDSigSb(sbXml)
If success <> True Then
    Log(gen.LastErrorText)
    Return
End If

'  -----------------------------------------------

'  Save the signed XML to a file.
success = sbXml.WriteFile("c:/temp/qa_output/signedXml.xml", "utf-8", False)

Log(sbXml.GetAsString)

'  ----------------------------------------
'  Verify the signatures we just produced...
Dim verifier As ChilkatXmlDSig
verifier.Initialize
success = verifier.LoadSignatureSb(sbXml)
If success <> True Then
    Log(verifier.LastErrorText)
    Return
End If


Dim numSigs As Int = verifier.NumSignatures
Dim verifyIdx As Int = 0
Do While verifyIdx < numSigs
    verifier.Selector = verifyIdx
    Dim verified As Boolean = verifier.VerifySignature(True)
    If verified <> True Then
        Log(verifier.LastErrorText)
        Return
    End If

    verifyIdx = verifyIdx + 1
Loop
Log("All signatures were successfully verified.")