(Classic ASP) Load PEM Public/Private Key into RSA Object

Demonstrates how to load a PEM key into the Chilkat RSA object.

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")

' First demonstrate importing a PEM public key:
publicKeyPem = "PEM public-key data goes here"
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.PublicKey")
set pubkey = Server.CreateObject("Chilkat.PublicKey")

success = pubkey.LoadFromString(publicKeyPem)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( pubkey.LastErrorText) & "</pre>"
    Response.End
End If

publicKeyXml = pubkey.GetXml()

success = rsa.ImportPublicKey(publicKeyXml)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( rsa.LastErrorText) & "</pre>"
    Response.End
End If

' Demonstrate importing a PEM private key:
privateKeyPem = "PEM private-key data goes here"
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.PrivateKey")
set privkey = Server.CreateObject("Chilkat.PrivateKey")

' If the private key PEM is protected with a password, then 
' call LoadEncryptedPem.  Otherwise call LoadPem.
success = privkey.LoadPem(privateKeyPem)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( privkey.LastErrorText) & "</pre>"
    Response.End
End If

privateKeyXml = privkey.GetXml()
success = rsa.ImportPrivateKey(privateKeyXml)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( rsa.LastErrorText) & "</pre>"
    Response.End
End If

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

%>
</body>
</html>