DataFlex

Set the DKIM Signing Private Key

Demonstrates the Chilkat Dkim.SetDkimPrivateKey method, which supplies the RSA private key used by DkimSign. The only argument is a PrivateKey object. The source key may be destroyed after this returns, and the configured key can be reused for multiple signatures.

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: DKIM proves a message really came from its domain by signing it with a private key that only the domain owner holds; recipients verify with the matching public key published in the domain's DNS. This method loads that private half into the Dkim object once, so a mail server can sign every outgoing message without re-reading the key each time. Because the key is the domain's signing secret, it should be protected like any other private key and never committed to source.

Chilkat DataFlex Downloads

Download Chilkat for DataFlex

DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoDkim
    Variant vPrivKey
    Handle hoPrivKey
    String sTemp1

    Move False To iSuccess

    //  Demonstrates the Dkim.SetDkimPrivateKey method, which supplies the RSA private key used by
    //  DkimSign.  The only argument is a PrivateKey object.

    Get Create (RefClass(cComChilkatDkim)) To hoDkim
    If (Not(IsComObjectCreated(hoDkim))) Begin
        Send CreateComObject of hoDkim
    End

    //  Load the RSA private key that corresponds to the public key published in the domain's DNS.
    Get Create (RefClass(cComChilkatPrivateKey)) To hoPrivKey
    If (Not(IsComObjectCreated(hoPrivKey))) Begin
        Send CreateComObject of hoPrivKey
    End
    Get ComLoadPemFile Of hoPrivKey "qa_data/dkim_private.pem" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoPrivKey To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    //  Copy the key into the Dkim object.  The PrivateKey object may be destroyed afterward, and the
    //  configured key can be reused for multiple signatures.
    Get pvComObject of hoPrivKey to vPrivKey
    Get ComSetDkimPrivateKey Of hoDkim vPrivKey To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoDkim To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "DKIM private key configured."


End_Procedure