Framework EDI Reference. Methods and Properties
mailMessage. VerifyDigest

Verifies a digest against a message or part of a message.

Syntax:

• <lRetVal> = object.VerifyDigest(<MessagePart>, <EncodingMechanism>, <sDigest>)

Parameters:

• MessagePart – The part of the message to calculate the digest for.  Accepted constants are in Mail Message Part Constants.
• EncodingMechanism – The encoded format to return the digest in.  Accepted constants are in Encoding Mechanism Type Constants.
• sDigest – Encoded digest to verify.

Returns

If successfully verified, returns 1 otherwise returns 0.

Example

Dim oEdiDoc As Fredi.ediDocument
Dim oMailDocument As Fredi.mailDocument
Dim oSubjMsg As Fredi.mailMessage
Dim oSecurity As Fredi.ediSecurity
Dim sDigest As String

' Create instance of Framework EDI.
Set oEdiDoc = New Fredi.ediDocument

' Get internet mail document object
Set oMailDocument = oEdiDoc.GetMailDocument

' Load EDI document normally.
oMailDocument.Load App.Path & "\SampleMail.TXT"

' Get the subject message
Set oSubjMsg = oMailDocument.GetMessage

' Get the message's security.
Set oSecurity = oSubjMsg.GetSecurity
oSecurity.CertificateSignerName = "Edidev Test Sender"
oSecurity.AssuranceAlgorithm = "sha-1"

sDigest = oSubjMsg.GenerateDigest(Message_All, EncodeType_Base64)

If oSubjMsg.VerifyDigest(Message_All, EncodeType_Base64, sDigest) Then
MsgBox "Digest verified"
Else
MsgBox "Digest not verified"
End If

Samples

• M_VerifyDigest.zip