Visual FoxPro

Multi-Hop SSH (SSH Through SSH)

See more SSH Examples

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

Visual FoxPro

LOCAL lnSuccess
LOCAL loSsh1
LOCAL lcHostname
LOCAL lcPort
LOCAL loSsh2
LOCAL lnChannelNum

lnSuccess = 0

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

loSsh1 = CreateObject('Chilkat.Ssh')

* Hostname may be an IP address or domain name:
lcHostname = "192.168.1.108"
lcPort = 22

* Connect directly to the 1st SSH server:
lnSuccess = loSsh1.Connect(lcHostname,lcPort)
IF (lnSuccess <> 1) THEN
    ? loSsh1.LastErrorText
    RELEASE loSsh1
    CANCEL
ENDIF

* Wait a max of 15 seconds when reading responses..
loSsh1.IdleTimeoutMs = 15000

* Authenticate using login/password:
lnSuccess = loSsh1.AuthenticatePw("myLogin","myPassword")
IF (lnSuccess <> 1) THEN
    ? loSsh1.LastErrorText
    RELEASE loSsh1
    CANCEL
ENDIF

* 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.
loSsh2 = CreateObject('Chilkat.Ssh')
lnSuccess = loSsh2.ConnectThroughSsh(loSsh1,"someremoteserver.com",22)
IF (lnSuccess <> 1) THEN
    ? loSsh2.LastErrorText
    RELEASE loSsh1
    RELEASE loSsh2
    CANCEL
ENDIF

loSsh2.IdleTimeoutMs = 15000

* Authenticate with ssh2...
lnSuccess = loSsh2.AuthenticatePw("myLogin2","myPassword2")
IF (lnSuccess <> 1) THEN
    ? loSsh2.LastErrorText
    RELEASE loSsh1
    RELEASE loSsh2
    CANCEL
ENDIF

* 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..
lnChannelNum = loSsh2.OpenSessionChannel()
IF (lnChannelNum < 0) THEN
    ? loSsh2.LastErrorText
    RELEASE loSsh1
    RELEASE loSsh2
    CANCEL
ENDIF

* ...
* ...
* ...

* 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.
loSsh2.Disconnect()

* ...
* ...
* ...

loSsh1.Disconnect()

RELEASE loSsh1
RELEASE loSsh2