Perl

SSH Tunnel Uncommon Options

Demonstrates the UncommonOptions property, which enables optional behavior for uncommon requirements. The default is an empty string; provide a comma-separated list of keywords to enable more than one option. Available keywords are listed in the reference documentation.

Background: This is a catch-all for narrow workarounds that do not warrant their own properties — forcing a specific signature algorithm, disabling the periodic keep-alive, removing weak MACs, bypassing a VPN on Android, and so on. Most applications never set it. When you do, it is usually to satisfy a particular server's quirk or a specific security requirement, and the exact keyword matters, so consult the documented list rather than guessing.

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

$success = 0;

#  Demonstrates the SshTunnel.UncommonOptions property, which enables optional behavior for
#  uncommon requirements.  The default is an empty string, appropriate for most applications.
#  Provide a comma-separated list of keywords to enable more than one option.

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

#  For example, disable the periodic keep-alive ignore message and remove weak MAC algorithms
#  from those offered.  Available keywords are listed in the reference documentation.
$tunnel->put_UncommonOptions("NoKeepAliveIgnoreMsg,no-weak-mac-algs");

$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." . "\r\n";

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