(Perl) SFTP use Cert's Private Key from PFX (.pfx/.p12)

Demonstrates how to use the private key associated with a certificate from a .pfx/.p12 file.

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();

$pfxFilepath = "qa_data/pfx/my.pfx";
$pfxPassword = "secret";

# A PFX typically contains certificates in the chain of authentication.
# The Chilkat cert object will choose the certificate w/
# private key farthest from the root authority cert.
# To access all the certificates in a PFX, use the 
# Chilkat certificate store object instead.
$success = $cert->LoadPfxFile($pfxFilepath,$pfxPassword);
if ($success != 1) {
    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...