PowerBuilder

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

See more SSH Key Examples

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

integer li_rc
integer li_Success
oleobject loo_Key
string ls_KeyStr
string ls_UnencryptedKeyStr
integer li_BEncrypt
string ls_EncryptedKeyStr

li_Success = 0

loo_Key = create oleobject
li_rc = loo_Key.ConnectToNewObject("Chilkat.SshKey")
if li_rc < 0 then
    destroy loo_Key
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// 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.
loo_Key.Password = "secret"

// First load the .ppk file into a string:

ls_KeyStr = loo_Key.LoadText("putty_private_key.ppk")

// Import into the SSH key object:
li_Success = loo_Key.FromPuttyPrivateKey(ls_KeyStr)
if li_Success <> 1 then
    Write-Debug loo_Key.LastErrorText
    destroy loo_Key
    return
end if

// Convert to an encrypted or unencrypted OpenSSH key.

// First demonstrate converting to an unencrypted OpenSSH key

li_BEncrypt = 0
ls_UnencryptedKeyStr = loo_Key.ToOpenSshPrivateKey(li_BEncrypt)
li_Success = loo_Key.SaveText(ls_UnencryptedKeyStr,"unencrypted_openssh.pem")
if li_Success <> 1 then
    Write-Debug loo_Key.LastErrorText
    destroy loo_Key
    return
end if

// Save to an encrypted OpenSSH PEM file:

li_BEncrypt = 1
loo_Key.Password = "myPassword"
ls_EncryptedKeyStr = loo_Key.ToOpenSshPrivateKey(li_BEncrypt)
li_Success = loo_Key.SaveText(ls_EncryptedKeyStr,"encrypted_openssh.pem")
if li_Success <> 1 then
    Write-Debug loo_Key.LastErrorText
    destroy loo_Key
    return
end if

Write-Debug "Done!"


destroy loo_Key