☆Obaby's H4cking W0rld☆

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

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

2009年3月2日星期一

Anti-Debug Code (Anti Syser Debugger)

unit Anti_Syserx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
  Button1: TButton;
  procedure Button1Click(Sender: TObject);
  private
  { Private declarations }
  public
  { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
Function Check_Syser(ID:PChar): boolean;
Var hFile: Thandle;
Begin
  result := false;
  hFile := CreateFileA(id, GENERIC_READ or GENERIC_WRITE,
  FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING,
  FILE_ATTRIBUTE_NORMAL, 0);
  if( hFile <> INVALID_HANDLE_VALUE ) then begin
  CloseHandle(hFile);
  result := TRUE;
  end;
End;
procedure TForm1.Button1Click(Sender: TObject);
begin
{if (Check_Syser('\\.\Syser')) then
showmessage('\\.\Syser');
if (Check_Syser('\\.\SyserDbgMsg')) then
showmessage('\\.\SyserDbgMsg');
if (Check_Syser('\\.\SyserBoot')) then
showmessage('\\.\SyserBoot');
}
if (Check_Syser('\\.\Syser')) or (Check_Syser('\\.\SyserDbgMsg')) or (Check_Syser('\\.\SyserBoot'))then
ShowMessage('Syser Detected.HA HA HA HA HA....|:0)') ELSE
ShowMessage('Syser Not Detected......|:0(');
end;

end.
link:http://unkn0wn.ws/board/viewtopic.php?f=83&t=16751

0 评论:

发表评论