(PowerBuilder) SSH Public Key Authentication

Demonstrates how to authenticate with an SSH server using public key authentication.

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

integer li_rc
oleobject loo_Ssh
string ls_Hostname
integer li_Port
integer li_Success
oleobject loo_Key
string ls_PrivKey

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

loo_Ssh = create oleobject
// Use "Chilkat_9_5_0.Ssh" for versions of Chilkat < 10.0.0
li_rc = loo_Ssh.ConnectToNewObject("Chilkat.Ssh")
if li_rc < 0 then
    destroy loo_Ssh
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// Set some timeouts, in milliseconds:
loo_Ssh.ConnectTimeoutMs = 5000
loo_Ssh.IdleTimeoutMs = 15000

// Connect to the SSH server.  
// The standard SSH port = 22
// The hostname may be a hostname or IP address.
ls_Hostname = "sftp.example.com"
li_Port = 22
li_Success = loo_Ssh.Connect(ls_Hostname,li_Port)
if li_Success <> 1 then
    Write-Debug loo_Ssh.LastErrorText
    destroy loo_Ssh
    return
end if

loo_Key = create oleobject
// Use "Chilkat_9_5_0.SshKey" for versions of Chilkat < 10.0.0
li_rc = loo_Key.ConnectToNewObject("Chilkat.SshKey")

// 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.)
ls_PrivKey = loo_Key.LoadText("myPrivateKey.pem")
if loo_Key.LastMethodSuccess <> 1 then
    Write-Debug loo_Key.LastErrorText
    destroy loo_Ssh
    destroy loo_Key
    return
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.)
li_Success = loo_Key.FromOpenSshPrivateKey(ls_PrivKey)
if li_Success <> 1 then
    Write-Debug loo_Key.LastErrorText
    destroy loo_Ssh
    destroy loo_Key
    return
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.)
li_Success = loo_Ssh.AuthenticatePk("myLogin",loo_Key)
if li_Success <> 1 then
    Write-Debug loo_Ssh.LastErrorText
    destroy loo_Ssh
    destroy loo_Key
    return
end if

Write-Debug loo_Ssh.LastErrorText
Write-Debug "Public-Key Authentication Successful!"


destroy loo_Ssh
destroy loo_Key