Classic ASP

Duplicate openssl pkcs12 –export –in certfile.cer –inkey certfile.key –out certfile.pfx

How to create a PKCS12 (.p12 or .pfx) from a certificate file and private key file: Demonstrates how to duplicate this OpenSSL command:

Duplicate openssl pkcs12 –export –in certfile.cer –inkey certfile.key –out certfile.pfx

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.

set pkey = Server.CreateObject("Chilkat.PrivateKey")

' Load the private key from the file.
success = pkey.LoadAnyFormatFile("certFile.key","")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( pkey.LastErrorText) & "</pre>"
    Response.End
End If

set cert = Server.CreateObject("Chilkat.Cert")
' The LoadFromFile method auto-recognizes the format...
success = cert.LoadFromFile("certfile.cer")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( cert.LastErrorText) & "</pre>"
    Response.End
End If

' We'll need a cert chain object to create the PKCS12, so get it
' from the cert.  

' certChain is a Chilkat.CertChain
Set certChain = cert.GetCertChain()
If (Not cert.LastMethodSuccess) Then
    Response.Write "<pre>" & Server.HTMLEncode( cert.LastErrorText) & "</pre>"
    Response.End
End If

' Create the PFX object, add the cert and private key, and write to a .pfx file.
set pfx = Server.CreateObject("Chilkat.Pfx")

' The cert(s) are automatically added in the call to AddPrivateKey
success = pfx.AddPrivateKey(pkey,certChain)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( pfx.LastErrorText) & "</pre>"
    Response.End
End If

' Write the .pfx to a file.
password = "myPassword"
success = pfx.ToFile(password,"certfile.pfx")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( pfx.LastErrorText) & "</pre>"
    Response.End
End If

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

%>
</body>
</html>