Perl Requires Chilkat v11.0.0+

SII Chile - FRMA Signature Computation and Add to XML

See more XML Digital Signatures Examples

Compute the FRMA signature of a <DA> element enclosed inside a <CAF> element of the XML to be signed. Perl

use chilkat();

$success = 0;

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

#  Also see:  Compute the FRMT Signature and Add to XML

$xml = chilkat::CkXml->new();

#  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>
#  			... The FRMA will be added here ...
#                  </CAF>
#                  ...
#              </DD>
#              ... The FRMT will be added here in another example ...
#          </TED>
#    </Documento>
#  </DTE>

$success = $xml->LoadXmlFile("qa_data/xml_dsig/sii_cl/test_0.xml");
if ($success == 0) {
    print "Failed to load initial XML file." . "\r\n";
    exit;
}

#  Get a reference to the "DA" element
# daXml is a Xml
$daXml = $xml->FindChild("Documento|TED|DD|CAF|DA");
if ($xml->get_LastMethodSuccess() == 0) {
    print "Failed to find DA element" . "\r\n";
    exit;
}

#   We need to get the "flattened" DA 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 = chilkat::CkStringBuilder->new();
$daXml->put_EmitCompact(1);
$daXml->put_EmitXmlDecl(0);
$daXml->GetXmlSb($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 = chilkat::CkPrivateKey->new();
$success = $privKey->LoadAnyFormatFile("qa_data/rsa/rsaPrivKey_pkcs8.pem","");
if ($success == 0) {
    print $privKey->lastErrorText() . "\r\n";
    exit;
}

$rsa = chilkat::CkRsa->new();
$rsa->UsePrivateKey($privKey);

$rsa->put_EncodingMode("base64");
$rsa->put_Charset("iso-8859-1");
$sig = $rsa->signStringENC($sbFlattened->getAsString(),"sha1");

#  Add the FRMA signature element to the XML.
$xml->UpdateChildContent("Documento|TED|DD|CAF|FRMA",$sig);
$xml->UpdateAttrAt("Documento|TED|DD|CAF|FRMA",1,"algoritmo","SHA1withRSA");

#  See what we have:
$xml->put_EmitCompact(0);
$xml->put_EmitXmlDecl(1);
print $xml->getXml() . "\r\n";

$xml->SaveXml("qa_data/xml_dsig/sii_cl/test_1.xml");