Visual FoxPro

Connect to an SFTP Server Through a Jump Host

Demonstrates the Chilkat SFtp.ConnectThroughSsh method, which connects to an SFTP server through an already connected and authenticated Ssh object. The first argument is the jump-host Ssh object, and the second and third are the destination hostname and port.

Background: This is the "jump host" (bastion) pattern: the application connects to a reachable gateway, then tunnels onward to an SFTP server that is only accessible from inside the network. Each hop authenticates separately with its own credentials. The result is a normal SFtp object — still requiring its own authentication and InitializeSftp — that happens to be routed through the first connection.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loSshJump
LOCAL lnPort
LOCAL lcPassword
LOCAL loSftp

lnSuccess = 0

*  Demonstrates the SFtp.ConnectThroughSsh method, which connects to an SFTP server through an
*  already connected and authenticated Ssh object (a jump host).  The 1st argument is the Ssh
*  object, and the 2nd and 3rd are the destination hostname and port.

loSshJump = CreateObject('Chilkat.Ssh')

*  Connect and authenticate to the jump host first.
lnPort = 22
lnSuccess = loSshJump.Connect("jump.example.com",lnPort)
IF (lnSuccess = 0) THEN
    ? loSshJump.LastErrorText
    RELEASE loSshJump
    CANCEL
ENDIF

*  Normally you would not hard-code the password in source.  You should instead obtain it
*  from an interactive prompt, environment variable, or a secrets vault.
lcPassword = "mySshPassword"

lnSuccess = loSshJump.AuthenticatePw("myJumpLogin",lcPassword)
IF (lnSuccess = 0) THEN
    ? loSshJump.LastErrorText
    RELEASE loSshJump
    CANCEL
ENDIF

*  Connect to the SFTP server through the jump host.
loSftp = CreateObject('Chilkat.SFtp')
lnSuccess = loSftp.ConnectThroughSsh(loSshJump,"sftp.internal.example.com",lnPort)
IF (lnSuccess = 0) THEN
    ? loSftp.LastErrorText
    RELEASE loSshJump
    RELEASE loSftp
    CANCEL
ENDIF

*  Authenticate to the SFTP server (its own credentials), then initialize SFTP.
lnSuccess = loSftp.AuthenticatePw("mySshLogin",lcPassword)
IF (lnSuccess = 0) THEN
    ? loSftp.LastErrorText
    RELEASE loSshJump
    RELEASE loSftp
    CANCEL
ENDIF

lnSuccess = loSftp.InitializeSftp()
IF (lnSuccess = 0) THEN
    ? loSftp.LastErrorText
    RELEASE loSshJump
    RELEASE loSftp
    CANCEL
ENDIF

? "Connected to the SFTP server through the jump host."

loSftp.Disconnect()
loSshJump.Disconnect()

RELEASE loSshJump
RELEASE loSftp