|
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
(Perl) 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).
use chilkat(); $success = 1; # Create the XML to be signed... # Use this online tool to generate code from sample XML: # Generate Code to Create XML $xmlToSign = chilkat::CkXml->new(); $xmlToSign->put_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 electrnica"); $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 mercadera"); $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","Operacin 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 = chilkat::CkXmlDSigGen->new(); $gen->put_SigLocation("rDE"); $gen->put_SigLocationMod(0); $gen->put_SigNamespacePrefix(""); $gen->put_SigNamespaceUri("http://www.w3.org/2000/09/xmldsig#"); $gen->put_SignedInfoCanonAlg("C14N"); $gen->put_SignedInfoDigestMethod("sha256"); # -------- Reference 1 -------- $xml1 = chilkat::CkXml->new(); $xml1->put_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,""); # Provide a certificate + private key. (PFX password is test123) $cert = chilkat::CkCert->new(); $success = $cert->LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123"); if ($success != 1) { print $cert->lastErrorText() . "\r\n"; exit; } $gen->SetX509Cert($cert,1); $gen->put_KeyInfoType("X509Data"); $gen->put_X509Type("Certificate"); # Load XML to be signed... $sbXml = chilkat::CkStringBuilder->new(); $xmlToSign->GetXmlSb($sbXml); $gen->put_Behaviors("IndentedSignature"); # Sign the XML... $success = $gen->CreateXmlDSigSb($sbXml); if ($success != 1) { print $gen->lastErrorText() . "\r\n"; exit; } # ----------------------------------------------- # Save the signed XML to a file. $success = $sbXml->WriteFile("c:/temp/qa_output/signedXml.xml","utf-8",0); print $sbXml->getAsString() . "\r\n"; # ---------------------------------------- # Verify the signatures we just produced... $verifier = chilkat::CkXmlDSig->new(); $success = $verifier->LoadSignatureSb($sbXml); if ($success != 1) { print $verifier->lastErrorText() . "\r\n"; exit; } $numSigs = $verifier->get_NumSignatures(); $verifyIdx = 0; while ($verifyIdx < $numSigs) { $verifier->put_Selector($verifyIdx); $verified = $verifier->VerifySignature(1); if ($verified != 1) { print $verifier->lastErrorText() . "\r\n"; exit; } $verifyIdx = $verifyIdx + 1; } print "All signatures were successfully verified." . "\r\n"; |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.