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

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

Download Chilkat .NET for 4.0 Framework

Download Chilkat .NET for 64-bit 4.0 Framework (x64)

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 64-bit 2.0 / 3.5 Framework (x64)

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim key As New Chilkat.SshKey()

Dim success As Boolean

'  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.
key.Password = "secret"

'  First load the .ppk file into a string:
Dim keyStr As String
keyStr = key.LoadText("putty_private_key.ppk")

'  Import into the SSH key object:
success = key.FromPuttyPrivateKey(keyStr)
If (success <> true) Then
    MsgBox(key.LastErrorText)
    Exit Sub
End If


'  Convert to an encrypted or unencrypted OpenSSH key.

'  First demonstrate converting to an unencrypted OpenSSH key
Dim unencryptedKeyStr As String
Dim bEncrypt As Boolean
bEncrypt = false
unencryptedKeyStr = key.ToOpenSshPrivateKey(bEncrypt)
success = key.SaveText(unencryptedKeyStr,"unencrypted_openssh.pem")
If (success <> true) Then
    MsgBox(key.LastErrorText)
    Exit Sub
End If


'  Save to an encrypted OpenSSH PEM file:
Dim encryptedKeyStr As String
bEncrypt = true
key.Password = "myPassword"
encryptedKeyStr = key.ToOpenSshPrivateKey(bEncrypt)
success = key.SaveText(encryptedKeyStr,"encrypted_openssh.pem")
If (success <> true) Then
    MsgBox(key.LastErrorText)
    Exit Sub
End If


MsgBox("Done!")