Create Detached Signature using PFX

Download Chilkat Crypt ActiveX

Creates and verifies a detached signature.

LOCAL loCrypt
LOCAL lnSuccess
LOCAL loCertStore
LOCAL loCert

loCrypt = CreateObject('Chilkat.Crypt2')

*  Any string argument automatically begins the 30-day trial.

lnSuccess = loCrypt.UnlockComponent("30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX("Crypt component unlock failed")
    QUIT
ENDIF

*  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.)
loCertStore = CreateObject('Chilkat.CertStore')
*  The 1st argument is the filename, the 2nd arg is the
*  PFX file's password:
lnSuccess = loCertStore.LoadPfxFile("chilkat.pfx","test")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loCertStore.LastErrorText)
    QUIT
ENDIF

loCert = loCertStore.FindCertBySubject("Chilkat Software, Inc.")
IF (loCert = NULL ) THEN
    =MESSAGEBOX(loCertStore.LastErrorText)
    QUIT
ENDIF

*  Tell the crypt component to use this cert.
loCrypt.SetSigningCert(loCert)

*  We can sign any type of file, creating a .sig as output:
lnSuccess = loCrypt.CreateDetachedSignature("test.pdf","test.sig")
IF (lnSuccess = 1) THEN
    =MESSAGEBOX("Success!")
ENDIF

=MESSAGEBOX(loCrypt.LastErrorText)

*  Verify and restore the original file:
loCrypt.SetVerifyCert(loCert)

lnSuccess = loCrypt.VerifyDetachedSignature("test.pdf","test.sig")
IF (lnSuccess = 1) THEN
    =MESSAGEBOX("Success!")
ENDIF

=MESSAGEBOX(loCrypt.LastErrorText)