DataFlex

Load an SSH Key from a File (Many Formats Supported)

Demonstrates how to load an SSH public or private key object from a file. The file can be in any of the following formats:

• OpenSSH private key
• OpenSSH public key
• PuTTY private key
• RFC 4716 public key

DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoSshkey
    String sStrKey
    String sTemp1

    Move False To iSuccess

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

    // First, use the LoadText convenience method to load a text file (of any SSH key format)
    // into a string:
    Get ComLoadText Of hoSshkey "../mySshKeys/myKey.txt" To sStrKey

    // Next, load the key into the SSH key object.

    // If the key is an OpenSSH private key:
    // (In actuality, the From* methods will automatically detect the format and load
    // the key correctly.  For example, if a PuTTY private key is passed to FromOpenSshPrivateKey,
    // it  will still load correctly.)
    Get ComFromOpenSshPrivateKey Of hoSshkey sStrKey To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoSshkey To sTemp1
        Showln sTemp1
    End
    Else Begin
        Showln "Loaded OpenSSH private key."
        Procedure_Return
    End

    // If the key is an OpenSSH public key:
    Get ComFromOpenSshPublicKey Of hoSshkey sStrKey To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoSshkey To sTemp1
        Showln sTemp1
    End
    Else Begin
        Showln "Loaded OpenSSH public key."
        Procedure_Return
    End

    // If the key is a PuTTY private key:
    Get ComFromPuttyPrivateKey Of hoSshkey sStrKey To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoSshkey To sTemp1
        Showln sTemp1
    End
    Else Begin
        Showln "Loaded PuTTY private key."
        Procedure_Return
    End

    // If the key is an RFC 4716 public key:
    Get ComFromRfc4716PublicKey Of hoSshkey sStrKey To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoSshkey To sTemp1
        Showln sTemp1
    End
    Else Begin
        Showln "Loaded RFC 4716 public key."
    End



End_Procedure