Generate RSA Public/Private Key Pair and Export to PEM

SQL Server example code showing how to generate an RSA public/private key pair and export to PEM files.

Download 32-bit Chilkat RSA ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @sTmp0 nvarchar(4000)
    DECLARE @rsa int
    EXEC @hr = sp_OACreate 'Chilkat.Rsa', @rsa OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    DECLARE @success int

    EXEC sp_OAMethod @rsa, 'UnlockComponent', @success OUT, 'Anything for 30-day trial'
    IF @success <> 1
      BEGIN
        PRINT 'RSA component unlock failed'
        RETURN
      END

    --  Generate a 1024-bit key.  Chilkat RSA supports
    --  key sizes ranging from 512 bits to 4096 bits.
    EXEC sp_OAMethod @rsa, 'GenerateKey', @success OUT, 1024
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @rsa, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        RETURN
      END

    --  Keys are exported in XML format:
    DECLARE @publicKeyXml nvarchar(4000)

    EXEC sp_OAMethod @rsa, 'ExportPublicKey', @publicKeyXml OUT

    PRINT @publicKeyXml

    DECLARE @privateKeyXml nvarchar(4000)

    EXEC sp_OAMethod @rsa, 'ExportPrivateKey', @privateKeyXml OUT

    PRINT @privateKeyXml

    --  Save the private key in PEM format:
    DECLARE @privKey int
    EXEC @hr = sp_OACreate 'Chilkat.PrivateKey', @privKey OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    EXEC sp_OAMethod @privKey, 'LoadXml', NULL, @privateKeyXml
    EXEC sp_OAMethod @privKey, 'SaveRsaPemFile', NULL, 'privateKey.pem'

    --  Save the public key in PEM format:
    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, 'LoadXml', NULL, @publicKeyXml
    EXEC sp_OAMethod @pubKey, 'SaveOpenSslPemFile', NULL, 'publicKey.pem'
END
GO