Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Excel) SSH Public Key AuthenticationDemonstrates how to authenticate with an SSH server using public key authentication.
' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim ssh As Chilkat.Ssh Set ssh = Chilkat.NewSsh ' Set some timeouts, in milliseconds: ssh.ConnectTimeoutMs = 5000 ssh.IdleTimeoutMs = 15000 ' Connect to the SSH server. ' The standard SSH port = 22 ' The hostname may be a hostname or IP address. hostname = "sftp.example.com" port = 22 success = ssh.Connect(hostname,port) If (success <> True) Then Debug.Print ssh.LastErrorText Exit Sub End If Dim key As Chilkat.SshKey Set key = Chilkat.NewSshKey ' Read the PEM file into a string variable: ' (This does not load the PEM file into the key. The LoadText ' method is a convenience method for loading the full contents of ANY text ' file into a string variable.) privKey = key.LoadText("myPrivateKey.pem") If (key.LastMethodSuccess <> True) Then Debug.Print key.LastErrorText Exit Sub End If ' Load a private key from a PEM string: ' (Private keys may be loaded from OpenSSH and Putty formats. ' Both encrypted and unencrypted private key file formats ' are supported. This example loads an unencrypted private ' key in OpenSSH format. PuTTY keys typically use the .ppk ' file extension, while OpenSSH keys use the PEM format. ' (For PuTTY keys, call FromPuttyPrivateKey instead.) success = key.FromOpenSshPrivateKey(privKey) If (success <> True) Then Debug.Print key.LastErrorText Exit Sub End If ' Authenticate with the SSH server using the login and ' private key. (The corresponding public key should've ' been installed on the SSH server beforehand.) success = ssh.AuthenticatePk("myLogin",key) If (success <> True) Then Debug.Print ssh.LastErrorText Exit Sub End If Debug.Print ssh.LastErrorText Debug.Print "Public-Key Authentication Successful!" |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.