Pascal (Lazarus/Delphi)

SII XML Digital Signature

See more uncategorized Examples

Example for SII XML Digital Signature. Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.StringBuilder,
  Chilkat.XmlDSigGen,
  Chilkat.Xml,
  Chilkat.XmlDSig,
  Chilkat.Cert;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  xmlToSign: TXml;
  gen: TXmlDSigGen;
  xml1: TXml;
  cert: TCert;
  sbXml: TStringBuilder;
  verifier: TXmlDSig;
  numSigs: Integer;
  verifyIdx: Integer;
  verified: Boolean;

begin
  success := False;

  success := True;

  //  Load the XML to be signed.
  xmlToSign := TXml.Create;
  success := xmlToSign.LoadXmlFile('c:/aaworkarea/eduardo/sii_unsigned.xml');
  if (success = False) then
    begin
      WriteLn(xmlToSign.LastErrorText);
      Exit;
    end;

  //  The sample XML to be signed looks like this:

  //  <?xml version="1.0" encoding="ISO-8859-1"?>
  //  <EnvioDTE xmlns="http://www.sii.cl/SiiDte" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.sii.cl/SiiDte EnvioDTE_v10.xsd" version="1.0">
  //  <SetDTE ID="SetDocF0T33_20240425_170512">
  //   <Caratula version="1.0">
  //    <RutEmisor>99999999-4</RutEmisor>
  //    <RutEnvia>12345678-6</RutEnvia>
  //    <RutReceptor>888888000-K</RutReceptor>
  //    <FchResol>2014-08-22</FchResol>
  //    <NroResol>80</NroResol>
  //    <TmstFirmaEnv>2024-04-25T17:05:13</TmstFirmaEnv>
  //    <SubTotDTE>
  //     <TpoDTE>33</TpoDTE>
  //     <NroDTE>1</NroDTE>
  //    </SubTotDTE>
  //   </Caratula>
  //  <DTE version="1.0">
  //  <Documento ID="F555T55">
  //  ...
  //  </Documento>
  //  </EnvioDTE>

  gen := TXmlDSigGen.Create;

  gen.SigLocation := 'EnvioDTE|SetDTE|DTE';
  gen.SigLocationMod := 0;
  gen.SigNamespacePrefix := '';
  gen.SigNamespaceUri := 'http://www.w3.org/2000/09/xmldsig#';
  gen.SignedInfoCanonAlg := 'C14N';
  gen.SignedInfoDigestMethod := 'sha1';

  //  -------- Reference 1 --------
  xml1 := TXml.Create;
  xml1.Tag := 'Transforms';
  xml1.UpdateAttrAt('Transform',True,'Algorithm','http://www.w3.org/TR/2001/REC-xml-c14n-20010315');

  gen.AddSameDocRef2('F511T33','sha1',xml1,'');

  //  Provide a certificate + private key. (PFX password is test123)
  cert := TCert.Create;
  success := cert.LoadPfxFile('qa_data/pfx/cert_test123.pfx','test123');
  if (success <> True) then
    begin
      WriteLn(cert.LastErrorText);
      Exit;
    end;
  gen.SetX509Cert(cert,True);

  gen.KeyInfoType := 'X509Data+KeyValue';
  gen.X509Type := 'Certificate';

  //  Load XML to be signed...
  sbXml := TStringBuilder.Create;
  xmlToSign.GetXmlSb(sbXml);

  gen.Behaviors := 'IndentedSignature';

  //  Sign the XML...
  success := gen.CreateXmlDSigSb(sbXml);
  if (success <> True) then
    begin
      WriteLn(gen.LastErrorText);
      Exit;
    end;

  //  -----------------------------------------------

  //  Save the signed XML to a file.
  success := sbXml.WriteFile('c:/temp/qa_output/signedXml.xml','utf-8',False);

  WriteLn(sbXml.GetAsString());

  //  ----------------------------------------
  //  Verify the signatures we just produced...
  verifier := TXmlDSig.Create;
  success := verifier.LoadSignatureSb(sbXml);
  if (success <> True) then
    begin
      WriteLn(verifier.LastErrorText);
      Exit;
    end;

  numSigs := verifier.NumSignatures;
  verifyIdx := 0;
  while verifyIdx < numSigs do
    begin
      verifier.Selector := verifyIdx;
      verified := verifier.VerifySignature(True);
      if (verified <> True) then
        begin
          WriteLn(verifier.LastErrorText);
          Exit;
        end;
      verifyIdx := verifyIdx + 1;
    end;

  WriteLn('All signatures were successfully verified.');


  xmlToSign.Free;
  gen.Free;
  xml1.Free;
  cert.Free;
  sbXml.Free;
  verifier.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.