DataFlex

Request SSH X11 Forwarding

Demonstrates the Chilkat Ssh.SendReqX11Forwarding method, which sends an X11-forwarding request on a session channel. The arguments are the channel number, whether forwarding is limited to a single connection, and the X11 authentication protocol, cookie, and screen number.

Background: X11 forwarding lets a graphical program running on the remote host display its window on your local machine, tunneled over SSH. This is a low-level method that only sends the protocol request — your application is still responsible for the local X server side of the arrangement. The authentication cookie guards the forwarded display, so it should be a freshly generated value rather than a fixed constant.

Chilkat DataFlex Downloads

Download Chilkat for DataFlex

DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoSsh
    Integer iSshPort
    String sPassword
    Integer iChannelNum
    Boolean iSingleConnection
    String sAuthProt
    String sAuthCookie
    Integer iScreenNum
    String sTemp1

    Move False To iSuccess

    //  Demonstrates the Ssh.SendReqX11Forwarding method, which sends an SSH X11-forwarding request
    //  on a session channel.  The 1st argument is the channel number, the 2nd limits forwarding to a
    //  single connection, and the 3rd through 5th supply the X11 authentication protocol, cookie,
    //  and screen number.

    Get Create (RefClass(cComChilkatSsh)) To hoSsh
    If (Not(IsComObjectCreated(hoSsh))) Begin
        Send CreateComObject of hoSsh
    End

    Move 22 To iSshPort
    Get ComConnect Of hoSsh "ssh.example.com" iSshPort To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoSsh To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    //  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.
    Move "mySshPassword" To sPassword

    Get ComAuthenticatePw Of hoSsh "mySshLogin" sPassword To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoSsh To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    //  Open a session channel.  A negative return value indicates failure.
    Get ComOpenSessionChannel Of hoSsh To iChannelNum
    If (iChannelNum < 0) Begin
        Get ComLastErrorText Of hoSsh To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    //  Request X11 forwarding.  Named variables make each argument's meaning clear.
    Move False To iSingleConnection
    Move "MIT-MAGIC-COOKIE-1" To sAuthProt
    Move "d92f5e1a7c8b4306af17c2e5b9d43081" To sAuthCookie
    Move 0 To iScreenNum
    Get ComSendReqX11Forwarding Of hoSsh iChannelNum iSingleConnection sAuthProt sAuthCookie iScreenNum To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoSsh To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "X11 forwarding requested."

    Send ComDisconnect To hoSsh


End_Procedure