Verify .p7s and Extract Original File

Visual FoxPro example to verify and unpack the contents of a .p7s to restore the original file.

Download Chilkat Crypt ActiveX

LOCAL loCrypt
LOCAL lnSuccess
LOCAL loCcs
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

*  Find our digital certificate from the Current User certificate store.
loCcs = CreateObject('Chilkat.CreateCS')

loCertStore = loCcs.OpenCurrentUserStore()

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

RELEASE loCertStore

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

lnSuccess = loCrypt.VerifyP7S("license.p7s","license2.rtf")
IF (lnSuccess = 0) THEN
    =MESSAGEBOX(loCrypt.LastErrorText)
    RELEASE loCert
    QUIT
ENDIF

RELEASE loCert

=MESSAGEBOX("Success!")