(DataFlex) Get SSH Server Authentication Methods

Demonstrates how to get the authentication methods of an SSH server.

This example requires Chilkat v9.5.0.78 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoSsh
    Boolean iSuccess
    String sAuthMethods
    Boolean iSuccess
    String sTemp1
    Boolean bTemp1

    // This example requires the Chilkat API to have been previously unlocked.
    // See Global Unlock Sample for sample code.

    Get Create (RefClass(cComChilkatSsh)) To hoSsh
    If (Not(IsComObjectCreated(hoSsh))) Begin
        Send CreateComObject of hoSsh
    End

    // To get the authentication methods offered by an SSH server, we first connect.
    Get ComConnect Of hoSsh "example.com" 22 To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoSsh To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Next, we call GetAuthMethods to receive a comma separated list of authentication methods
    Get ComGetAuthMethods Of hoSsh To sAuthMethods
    Get ComLastMethodSuccess Of hoSsh To bTemp1
    If (bTemp1 <> True) Begin
        Get ComLastErrorText Of hoSsh To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // For example: publickey,password,keyboard-interactive
    Showln "Authentication methods suported by this serve: " sAuthMethods

    // IMPORTANT:
    // Getting the authentication methods will intentionally disconnect from the server.
    // We'll need to re-connect, etc. to continue..

    // For example..
    Get ComConnect Of hoSsh "example.com" 22 To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoSsh To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComAuthenticatePw Of hoSsh "myLogin" "myPassword" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoSsh To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "SSH Authentication successful."

    // ...

    Send ComDisconnect To hoSsh


End_Procedure