(Resolvido) BMSAPIHOOK

[DelpheroMn]

Olá pessoal, se não me engano em 2004 um brasileiro chamado Nildo liberou uma Biblioteca de ApiHook na internet.

Tem em vários sites de download famosos como baixaki, superdownloads , porém todos com link offline.

Estou precisando urgentemente dessa biblioteca eu queria saber se alguém sabe algum mirror, estou desesperado já.

Procurei em quase todos os sites de mirror, como 4shared, sendspace , rapidshare e não achei nada relacionado ao mesmo

Nome do projeto - BMSApiHook

nome do antigo site - www.projetobms.net

Preciso urgentemente da mesma se alguém me passar ficaria muito grato, obrigado desde já !

[Jhonas]

veja

http://www.brothersoft.com/api-hook-sdk-download-25831.html

abraço

[DelpheroMn]

Esse é em c++ Jhonas, eu só programo na linguagem pascal :S

não saberia onde tem uma biblioteca api na pascal? não precisa ser bms eu dou um jeito

-------------------

No caso eu queria um que bloqueasse o suspendprocess e o terminateprocess entende?

Na net eu testei muitos , nenhum funcionou comigo ta complicado

Edited October 11, 2011 by DelpheroMn

[Jhonas]

tente esse

http://download.fyxm.net/download-file-51478.html

http://magic.shabgard.org/MagicApiHook.zip

abraço

[DelpheroMn]

MagicApiHook não tem o do suspendprocess nem terminateprocess

essa outra não tem sentido, ela só tem umas dll na pasta com um demohook.exe , ele ao aberto faz uma api hook mas não tem exemplos em nenhuma linguagem nem .dcu nada.

[Jhonas]

exemplo:

hookar a api TerminateProcess do notepad.

Primeiro e necessario o componente : BmsAPIHook.

download :

http://www.projetobms.net/Downloads/BmsApi...k22_06_2005.zip

Primeiro crie uma dll com o seguinte codigo :

Declare : Windows e BmsAPIHook na DLL

var TerminateProcessNext : function (processHandle, exitCode: dword) : bool; stdcall;

function ProcessoProtegido(processID: dword) : boolean;
begin
Result := GetCurrentProcessID = BmsGetProcessID('notepad.exe');
end;

function TerminateProcessCallback(processHandle, exitCode: dword) : bool; stdcall;
begin
if ProcessoProtegido(processHandle) then begin
result := false;
SetLastError(ERROR_ACCESS_DENIED);
end else
result := TerminateProcessNext(processHandle, exitCode);
end;

begin
BmsHookApi('kernel32.dll', 'TerminateProcess', @TerminateProcessCallback, @TerminateProcessNext);

end.

Salva a DLL com o nome que quiser. Agora Crie um Aplicativo e coloque no Button 1 onclick:

if BmsRemoteUnloadLibrary(BmsGetProcessID( 'notepad.exe' ), 'NomedaSuaDLL.dll') then
MessageBox(0, 'Bloqueado!', 'Aviso...', MB_ICONINFORMATION)

else
MessageBox(0, 'não foi bloqueado!!!', 'Aviso...', MB_ICONINFORMATION);

Quando você abrir o notepad ele ira fechar por causa da api TerminateProcess.

Dica de Juniioor'

OBS: O arquivo para download esta no 4shared

BmsApiHook22_06_2005.zip (163 KB) para o delphi 6 , 7 e 2005

http://search.4shared.com/search.html?sear...iHook22_06_2005

abraço

[DelpheroMn]

Valeu jhonas era essa api que eu estava atrás Obrigado mesmo.