|
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
(Delphi ActiveX) Paraguay E-Invoicing Signed XML (SIFEN)See more XML Digital Signatures ExamplesDemonstrates 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).
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB; ... procedure TForm1.Button1Click(Sender: TObject); var success: Integer; xmlToSign: TChilkatXml; gen: TChilkatXmlDSigGen; xml1: TChilkatXml; cert: TChilkatCert; sbXml: TChilkatStringBuilder; verifier: TChilkatXmlDSig; numSigs: Integer; verifyIdx: Integer; verified: Integer; begin success := 1; // Create the XML to be signed... // Use this online tool to generate code from sample XML: // Generate Code to Create XML xmlToSign := TChilkatXml.Create(Self); 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',1,'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'); gen := TChilkatXmlDSigGen.Create(Self); 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 -------- xml1 := TChilkatXml.Create(Self); xml1.Tag := 'Transforms'; xml1.UpdateAttrAt('Transform',1,'Algorithm','http://www.w3.org/2000/09/xmldsig#enveloped-signature'); xml1.UpdateAttrAt('Transform[1]',1,'Algorithm','http://www.w3.org/2001/10/xml-exc-c14n#'); gen.AddSameDocRef2('01800228774059001001501012022091516941989060','sha256',xml1.ControlInterface,''); // Provide a certificate + private key. (PFX password is test123) cert := TChilkatCert.Create(Self); success := cert.LoadPfxFile('qa_data/pfx/cert_test123.pfx','test123'); if (success <> 1) then begin Memo1.Lines.Add(cert.LastErrorText); Exit; end; gen.SetX509Cert(cert.ControlInterface,1); gen.KeyInfoType := 'X509Data'; gen.X509Type := 'Certificate'; // Load XML to be signed... sbXml := TChilkatStringBuilder.Create(Self); xmlToSign.GetXmlSb(sbXml.ControlInterface); gen.Behaviors := 'IndentedSignature'; // Sign the XML... success := gen.CreateXmlDSigSb(sbXml.ControlInterface); if (success <> 1) then begin Memo1.Lines.Add(gen.LastErrorText); Exit; end; // ----------------------------------------------- // Save the signed XML to a file. success := sbXml.WriteFile('c:/temp/qa_output/signedXml.xml','utf-8',0); Memo1.Lines.Add(sbXml.GetAsString()); // ---------------------------------------- // Verify the signatures we just produced... verifier := TChilkatXmlDSig.Create(Self); success := verifier.LoadSignatureSb(sbXml.ControlInterface); if (success <> 1) then begin Memo1.Lines.Add(verifier.LastErrorText); Exit; end; numSigs := verifier.NumSignatures; verifyIdx := 0; while verifyIdx < numSigs do begin verifier.Selector := verifyIdx; verified := verifier.VerifySignature(1); if (verified <> 1) then begin Memo1.Lines.Add(verifier.LastErrorText); Exit; end; verifyIdx := verifyIdx + 1; end; Memo1.Lines.Add('All signatures were successfully verified.'); end; |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.