নোটপ্যাড দিয়ে ভাইরাস তৈরি – ০২

আজকের ভাইরাসটিকে ফান ভাইরাস বলা যায়। এটি কোন ক্ষতি করবে না, শুধু ভয় দেখাবে। এটি চালু করা হলে প্রতি ৩০ সেকেন্ড পর পর সয়ংক্রিয় নোটপ্যাড চালু হবে এবং You have been hacked. Do not cry. Ha! Ha!! Ha!!! লেখা লিখবে। এটি তৈরির জন্য প্রথমে নোটপ্যাড ওপেন করে নিচের কোড গুলো সরাসরি কপি করে দিন। এবার একে hi.vbs নামে সেভ করুন।

Set WshShell = WScript.CreateObject(“WScript.Shell”)
do
WScript.Sleep 30000
WshShell.Run “notepad”
WScript.Sleep 500
WshShell.AppActivate “Notepad”
WScript.Sleep 100
WshShell.SendKeys “Y”
WScript.Sleep 100
WshShell.SendKeys “o”
WScript.Sleep 100
WshShell.SendKeys “u”
WScript.Sleep 100
WshShell.SendKeys ” ”
WScript.Sleep 100
WshShell.SendKeys “h”
WScript.Sleep 100
WshShell.SendKeys “a”
WScript.Sleep 100
WshShell.SendKeys “v”
WScript.Sleep 100
WshShell.SendKeys “e”
WScript.Sleep 100
WshShell.SendKeys ” ”
WScript.Sleep 100
WshShell.SendKeys “b”
WScript.Sleep 100
WshShell.SendKeys “e”
WScript.Sleep 100
WshShell.SendKeys “e”
WScript.Sleep 100
WshShell.SendKeys “n”
WScript.Sleep 100
WshShell.SendKeys ” ”
WScript.Sleep 100
WshShell.SendKeys “h”
WScript.Sleep 100
WshShell.SendKeys “a”
WScript.Sleep 100
WshShell.SendKeys “c”
WScript.Sleep 100
WshShell.SendKeys “k”
WScript.Sleep 100
WshShell.SendKeys “e”
WScript.Sleep 100
WshShell.SendKeys “d”
WScript.Sleep 100
WshShell.SendKeys “.”
WScript.Sleep 100
WshShell.SendKeys ” ”
WScript.Sleep 1000
WshShell.SendKeys “D”
WScript.Sleep 100
WshShell.SendKeys “o”
WScript.Sleep 100
WshShell.SendKeys ” ”
WScript.Sleep 100
WshShell.SendKeys “n”
WScript.Sleep 100
WshShell.SendKeys “o”
WScript.Sleep 100
WshShell.SendKeys “t”
WScript.Sleep 100
WshShell.SendKeys ” ”
WScript.Sleep 100
WshShell.SendKeys “c”
WScript.Sleep 100
WshShell.SendKeys “r”
WScript.Sleep 100
WshShell.SendKeys “y”
WScript.Sleep 100
WshShell.SendKeys “.”
WScript.Sleep 100
WshShell.SendKeys ” ”
WScript.Sleep 1000
WshShell.SendKeys “H”
WScript.Sleep 100
WshShell.SendKeys “a”
WScript.Sleep 100
WshShell.SendKeys “!”
WScript.Sleep 100
WshShell.SendKeys ” ”
WScript.Sleep 500
WshShell.SendKeys “H”
WScript.Sleep 100
WshShell.SendKeys “a”
WScript.Sleep 100
WshShell.SendKeys “!”
WScript.Sleep 100
WshShell.SendKeys “!”
WScript.Sleep 100
WshShell.SendKeys ” ”
WScript.Sleep 500
WshShell.SendKeys “H”
WScript.Sleep 100
WshShell.SendKeys “a”
WScript.Sleep 100
WshShell.SendKeys “!”
WScript.Sleep 100
WshShell.SendKeys “!”
WScript.Sleep 100
WshShell.SendKeys “!”
loop

কোডটি আপনার সুবিধা মত পরিবর্তন করতে পারবেন। তাই কোডের একটু বর্ননা দিচ্ছি। কোডে 300000 এর অর্থ হল এটি ৩০০০০০ মিলি সেকেন্ড (১ সেকেন্ড = ১০০০ মিলি সেকেন্ড) বা ৩০ সেকেন্ড পরপর কার্যকর হবে। কোডটি দেখে বুঝতে পারছেন শব্দ গুলো একটি একটি করে দেখিয়ে দেয়া হয়েছে। যেমনঃ WshShell.SendKeys “Y” এ আপনি যদি Y এর স্থলে Z দেন তাহলে লেখাটি উঠবে Zou have been…। এখানে আপনি চাইলে আরো শব্দ যোগ করতে পারেন। তার জন্য WshShell.SendKeys “Y” এ রকম লাইনের আগে WScript.Sleep 100 লাইনটি দিতে হবে। এ লাইনের 100 এর অর্থ এর পরের লাইনে যে বর্নটি দেয়া হবে তা ১০০ মিলি সেকেন্ড পর লিখা হবে। এখানে সহজ করে বুঝানোর চেষ্টা করেছি। সমস্যা হলে কমেন্ট করবেন। এটি আপনার বন্ধুর কম্পিউটারে C:\Documents and Settings\All Users\Start Menu\Programs\Startup ফোল্ডারে কপি করে তাকে ভয় দেখাতে পারেন।

Advertisements

নোটপ্যাড দিয়ে ভাইরাস তৈরি – ০১

আজ নোটপ্যাড দিয়ে কিছু মজার কাজ করব। নিচের কোড গুলো দিয়ে কী বোর্ডের Caps Lock লাইট টি সয়ংক্রিয় অন-অফ করা যাবে। এর জন্য প্রথমে নোটপ্যাড চালু করুন এবং নিচের কোড গুলো সরাসরি কপি করে দিন।

Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{CAPSLOCK}”
loop

এবার Hello.vbs নামে সেভ করুন। vbs এর পূর্নরুপ হল Visual basic script. নিচের কোড গুলো ভিজুয়াল বেসিকের কোড। এখানে 100 এর অর্থ হল ১০০ মিলি সেকেন্ড (১ সেকেন্ড = ১০০০ মিলি সেকেন্ড) পর পর কোডটি কাজ করবে। CAPSLOCK দিয়ে Caps Lock কী বুঝানো হয়েছে। এখানে Caps Lock এর পরিবর্তে ENTER, BS (Back Space) ইত্যাদি দিতে পারেন। যে কী এর নাম দিবেন কিছুক্ষন পর পর সে কি কাজ করতে থাকবে। তবে সাবধান এর দ্বারা কোন ক্ষতি হলে তার জন্য আমি দায়ী থাকব না।