(SQL Server) Example: Crypt2.ClearSigningCerts method

Demonstrates how to call the ClearSigningCerts method.

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 @crypt int
    EXEC @hr = sp_OACreate 'Chilkat.Crypt2', @crypt OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    DECLARE @success int
    SELECT @success = 0

    -- Tell the crypt object to use 3 certificates.
    -- Do this by calling AddSigningCert for each certificate.

    DECLARE @cert1 int
    EXEC @hr = sp_OACreate 'Chilkat.Cert', @cert1 OUT

    -- ...
    -- Load the cert from a source such as a .pfx/.p12 file, smart card, USB token, Apple keychain, Windows certificate store, etc.
    -- ...
    EXEC sp_OAMethod @crypt, 'AddSigningCert', @success OUT, @cert1

    DECLARE @cert2 int
    EXEC @hr = sp_OACreate 'Chilkat.Cert', @cert2 OUT

    -- ...
    EXEC sp_OAMethod @crypt, 'AddSigningCert', @success OUT, @cert2

    DECLARE @cert3 int
    EXEC @hr = sp_OACreate 'Chilkat.Cert', @cert3 OUT

    -- ...
    EXEC sp_OAMethod @crypt, 'AddSigningCert', @success OUT, @cert3

    DECLARE @bd int
    EXEC @hr = sp_OACreate 'Chilkat.BinData', @bd OUT

    -- ...

    EXEC sp_OAMethod @crypt, 'OpaqueSignBd', @success OUT, @bd

    -- Let's say we now want to sign something else with different certs..
    -- First clear the signing certs.
    EXEC sp_OAMethod @crypt, 'ClearSigningCerts', NULL

    DECLARE @cert4 int
    EXEC @hr = sp_OACreate 'Chilkat.Cert', @cert4 OUT

    -- ...
    EXEC sp_OAMethod @crypt, 'AddSigningCert', @success OUT, @cert4

    DECLARE @cert5 int
    EXEC @hr = sp_OACreate 'Chilkat.Cert', @cert5 OUT

    -- ...
    EXEC sp_OAMethod @crypt, 'AddSigningCert', @success OUT, @cert5

    -- ...
    -- ...

    -- Sign using cert4 and cert5.
    EXEC sp_OAMethod @crypt, 'OpaqueSignBd', @success OUT, @bd

    EXEC @hr = sp_OADestroy @crypt
    EXEC @hr = sp_OADestroy @cert1
    EXEC @hr = sp_OADestroy @cert2
    EXEC @hr = sp_OADestroy @cert3
    EXEC @hr = sp_OADestroy @bd
    EXEC @hr = sp_OADestroy @cert4
    EXEC @hr = sp_OADestroy @cert5


END
GO