(Visual FoxPro) Create and Verify an Opaque PKCS7/CMS Signature

Demonstrates how to create a PKCS7 opaque signature, and also how to verify an opaque signature. An opaque signature is different than a detached PKCS7 signature in that it contains the original data. Verifying an opaque signature retrieves the original content.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loCrypt
LOCAL loCert
LOCAL lnSuccess
LOCAL loPrivKey
LOCAL lcPassword
LOCAL lcOriginalData
LOCAL lcOpaqueSig
LOCAL loVCrypt
LOCAL lcExtractedData

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Crypt2')
loCrypt = CreateObject('Chilkat.Crypt2')

* A certificate and private key is needed to create a signature.
* Chilkat provides many different ways to load a certificate and private key, such
* as from a PFX/.p12, Java keystore, JWK, Windows registry-based certificate stores, and other sources.
* This example will load the certificate from a .crt and the private key from a .key file

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Cert')
loCert = CreateObject('Chilkat.Cert')
* The LoadFromFile method will automatically detect the format and load it.
lnSuccess = loCert.LoadFromFile("qa_data/certs/test_12345678a.cer")
IF (lnSuccess <> 1) THEN
    ? loCert.LastErrorText
    RELEASE loCrypt
    RELEASE loCert
    CANCEL
ENDIF

* Our private key is in an encrypted PKCS8 format.
* If you don't know the format of your key, but you do know it's encrypted,
* and requires a password, then just call any of the Chilkat methods that load
* a private key w/ a password argument.  Chilkat will auto-detect the format
* and load it correctly even if it's not the format indicated by the method name..
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.PrivateKey')
loPrivKey = CreateObject('Chilkat.PrivateKey')
lcPassword = "12345678a"
lnSuccess = loPrivKey.LoadPkcs8EncryptedFile("qa_data/certs/test_12345678a.key",lcPassword)
IF (lnSuccess <> 1) THEN
    ? loPrivKey.LastErrorText
    RELEASE loCrypt
    RELEASE loCert
    RELEASE loPrivKey
    CANCEL
ENDIF

* Set properties required for signing.

* Tell it to use the cert and private key we've loaded.
lnSuccess = loCrypt.SetSigningCert2(loCert,loPrivKey)
IF (lnSuccess <> 1) THEN
    ? loCrypt.LastErrorText
    RELEASE loCrypt
    RELEASE loCert
    RELEASE loPrivKey
    CANCEL
ENDIF

* Indicate we want the opaque signature in base64 format:
loCrypt.EncodingMode = "base64"

* Sign the string using the "utf-8" byte representation:
loCrypt.Charset = "utf-8"

* Create the opaque signature:
lcOriginalData = "This is the string to be signed."
lcOpaqueSig = loCrypt.OpaqueSignStringENC(lcOriginalData)
IF (loCrypt.LastMethodSuccess <> 1) THEN
    ? loCrypt.LastErrorText
    RELEASE loCrypt
    RELEASE loCert
    RELEASE loPrivKey
    CANCEL
ENDIF

? lcOpaqueSig

* The output looks like this:
* MIIPgQYJKoZIhvcNAQcCoIIPcjCCD24CAQExCzAJBgUrDgMCGgUAMC8GCSqGSIb3DQEHAaAiBCBUaGlzIGlzIHRoZSBzdHJpbmcgdG8gYmUgc...

* ----------------------------------------------------------------------------------------------
* Now let's verify the signature and retrieve the original data.
* We'll use a new Crypt2 object to keep things completely separate...

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Crypt2')
loVCrypt = CreateObject('Chilkat.Crypt2')

loVCrypt.EncodingMode = "base64"
loVCrypt.Charset = "utf-8"

lcExtractedData = loVCrypt.OpaqueVerifyStringENC(lcOpaqueSig)
IF (loVCrypt.LastMethodSuccess <> 1) THEN
    ? loVCrypt.LastErrorText
    RELEASE loCrypt
    RELEASE loCert
    RELEASE loPrivKey
    RELEASE loVCrypt
    CANCEL
ENDIF

? "The extracted data: " + lcExtractedData

* The output is:
* The extracted data: This is the string to be signed.

RELEASE loCrypt
RELEASE loCert
RELEASE loPrivKey
RELEASE loVCrypt