Perl

SFTP use Cert's Private Key for Authentication (Windows)

See more SFTP Examples

Demonstrates how to use the private key of a pre-installed certificate (on Windows) for SFTP authentication. The certificate's private key must be marked as "exportable" when originally installed. Perl

use chilkat();

$success = 0;

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

$cert = chilkat::CkCert->new();

# Load the certificate from the Windows certificate store
$success = $cert->LoadByCommonName("my_cert_common_name");
if ($success == 0) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

# Get the private key.  
$privKey = chilkat::CkPrivateKey->new();
$success = $cert->GetPrivateKey($privKey);
if ($success == 0) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

$privKeyPem = $privKey->getPkcs8Pem();
if ($privKey->get_LastMethodSuccess() == 0) {
    print $privKey->lastErrorText() . "\r\n";
    exit;
}

$sshKey = chilkat::CkSshKey->new();
$success = $sshKey->FromOpenSshPrivateKey($privKeyPem);
if ($success == 0) {
    print $sshKey->lastErrorText() . "\r\n";
    exit;
}

# Connect to an SSH/SFTP server
$sftp = chilkat::CkSFtp->new();
$success = $sftp->Connect("sftp.example.com",22);
if ($success == 0) {
    print $sftp->lastErrorText() . "\r\n";
    exit;
}

# Authenticate with the SSH server using a username + private key.
# (The private key serves as the password.  The username identifies
# the SSH user account on the server.)
$success = $sftp->AuthenticatePk("mySshLogin",$sshKey);
if ($success == 0) {
    print $sftp->lastErrorText() . "\r\n";
    exit;
}

print "OK, the connection and authentication with the SSH server is completed." . "\r\n";

# This example is only to show the connection + authentication using a private key associated with a certificate in the Windows certificate store...