(DataFlex) Multi-Hop SSH (SSH Through SSH)

Demonstrates how to SSH through one SSH server to get to another SSH server. The scheme looks like this:

Application => ServerSSH1 => ServerSSH2

The ConnectThroughSsh method is added in Chilkat version 9.5.0.55 to accomplish this task. Technically, it should be possible to chain any number of servers using the ConnectThroughSsh multiple times:

Application => ServerSSH1 => ServerSSH2 ==> ServerSSH3 => ... => ServerSSHN

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

Use ChilkatAx-win32.pkg

Procedure Test
    Variant vSsh1
    Handle hoSsh1
    String sHostname
    String sPort
    Boolean iSuccess
    Handle hoSsh2
    Integer iChannelNum
    String sTemp1

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

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

    // Hostname may be an IP address or domain name:
    Move "192.168.1.108" To sHostname
    Move 22 To sPort

    // Connect directly to the 1st SSH server:
    Get ComConnect Of hoSsh1 sHostname sPort To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoSsh1 To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Wait a max of 15 seconds when reading responses..
    Set ComIdleTimeoutMs Of hoSsh1 To 15000

    // Authenticate using login/password:
    Get ComAuthenticatePw Of hoSsh1 "myLogin" "myPassword" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoSsh1 To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Connect through the 1st SSH connection to reach a 2nd SSH server.
    // Note: Any number of SSH connections may be simultaneously tunneled through a single
    // existing SSH connection.
    Get Create (RefClass(cComChilkatSsh)) To hoSsh2
    If (Not(IsComObjectCreated(hoSsh2))) Begin
        Send CreateComObject of hoSsh2
    End
    Get pvComObject of hoSsh1 to vSsh1
    Get ComConnectThroughSsh Of hoSsh2 vSsh1 "someremoteserver.com" 22 To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoSsh2 To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Set ComIdleTimeoutMs Of hoSsh2 To 15000

    // Authenticate with ssh2...
    Get ComAuthenticatePw Of hoSsh2 "myLogin2" "myPassword2" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoSsh2 To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // The application may now is connected and authenticated with ssh2.
    // The application can do whatever it desires just as if it was directly
    // connected to ssh2.   For example, the application might open
    // a session channel to send commands or start a remote shell..
    Get ComOpenSessionChannel Of hoSsh2 To iChannelNum
    If (iChannelNum < 0) Begin
        Get ComLastErrorText Of hoSsh2 To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // ...
    // ...
    // ...

    // Close the connection with ssh2.  (This closes the the tunnel through ssh1.)
    // The connection with ssh1 is still alive, and may be used for more connections.
    Send ComDisconnect To hoSsh2

    // ...
    // ...
    // ...

    Send ComDisconnect To hoSsh1


End_Procedure