Create Detached Signature using PFX

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

Creates and verifies a detached signature.

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
set crypt = Server.CreateObject("Chilkat_9_5_0.Crypt2")

'  Any string argument automatically begins the 30-day trial.
success = crypt.UnlockComponent("30-day trial")
If (success <> 1) Then
    Response.Write "Crypt component unlock failed" & "<br>"

End If

'  Create an instance of a certificate store object, load a PFX file,
'  locate the certificate we need, and use it for signing.
'  (a PFX file may contain more than one certificate.)
set certStore = Server.CreateObject("Chilkat_9_5_0.CertStore")
'  The 1st argument is the filename, the 2nd arg is the
'  PFX file's password:
success = certStore.LoadPfxFile("chilkat.pfx","test")
If (success <> 1) Then
    Response.Write certStore.LastErrorText & "<br>"

End If

Set cert = certStore.FindCertBySubject("Chilkat Software, Inc.")
If (cert Is Nothing ) Then
    Response.Write certStore.LastErrorText & "<br>"

End If

'  Tell the crypt component to use this cert.
crypt.SetSigningCert cert

'  We can sign any type of file, creating a .sig as output:
success = crypt.CreateDetachedSignature("test.pdf","test.sig")
If (success = 1) Then
    Response.Write "Success!" & "<br>"
End If

Response.Write crypt.LastErrorText & "<br>"

'  Verify and restore the original file:
crypt.SetVerifyCert cert

success = crypt.VerifyDetachedSignature("test.pdf","test.sig")
If (success = 1) Then
    Response.Write "Success!" & "<br>"
End If

Response.Write crypt.LastErrorText & "<br>"
%>
</body>
</html>