Título: [Source] How to Melt a file in VB6 Publicado por: Mad Antrax en 13 Mayo 2007, 12:49 pm Bueno, aquí otro de mis mini códigos para hacer "Melt" en VB6, pero antes... ¿que significa "Melt"?
Definición Se llama "Melt" cuando un usuario ejecuta un archivo y este desaparece (se auto-elimina) después de ejecutarse, esta función es necesaria para evitar que nuestra víctima ejecute 2 veces nuestro malware o evitar que la victima lo envíe a un Antivirus o a virustotal después de ejecutarlo, su estructura es... 1) Ejecuto el archivo (A) 2) El archivo (A) se copia en otro lugar (B) 3) El archivo (A) ejecuta el archivo (B) 4) El archivo (B) borra el archivo (A) 5) El archivo (B) sigue ejecutando el resto de malware... Como he dicho, esto es ideal para evitar que existan 2 procesos iguales abiertos en el sistema (para evitar que nuestro keylogger sea ejecutado 2 veces, o nuestro troyano intente escuchar 2 veces por el mismo puerto, etc). Así también evitas que la víctima envíe el archivo a un análisis después de ejecutarlo xD Aquí el código: Código
Si quieres evitar que tu aplicación sea ejecutada 2 veces también puedes crearte un MuteX, pero la función "Melt" hace lo mismo que el MuteX y encima borra el archivo original (para evitar análisis de AV's). Saludos!! (Espero comentarios!!) Codigo fuente adjunto al post (solo usuarios registrados) Título: Re: [Source] How to Melt a file in VB6 Publicado por: Hans el Topo en 13 Mayo 2007, 12:55 pm jajaja muy bueno, no sabía que se llamaba "Melt" xD
Hace tiempo hice algo parecido, el mio movia el archivo a la carpeta que más tiempo llevaba sin modificarse xD Título: Re: [Source] How to Melt a file in VB6 Publicado por: Jareth en 13 Mayo 2007, 15:43 pm Muy bueno,para evitar que se ejecute dos veces tu programa no seria mejor en el form_load:
Código: If app.previnstance=true then Saludos. Título: Re: [Source] How to Melt a file in VB6 Publicado por: Mad Antrax en 13 Mayo 2007, 16:52 pm Ese cñodigo no sirve mucho, me explico:
Código: If App.PrevInstance = True Then Esto lo guardo como "hola.exe" y lo ejecuto. Ahora copio "hola.exe" como "adios.exe" y lo ejecuto. Tendré el hola.exe y el adios.exe ejecutados simultaneamente. Esto se arregla con un MuteX o con Melt Título: Re: [Source] How to Melt a file in VB6 Publicado por: satan69 en 13 Mayo 2007, 17:17 pm esta bueno el codigo.... gracias ;D ;D ;D ;D
Título: Re: [Source] How to Melt a file in VB6 Publicado por: Jareth en 13 Mayo 2007, 23:37 pm Es cierto ||MadAntrax||,ya decia yo que no seria asi.
Título: Re: [Source] How to Melt a file in VB6 Publicado por: vivachapas en 14 Mayo 2007, 01:52 am jaja...
yo tb hice uno parecido sin saber q tenia nombre ya... XD el mio en vez de comprobar q nombre tenia verificaba la ruta... si esta estaba en windows se conectaba... si no se copiaba a windows y lo ejecutaba... lo de borrar no se me habia ocurrido pero es buena idea tb ;) Título: Re: [Source] How to Melt a file in VB6 Publicado por: ~~ en 14 Mayo 2007, 11:26 am Muy weno ;)
Título: Re: [Source] How to Melt a file in VB6 Publicado por: hepy_92 en 18 Mayo 2007, 23:13 pm wenisimo!!!
aora mismo lo pongo en mi troyano! muy util gracias!!! alguien sabe como hacer para que en ves que se copie a la carpeta temp, se copie a la de windows??? ai alguna variable en vb q contenga el directorio de windows??? hasta donde yo se, para system32 hai que declarar mucho.. me contaron que para la carpeta de windows no, alguien sabe?? Título: Re: [Source] How to Melt a file in VB6 Publicado por: vivachapas en 18 Mayo 2007, 23:19 pm Código: MsgBox Environ("windir") asi me lo paso EON ;) y funciona Título: Re: [Source] How to Melt a file in VB6 Publicado por: hepy_92 en 18 Mayo 2007, 23:21 pm Gracias!!!
Título: Re: [Source] How to Melt a file in VB6 Publicado por: hepy_92 en 18 Mayo 2007, 23:26 pm hm.. aora que me doi cuenta, me da error el melt! :-(
esto puse en code Código: private sub form_load() hay algo que ise mal? Título: Re: [Source] How to Melt a file in VB6 Publicado por: Mad Antrax en 19 Mayo 2007, 00:13 am Te falta la declaración de la API, no?
Código: Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long Título: Re: [Source] How to Melt a file in VB6 Publicado por: hepy_92 en 19 Mayo 2007, 01:40 am si la tengo...
pero al principio me salia que MyName, no estaba declarado... asique lo declare como string.. o esta mal??=S Título: Re: [Source] How to Melt a file in VB6 Publicado por: Mad Antrax en 19 Mayo 2007, 01:45 am Mira si tienes esta línea en tu proyecto y borrala:
Código: Option Explicit Si no, dinos en qe linea te peta y que error te devuelve! Título: Re: [Source] How to Melt a file in VB6 Publicado por: hepy_92 en 19 Mayo 2007, 01:50 am no esta...
se me avia olvidado ponerlo en un modulo, aora lo ise i me apunta a: Código: GetModuleFileName Título: Re: [Source] How to Melt a file in VB6 Publicado por: hepy_92 en 19 Mayo 2007, 18:28 pm me di cuenta de mi error.. me falto una linea ¬¬
pero ahora me sale otro =S si lo ejecuto sale este error: Error '91' en tiempo de ejecución: La variable de tipo Object o la variable de bloque With no está establecida alguien me puede decir que estoy asiendo mal porfavor!? les adjunto el code para que vean lo que hice Código: Dentro del Form1, (form principal) no es problema de Shell Environ("windir"), lo he revisado y esta bien.. me sale lo mismo si pongo tmp |