Visual Basic 6.0

SSH Authenticate with a SecureString Password and Private Key

Demonstrates the Chilkat Ssh.AuthenticateSecPwPk method, which performs the same combined password/private-key authentication as AuthenticatePwPk but receives the username and password as SecureString objects. The third argument is the SshKey private key.

Note: The private-key path is relative to the application's current working directory. Supply the path to your own key file.

Background: This is the SecureString form of multi-factor SSH authentication: the password is held encrypted in memory and combined with a private key for servers that require both. It is the most protective option when a deployment mandates two-factor SSH and you also want to minimize plaintext credential exposure in the process.

Chilkat Visual Basic 6.0 Downloads

Download Chilkat for Visual Basic 6.0

Visual Basic 6.0

Dim success As Long
success = 0

'  Demonstrates the Ssh.AuthenticateSecPwPk method, which authenticates using SecureString login
'  and password objects together with a private key.  The 1st argument is the username, the 2nd
'  is the password, and the 3rd is an SshKey private key.

Dim ssh As New ChilkatSsh

'  Connect to the SSH server.  Port 22 is the usual SSH port.
Dim sshPort As Long
sshPort = 22
success = ssh.Connect("ssh.example.com",sshPort)
If (success = 0) Then
    Debug.Print ssh.LastErrorText
    Exit Sub
End If

'  Normally you would not hard-code the password in source.  You should instead obtain it
'  from an interactive prompt, environment variable, or a secrets vault.
Dim password As String
password = "mySshPassword"

'  Load the SSH private key.  LoadText reads the file's text, which is then imported.
Dim privKey As New ChilkatSshKey
Dim keyStr As String
keyStr = privKey.LoadText("qa_data/id_rsa")
If (privKey.LastMethodSuccess = 0) Then
    Debug.Print privKey.LastErrorText
    Exit Sub
End If

success = privKey.FromOpenSshPrivateKey(keyStr)
If (success = 0) Then
    Debug.Print privKey.LastErrorText
    Exit Sub
End If

'  Place the login and password into SecureString objects.
Dim secureLogin As New ChilkatSecureString
success = secureLogin.Append("mySshLogin")
Dim securePassword As New ChilkatSecureString
success = securePassword.Append(password)

success = ssh.AuthenticateSecPwPk(secureLogin,securePassword,privKey)
If (success = 0) Then
    Debug.Print ssh.LastErrorText
    Exit Sub
End If

Debug.Print "Authenticated."

ssh.Disconnect