Y el autor responde.... NO

No programo para linux sencillamente porque no tengo ni pu** idea

xD

Y para terminar de hacer las cosas bien... porque no consultamos el Registro?

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Common Desktop

Os adjunto las otras variable útiles



Para leer el registro prefiero objetos antes que API's:

Private Sub Form_Load()
    Dim Wsh As Object
    Set Wsh = CreateObject("WScript.Shell")
    Dim tmp As String
    tmp = Wsh.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Common Desktop")
    MsgBox tmp
End Sub

Ojo que estas rutas son las de AllUsersProfile, lo que pongas ahí se verán en los directorios de TODOS los usuarios de ese PC, se necesitan permisos administrativos para modificar el contenido de esas rutas.

Para borrar un fichero puedes utilizar el método DeleteFile del Objeto FSO (Scripting.FileSystemObject) o la función Kill del VisualBasic, ejemplo:

Kill "C:\nomeborres.txt"

Para evitar el fallo en las rutas según el idioma usa este código:

Set WSh = CreateObject("WScript.Shell")
FileCopy App.Path + "\" + App.EXEName + ".exe", WshShell.SpecialFolders("Desktop") & "\Proyecto1.exe"
 

Es igual de corto y funciona hasta en un Windows Francés, Alemán, Ruso o lo que quieras.

Bravoooo, ya llegó el listo! Es mejor usar Objetos para la programación de malware, las API's se quedan en el própio ejecutable y es más facil que un AV te detecte por heurística, vease: CreateRemoteThread, DownloadURLFileA, etc...

Ademas, con el Objeto FSO cargado podrá hacer otras funciones importantes como: CreateTextFile, DeleteFile, Run, RegRead, RegWrite, etc...

---

Si te ubieras molestado en leer mi mensaje, verías que el primer código te devuelve el Escritorio y el segundo la unidad de sistema a través de Environ (que es algo que tambien ha pedido el usuario:


Lee antes de criticar tio, me pones de los nervios con tus contestaciones.

Uptime.exe una excelente herramienta command-line (es decir, ejecutarla desde CMD) para ver el tiempo real de un equipo/servidor

http://support.microsoft.com/kb/232243

Private Sub Form_Load()
    'AllUsersDesktop, AllUsersStartMenu
    'AllUsersPrograms, AllUsersStartup, Desktop, Favorites
    'Fonts, MyDocuments, NetHood, PrintHood, Programs, Recent
    'SendTo, StartMenu, Startup, Templates
    Dim WSh As Object
    Dim tempVar As String
 
    Set WSh = CreateObject("WScript.Shell")
    tempVar = WshShell.SpecialFolders("Desktop")
    MsgBox tempVar
End Sub
 

Es esto y nada más. Cambia el Desktop por alguna de las otras variables de arriba para obtener otras rutas interesantes. Para Obtener sólo la unidad de sistema:

Private Sub Form_Load()
    Dim tempVar As String
 
    tempVar = Environ("HOMEDRIVE")
    MsgBox tempVar
End Sub
 

Aqui tienes otras variables para usar con Environ("")


Saludos!!

Lo dejé bien claro en el primer mensaje (que por lo que veo no leíste). Los AV se han molestado en poner las firmas que los detectan en aquellos offsets que NO se pueden modificar.

Ademas, con servers tipo Bifrost (que utilizan su EOF para almacenar la configuración) no podrás usar el método de añadir 'EOF Virtual' ya que si no lo dejarías inservible.

Te dejo una foto de la versión 0.3 final. Tengo que retocarla mucho aún. No he programado ningún modulo nuevo aún, sólo he mejorado la GUI y las funciones internas, asíéndolo más estable y rapido que la actual versión.



Falta añadir los módulos de: Modificar el EntryPoint, Editor de Recursos, Editor de Strings, etc... Estos módulos no se si podré terminarlos, ya que es complicado hacer una misma función que se pueda utilizar con todos los ejecutables compilados... ya veremos

 

Saludos!!

Ese método del cmd es un royo. Si finalizo el proceso con Ctrl+Alt+Supr i si el proceso se finaliza por un error de programaci´no, el Form_Terminate() no se ejecuta nunca.

El primer link es la versión 0.1, el otro link es la nueva version 0.2.1. He querido dejar las 2 versiones porque hay usuario que los coleccionan o lo quieren para almacenar todas las versiones.

Saludos

Vale, entonces tú no quieres hacer Melt... definamos antes algunos conceptos:

Melt

P1 = Programa Principal
P2 = Dummy Deleter

1) Ejecutamos P1
2) P1 crea el proceso P2 en %temp% (por ejemplo)
3) P1 ejecuta P2 y le pasa su ruta (P1 le da la ruta de P1 a P2)
4) P1 finaliza su ejecución
5) P2 entra en bucle, si encuentra el fichero P1 lo elimina
6) P2 continua en bucle hasta que no exista P1 (hasta que lo haya eliminado)
7) P2 sale del bucle (P1 está eliminado ya) y continua ejecutando el código
8) Fin

Efecto: El usuario ejecuta P1, y justo en ese instante el fichero de P1 es eliminado pero se sigue ejecutando (en realidad se ejecuta P2 que es una copia de P1 en otra ubicación)

Lo que tu quieres hacer

1) Ejecutamos P1
2) Trabajamos con P1 un buen rato
3) Al cerrar P1, que se autoelimine sin usar Dummies.

Ummm, lo que planteas no parece tener fácil solución. Yo al menos no lo sé resolver sin usar Dummies temporales. Podrías hacer esto...

1) Ejecutamos P1
2) P1 crea el proceso P2 en %temp% (por ejemplo)
3) P1 ejecuta P2 y le pasa su ruta (P1 le da la ruta de P1 a P2)
4) P1 finaliza su ejecución
5) P2 hace CreateProcess(P1) y obtiene su handle hProcess
6) El usuario trabaja con P1, P2 no se muestra en ningún momento.
7) P2 está esperando en WaitForSingleObject(P1) - Es decir, espera a que finalicemos P1
8) P1 es finalizado por el usuario
9) P2 se entera y manda un DeleteFile(P1)
10) P1 es eliminado porque ya no se ejecuta

Efecto: El usuario P1 es ejecutado por el usuario, P1 permanece físicamente en la misma ruta, y al finalizar su ejecución, éste (P1) es eliminado automáticamente (en realidad lo elimina P2).

Con este método sólo quedaría P2 en el disco del usuario sin ejecutarse ni nada. Es lo único que se me ocurre, y estoy hablando desde la teoría, tendría que probarlo antes...

Saludos!!

Para este tipo de cosas lo mejor sería C/C++ o AMS, para poder optimizar mucho el código, reducirlo y hacer que el ataque sea muy eficiente, aunque en VB se pueden hacer también.

Hay varios métodos de ataque, ICMp Storming, UDP Flood, SYN/ACK Flood, Fraggle Attack, etc... ver más en Wikipedia

Por razones de ético y logica no te pienso poner ningún ejemplo, lo siento

Si no encontrastes es porque la programación de estos 'bichos' está prohibida en este foro, lo siento.

bloke999 es un ejemplo de DoS con un programa hecho en VB6, no es muy eficiente y tiene errores de código, los hay de mejores.

Saludos!!

Que versión inglesa? Oficialmente solo hay publicada una sóla versión en castellano, para evitar que descargues una posible copia infectada o 'con regalito' te recominedo que bajes la versión oficial 0.2.1 desde este foro (el link está en el primer mensaje)

Da igual con que lenguaje esté programado el EXE que quieras modificar, Cactus Metamorph no diferencia los ejecutables y los trata a todos por igual. Procura variar el nivel de ofuscación para obtener un ejecutable modificado y funcional

Saludos, MadAntrax!!

downloading... mañana lo pruebo en el curro.

Ya postearé las screenshoots del Windows este o del (seguramente) Windows-Vista-Tuneado-Con-Troyano-Incorporado

 

prensa sensacionalista... la madre que los parió a todos.