Classic ASP

Add a PFX Source to MailMan from BinData

Demonstrates the Chilkat MailMan.AddPfxSourceBd method, which adds a PFX/PKCS#12 certificate store to the MailMan object's internal list of sources used for locating certificates and private keys. The first argument is a BinData containing the PFX bytes and the second is the PFX password. This example loads a PFX into a BinData, registers it, and fetches a message Chilkat can decrypt.

Background: This is the in-memory (BinData) counterpart to AddPfxSourceFile. It is the right choice when the PFX bytes come from somewhere other than a file — a database, a secrets manager, or an HTTPS download — letting you supply the certificate and private key without first writing sensitive key material to disk.

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

'  Demonstrates the MailMan.AddPfxSourceBd method, which adds a PFX/PKCS#12 certificate store
'  to the MailMan object's internal list of sources used for locating certificates and
'  private keys.  The 1st argument is a BinData containing the PFX bytes and the 2nd is the
'  PFX password.

set mailman = Server.CreateObject("Chilkat.MailMan")

'  Configure the POP3 server connection.
mailman.MailHost = "pop.example.com"
mailman.MailPort = 995
mailman.PopSsl = 1
mailman.PopUsername = "user@example.com"
mailman.PopPassword = "myPassword"

'  Load the PFX bytes into a BinData (they could come from a file, database, or secrets store).
set bdPfx = Server.CreateObject("Chilkat.BinData")
success = bdPfx.LoadFile("qa_data/certs/decryption.pfx")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( bdPfx.LastErrorText) & "</pre>"
    Response.End
End If

'  Add the PFX as a source of certificates and private keys.
success = mailman.AddPfxSourceBd(bdPfx,"pfx_password")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( mailman.LastErrorText) & "</pre>"
    Response.End
End If

'  Fetch a message; if it is encrypted, Chilkat can decrypt it using the PFX source.
set email = Server.CreateObject("Chilkat.Email")
success = mailman.FetchOne(0,0,1,email)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( mailman.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "Decrypted = " & email.Decrypted) & "</pre>"

'  Note: The path "qa_data/certs/decryption.pfx" is a relative local filesystem path,
'  relative to the current working directory of the running application.

'  Note: Explicitly connecting/authenticating is optional.  Chilkat MailMan automatically
'  connects and authenticates -- using the property settings above -- whenever a server
'  operation requires it.  Calling the explicit connect/authenticate methods can still be
'  helpful to determine whether a failure occurs while connecting or while authenticating.

%>
</body>
</html>