DataFlex

Cache a DKIM Public Key from a String

Demonstrates the Chilkat Dkim.LoadPublicKey method, which caches an RSA public key for a specific selector and domain. The arguments are the selector, the domain, and the public key as a string (PEM, or the base64 p= value from the DNS record).

Background: By default DkimVerify fetches the public key from DNS, but caching it in advance is useful when DNS is unavailable, when you want deterministic offline verification (in tests, for example), or to avoid repeated lookups. The cache is keyed on the exact selector and domain strings, so they must match the signature's s= and d= tags for the cached key to be used; otherwise verification falls back to DNS.

Chilkat DataFlex Downloads

Download Chilkat for DataFlex

DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoDkim
    String sPublicKey
    String sTemp1

    Move False To iSuccess

    //  Demonstrates the Dkim.LoadPublicKey method, which caches an RSA public key for a specific
    //  selector and domain.  The 1st argument is the selector, the 2nd is the domain, and the 3rd is
    //  the public key (as a string).

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

    //  The public key as a string.  This can be PEM, or the base64 p= value from the DNS TXT record.
    Move "-----BEGIN PUBLIC KEY-----" + (character(10)) + "MIIBIjANBgkq...IDAQAB" + (character(10)) + "-----END PUBLIC KEY-----" To sPublicKey

    //  Cache the key under the exact selector and domain.  A later DkimVerify uses this cached key
    //  when the signature's selector and domain match, instead of doing a DNS lookup.
    Get ComLoadPublicKey Of hoDkim "myselector" "example.com" sPublicKey To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoDkim To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "Public key cached."


End_Procedure