(Visual FoxPro) DKIM Signature using Windows Current User Certificate Store

This is a Windows-specific example to load a certificate from the Current User (registry-based) certificate store, and then use the certificate's associated private key for a DKIM signature.

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

LOCAL loCert
LOCAL lnSuccess
LOCAL loPrivKey
LOCAL loDkim

* This example requires 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.Cert')
loCert = CreateObject('Chilkat.Cert')

* The LoadByCommonName method searches the Windows Local Machine and Current User 
* registry-based certificate stores for a certificate having the common name specified. 
* If found, the certificate is loaded and ready for use.
lnSuccess = loCert.LoadByCommonName("My Certificate ABC")
IF (lnSuccess <> 1) THEN
    ? loCert.LastErrorText
    RELEASE loCert
    CANCEL
ENDIF

* The certificate must have an associated private key installed, and it must be a
* private key that has been marked "exportable" when it was originally installed.
IF (NOT loCert.HasPrivateKey()) THEN
    ? "This certificate does not have a private key available."
    RELEASE loCert
    CANCEL
ENDIF

loPrivKey = loCert.ExportPrivateKey()
IF (loCert.LastMethodSuccess = 0) THEN
    ? loCert.LastErrorText
    RELEASE loCert
    CANCEL
ENDIF

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

* Load the private key into the DKIM object:
lnSuccess = loDkim.LoadDkimPk(loPrivKey.GetPkcs8Pem(),"")
IF (lnSuccess <> 1) THEN
    ? loDkim.LastErrorText
    RELEASE loCert
    RELEASE loDkim
    CANCEL
ENDIF

* The private key has been loaded into the DKIM object.  See the other DKIM
* examples for guidance on how to create a DKIM signature...

RELEASE loPrivKey

RELEASE loCert
RELEASE loDkim