(DataFlex) Decrypt S/MIME and Verify S/MIME Signatures

DataFlex example to decrypt S/MIME and verify S/MIME signatures. The S/MIME is unwrapped to get the original MIME prior to signing/encrypting.

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

Use ChilkatAx-9.5.0-win32.pkg

Procedure Test
    Handle hoMime
    Boolean iSuccess
    Boolean iIsEncrypted
    Boolean iIsSigned
    Variant vSignerCert
    Handle hoSignerCert
    Variant vEncryptCert
    Handle hoEncryptCert
    String sTemp1
    Boolean bTemp1

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

    Get Create (RefClass(cComChilkatMime)) To hoMime
    If (Not(IsComObjectCreated(hoMime))) Begin
        Send CreateComObject of hoMime
    End

    // Load an S/MIME message from a file:
    Get ComLoadMimeFile Of hoMime "signedMime.txt" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoMime To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // The ContainsEncryptedParts/ContainsSignedParts methods
    // can be called to determine if the MIME is encrypted and/or signed:
    Get ComContainsEncryptedParts Of hoMime To iIsEncrypted
    Get ComContainsSignedParts Of hoMime To iIsSigned

    // We don't want the "unwrap extras".  You'll see what those
    // are in a few moments...
    Set ComUnwrapExtras Of hoMime To False

    // To verify the signature, call UnwrapSecurity.  This will
    // verify the signature(s) and decrypt the S/MIME and restore
    // the MIME to the unsigned/unencrypted state.
    // The results of what was found are present in the MIME object's
    // properties, as well as extra header fields that are added
    // to the unwrapped MIME.
    Get ComUnwrapSecurity Of hoMime To iSuccess
    If (iSuccess <> True) Begin
        // UnwrapSecurity returns True if all signatures were
        // verified and all parts decrypted.
        Get ComLastErrorText Of hoMime To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // The mime.UnwrapExtras property controls whether or not
    // these additional fields are added to the unwrapped MIME:
    // 
    // X-NumPartsSigned: 1
    // X-SignaturesValid: yes
    // X-NumPartsEncrypted: 1
    // X-Decrypted: no
    // 
    // The X-NumPartsSigned/X-SignaturesValid headers are added
    // if the MIME was signed.  
    // 
    // The X-NumPartsEncrypted/X-Decrypted headers are added
    // if the MIME was encrypted.
    // 

    // If the MIME was signed, get the certificate used for signing.
    If (iIsSigned = True) Begin
        // The NumSignerCerts property indicates how many certificates
        // were used for signing.  This example will assume the value is 1.
        // To get the 1st signer cert, call GetSignerCert with an index of 0:
        Get ComGetSignerCert Of hoMime 0 To vSignerCert
        If (IsComObject(vSignerCert)) Begin
            Get Create (RefClass(cComChilkatCert)) To hoSignerCert
            Set pvComObject Of hoSignerCert To vSignerCert
        End
        Get ComLastMethodSuccess Of hoMime To bTemp1
        If (bTemp1 = True) Begin
            Get ComSubjectCN Of hoSignerCert To sTemp1
            Showln "**** Signer Cert: " sTemp1
            Send Destroy of hoSignerCert
        End

    End

    // If the MIME was encrypted, get the certificate used for encryption:
    If (iIsEncrypted = True) Begin
        // The NumEncryptCerts property indicates how many certificates
        // were used for encrypting.  This example will assume the value is 1.
        // To get the 1st encrypt cert, call GetEncryptCert with an index of 0:
        Get ComGetEncryptCert Of hoMime 0 To vEncryptCert
        If (IsComObject(vEncryptCert)) Begin
            Get Create (RefClass(cComChilkatCert)) To hoEncryptCert
            Set pvComObject Of hoEncryptCert To vEncryptCert
        End
        Get ComLastMethodSuccess Of hoMime To bTemp1
        If (bTemp1 = True) Begin
            Get ComSubjectCN Of hoEncryptCert To sTemp1
            Showln "**** Encrypt Cert: " sTemp1
            Send Destroy of hoEncryptCert
        End

    End

    // Display the unwrapped MIME:
    Get ComGetMime Of hoMime To sTemp1
    Showln sTemp1

    // Save the unwrapped MIME to a file:
    Get ComSaveMime Of hoMime "unwrappedMime.txt" To iSuccess


End_Procedure