Classic ASP

Generate an RSA Key and Save to Encrypted PEM

Demonstrates how to generate an RSA key and save to an encrypted PEM file.

Chilkat Classic ASP Downloads

Classic ASP

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

set rsa = Server.CreateObject("Chilkat.Rsa")

' Generate a 2048-bit key.
set privKey = Server.CreateObject("Chilkat.PrivateKey")
success = rsa.GenKey(2048,privKey)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( rsa.LastErrorText) & "</pre>"
    Response.End
End If

password = "secret"
' Saving to a relative path (from the current working directory of the process).
path = "rsaKeys/myTestRsaPrivate.pem"
' Encrypt the PEM using 256-bit AES encryption.
privKey.Pkcs8EncryptAlg = "aes256"
success = privKey.SavePkcs8EncryptedPemFile(password,path)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( privKey.LastErrorText) & "</pre>"
    Response.End
End If

' 

' We can also save the public key.
' There is no need to encrypt public keys.
set pubKey = Server.CreateObject("Chilkat.PublicKey")
success = privKey.ToPublicKey(pubKey)

path = "rsaKeys/myTestRsaPublic.pem"
' Choose PKCS1 or PKCS8
' We'll choose PKCS8.
preferPkcs1 = 0
success = pubKey.SavePemFile(preferPkcs1,path)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( pubKey.LastErrorText) & "</pre>"
    Response.End
End If

' 

Response.Write "<pre>" & Server.HTMLEncode( "Success.") & "</pre>"

%>
</body>
</html>