Ver Mensaje Individual
  #482  
Antiguo 12-04-2021
Galaxian Galaxian is offline
Miembro
 
Registrado: mar 2021
Posts: 52
Reputación: 4
Galaxian Va por buen camino
Ejemplo (parte2)

Código Delphi [-]
//  Set the KeyInfoId before adding references..
CkXmlDSigGen_putKeyInfoId(gen,'Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-KeyInfo');

//  Create an Object to be added to the Signature.
object1 := CkXml_Create();
CkXml_putTag(object1,'xades:QualifyingProperties');
CkXml_AddAttribute(object1,'xmlns:xades','h_t_t_p://uri.etsi.org/01903/v1.3.2#');
CkXml_AddAttribute(object1,'Id','Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-QualifyingProperties');
CkXml_AddAttribute(object1,'Target','#Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-Signature');
CkXml_AddAttribute(object1,'xmlns:ds','h_t_t_p://w_w_w.w3.org/2000/09/xmldsig#');
CkXml_UpdateAttrAt(object1,'xades:SignedProperties',True,'Id','Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-SignedProperties');
CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:Signi  ngTime','TO BE GENERATED BY CHILKAT');
CkXml_UpdateAttrAt(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCert  ificate|xades:Cert|xades:CertDigest|dsigestMethod',True,'Algorithm','h_t_t_p://w_w_w.w3.org/2001/04/xmlenc#sha512');
CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:Signi  ngCertificate|xades:Cert|xades:CertDigest|dsigestValue','TO BE GENERATED BY CHILKAT');
CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:Signi  ngCertificate|xades:Cert|xades:IssuerSerial|ds:X509IssuerName','TO BE GENERATED BY CHILKAT');
CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:Signi  ngCertificate|xades:Cert|xades:IssuerSerial|ds:X509SerialNumber','TO BE GENERATED BY CHILKAT');
CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:Signa  turePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xades:Identifier','h_t_t_p_s://w_w_w.batuz.eus/fitxategiak/batuz/ticketbai/sinadura_elektronikoaren_zehaztapenak_especificaciones_de_la_firma_electronica_v1_0.pdf');
CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:Signa  turePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xadesescription','');
CkXml_UpdateAttrAt(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePo  licyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|dsigestMethod',True,'Algorithm','h_t_t_  p://w_w_w.w3.org/2001/04/xmlenc#sha256');
CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:Signa  turePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|dsigestValue','Quzn98x3PMbSHwbUza  j5f5KOpiH0u8bvmwbbbNkO9Es=');
Responder Con Cita