Classic ASP

Use a PuTTY Key for SSH Authentication

Demonstrates authenticating with an SSH server using a username and a PuTTY (.ppk) private key. The key is imported with FromPuttyPrivateKey — setting Password first if it is encrypted — and passed to AuthenticatePk.

Note: The file paths are relative to the application's current working directory. Supply the paths to your own files.

Background: A PuTTY key can be used directly for authentication with no conversion step, which is convenient when the key was generated by PuTTYgen on Windows. Conceptually the private key takes the place of a password while the username identifies the account, and the corresponding public key must already be installed on the server. Convert to OpenSSH format only if some other tool in your pipeline requires PEM.

Chilkat Classic ASP Downloads

Download Chilkat for Classic ASP

Classic ASP

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

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

'  Demonstrates authenticating with an SSH server using a username and a PuTTY (.ppk) private
'  key.  The private key serves as the credential; the username identifies the account on the
'  server.

set ssh = Server.CreateObject("Chilkat.Ssh")

'  LoadText is a convenience method that reads any text file into a string.  It does not itself
'  load the key.
set puttyKey = Server.CreateObject("Chilkat.SshKey")
ppkText = puttyKey.LoadText("qa_data/ppk/putty_private_secret.ppk")
If (puttyKey.LastMethodSuccess = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( puttyKey.LastErrorText) & "</pre>"
    Response.End
End If

'  Set the password before importing an encrypted .ppk.  This should come from a secure source
'  rather than being hard-coded.
puttyKey.Password = "myKeyPassword"

success = puttyKey.FromPuttyPrivateKey(ppkText)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( puttyKey.LastErrorText) & "</pre>"
    Response.End
End If

sshHostname = "ssh.example.com"
sshPort = 22
success = ssh.Connect(sshHostname,sshPort)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( ssh.LastErrorText) & "</pre>"
    Response.End
End If

'  The corresponding public key must already be installed on the SSH server for the account.
success = ssh.AuthenticatePk("mySshLogin",puttyKey)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( ssh.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "Connection and authentication with the SSH server completed.") & "</pre>"

ssh.Disconnect 

%>
</body>
</html>