(DataFlex) SSH Tunnel (Port Forwarding via direct-tcpip channel)

Demonstrates how to create an SSH tunnel to a remote hostname:port via a direct-tcpip channel.

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

Use ChilkatAx-9.5.0-win32.pkg

Procedure Test
    Handle hoSsh
    String sHostname
    Integer iPort
    Boolean iSuccess
    Integer iChannelNum
    String sHttpReq
    Boolean iCaseSensitive
    String sMatchStr
    String sResponseHeader
    Integer iNumBytesRead
    Integer iPollTimeoutMs
    String sHtmlBody
    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 hoSsh
    If (Not(IsComObjectCreated(hoSsh))) Begin
        Send CreateComObject of hoSsh
    End

    // Connect to an SSH server:

    // Hostname may be an IP address or hostname:
    Move "192.168.1.117" To sHostname
    Move 22 To iPort

    Get ComConnect Of hoSsh sHostname iPort To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoSsh To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Wait a max of 5 seconds when reading responses..
    Set ComIdleTimeoutMs Of hoSsh To 5000

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

    // Open a direct-tcpip channel.  We want the SSH server to connect
    // to www.chilkatsoft.com, port 80 (i.e. the web server).
    // Data sent through the SSH tunnel is forwarded to the remote
    // host:port.  (Note: The remote host:port does not need to be 
    // a web server.  It can be anything.  It can be your own
    // customer application server that listens on a port, or any
    // other type of server.)
    // When we read from the SSH channel, we'll be reading data
    // sent from the remote host:port (i.e. the web server in this
    // example).

    Get ComOpenDirectTcpIpChannel Of hoSsh "www.chilkatsoft.com" 80 To iChannelNum
    If (iChannelNum < 0) Begin
        Get ComLastErrorText Of hoSsh To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Build a simple HTTP GET request for http://www.chilkatsoft.com/xyz.html
    Move "GET /xyz123.html HTTP/1.1" + (character(13)) + (character(10)) + "Host: www.chilkatsoft.com" + (character(13)) + (character(10)) + (character(13)) + (character(10)) To sHttpReq

    // Send the HTTP request:
    Get ComChannelSendString Of hoSsh iChannelNum sHttpReq "ansi" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoSsh To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Get the HTTP response.
    // First read the HTTP response header which ends with a double CRLF.
    // Calling ChannelReceiveUntilMatch will receive until match string is seen,
    // or until a timeout occurs (IdleTimeoutMs property).  ChannelReceiveUntilMatch
    // may read beyond the match string, but it will stop reading as soon as the match
    // string is seen.
    Move False To iCaseSensitive
    Move (character(13)) + (character(10)) + (character(13)) + (character(10)) To sMatchStr
    Get ComChannelReceiveUntilMatch Of hoSsh iChannelNum sMatchStr "ansi" iCaseSensitive To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoSsh To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Extract the HTTP header from the receive buffer.
    // (GetReceiveTextS extracts up to and including the match string from the receive buffer)

    Get ComGetReceivedTextS Of hoSsh iChannelNum sMatchStr "ansi" To sResponseHeader
    Showln "---- HTTP Response Header ----"
    Showln sResponseHeader

    // Now get the body of the HTTP response (this is the HTML content
    // of http://www.chilkatsoft.com/xyz.html
    // It's possible we've already received the entire HTTP response in the
    // call to ChannelReceiveUntilMatch.  Therefore, we'll poll for any remaining data
    // and wait a max of .2 seconds.

    Move 200 To iPollTimeoutMs
    Get ComChannelPoll Of hoSsh iChannelNum iPollTimeoutMs To iNumBytesRead
    // We're not checking for an error here.
    // A return value of -2 means that no data was available and the poll simply timed out (not an error)
    // A return value of -1 indicates an error.
    // A return value greater than 0 indicates that additional data was received.

    Showln "---- HTML BODY ----"

    // Extract the remainder of the accumulated data in the internal receive buffer.
    // This should be our HTML body:

    Get ComGetReceivedText Of hoSsh iChannelNum "ansi" To sHtmlBody
    Showln sHtmlBody

    // Close the channel:
    Get ComChannelSendClose Of hoSsh iChannelNum To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoSsh To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Disconnect
    Send ComDisconnect To hoSsh


End_Procedure