(Visual FoxPro) SFTP Authenticate Secure

Demonstrates how to do SFTP password authentication with secure strings.

This example requires Chilkat v9.5.0.71 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL lnSuccess
LOCAL loJson
LOCAL loCrypt
LOCAL loSsLogin
LOCAL loSsPassword
LOCAL loSftp

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

* Imagine we've previously saved our encrypted login and password within a JSON config file
* that contains this:

* {
*   "ssh_login": "2+qylFfC56Ck7OQQt/U2/w==",
*   "ssh_password": "5neIq9Jmn0E3p71N6Yc8TA=="
* }

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')
loJson.LoadFile("qa_data/passwords/ssh.json")

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Crypt2')
loCrypt = CreateObject('Chilkat.Crypt2')

* These are the encryption settings we previously used to encrypt the credentials within the JSON config file.
loCrypt.CryptAlgorithm = "aes"
loCrypt.CipherMode = "cbc"
loCrypt.KeyLength = 128
loCrypt.SetEncodedKey("000102030405060708090A0B0C0D0E0F","hex")
loCrypt.SetEncodedIV("000102030405060708090A0B0C0D0E0F","hex")
loCrypt.EncodingMode = "base64"

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.SecureString')
loSsLogin = CreateObject('Chilkat.SecureString')
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.SecureString')
loSsPassword = CreateObject('Chilkat.SecureString')

* Decrypt to the secure string.  (the strings will still held in memory encrypted, but are now encrypted using
* a randomly generated session key.)
loCrypt.DecryptSecureENC(loJson.StringOf("ssh_login"),loSsLogin)
loCrypt.DecryptSecureENC(loJson.StringOf("ssh_password"),loSsPassword)

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.SFtp')
loSftp = CreateObject('Chilkat.SFtp')

lnSuccess = loSftp.Connect("MY-SSH-SERVER-DOMAIN-OR-IP",22)
IF (lnSuccess <> 1) THEN
    ? loSftp.LastErrorText
    RELEASE loJson
    RELEASE loCrypt
    RELEASE loSsLogin
    RELEASE loSsPassword
    RELEASE loSftp
    CANCEL
ENDIF

* Authenticate using secure strings
lnSuccess = loSftp.AuthenticateSecPw(loSsLogin,loSsPassword)
IF (lnSuccess <> 1) THEN
    ? loSftp.LastErrorText
    RELEASE loJson
    RELEASE loCrypt
    RELEASE loSsLogin
    RELEASE loSsPassword
    RELEASE loSftp
    CANCEL
ENDIF

? "SFTP Authentication successful."

loSftp.Disconnect()

RELEASE loJson
RELEASE loCrypt
RELEASE loSsLogin
RELEASE loSsPassword
RELEASE loSftp