481 lines
16 KiB
Plaintext
481 lines
16 KiB
Plaintext
IMPORT os
|
|
IMPORT com
|
|
IMPORT XML
|
|
IMPORT UTIL
|
|
|
|
DEFINE url_semilla, url_validasemilla, url_autorizacion,
|
|
url_recepcion,url_consulta,xambiente STRING
|
|
DEFINE codigo,tokenxml,nombreFile,filexml,token,respuesta STRING
|
|
DEFINE doc xml.DomDocument
|
|
|
|
FUNCTION procesoEncf(fileporfirmar,ambiente)
|
|
DEFINE fileporfirmar,rtoken,ambiente STRING
|
|
|
|
IF ambiente <> "certificacion" THEN
|
|
IF ambiente <> "test" THEN
|
|
DISPLAY "no llego bien ",ambiente
|
|
RETURN
|
|
END IF
|
|
END IF
|
|
|
|
LET xambiente = ambiente
|
|
CALL urls()
|
|
|
|
CALL buscatoken() RETURNING codigo, tokenxml
|
|
|
|
IF codigo <> "200" THEN
|
|
DISPLAY "respuesta buscatoken: ",tokenxml," ",codigo
|
|
EXIT PROGRAM
|
|
END IF
|
|
|
|
|
|
# Create DomDocument object
|
|
LET doc = xml.DomDocument.Create()
|
|
# Notice that whitespaces are significant in cryptography,
|
|
# therefore it is recommended to remove unnecessary ones
|
|
CALL doc.setFeature("whitespace-in-element-content",FALSE)
|
|
|
|
CALL doc.loadFromString(tokenxml)
|
|
CALL doc.save("naceTokenString.xml")
|
|
|
|
#FIRMA SEMILLA
|
|
IF os.Path.exists("naceTokenString.xml") THEN
|
|
CALL firmasemilla()
|
|
ELSE
|
|
DISPLAY "NO PUDE CREAR SEMILLA"
|
|
RETURN
|
|
END IF
|
|
IF os.Path.exists("naceSignature.xml") THEN
|
|
CALL validasemilla() RETURNING codigo,respuesta
|
|
ELSE
|
|
DISPLAY "NO ENCONTRE LA SEMILLA FIRMADA"
|
|
RETURN
|
|
END IF
|
|
IF respuesta IS NOT NULL THEN
|
|
LET doc = xml.DomDocument.Create()
|
|
|
|
CALL doc.loadFromString(respuesta)
|
|
CALL doc.save("naceRespuestaValida.xml")
|
|
|
|
CALL gettoken() RETURNING rtoken
|
|
LET token = rtoken
|
|
ELSE
|
|
DISPLAY "NO TENEMOS RESPUESTA DE VALIDA SEMILLA"
|
|
RETURN
|
|
END IF
|
|
#FRIMA CON GENERO
|
|
LET filexml = fileporfirmar
|
|
CALL firmadocumento(fileporfirmar)
|
|
LET filexml = '.\\filesXML\\ncf31\\firmados\\',os.Path.baseName(filexml)
|
|
CALL enviafiles(token,filexml) RETURNING codigo,respuesta
|
|
DISPLAY "TOKEN: " , token," respuesta: ",codigo, " ",respuesta
|
|
|
|
END FUNCTION
|
|
FUNCTION firmadocumento(fileafirmar)
|
|
DEFINE doc xml.DomDocument
|
|
DEFINE doc2 xml.DomDocument
|
|
DEFINE root xml.DomNode
|
|
DEFINE node xml.DomNode
|
|
DEFINE signNode xml.DomNode
|
|
|
|
DEFINE sig xml.Signature
|
|
DEFINE key xml.CryptoKey
|
|
DEFINE cert xml.CryptoX509
|
|
DEFINE index INTEGER,
|
|
fileafirmar,filefirmado STRING
|
|
|
|
# Create DomDocument object
|
|
LET doc = xml.DomDocument.Create()
|
|
# Notice that whitespaces are significant in cryptography,
|
|
# therefore it is recommended to remove unnecessary ones
|
|
CALL doc.setFeature("whitespace-in-element-content",FALSE)
|
|
#LET fileafirmar = '.\\filesXML\\ncf31\\',fileafirmar
|
|
DISPLAY "file ",fileafirmar
|
|
LET filexml = fileafirmar
|
|
|
|
CALL doc.load(fileafirmar)
|
|
|
|
TRY
|
|
|
|
|
|
# Create rsa key
|
|
LET key = xml.CryptoKey.Create("http://www.w3.org/2001/04/xmldsig-more#rsa-sha256")
|
|
CALL key.loadPEM("onlyRSA.pem")
|
|
|
|
# Create an X509 certificate with the constructor of the CryptoX509 class.
|
|
LET cert = xml.CryptoX509.Create()
|
|
CALL cert.setFeature("X509Certificate",TRUE)
|
|
|
|
# Load the X509 certificate associated to the RSA or DSA private key into the CryptoKey object.
|
|
# CALL cert.loadPEM("cert509.crt")
|
|
CALL cert.loadPEM("onlyCert.pem")
|
|
# Create signature object with the key to use
|
|
LET sig = xml.Signature.Create()
|
|
# Assign the CryptoKey object to the Signature object.
|
|
CALL sig.setKey(KEY)
|
|
|
|
# Assign the CryptoX509 object to the Signature object.
|
|
CALL sig.setCertificate(cert)
|
|
|
|
# Set XML node to be signed. In our case, the entire document
|
|
# LET index = sig.createReference("",
|
|
# "http://www.w3.org/2001/04/xmlenc#sha256")
|
|
LET index = sig.createReference('""',
|
|
"http://www.w3.org/2001/04/xmlenc#sha256")
|
|
|
|
# Add enveloped method to not take the XML signature node into account
|
|
# when computing the entire document.
|
|
CALL sig.appendReferenceTransformation(index,
|
|
"http://www.w3.org/2000/09/xmldsig#enveloped-signature",doc.getDocumentElement())
|
|
# Set canonicalization method on the XML fragment to be signed.
|
|
# CALL sig.appendReferenceTransformation(index,
|
|
# "http://www.w3.org/2001/10/xml-exc-c14n#")
|
|
# Compute enveloped signature
|
|
CALL sig.compute(doc)
|
|
# Retrieve signature document
|
|
LET doc2=sig.getDocument()
|
|
# Append the signature node to the original document to get
|
|
# a valid enveloped signature
|
|
# Notice that the enveloped signature can be added anywhere in the
|
|
# original document
|
|
LET signNode = doc2.getDocumentElement() # Get Signature node
|
|
# Import it into the original document
|
|
LET node = doc.importNode(signNode,true)
|
|
# Retrieve the original document root node
|
|
LET root = doc.getDocumentElement()
|
|
|
|
# Append the signature node as last child of the original document
|
|
CALL root.appendChild(node)
|
|
# Save document with enveloped signature back to disk
|
|
CALL doc.setFeature("format-pretty-print",TRUE)
|
|
LET filefirmado = '.\\filesXML\\ncf31\\firmados\\',os.Path.baseName(fileafirmar)
|
|
CALL doc.save(filefirmado)
|
|
|
|
|
|
CATCH
|
|
DISPLAY "Unable to create an enveloped signature :",status," ",sqlca.sqlerrm
|
|
END TRY
|
|
|
|
END FUNCTION
|
|
FUNCTION firmasemilla()
|
|
DEFINE doc xml.DomDocument
|
|
DEFINE doc2 xml.DomDocument
|
|
DEFINE root xml.DomNode
|
|
DEFINE node xml.DomNode
|
|
DEFINE signNode xml.DomNode
|
|
|
|
DEFINE sig xml.Signature
|
|
DEFINE key xml.CryptoKey
|
|
DEFINE cert xml.CryptoX509
|
|
DEFINE index INTEGER
|
|
|
|
# Create DomDocument object
|
|
LET doc = xml.DomDocument.Create()
|
|
# Notice that whitespaces are significant in cryptography,
|
|
# therefore it is recommended to remove unnecessary ones
|
|
CALL doc.setFeature("whitespace-in-element-content",FALSE)
|
|
|
|
LET filexml = "naceTokenString.xml"
|
|
|
|
IF os.Path.exists(filexml) THEN
|
|
CALL doc.load(filexml)
|
|
ELSE
|
|
DISPLAY "NO LO ENCONTRE"
|
|
RETURN
|
|
END IF
|
|
TRY
|
|
|
|
# Create rsa key
|
|
LET key = xml.CryptoKey.Create("http://www.w3.org/2001/04/xmldsig-more#rsa-sha256")
|
|
CALL key.loadPEM("onlyRSA.pem")
|
|
|
|
# Create an X509 certificate with the constructor of the CryptoX509 class.
|
|
LET cert = xml.CryptoX509.Create()
|
|
CALL cert.setFeature("X509Certificate",TRUE)
|
|
|
|
# Load the X509 certificate associated to the RSA or DSA private key into the CryptoKey object.
|
|
# CALL cert.loadPEM("cert509.crt")
|
|
CALL cert.loadPEM("onlyCert.pem")
|
|
# Create signature object with the key to use
|
|
LET sig = xml.Signature.Create()
|
|
# Assign the CryptoKey object to the Signature object.
|
|
CALL sig.setKey(KEY)
|
|
|
|
# Assign the CryptoX509 object to the Signature object.
|
|
CALL sig.setCertificate(cert)
|
|
|
|
# Set XML node to be signed. In our case, the entire document
|
|
# LET index = sig.createReference("",
|
|
# "http://www.w3.org/2001/04/xmlenc#sha256")
|
|
LET index = sig.createReference('""',
|
|
"http://www.w3.org/2001/04/xmlenc#sha256")
|
|
|
|
# Add enveloped method to not take the XML signature node into account
|
|
# when computing the entire document.
|
|
CALL sig.appendReferenceTransformation(index,
|
|
"http://www.w3.org/2000/09/xmldsig#enveloped-signature",doc.getDocumentElement())
|
|
# Set canonicalization method on the XML fragment to be signed.
|
|
# CALL sig.appendReferenceTransformation(index,
|
|
# "http://www.w3.org/2001/10/xml-exc-c14n#")
|
|
# Compute enveloped signature
|
|
CALL sig.compute(doc)
|
|
# Retrieve signature document
|
|
LET doc2=sig.getDocument()
|
|
# Append the signature node to the original document to get
|
|
# a valid enveloped signature
|
|
# Notice that the enveloped signature can be added anywhere in the
|
|
# original document
|
|
LET signNode = doc2.getDocumentElement() # Get Signature node
|
|
# Import it into the original document
|
|
LET node = doc.importNode(signNode,true)
|
|
# Retrieve the original document root node
|
|
LET root = doc.getDocumentElement()
|
|
|
|
# Append the signature node as last child of the original document
|
|
CALL root.appendChild(node)
|
|
# Save document with enveloped signature back to disk
|
|
CALL doc.setFeature("format-pretty-print",TRUE)
|
|
CALL doc.save("naceSignature.xml")
|
|
|
|
|
|
CATCH
|
|
DISPLAY "Unable to create an enveloped signature :",status," ",sqlca.sqlerrm
|
|
END TRY
|
|
|
|
END FUNCTION
|
|
|
|
FUNCTION validasemilla()
|
|
DEFINE respuesta,codigo STRING,
|
|
http_req com.HttpRequest,
|
|
http_resp com.HTTPResponse
|
|
|
|
|
|
LET http_req = com.HTTPRequest.Create(url_validasemilla)
|
|
|
|
CALL http_req.setMethod("POST")
|
|
CALL http_req.setCharset("UTF-8")
|
|
CALL http_req.setHeader("accept","application/xml")
|
|
CALL http_req.setMultipartType("form-data",NULL,NULL)
|
|
|
|
IF os.Path.exists("naceSignature.xml") THEN
|
|
|
|
CALL http_req.setHeader("Content-Disposition", "form-data; name=\"xml\"; filename=\"naceSignature.xml\"")
|
|
|
|
CALL http_req.doFileRequest("naceSignature.xml")
|
|
ELSE
|
|
DISPLAY "NO LO ENCUENTRO"
|
|
RETURN 0,"FILE NO EXISTE"
|
|
END IF
|
|
# CALL http_req.setHeader("Content-Disposition", "form-data; name=\"xml\"; filename=\"naceSignature.xml\"")
|
|
|
|
# CALL http_req.doFileRequest("naceSignature.xml")
|
|
|
|
|
|
LET http_resp= http_req.getResponse()
|
|
LET codigo = http_resp.getStatusCode()
|
|
LET respuesta = http_resp.getTextResponse()
|
|
|
|
IF http_resp.getStatusCode() != 200 THEN
|
|
DISPLAY "error: ",codigo," ", respuesta
|
|
RETURN codigo, respuesta
|
|
END IF
|
|
|
|
DISPLAY "valida semilla: ",codigo," ", respuesta
|
|
RETURN codigo, respuesta
|
|
|
|
|
|
END FUNCTION
|
|
FUNCTION enviafiles(btoken,archivo)
|
|
DEFINE respuesta,btoken,codigo,archivo,contenido,consultaResp STRING,
|
|
http_req com.HttpRequest,
|
|
http_resp com.HTTPResponse
|
|
|
|
|
|
|
|
LET btoken =" Bearer ",btoken
|
|
|
|
LET http_req = com.HTTPRequest.Create(url_recepcion)
|
|
|
|
CALL http_req.setMethod("POST")
|
|
CALL http_req.setCharset("UTF-8")
|
|
CALL http_req.setHeader("accept","application/json")
|
|
CALL http_req.setHeader("Authorization",btoken)
|
|
|
|
CALL http_req.setMultipartType("form-data",NULL,NULL)
|
|
|
|
# "form-data; name=\"xml\"; filename=\"naceSignature.xml\""
|
|
DISPLAY "archivo: ",archivo
|
|
IF os.Path.exists(archivo) THEN
|
|
|
|
LET contenido = "form-data; name=\"xml\"; filename=",os.path.basename(archivo)
|
|
# CALL http_req.setHeader("Content-Disposition", "form-data; name=\"xml\"; filename=\"131880681E310000000001.xml\"")
|
|
|
|
CALL http_req.setHeader("Content-Disposition", contenido)
|
|
# CALL http_req.setHeader("Content-Disposition", "form-data; name=\"xml\"; filename=\"130337391E310000000016.xml\"")
|
|
CALL http_req.doFileRequest(archivo)
|
|
|
|
LET http_resp= http_req.getResponse()
|
|
LET codigo = http_resp.getStatusCode()
|
|
LET respuesta= http_resp.getTextResponse()
|
|
|
|
IF http_resp.getStatusCode() != 200 THEN
|
|
DISPLAY "error: ",codigo," ", respuesta
|
|
RETURN codigo, respuesta
|
|
END IF
|
|
|
|
ELSE
|
|
|
|
RETURN 0,"FILE NO EXISTE"
|
|
END IF
|
|
# CALL http_req.setHeader("Content-Disposition", "form-data; name=\"xml\"; filename=\"naceSignature.xml\"")
|
|
|
|
# CALL http_req.doFileRequest("naceSignature.xml")
|
|
|
|
DISPLAY "enviafile: ",codigo," ", respuesta
|
|
CALL consultaResultado(btoken,respuesta) RETURNING consultaResp
|
|
DISPLAY "responde consulta: ",consultaResp
|
|
|
|
RETURN codigo, respuesta
|
|
|
|
|
|
END FUNCTION
|
|
|
|
FUNCTION gettoken()
|
|
DEFINE i, l INTEGER
|
|
DEFINE r om.XmlReader
|
|
DEFINE e,tok String
|
|
DEFINE a om.SaxAttributes
|
|
DISPLAY "filexml: ",filexml
|
|
LET r = om.XmlReader.createFileReader("naceRespuestaValida.xml")
|
|
LET l = 0
|
|
LET e = r.read()
|
|
|
|
WHILE e IS NOT NULL
|
|
CASE e
|
|
WHEN "StartDocument"
|
|
# DISPLAY "StartDocument:"
|
|
WHEN "StartElement"
|
|
LET l=l+1
|
|
#DISPLAY l SPACES, "StartElement:", r.getTagName()
|
|
LET a = r.getAttributes()
|
|
FOR i=1 to a.getLength()
|
|
IF a.getName(i) = "token" THEN
|
|
# DISPLAY l SPACES," ",
|
|
# a.getName(i)," = ",
|
|
# a.getValueByIndex(i)
|
|
END IF
|
|
END FOR
|
|
WHEN "Characters"
|
|
|
|
|
|
IF r.getTagName() = "token" THEN
|
|
LET tok = r.getCharacters()
|
|
# DISPLAY "token dentro de gettoken: ",tok
|
|
EXIT CASE
|
|
END IF
|
|
WHEN "SkippedEntity"
|
|
# DISPLAY "Entity:'",r.skippedEntity(),"'"
|
|
WHEN "EndElement"
|
|
# DISPLAY l SPACES, "EndElement:", r.getTagName()
|
|
LET l=l-1
|
|
WHEN "EndDocument"
|
|
# DISPLAY "EndDocument:"
|
|
OTHERWISE
|
|
# DISPLAY "Invalid event: ",e
|
|
END CASE
|
|
LET e=r.read()
|
|
END WHILE
|
|
RETURN tok
|
|
END FUNCTION
|
|
|
|
FUNCTION buscatoken()
|
|
|
|
DEFINE respuesta STRING,
|
|
http_req com.HttpRequest,
|
|
http_resp com.HTTPResponse
|
|
|
|
#SELECT a.urltoken INTO url FROM companias a
|
|
#"https://ecf.dgii.gov.do/testecf/autenticacion/api/autenticacion/semilla"
|
|
#"https://ecf.dgii.gov.do/CerteCF/Autenticacion/api/Autenticacion/Semilla"
|
|
|
|
|
|
LET http_req = com.HTTPRequest.Create(url_semilla)
|
|
|
|
CALL http_req.setMethod("GET")
|
|
CALL http_req.setCharset("UTF-8")
|
|
CALL http_req.setHeader("accept","application/xml")
|
|
CALL http_req.doRequest()
|
|
#CALL http_req.doTextRequest(url)
|
|
|
|
LET http_resp= http_req.getResponse()
|
|
|
|
IF http_resp.getStatusCode() != 200 THEN
|
|
RETURN http_resp.getStatusCode(), http_resp.getTextResponse()
|
|
END IF
|
|
|
|
LET respuesta = http_resp.getTextResponse()
|
|
|
|
|
|
RETURN http_resp.getStatusCode(),respuesta
|
|
END FUNCTION
|
|
FUNCTION urls()
|
|
|
|
|
|
IF xambiente = "certificacion" THEN
|
|
|
|
|
|
LET url_recepcion ="https://ecf.dgii.gov.do/CerteCF/Recepcion/api/FacturasElectronicas"
|
|
LET url_semilla ="https://ecf.dgii.gov.do/CerteCF/autenticacion/api/autenticacion/semilla"
|
|
LET url_validasemilla ="https://ecf.dgii.gov.do/CerteCF/Autenticacion/api/Autenticacion/ValidarSemilla"
|
|
LET url_consulta = "https://ecf.dgii.gov.do/CerteCF/ConsultaResultado/api/consultas/estado"
|
|
END IF
|
|
|
|
IF xambiente = "test" THEN
|
|
LET url_recepcion ="https://ecf.dgii.gov.do/TesteCF/Recepcion/api/FacturasElectronicas"
|
|
LET url_semilla ="https://ecf.dgii.gov.do/TesteCF/autenticacion/api/autenticacion/semilla"
|
|
LET url_validasemilla ="https://ecf.dgii.gov.do/TesteCF/Autenticacion/api/Autenticacion/ValidarSemilla"
|
|
LET url_consulta = "https://ecf.dgii.gov.do/TesteCF/ConsultaResultado/api/consultas/estado"
|
|
END IF
|
|
|
|
END FUNCTION
|
|
FUNCTION consultaResultado(ctoken,data)
|
|
DEFINE data,ctoken STRING
|
|
|
|
DEFINE crespuesta STRING,
|
|
http_req com.HttpRequest,
|
|
http_resp com.HTTPResponse
|
|
|
|
DEFINE dtrackid RECORD
|
|
trackid,ERROR,mensaje STRING
|
|
END RECORD
|
|
|
|
CALL util.JSON.parse(data,dtrackid)
|
|
|
|
DISPLAY "TRACK: ",dtrackid.trackid
|
|
|
|
|
|
#SELECT a.urltoken INTO url FROM companias a
|
|
#"https://ecf.dgii.gov.do/testecf/autenticacion/api/autenticacion/semilla"
|
|
#"https://ecf.dgii.gov.do/CerteCF/Autenticacion/api/Autenticacion/Semilla"
|
|
|
|
LET url_consulta = url_consulta CLIPPED,"?TrackId=",dtrackid.trackid CLIPPED
|
|
LET http_req = com.HTTPRequest.Create(url_consulta)
|
|
|
|
CALL http_req.setMethod("GET")
|
|
CALL http_req.setCharset("UTF-8")
|
|
CALL http_req.setHeader("accept","application/json")
|
|
CALL http_req.setHeader("Authorization",ctoken)
|
|
CALL http_req.doRequest()
|
|
|
|
|
|
LET http_resp= http_req.getResponse()
|
|
LET crespuesta = http_resp.getTextResponse()
|
|
|
|
IF http_resp.getStatusCode() != 200 THEN
|
|
RETURN crespuesta
|
|
END IF
|
|
|
|
|
|
RETURN crespuesta
|
|
|
|
END FUNCTION |