Visual FoxPro

Export a Private Key as DER into a BinData

Demonstrates the Chilkat PrivateKey.GetPkcsBd method, which exports the key as DER into a BinData. The first argument selects PKCS #1 (true) versus PKCS #8 (false), the second is the password (empty for unencrypted), and the third is the BinData that receives the bytes.

Note: The file paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

Background: This is the in-memory binary export — the raw DER bytes land in a BinData ready to hash, encrypt, or hand to another API without a temporary file. One method covers several cases: the boolean picks the traditional (PKCS #1) versus modern (PKCS #8) structure, and a nonempty password produces an encrypted PKCS #8 export (with the cipher from Pkcs8EncryptAlg). Source any password securely.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loPrivKey
LOCAL lcPassword
LOCAL lnUsePkcs1
LOCAL loBd

lnSuccess = 0

*  Load a private key to export.
loPrivKey = CreateObject('Chilkat.PrivateKey')
lnSuccess = loPrivKey.LoadPemFile("qa_data/private.pem")
IF (lnSuccess = 0) THEN
    ? loPrivKey.LastErrorText
    RELEASE loPrivKey
    CANCEL
ENDIF

*  The key password is not hard-coded in a real application; obtain it from an interactive
*  prompt, environment variable, or a secrets vault.
lcPassword = "myKeyPassword"

*  Export the key as DER into a BinData.  The 1st argument selects PKCS #1 (1) versus PKCS #8
*  (0); the 2nd is the password (empty string for an unencrypted export); the 3rd is the
*  BinData that receives the DER bytes.
lnUsePkcs1 = 0
loBd = CreateObject('Chilkat.BinData')
lnSuccess = loPrivKey.GetPkcsBd(lnUsePkcs1,lcPassword,loBd)
IF (lnSuccess = 0) THEN
    ? loPrivKey.LastErrorText
    RELEASE loPrivKey
    RELEASE loBd
    CANCEL
ENDIF

? "Exported " + STR(loBd.NumBytes) + " DER bytes."

RELEASE loPrivKey
RELEASE loBd