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

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

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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
    System.DebugLog(key.LastErrorText)
    Return
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
    System.DebugLog(key.LastErrorText)
    Return
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
    System.DebugLog(key.LastErrorText)
    Return
End If

System.DebugLog("Done!")