Classic ASP

Write PKCS1 or PKCS8 Public Key PEM

Demonstrates how to write either PKCS1 or PKCS8 format PEM files. PKCS1 public keys have this PEM format:

-----BEGIN RSA PUBLIC KEY-----
BASE64 ENCODED DATA
-----END RSA PUBLIC KEY-----

PKCS8 public keys have this PEM format:

-----BEGIN PUBLIC KEY-----
BASE64 ENCODED DATA
-----END 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

' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

success = 0

set pem = Server.CreateObject("Chilkat.Pem")

' Load a public key from a PEM file.
' (Assume the PEM contains at least one public key..)
success = pem.LoadPemFile("/Users/chilkat/testData/pem/myPublicKey.pem")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( pem.LastErrorText) & "</pre>"
    Response.End
End If

numPublicKeys = pem.NumPublicKeys
If (numPublicKeys = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( ("Error: Expected the PEM to contain public keys.")) & "</pre>"
    Response.End
End If

' Get each public key as PEM, first in PKCS1 format, then in PKCS8.
For i = 1 To numPublicKeys

    ' First output to PKCS1 PEM format:
    Response.Write "<pre>" & Server.HTMLEncode( "This is PKCS1 format:") & "</pre>"
    pem.PublicKeyFormat = "pkcs1"
    Response.Write "<pre>" & Server.HTMLEncode( pem.ToPem()) & "</pre>"

    ' Now PKCS8 PEM format:
    Response.Write "<pre>" & Server.HTMLEncode( "This is PKCS8 format:") & "</pre>"
    pem.PublicKeyFormat = "pkcs8"
    Response.Write "<pre>" & Server.HTMLEncode( pem.ToPem()) & "</pre>"

Next

%>
</body>
</html>