Visual FoxPro

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 Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loSsh
LOCAL lnSshPort
LOCAL lcPassword
LOCAL lnChannelNum
LOCAL lnSingleConnection
LOCAL lcAuthProt
LOCAL lcAuthCookie
LOCAL lnScreenNum

lnSuccess = 0

*  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.

loSsh = CreateObject('Chilkat.Ssh')

lnSshPort = 22
lnSuccess = loSsh.Connect("ssh.example.com",lnSshPort)
IF (lnSuccess = 0) THEN
    ? loSsh.LastErrorText
    RELEASE loSsh
    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 = loSsh.AuthenticatePw("mySshLogin",lcPassword)
IF (lnSuccess = 0) THEN
    ? loSsh.LastErrorText
    RELEASE loSsh
    CANCEL
ENDIF

*  Open a session channel.  A negative return value indicates failure.
lnChannelNum = loSsh.OpenSessionChannel()
IF (lnChannelNum < 0) THEN
    ? loSsh.LastErrorText
    RELEASE loSsh
    CANCEL
ENDIF

*  Request X11 forwarding.  Named variables make each argument's meaning clear.
lnSingleConnection = 0
lcAuthProt = "MIT-MAGIC-COOKIE-1"
lcAuthCookie = "d92f5e1a7c8b4306af17c2e5b9d43081"
lnScreenNum = 0
lnSuccess = loSsh.SendReqX11Forwarding(lnChannelNum,lnSingleConnection,lcAuthProt,lcAuthCookie,lnScreenNum)
IF (lnSuccess = 0) THEN
    ? loSsh.LastErrorText
    RELEASE loSsh
    CANCEL
ENDIF

? "X11 forwarding requested."

loSsh.Disconnect()

RELEASE loSsh