Perl

SSH Tunnel Through an Outbound HTTP Proxy

Demonstrates reaching the SSH server through an outbound HTTP proxy using the HttpProxyHostname, HttpProxyPort, HttpProxyUsername, HttpProxyPassword, HttpProxyAuthMethod, and HttpProxyDomain properties.

Background: Many corporate networks force outbound traffic through an HTTP proxy, which reaches non-HTTP services such as SSH via the CONNECT method — so the proxy must be configured to allow CONNECT to the SSH port. HttpProxyAuthMethod is Basic or NTLM, with HttpProxyDomain supplying the Windows domain for NTLM. Note that if SocksVersion is set, the SOCKS proxy takes precedence and these HTTP settings are ignored.

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

$success = 0;

#  Demonstrates reaching the SSH server through an outbound HTTP proxy using the SshTunnel
#  properties HttpProxyHostname, HttpProxyPort, HttpProxyUsername, HttpProxyPassword,
#  HttpProxyAuthMethod, and HttpProxyDomain.

$tunnel = chilkat::CkSshTunnel->new();

#  The HTTP proxy through which the outbound connection to the SSH server is made.  Common HTTP
#  proxy ports include 8080 and 3128.  (If SocksVersion is 4 or 5, the SOCKS proxy takes
#  precedence and these settings are ignored.)
$tunnel->put_HttpProxyHostname("proxy.example.com");
$tunnel->put_HttpProxyPort(8080);

#  Proxy authentication, if the proxy requires it.  Valid HttpProxyAuthMethod values are "Basic"
#  and "NTLM".  HttpProxyDomain is the optional Windows domain used for NTLM.
$tunnel->put_HttpProxyUsername("myProxyLogin");
$tunnel->put_HttpProxyPassword("myProxyPassword");
$tunnel->put_HttpProxyAuthMethod("NTLM");
$tunnel->put_HttpProxyDomain("CORP");

$tunnel->put_DestHostname("db.internal.example.com");
$tunnel->put_DestPort(5432);

$sshPort = 22;
$success = $tunnel->Connect("ssh.example.com",$sshPort);
if ($success == 0) {
    print $tunnel->lastErrorText() . "\r\n";
    exit;
}

#  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.
$password = "mySshPassword";

$success = $tunnel->AuthenticatePw("mySshLogin",$password);
if ($success == 0) {
    print $tunnel->lastErrorText() . "\r\n";
    exit;
}

$listenPort = 1080;
$success = $tunnel->BeginAccepting($listenPort);
if ($success == 0) {
    print $tunnel->lastErrorText() . "\r\n";
    exit;
}

print "Tunnel established through the HTTP proxy." . "\r\n";

$waitForThreadExit = 1;
$success = $tunnel->CloseTunnel($waitForThreadExit);
if ($success == 0) {
    print $tunnel->lastErrorText() . "\r\n";
    exit;
}