(VBScript) 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

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.SshKey")
set key = CreateObject("Chilkat.SshKey")

' 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:

keyStr = key.LoadText("putty_private_key.ppk")

' Import into the SSH key object:
success = key.FromPuttyPrivateKey(keyStr)
If (success <> 1) Then
    outFile.WriteLine(key.LastErrorText)
    WScript.Quit
End If

' Convert to an encrypted or unencrypted OpenSSH key.

' First demonstrate converting to an unencrypted OpenSSH key

bEncrypt = 0
unencryptedKeyStr = key.ToOpenSshPrivateKey(bEncrypt)
success = key.SaveText(unencryptedKeyStr,"unencrypted_openssh.pem")
If (success <> 1) Then
    outFile.WriteLine(key.LastErrorText)
    WScript.Quit
End If

' Save to an encrypted OpenSSH PEM file:

bEncrypt = 1
key.Password = "myPassword"
encryptedKeyStr = key.ToOpenSshPrivateKey(bEncrypt)
success = key.SaveText(encryptedKeyStr,"encrypted_openssh.pem")
If (success <> 1) Then
    outFile.WriteLine(key.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Done!")

outFile.Close