(AutoIt) SSH Tunnel Inside another SSH Tunnel

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

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

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

; This example requires Chilkat version 9.5.0.50 or greater.
$oTunnel = ObjCreate("Chilkat.SshTunnel")

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

; Connect to an SSH server and establish the SSH tunnel:
Local $bSuccess = $oTunnel.Connect($sshHostname,$iSshPort)
If ($bSuccess <> True) 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 <> True) 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 <> True) 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 <> True) Then
    ConsoleWrite($oTunnelB.LastErrorText & @CRLF)
    Exit
EndIf

; Authenticate with ssh-serverB.com
$bSuccess = $oTunnelB.SshAuthenticatePw("uname","pwd")
If ($bSuccess <> True) 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
Local $oChannel
Local $iMaxWaitMs = 4000
Local $bUseTls = False
$oChannel = $oTunnelB.SshOpenChannel("time-c.nist.gov",37,$bUseTls,$iMaxWaitMs)
If ($oTunnelB.LastMethodSuccess = 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 <> True) 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 <> True) Then
    ConsoleWrite($oChannel.LastErrorText & @CRLF)

    Exit
EndIf

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

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