AutoIt Requires Chilkat v11.0.0+

SSH Tunnel Inside another SSH Tunnel

See more SSH Tunnel Examples

Demonstrates how to create a TCP/IP socket connection through an SSH tunnel that is dynamic port forwarded through another SSH tunnel. AutoIt

Local $bSuccess = False

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

$oTunnel = ObjCreate("Chilkat.SshTunnel")

Local $sshHostname = "www.ssh-serverA.com"
Local $iSshPort = 22

;  Connect to an SSH server and establish the SSH tunnel:
$bSuccess = $oTunnel.Connect($sshHostname,$iSshPort)
If ($bSuccess = False) Then
    ConsoleWrite($oTunnel.LastErrorText & @CRLF)
    Exit
EndIf

;  Authenticate with the SSH server via a login/password
;  or with a public key.  
;  This example demonstrates SSH password authentication.
$bSuccess = $oTunnel.AuthenticatePw("mySshLogin","mySshPassword")
If ($bSuccess = False) Then
    ConsoleWrite($oTunnel.LastErrorText & @CRLF)
    Exit
EndIf

;  Indicate that the background SSH tunnel thread will behave as a SOCKS proxy server
;  with dynamic port forwarding:
$oTunnel.DynamicPortForwarding = True

;  We may optionally require that connecting clients authenticate with our SOCKS proxy server.
;  To do this, set an inbound username/password.  Any connecting clients would be required to 
;  use SOCKS5 with the correct username/password.
;  If no inbound username/password is set, then our SOCKS proxy server will accept both
;  SOCKS4 and SOCKS5 unauthenticated connections.

$oTunnel.InboundSocksUsername = "chilkat123"
$oTunnel.InboundSocksPassword = "password123"

;  Start the listen/accept thread to begin accepting SOCKS proxy client connections.
;  Listen on port 1080.
$bSuccess = $oTunnel.BeginAccepting(1080)
If ($bSuccess = False) Then
    ConsoleWrite($oTunnel.LastErrorText & @CRLF)
    Exit
EndIf

;  Now that a background thread is running a SOCKS proxy server that forwards connections
;  through an SSH tunnel, it is possible to use any Chilkat implemented protocol that is SOCKS capable,
;  such as HTTP, POP3, SMTP, IMAP, FTP, Socket, etc.  The protocol may use SSL/TLS because the SSL/TLS
;  will be passed through the SSH tunnel to the end-destination.  Also, any number of simultaneous
;  connections may be routed through the SSH tunnel.

$oTunnelB = ObjCreate("Chilkat.Socket")

;  Indicate that the socket object is to use our portable SOCKS proxy/SSH tunnel running in our background thread.
$oTunnelB.SocksHostname = "localhost"
$oTunnelB.SocksPort = 1080
$oTunnelB.SocksVersion = 5
$oTunnelB.SocksUsername = "chilkat123"
$oTunnelB.SocksPassword = "password123"

;  Open a new SSH tunnel through the existing tunnel (via what we treat as a SOCKS5 proxy,
;  but it is actually a dynamic port-forwarded SSH tunnel).
$bSuccess = $oTunnelB.SshOpenTunnel("www.ssh-serverB.com",22)
If ($bSuccess = False) Then
    ConsoleWrite($oTunnelB.LastErrorText & @CRLF)
    Exit
EndIf

;  Authenticate with ssh-serverB.com
$bSuccess = $oTunnelB.SshAuthenticatePw("uname","pwd")
If ($bSuccess = False) Then
    ConsoleWrite($oTunnelB.LastErrorText & @CRLF)
    Exit
EndIf

;  OK, the SSH tunnel (within a tunnel) is setup.  Now open a channel within the tunnel.
;  Once the channel is obtained, the Socket API may
;  be used exactly the same as usual, except all communications
;  are sent through the channel in the SSH tunnel.
;  Any number of channels may be created from the same SSH tunnel.
;  Multiple channels may coexist at the same time.

;  Connect to an NIST time server and read the current date/time
$oChannel = ObjCreate("Chilkat.Socket")
Local $iMaxWaitMs = 4000
Local $bUseTls = False
$bSuccess = $oTunnelB.SshNewChannel("time-c.nist.gov",37,$bUseTls,$iMaxWaitMs,$oChannel)
If ($bSuccess = False) Then
    ConsoleWrite($oTunnelB.LastErrorText & @CRLF)
    Exit
EndIf

;  The time server will send a big-endian 32-bit integer representing
;  the number of seconds since since 00:00 (midnight) 1 January 1900 GMT.
;  The ReceiveInt32 method will receive a 4-byte integer, but returns
;  True or False to indicate success.  If successful, the integer
;  is obtained via the ReceivedInt property.
Local $bigEndian = True
$bSuccess = $oChannel.ReceiveInt32($bigEndian)
If ($bSuccess = False) Then
    ConsoleWrite($oChannel.LastErrorText & @CRLF)
    Exit
EndIf

$oDt = ObjCreate("Chilkat.CkDateTime")
$oDt.SetFromNtpTime($oChannel.ReceivedInt)

;  Show the current local date/time
Local $bLocalTime = True
ConsoleWrite("Current local date/time: " & $oDt.GetAsRfc822($bLocalTime) & @CRLF)

;  Close the SSH channel.
$bSuccess = $oChannel.Close($iMaxWaitMs)
If ($bSuccess = False) Then
    ConsoleWrite($oChannel.LastErrorText & @CRLF)
    Exit
EndIf

;  Stop the background listen/accept thread:
Local $bWaitForThreadExit = True
$bSuccess = $oTunnel.StopAccepting($bWaitForThreadExit)
If ($bSuccess = False) Then
    ConsoleWrite($oTunnel.LastErrorText & @CRLF)
    Exit
EndIf

;  Close the SSH tunnel (would also kick any remaining connected clients).
$bSuccess = $oTunnel.CloseTunnel($bWaitForThreadExit)
If ($bSuccess = False) Then
    ConsoleWrite($oTunnel.LastErrorText & @CRLF)
    Exit
EndIf