Classic ASP

Load an SSH Key from a File (Many Formats Supported)

Demonstrates how to load an SSH public or private key object from a file. The file can be in any of the following formats:

OpenSSH private key
OpenSSH public key
PuTTY private key
RFC 4716 public key

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

set sshkey = Server.CreateObject("Chilkat.SshKey")

' First, use the LoadText convenience method to load a text file (of any SSH key format)
' into a string:
strKey = sshkey.LoadText("../mySshKeys/myKey.txt")

' Next, load the key into the SSH key object.

' If the key is an OpenSSH private key:
' (In actuality, the From* methods will automatically detect the format and load
' the key correctly.  For example, if a PuTTY private key is passed to FromOpenSshPrivateKey,
' it  will still load correctly.)
success = sshkey.FromOpenSshPrivateKey(strKey)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( sshkey.LastErrorText) & "</pre>"
Else
    Response.Write "<pre>" & Server.HTMLEncode( "Loaded OpenSSH private key.") & "</pre>"
    Response.End
End If

' If the key is an OpenSSH public key:
success = sshkey.FromOpenSshPublicKey(strKey)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( sshkey.LastErrorText) & "</pre>"
Else
    Response.Write "<pre>" & Server.HTMLEncode( "Loaded OpenSSH public key.") & "</pre>"
    Response.End
End If

' If the key is a PuTTY private key:
success = sshkey.FromPuttyPrivateKey(strKey)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( sshkey.LastErrorText) & "</pre>"
Else
    Response.Write "<pre>" & Server.HTMLEncode( "Loaded PuTTY private key.") & "</pre>"
    Response.End
End If

' If the key is an RFC 4716 public key:
success = sshkey.FromRfc4716PublicKey(strKey)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( sshkey.LastErrorText) & "</pre>"
Else
    Response.Write "<pre>" & Server.HTMLEncode( "Loaded RFC 4716 public key.") & "</pre>"
End If


%>
</body>
</html>