Perl Requires Chilkat v9.5.0.71+

SFTP Authenticate Secure

Demonstrates how to do SFTP password authentication with secure strings. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# 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=="
# }

my $json = Chilkat2::JsonObject->new;
$json->LoadFile('qa_data/passwords/ssh.json');

my $crypt = Chilkat2::Crypt2->new;

# These are the encryption settings we previously used to encrypt the credentials within the JSON config file.
$crypt->CryptAlgorithm('aes');
$crypt->CipherMode('cbc');
$crypt->KeyLength(128);
$crypt->SetEncodedKey('000102030405060708090A0B0C0D0E0F', 'hex');
$crypt->SetEncodedIV('000102030405060708090A0B0C0D0E0F', 'hex');
$crypt->EncodingMode('base64');

my $ssLogin = Chilkat2::SecureString->new;
my $ssPassword = Chilkat2::SecureString->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);

my $sftp = Chilkat2::SFtp->new;

my $success = $sftp->Connect('MY-SSH-SERVER-DOMAIN-OR-IP', 22);
if (!$success) {
    print $sftp->LastErrorText, "\n";
    exit;
}

# Authenticate using secure strings
$success = $sftp->AuthenticateSecPw($ssLogin, $ssPassword);
if (!$success) {
    print $sftp->LastErrorText, "\n";
    exit;
}

print "SFTP Authentication successful.\n";

$sftp->Disconnect();