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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoKey
    Boolean iSuccess
    String sKeyStr
    String sUnencryptedKeyStr
    Boolean iBEncrypt
    String sEncryptedKeyStr
    String sTemp1

    Get Create (RefClass(cComChilkatSshKey)) To hoKey
    If (Not(IsComObjectCreated(hoKey))) Begin
        Send CreateComObject of hoKey
    End

    // 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.
    Set ComPassword Of hoKey To "secret"

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

    Get ComLoadText Of hoKey "putty_private_key.ppk" To sKeyStr

    // Import into the SSH key object:
    Get ComFromPuttyPrivateKey Of hoKey sKeyStr To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoKey To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Convert to an encrypted or unencrypted OpenSSH key.

    // First demonstrate converting to an unencrypted OpenSSH key

    Move False To iBEncrypt
    Get ComToOpenSshPrivateKey Of hoKey iBEncrypt To sUnencryptedKeyStr
    Get ComSaveText Of hoKey sUnencryptedKeyStr "unencrypted_openssh.pem" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoKey To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Save to an encrypted OpenSSH PEM file:

    Move True To iBEncrypt
    Set ComPassword Of hoKey To "myPassword"
    Get ComToOpenSshPrivateKey Of hoKey iBEncrypt To sEncryptedKeyStr
    Get ComSaveText Of hoKey sEncryptedKeyStr "encrypted_openssh.pem" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoKey To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "Done!"


End_Procedure