Close an SSH Tunnel

See more Socket/SSL/TLS Examples

Demonstrates Socket.SshCloseTunnel, which closes the SSH tunnel opened by SshOpenTunnel and terminates its forwarded channels.

llSuccess = .F.

loSocket = createobject("CkSocket")

//  Connect to the SSH server and initialize an SSH tunneling session.  Port 22 is conventional but
//  not required.
llSuccess = loSocket.SshOpenTunnel("ssh.example.com",22)
if (llSuccess = .F.) then
    ? loSocket.LastErrorText
    release loSocket
    return
endif

//  Authenticate the SSH session before opening forwarded channels.
//  The SSH password should come from a secure source rather than being hard-coded.
lcSshPassword = "mySshPassword"
llSuccess = loSocket.SshAuthenticatePw("sshUser",lcSshPassword)
if (llSuccess = .F.) then
    ? loSocket.LastErrorText
    release loSocket
    return
endif

//  Close the SSH tunnel and terminate its forwarded channels.  This does not affect unrelated SSH
//  objects or connections.
llSuccess = loSocket.SshCloseTunnel()
if (llSuccess = .F.) then
    ? loSocket.LastErrorText
    release loSocket
    return
endif

? "SSH tunnel closed."


release loSocket