Perl

Open an SSH Tunnel

Demonstrates Socket.SshOpenTunnel, which connects to an SSH server and initializes an SSH tunneling session, then authenticates it.

Background. An SSH tunnel lets a socket reach a destination host through an SSH server using port forwarding. The sequence is: open the tunnel, authenticate, then open forwarded channels to destinations.

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

$success = 0;

$socket = chilkat::CkSocket->new();

#  Connect to the SSH server and initialize an SSH tunneling session.  Port 22 is conventional but
#  not required.
$success = $socket->SshOpenTunnel("ssh.example.com",22);
if ($success == 0) {
    print $socket->lastErrorText() . "\r\n";
    exit;
}

#  After the tunnel is open, authenticate before opening forwarded channels.
#  The SSH password should come from a secure source rather than being hard-coded.
$sshPassword = "mySshPassword";
$success = $socket->SshAuthenticatePw("sshUser",$sshPassword);
if ($success == 0) {
    print $socket->lastErrorText() . "\r\n";
    exit;
}

print "SSH tunnel established and authenticated." . "\r\n";