(Visual Basic 6.0) SFTP Public-Key Authentication (id_ed25519)

See more SFTP Examples

Demonstrates how to authenticate with an SSH/SFTP server using publickey authentication with an Ed25519 private key (id_ed25519).

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

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

Dim key As New ChilkatSshKey

' The id_ed25519 file should contain something like this:
' (You can open it in a text editor..)

' -----BEGIN OPENSSH PRIVATE KEY-----
' b3BlbnNzaC1rZXktdjEAAAAACmFlczI1Ni1jdHIAAAAGYmNyeXB0AAAAGAAAABDIeK9+Xw
' 6Do9gnhtrJu5iJAAAAZAAAAAEAAAAzAAAAC3NzaC1lZDI1NTE5AAAAIMh/Ge7fjQCssmVd
' BqjYZbRAI0pY8IrnB6J1yLetq34OAAAAoMVP7cvy4hTiAINA3I4v55OonkpKza8mzfUW18
' RDQeYL3ovCVaAYOGcCpf/SW3QiY6tnXq+5WDEfJ7Z/kQ0nl2+1wSLOytxpyO+IY0rRtLrX
' 6e/agR4nbZpt/MFG6xqcNASbtDgg+9IWGvDrtXOLFofx07/zml+UjFL0tXRpCjOxeqKyXH
' t8SRgdT97d9/bYPwapaXY+b2DVVy5/LVx4Sq8=
' -----END OPENSSH PRIVATE KEY-----

Dim privKeyText As String
privKeyText = key.LoadText("c:/temp/id_ed25519")
If (key.LastMethodSuccess <> 1) Then
    Debug.Print key.LastErrorText
    Exit Sub
End If

' If your private key was saved encrypted, then you'll need the password.
' In this example, the password "blahblah" is valid for the above key -- which is a real Ed25519 key generated/saved from puttygen.
key.Password = "blahblah"

Dim success As Long
success = key.FromOpenSshPrivateKey(privKeyText)
If (success <> 1) Then
    Debug.Print key.LastErrorText
    Exit Sub
End If

Dim sftp As New ChilkatSFtp

' Set some timeouts, in milliseconds:
sftp.ConnectTimeoutMs = 5000
sftp.IdleTimeoutMs = 15000

Dim hostname As String
hostname = "sftp.example.com"
Dim port As Long
port = 22
Dim success As Long
success = sftp.Connect(hostname,port)
If (success <> 1) Then
    Debug.Print sftp.LastErrorText
    Exit Sub
End If

' Authenticate with the SSH server.  Chilkat SFTP supports
' both password-based authenication as well as public-key
' authentication.  
success = sftp.AuthenticatePk("myLogin",key)
If (success <> 1) Then
    Debug.Print sftp.LastErrorText
    Exit Sub
End If

Debug.Print sftp.LastErrorText
Debug.Print "Public-Key Authentication Successful!"

' Now go do whatever you're app needs to do...