You would be able to do it in vb 6 (or earlier), code something like:
Put this in form module
CODE
Private Sub Form_Load()
Dim r As New string_x, a As New string_x
r.value = "Message-ID: <489958FF1A028542AC33B4CCD58A7DFDB102AB@emmanuel.sp.edu>"
a.value = "Received: from emmanuel.sp.edu([202.21.157.40]) by student-mail.sp.edu with Microsoft SMTPSVC(6.0.3790.1830);"
a.value = Mid(a.value, 14, Len(a.value))
MsgBox (IIf(r.Substring("@", ">") = a.Substring(" ", "("), "Genuine", "Spoofed") & " Email")
End Sub
Make a new class module and name it string_x, and put the following code in it
CODE
Private võ2 As String
Public Property Let value(ByVal vData As String): võ2 = vData: End Property
Public Property Get value() As String: value = võ2: End Property
Public Property Get Substring(ByVal vData1 As String, ByVal vData2 As String) As String
Dim i, x
For i = 1 To Len(võ2)
x = Mid(võ2, i, 1)
If x = vData2 Then Exit For
If loenda = True Then Substring = Substring & x
If x = vData1 Then loenda = True
Next i
End Property
This example is tested, and works, but i am not 100% curtain it is 100% compatible. Hope it helps.
| 