(SQL Server) Convert ASN.1 to/from Binary DER, XML, and Base64

Demonstrates how to convert ASN.1 from and to any of the following formats: binary DER, Base64, and XML.

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)
    DECLARE @asn int
    -- Use "Chilkat_9_5_0.Asn" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.Asn', @asn OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    DECLARE @success int

    -- Begin with loading ASN.1 from a binary DER/BER format file.
    EXEC sp_OAMethod @asn, 'LoadBinaryFile', @success OUT, '/Users/chilkat/testData/p7b/test.p7b'
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @asn, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @asn
        RETURN
      END

    -- Convert ASN.1 to XML:
    DECLARE @strXml nvarchar(4000)
    EXEC sp_OAMethod @asn, 'AsnToXml', @strXml OUT
    EXEC sp_OAGetProperty @asn, 'LastMethodSuccess', @iTmp0 OUT
    IF @iTmp0 <> 1
      BEGIN
        EXEC sp_OAGetProperty @asn, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @asn
        RETURN
      END

    -- The XML returned by AsnToXml will be compact and not pretty-formatted.
    -- Use Chilkat XML to format the XML better:
    DECLARE @xml int
    -- Use "Chilkat_9_5_0.Xml" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.Xml', @xml OUT

    EXEC sp_OAMethod @xml, 'LoadXml', @success OUT, @strXml
    -- Assuming success for this example..
    -- This is formatted better for human viewing:
    EXEC sp_OAMethod @xml, 'GetXml', @sTmp0 OUT
    PRINT @sTmp0

    -- Now get the ASN.1 in base64 format.  Any encoding supported
    -- by Chilkat can be passed, such as "hex", "uu", "quoted-printable", "base32", "modbase64", etc.
    DECLARE @strBase64 nvarchar(4000)
    EXEC sp_OAMethod @asn, 'GetEncodedDer', @strBase64 OUT, 'base64'

    -- Load the ASN.1 from XML:
    DECLARE @asn2 int
    -- Use "Chilkat_9_5_0.Asn" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.Asn', @asn2 OUT

    EXEC sp_OAMethod @xml, 'GetXml', @sTmp0 OUT
    EXEC sp_OAMethod @asn2, 'LoadAsnXml', @success OUT, @sTmp0
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @asn2, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @asn
        EXEC @hr = sp_OADestroy @xml
        EXEC @hr = sp_OADestroy @asn2
        RETURN
      END

    -- Load the ASN.1 from an encoded string, such as base64:
    DECLARE @asn3 int
    -- Use "Chilkat_9_5_0.Asn" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.Asn', @asn3 OUT

    EXEC sp_OAMethod @asn3, 'LoadEncoded', @success OUT, @strBase64, 'base64'
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @asn3, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @asn
        EXEC @hr = sp_OADestroy @xml
        EXEC @hr = sp_OADestroy @asn2
        EXEC @hr = sp_OADestroy @asn3
        RETURN
      END

    EXEC @hr = sp_OADestroy @asn
    EXEC @hr = sp_OADestroy @xml
    EXEC @hr = sp_OADestroy @asn2
    EXEC @hr = sp_OADestroy @asn3


END
GO