Perl

SSH Tunnel Authenticate Secure

Demonstrates how to do SSH password authentication with secure strings.

This example requires Chilkat v9.5.0.71 or greater.

Perl

use chilkat();

$success = 0;

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

# Imagine we've previously saved our encrypted login and password within a JSON config file
# that contains this:

# {
#   "ssh_login": "2+qylFfC56Ck7OQQt/U2/w==",
#   "ssh_password": "5neIq9Jmn0E3p71N6Yc8TA=="
# }

$json = chilkat::CkJsonObject->new();
$json->LoadFile("qa_data/passwords/ssh.json");

$crypt = chilkat::CkCrypt2->new();

# These are the encryption settings we previously used to encrypt the credentials within the JSON config file.
$crypt->put_CryptAlgorithm("aes");
$crypt->put_CipherMode("cbc");
$crypt->put_KeyLength(128);
$crypt->SetEncodedKey("000102030405060708090A0B0C0D0E0F","hex");
$crypt->SetEncodedIV("000102030405060708090A0B0C0D0E0F","hex");
$crypt->put_EncodingMode("base64");

$ssLogin = chilkat::CkSecureString->new();
$ssPassword = chilkat::CkSecureString->new();

# Decrypt to the secure string.  (the strings will still held in memory encrypted, but are now encrypted using
# a randomly generated session key.)
$crypt->DecryptSecureENC($json->stringOf("ssh_login"),$ssLogin);
$crypt->DecryptSecureENC($json->stringOf("ssh_password"),$ssPassword);

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

$success = $tunnel->Connect("MY-SSH-SERVER-DOMAIN-OR-IP",22);
if ($success != 1) {
    print $tunnel->lastErrorText() . "\r\n";
    exit;
}

# Authenticate using secure strings
$success = $tunnel->AuthenticateSecPw($ssLogin,$ssPassword);
if ($success != 1) {
    print $tunnel->lastErrorText() . "\r\n";
    exit;
}

print "SSH Tunnel Authentication successful." . "\r\n";

# ...

$tunnel->CloseTunnel(1);