Classic ASP
Create PEM-encoded PKCS#7 Detached Signature

Demonstrates how to create a PKCS7 PEM-encoded object containing a detached signature.
Chilkat Classic ASP Downloads

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

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

set cert = Server.CreateObject("Chilkat.Cert")

'  Load the cert and private key.
success = cert.LoadPfxFile("qa_data/pfx/myCertAndKey.p12","password")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( cert.LastErrorText) & "</pre>"
    Response.End
End If

set crypt = Server.CreateObject("Chilkat.Crypt2")

success = crypt.SetSigningCert(cert)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( crypt.LastErrorText) & "</pre>"
    Response.End
End If

'  Use SHA-256
crypt.HashAlgorithm = "sha256"

'  Hash the utf-8 byte representation of the string
crypt.Charset = "utf-8"

'  Return the result in base64
crypt.EncodingMode = "base64Mime"

'  Sign some text to create a detached signature (i.e. a signature that does not include the signed data)
textToSign = "This is the text to be hashed and signed."
sigBase64 = crypt.SignStringENC(textToSign)
If (crypt.LastMethodSuccess <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( crypt.LastErrorText) & "</pre>"
    Response.End
End If

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

'  The result:

'  MIIWbgYJKoZIhvcNAQcCoIIWXzCCFlsCAQExDzANBglghkgBZQMEAgEFADALBgkqhkiG9w0BBwGg
'  ghMXMIIFuzCCA6OgAwIBAgIIVwoRl0LE48wwDQYJKoZIhvcNAQELBQAwazELMAkGA1UEBhMCSVQx
'  ...
'  ...

'  If we want it in PEM format with just LF line-endings:
set sb = Server.CreateObject("Chilkat.StringBuilder")
'  Just LF line endings, not CRLF.
crlf = 0
success = sb.AppendLine("-----BEGIN PKCS7-----",crlf)
success = sb.Append(sigBase64)
success = sb.AppendLine("-----END PKCS7-----",crlf)
success = sb.ToLF()

'  Save to a file.
success = sb.WriteFile("c:/temp/qa_output/sig.pem","utf-8",0)

'  Examine..
Response.Write "<pre>" & Server.HTMLEncode( sb.GetAsString()) & "</pre>"

'  Result is:

'  -----BEGIN PKCS7-----
'  MIIWbgYJKoZIhvcNAQcCoIIWXzCCFlsCAQExDzANBglghkgBZQMEAgEFADALBgkqhkiG9w0BBwGg
'  ghMXMIIFuzCCA6OgAwIBAgIIVwoRl0LE48wwDQYJKoZIhvcNAQELBQAwazELMAkGA1UEBhMCSVQx
'  DjAMBgNVBAcMBU1pbGFuMSMwIQYDVQQKDBpBY3RhbGlzIFMucC5BLi8wMzM1ODUyMDk2NzEnMCUG
'  A1UEAwweQWN0YWxpcyBBdXRoZW50aWNhdGlvbiBSb290IENBMB4XDTExMDkyMjExMjIwMloXDTMw
'  MDkyMjExMjIwMlowazELMAkGA1UEBhMCSVQxDjAMBgNVBAcMBU1pbGFuMSMwIQYDVQQKDBpBY3Rh
'  bGlzIFMucC5BLi8wMzM1ODUyMDk2NzEnMCUGA1UEAwweQWN0YWxpcyBBdXRoZW50aWNhdGlvbiBS
'  b290IENBMIICIjANBgkqhkiG9w0BAQEFAAOCAg8AMIICCgKCAgEAp8bEpSmkLO/lGMWwUKNvUTuf
'  ClrJwkg4CsIcoBh/kbWHuUA/3R1oHwiD1S0eiKD4j1aPbZkCkpAW1V8IbInX4ay8IMKx4INRimlN
'  AJZaby/ARH6jDuSRzVju3PvHHkVH3Se5CAGfpiEd9UEtL0z9KK3giq0itFZljoZUj5NDKd45Rnij
'  MCO6zfB9E1fAXdKDa0hMxKufgFpbOr3JpyI/gCczWw63igxdBzcIy2zSekciRDXFzMwujt0q7bd9
'  ...
'  ...
'  -----END PKCS7-----

%>
</body>
</html>