Delphi DLL Requires Chilkat v11.0.0+

SII Chile - FRMT Signature Computation and Add to XML

See more XML Digital Signatures Examples

Compute the FRMT signature and add to the XML. This is the RSA signature of the SHA-1 digest of the "flattened" DD element. Delphi DLL

var
success: Boolean;
xml: HCkXml;
ddXml: HCkXml;
sbFlattened: HCkStringBuilder;
privKey: HCkPrivateKey;
rsa: HCkRsa;
sig: PWideChar;

begin
success := False;

//  This example assumes the Chilkat API to have been previously unlocked.
//  See Global Unlock Sample for sample code.

//  Also see:  Compute the FRMA Signature and Add to XML

xml := CkXml_Create();

//  Load the unsigned XML that contains the following:

//  <DTE version="1.0">
//    <Documento ID="F60T33">
//          <TED version="1.0">
//              <DD>
//  		...
//                  <CAF version="1.0">
//                      <DA>
//  			...
//                      </DA>
//                      <FRMA algoritmo="SHA1withRSA">...</FRMA>
//                  </CAF>
//                  ...
//              </DD>
//              ... The FRMT will be added here in another example ...
//          </TED>
//    </Documento>
//  </DTE>

success := CkXml_LoadXmlFile(xml,'qa_data/xml_dsig/sii_cl/test_1.xml');
if (success = False) then
  begin
    Memo1.Lines.Add('Failed to load initial XML file.');
    Exit;
  end;

//  Get a reference to the "DD" element
ddXml := CkXml_FindChild(xml,'Documento|TED|DD');
if (CkXml_getLastMethodSuccess(xml) = False) then
  begin
    Memo1.Lines.Add('Failed to find DD element');
    Exit;
  end;

//   We need to get the "flattened" DD XML where:
//     - No whitespace between elements.
//     - The 5 pre-defined entities are converted.
//     - The text is encoded in the ISO-8859-1 character set (Latin-1), 
sbFlattened := CkStringBuilder_Create();
CkXml_putEmitCompact(ddXml,True);
CkXml_putEmitXmlDecl(ddXml,False);
CkXml_GetXmlSb(ddXml,sbFlattened);

//  Compute the SHA-1 message digest of the iso-8859-1 byte representation, 
//  and sign it with our RSA private key, getting the result in base64 format.

privKey := CkPrivateKey_Create();
success := CkPrivateKey_LoadAnyFormatFile(privKey,'qa_data/rsa/rsaPrivKey_pkcs8.pem','');
if (success = False) then
  begin
    Memo1.Lines.Add(CkPrivateKey__lastErrorText(privKey));
    Exit;
  end;

rsa := CkRsa_Create();
CkRsa_UsePrivateKey(rsa,privKey);

CkRsa_putEncodingMode(rsa,'base64');
CkRsa_putCharset(rsa,'iso-8859-1');
sig := CkRsa__signStringENC(rsa,CkStringBuilder__getAsString(sbFlattened),'sha1');

//  Add the FRMT signature element to the XML.
CkXml_UpdateChildContent(xml,'Documento|TED|FRMT',sig);
CkXml_UpdateAttrAt(xml,'Documento|TED|FRMT',True,'algoritmo','SHA1withRSA');

CkXml_Dispose(ddXml);

//  See what we have:
CkXml_putEmitCompact(xml,False);
CkXml_putEmitXmlDecl(xml,True);
Memo1.Lines.Add(CkXml__getXml(xml));

CkXml_Dispose(xml);
CkStringBuilder_Dispose(sbFlattened);
CkPrivateKey_Dispose(privKey);
CkRsa_Dispose(rsa);