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

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.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# 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 is a PrivateKey
$privKey = $cert->ExportPrivateKey();
if ($cert->get_LastMethodSuccess() == 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...