Visual FoxPro Requires Chilkat v11.0.0+

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. Visual FoxPro

LOCAL lnSuccess
LOCAL loCert
LOCAL lcPfxFilepath
LOCAL lcPfxPassword
LOCAL loPrivKey
LOCAL lcPrivKeyPem
LOCAL loSshKey
LOCAL loSftp

lnSuccess = 0

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

loCert = CreateObject('Chilkat.Cert')

lcPfxFilepath = "qa_data/pfx/my.pfx"
lcPfxPassword = "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.
lnSuccess = loCert.LoadPfxFile(lcPfxFilepath,lcPfxPassword)
IF (lnSuccess = 0) THEN
    ? loCert.LastErrorText
    RELEASE loCert
    CANCEL
ENDIF

*  Get the private key.  
loPrivKey = CreateObject('Chilkat.PrivateKey')
lnSuccess = loCert.GetPrivateKey(loPrivKey)
IF (lnSuccess = 0) THEN
    ? loCert.LastErrorText
    RELEASE loCert
    RELEASE loPrivKey
    CANCEL
ENDIF

lcPrivKeyPem = loPrivKey.GetPkcs8Pem()
IF (loPrivKey.LastMethodSuccess = 0) THEN
    ? loPrivKey.LastErrorText
    RELEASE loCert
    RELEASE loPrivKey
    CANCEL
ENDIF

loSshKey = CreateObject('Chilkat.SshKey')
lnSuccess = loSshKey.FromOpenSshPrivateKey(lcPrivKeyPem)
IF (lnSuccess = 0) THEN
    ? loSshKey.LastErrorText
    RELEASE loCert
    RELEASE loPrivKey
    RELEASE loSshKey
    CANCEL
ENDIF

*  Connect to an SSH/SFTP server
loSftp = CreateObject('Chilkat.SFtp')
lnSuccess = loSftp.Connect("sftp.example.com",22)
IF (lnSuccess = 0) THEN
    ? loSftp.LastErrorText
    RELEASE loCert
    RELEASE loPrivKey
    RELEASE loSshKey
    RELEASE loSftp
    CANCEL
ENDIF

*  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.)
lnSuccess = loSftp.AuthenticatePk("mySshLogin",loSshKey)
IF (lnSuccess = 0) THEN
    ? loSftp.LastErrorText
    RELEASE loCert
    RELEASE loPrivKey
    RELEASE loSshKey
    RELEASE loSftp
    CANCEL
ENDIF

? "OK, the connection and authentication with the SSH server is completed."

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

RELEASE loCert
RELEASE loPrivKey
RELEASE loSshKey
RELEASE loSftp