Perl
Perl
SFTP use Cert's Private Key from PFX (.pfx/.p12)
See more SFTP Examples
Demonstrates how to use the private key associated with a certificate from a .pfx/.p12 file.Chilkat Perl Downloads
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();
$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 == 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...