Sample code for 30+ languages & platforms
Xbase++

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 Xbase++ Downloads

Download Chilkat for Xbase++
Xbase++ 
LOCAL nSuccess
LOCAL oXmlToSign
LOCAL oGen
LOCAL oXml1
LOCAL oCert
LOCAL oSbXml
LOCAL oVerifier
LOCAL nNumSigs
LOCAL nVerifyIdx
LOCAL nVerified

nSuccess := 0

nSuccess := 1

//  Create the XML to be signed...

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

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

oGen := CreateObject("Chilkat.XmlDSigGen")

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

//  -------- Reference 1 --------
oXml1 := CreateObject("Chilkat.Xml")
oXml1:Tag := "Transforms"
oXml1:UpdateAttrAt("Transform", 1, "Algorithm", "http://www.w3.org/2000/09/xmldsig#enveloped-signature")
oXml1:UpdateAttrAt("Transform[1]", 1, "Algorithm", "http://www.w3.org/2001/10/xml-exc-c14n#")

oGen:AddSameDocRef2("01800228774059001001501012022091516941989060", "sha256", oXml1, "")

//  Provide a certificate + private key. (PFX password is test123)
oCert := CreateObject("Chilkat.Cert")
nSuccess := oCert:LoadPfxFile("qa_data/pfx/cert_test123.pfx", "test123")
IF (nSuccess != 1)
    ? oCert:LastErrorText
    oXmlToSign:destroy()
    oGen:destroy()
    oXml1:destroy()
    oCert:destroy()
    RETURN
ENDIF

oGen:SetX509Cert(oCert, 1)

oGen:KeyInfoType := "X509Data"
oGen:X509Type := "Certificate"

//  Load XML to be signed...
oSbXml := CreateObject("Chilkat.StringBuilder")
oXmlToSign:GetXmlSb(oSbXml)

oGen:Behaviors := "IndentedSignature"

//  Sign the XML...
nSuccess := oGen:CreateXmlDSigSb(oSbXml)
IF (nSuccess != 1)
    ? oGen:LastErrorText
    oXmlToSign:destroy()
    oGen:destroy()
    oXml1:destroy()
    oCert:destroy()
    oSbXml:destroy()
    RETURN
ENDIF

//  -----------------------------------------------

//  Save the signed XML to a file.
nSuccess := oSbXml:WriteFile("c:/temp/qa_output/signedXml.xml", "utf-8", 0)

? oSbXml:GetAsString()

//  ----------------------------------------
//  Verify the signatures we just produced...
oVerifier := CreateObject("Chilkat.XmlDSig")
nSuccess := oVerifier:LoadSignatureSb(oSbXml)
IF (nSuccess != 1)
    ? oVerifier:LastErrorText
    oXmlToSign:destroy()
    oGen:destroy()
    oXml1:destroy()
    oCert:destroy()
    oSbXml:destroy()
    oVerifier:destroy()
    RETURN
ENDIF

nNumSigs := oVerifier:NumSignatures
nVerifyIdx := 0
DO WHILE nVerifyIdx < nNumSigs
    oVerifier:Selector := nVerifyIdx
    nVerified := oVerifier:VerifySignature(1)
    IF (nVerified != 1)
        ? oVerifier:LastErrorText
        oXmlToSign:destroy()
        oGen:destroy()
        oXml1:destroy()
        oCert:destroy()
        oSbXml:destroy()
        oVerifier:destroy()
        RETURN
    ENDIF

    nVerifyIdx := nVerifyIdx + 1
ENDDO
? "All signatures were successfully verified."

oXmlToSign:destroy()
oGen:destroy()
oXml1:destroy()
oCert:destroy()
oSbXml:destroy()
oVerifier:destroy()