(Classic ASP) Generate RSA Key and Export to Encrypted PEM

Classic ASP sample showing how to generate an RSA key and export to encrypted PEM.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Rsa")
set rsa = Server.CreateObject("Chilkat.Rsa")

' Generate a 1024-bit key.  Chilkat RSA supports
' key sizes ranging from 512 bits to 4096 bits.
success = rsa.GenerateKey(1024)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( rsa.LastErrorText) & "</pre>"
    Response.End
End If

' Get the private key as unencrypted XML:
keyXml = rsa.ExportPrivateKey()
Response.Write "<pre>" & Server.HTMLEncode( keyXml) & "</pre>"

' To encrypt the key -- meaning to get the key in
' an encrypted PEM format -- load it into a PrivateKey object,
' and then export to encrypted PEM:
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.PrivateKey")
set privKey = Server.CreateObject("Chilkat.PrivateKey")

success = privKey.LoadXml(keyXml)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( privKey.LastErrorText) & "</pre>"
    Response.End
End If

strEncPem = privKey.GetPkcs8EncryptedPem("myPassword")

' You now have the private key in an encrypted format,
' which may be (for example) saved to a database

%>
</body>
</html>