Classic ASP

SSH HSM Public Key Authentication

Demonstrates SSH public-key authentication using a private key stored on an HSM — a USB token or smart card — accessed through PKCS#11. A session is opened with the vendor's driver, the key handles are located, and an SshKey object is bound to them with UsePkcs11.

Background: The point of an HSM is that the private key is generated on the device and cannot be exported: the signing operation happens on the hardware, so the key material never reaches your application's memory or disk. Even a fully compromised host cannot yield a copy of the key. PKCS#11 is the vendor-neutral interface to such devices, which is why the driver path and the object-finding template are the only vendor-specific parts of this example.

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 SSH public-key authentication using a private key stored on an HSM (a USB token
'  or smart card) accessed through PKCS#11.
'  
'  Note: Chilkat's PKCS#11 implementation runs on Windows, Linux, macOS, and other supported
'  operating systems.

set pkcs11 = Server.CreateObject("Chilkat.Pkcs11")

'  The PKCS#11 driver supplied by your HSM vendor: a .dll on Windows, a .so on Linux, or a
'  .dylib on macOS.
pkcs11.SharedLibPath = "C:/Program Files (x86)/Gemalto/IDGo 800 PKCS#11/IDPrimePKCS1164.dll"

'  The PIN should come from a secure source rather than being hard-coded.
pin = "0000"

'  Normal user = 1
userType = 1

success = pkcs11.QuickSession(userType,pin)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( pkcs11.LastErrorText) & "</pre>"
    Response.End
End If

'  Describe the private key object to be located on the HSM.
set json = Server.CreateObject("Chilkat.JsonObject")
success = json.UpdateString("class","private_key")
success = json.UpdateString("label","MySshKey")

priv_handle = pkcs11.FindObject(json)
If (priv_handle = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( pkcs11.LastErrorText) & "</pre>"
    Response.End
End If

'  Find the corresponding public key by changing the class in the same template.
success = json.UpdateString("class","public_key")

pub_handle = pkcs11.FindObject(json)
If (pub_handle = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( pkcs11.LastErrorText) & "</pre>"
    Response.End
End If

'  Create an SSH key object that uses the HSM handles.  The key type may be "rsa" or "ec".
set key = Server.CreateObject("Chilkat.SshKey")
keyType = "rsa"
success = key.UsePkcs11(pkcs11,priv_handle,pub_handle,keyType)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( key.LastErrorText) & "</pre>"
    Response.End
End If

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

port = 22
success = ssh.Connect("ssh.example.com",port)
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.
'  The signing operation happens on the HSM -- the private key never leaves the device.
success = ssh.AuthenticatePk("mySshLogin",key)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( ssh.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "Public-key authentication successful.") & "</pre>"

ssh.Disconnect 

success = pkcs11.Logout()
success = pkcs11.CloseSession()

%>
</body>
</html>