(SQL Server) Convert PuTTY Private Key (ppk) to OpenSSH (pem)

Convert a PuTTY format private key file (.ppk) to OpenSSH (.pem).

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
    -- Important: Do not use nvarchar(max).  See the warning about using nvarchar(max).
    DECLARE @sTmp0 nvarchar(4000)
    DECLARE @key int
    -- Use "Chilkat_9_5_0.SshKey" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.SshKey', @key OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    DECLARE @success int

    -- Load an unencrypted or encrypted PuTTY private key.

    -- If  your PuTTY private key is encrypted, set the Password
    -- property before calling FromPuttyPrivateKey.
    -- If your PuTTY private key is not encrypted, it makes no diffference
    -- if Password is set or not set.
    EXEC sp_OASetProperty @key, 'Password', 'secret'

    -- First load the .ppk file into a string:
    DECLARE @keyStr nvarchar(4000)

    EXEC sp_OAMethod @key, 'LoadText', @keyStr OUT, 'putty_private_key.ppk'

    -- Import into the SSH key object:
    EXEC sp_OAMethod @key, 'FromPuttyPrivateKey', @success OUT, @keyStr
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @key, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @key
        RETURN
      END

    -- Convert to an encrypted or unencrypted OpenSSH key.

    -- First demonstrate converting to an unencrypted OpenSSH key
    DECLARE @unencryptedKeyStr nvarchar(4000)

    DECLARE @bEncrypt int
    SELECT @bEncrypt = 0
    EXEC sp_OAMethod @key, 'ToOpenSshPrivateKey', @unencryptedKeyStr OUT, @bEncrypt
    EXEC sp_OAMethod @key, 'SaveText', @success OUT, @unencryptedKeyStr, 'unencrypted_openssh.pem'
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @key, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @key
        RETURN
      END

    -- Save to an encrypted OpenSSH PEM file:
    DECLARE @encryptedKeyStr nvarchar(4000)

    SELECT @bEncrypt = 1
    EXEC sp_OASetProperty @key, 'Password', 'myPassword'
    EXEC sp_OAMethod @key, 'ToOpenSshPrivateKey', @encryptedKeyStr OUT, @bEncrypt
    EXEC sp_OAMethod @key, 'SaveText', @success OUT, @encryptedKeyStr, 'encrypted_openssh.pem'
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @key, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @key
        RETURN
      END


    PRINT 'Done!'

    EXEC @hr = sp_OADestroy @key


END
GO