Save a Public Key as a DER File

Demonstrates the Chilkat PublicKey.SaveDerFile method, which saves the public key as binary DER. The first argument selects the representation (as for GetPem) and the second is the destination path.

Note: The file paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @sTmp0 nvarchar(4000)
    DECLARE @success int
    SELECT @success = 0

    --  Load a public key to export.  LoadFromFile inspects the content, so it accepts DER, PEM, XML,
    --  JWK, and other supported representations.
    DECLARE @pubKey int
    EXEC @hr = sp_OACreate 'Chilkat.PublicKey', @pubKey OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    EXEC sp_OAMethod @pubKey, 'LoadFromFile', @success OUT, 'qa_data/public.pem'
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @pubKey, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @pubKey
        RETURN
      END

    --  Save the public key as binary DER.  The 1st argument selects the representation and the 2nd is
    --  the destination path.
    DECLARE @preferPkcs1 int
    SELECT @preferPkcs1 = 0
    EXEC sp_OAMethod @pubKey, 'SaveDerFile', @success OUT, @preferPkcs1, 'qa_output/public.der'
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @pubKey, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @pubKey
        RETURN
      END

    PRINT 'Saved.'

    EXEC @hr = sp_OADestroy @pubKey


END
GO