(SQL Server) SII Chile - FRMA Signature Computation and Add to XML

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

-- Important: See this note about string length limitations for strings returned by sp_OAMethod calls.
--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @iTmp0 int
    -- Important: Do not use nvarchar(max).  See the warning about using nvarchar(max).
    DECLARE @sTmp0 nvarchar(4000)
    -- 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

    DECLARE @xml int
    -- Use "Chilkat_9_5_0.Xml" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.Xml', @xml OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    -- 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>

    DECLARE @success int
    EXEC sp_OAMethod @xml, 'LoadXmlFile', @success OUT, 'qa_data/xml_dsig/sii_cl/test_0.xml'
    IF @success = 0
      BEGIN

        PRINT 'Failed to load initial XML file.'
        EXEC @hr = sp_OADestroy @xml
        RETURN
      END

    -- Get a reference to the "DA" element
    DECLARE @daXml int
    EXEC sp_OAMethod @xml, 'FindChild', @daXml OUT, 'Documento|TED|DD|CAF|DA'
    EXEC sp_OAGetProperty @xml, 'LastMethodSuccess', @iTmp0 OUT
    IF @iTmp0 = 0
      BEGIN

        PRINT 'Failed to find DA element'
        EXEC @hr = sp_OADestroy @xml
        RETURN
      END

    --  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), 
    DECLARE @sbFlattened int
    -- Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.StringBuilder', @sbFlattened OUT

    EXEC sp_OASetProperty @daXml, 'EmitCompact', 1
    EXEC sp_OASetProperty @daXml, 'EmitXmlDecl', 0
    EXEC sp_OAMethod @daXml, 'GetXmlSb', @success OUT, @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.

    DECLARE @privKey int
    -- Use "Chilkat_9_5_0.PrivateKey" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.PrivateKey', @privKey OUT

    EXEC sp_OAMethod @privKey, 'LoadAnyFormatFile', @success OUT, 'qa_data/rsa/rsaPrivKey_pkcs8.pem', ''
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @privKey, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @xml
        EXEC @hr = sp_OADestroy @sbFlattened
        EXEC @hr = sp_OADestroy @privKey
        RETURN
      END

    DECLARE @rsa int
    -- Use "Chilkat_9_5_0.Rsa" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.Rsa', @rsa OUT

    EXEC sp_OAMethod @rsa, 'ImportPrivateKeyObj', @success OUT, @privKey

    EXEC sp_OASetProperty @rsa, 'EncodingMode', 'base64'
    EXEC sp_OASetProperty @rsa, 'Charset', 'iso-8859-1'
    DECLARE @sig nvarchar(4000)
    EXEC sp_OAMethod @sbFlattened, 'GetAsString', @sTmp0 OUT
    EXEC sp_OAMethod @rsa, 'SignStringENC', @sig OUT, @sTmp0, 'sha1'

    -- Add the FRMA signature element to the XML.
    EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'Documento|TED|DD|CAF|FRMA', @sig
    EXEC sp_OAMethod @xml, 'UpdateAttrAt', @success OUT, 'Documento|TED|DD|CAF|FRMA', 1, 'algoritmo', 'SHA1withRSA'

    EXEC @hr = sp_OADestroy @daXml

    -- See what we have:
    EXEC sp_OASetProperty @xml, 'EmitCompact', 0
    EXEC sp_OASetProperty @xml, 'EmitXmlDecl', 1
    EXEC sp_OAMethod @xml, 'GetXml', @sTmp0 OUT
    PRINT @sTmp0

    EXEC sp_OAMethod @xml, 'SaveXml', @success OUT, 'qa_data/xml_dsig/sii_cl/test_1.xml'

    EXEC @hr = sp_OADestroy @xml
    EXEC @hr = sp_OADestroy @sbFlattened
    EXEC @hr = sp_OADestroy @privKey
    EXEC @hr = sp_OADestroy @rsa


END
GO