调试api初步学习

1. //加密解密技术内幕，示例，asm转delphi
2. unit Unit1;
4. interface
6. uses
7.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
8.   Dialogs, StdCtrls, DB, ADODB;
10. type
11.   TForm1 = class(TForm)
12.     OpenDialog1: TOpenDialog;
13.     Button1: TButton;
14.     Memo1: TMemo;
15.     ADOConnection1: TADOConnection;
16.     procedure Button1Click(Sender: TObject);
17.   private
18.     { Private declarations }
19.     procedure getREGISTER(handle:THandle);
20.   public
21.     { Public declarations }
22.   end;
24. var
25.   Form1: TForm1;
26. implementation
28. {$R *.dfm}
30. procedure TForm1.Button1Click(Sender: TObject);
31. const
32.   APPNAME = 'Win32 Debug Example no.1';
33.   NEWTHREAD = 'A new thread is created';
34.   ENDTHREAD = 'A thread is destroyed';
35. var
36.   startinfo :STARTUPINFO;
37.   pi:PROCESS_INFORMATION;
38.   DBEvent :DEBUG_EVENT;
39.   filename :string;
40.   buffer : string;
41.   ProcessInfo :string;
43. begin
44.   ProcessInfo := 'File Handle   : %x '+#13#10+'Process Handle: %x' + #13#10+'Thread Handle : %x'+#13#10+'Image Base    : %x'+#13#10+'Start Address : %x';
45.   if OpenDialog1.Execute then
46.   begin
47.     filename := OpenDialog1.FileName;
48.     GetStartupInfo(startinfo);   //填充startinfo结构
49.     createprocess(PAnsiChar(filename),nil,nil,nil,False,DEBUG_PROCESS + DEBUG_ONLY_THIS_PROCESS,nil,nil,startinfo,pi);   //调试模式加载进程
50.     while True do
51.     begin
52.       WaitForDebugEvent(DBEvent,INFINITE) ;       //等待调试事件
53.       if DBEvent.dwDebugEventCode = EXIT_PROCESS_DEBUG_EVENT THEN       //进程退出
54.       begin
55.         MessageBox(0,'The debuggee exits','Win32 Debug Example no.1',mb_ok + MB_ICONINFORMATION);
56.         Exit;
57.       end
58.       else if DBEvent.dwDebugEventCode = create_process_debug_event then    //进程被创建
59.       begin
60.         buffer := Format(ProcessInfo,[DBEvent.CreateProcessInfo.hFile,DBEvent.CreateProcessInfo.hProcess,DBEvent.CreateProcessInfo.hThread,integer(DBEvent.CreateProcessInfo.lpBaseOfImage),Integer(DBEvent.CreateProcessInfo.lpStartAddress)]);
61.         MessageBox(0,PAnsiChar(buffer),'Win32 Debug Example no.1',MB_OK + mb_iconinformation);
62.         getREGISTER(DBEvent.CreateProcessInfo.hThread);
64.       end
65.       else if DBEvent.dwDebugEventCode = exception_debug_event then
66.       begin
67.         if DBEvent.Exception.ExceptionRecord.ExceptionCode = exception_breakpoint then
68.           begin
69.             ContinueDebugEvent(DBEvent.dwProcessId,DBEvent.dwThreadId,DBG_CONTINUE);       //继续运行
70.             Continue;
71.           end;
72.       end
73.       else if DBEvent.dwDebugEventCode = create_thread_debug_event then      //线程被创建
74.         MessageBox(0,NEWTHREAD,APPNAME,MB_OK+MB_ICONINFORMATION)
75.       else if DBEvent.dwDebugEventCode = exit_thread_debug_event then        //线程退出
76.         MessageBox(0,ENDTHREAD,APPNAME,MB_OK+MB_ICONINFORMATION);
77.       ContinueDebugEvent(DBEvent.dwProcessId,DBEvent.dwThreadId,DBG_EXCEPTION_NOT_HANDLED);
78.       end;
79.       CloseHandle(pi.hProcess);
80.       CloseHandle(pi.hThread);
81.     end;
82. end;
84. procedure TForm1.getREGISTER(handle:THandle);
85. var
86.   ctext : CONTEXT;
87. begin
88.   Memo1.Clear;
89.   ctext.ContextFlags := CONTEXT_FULL;
90.   GetThreadContext(handle,ctext);                            //获得进程上下文内容
91.   Memo1.Lines.Add(Format('DR0 : %x',[ctext.Dr0]));
92.   Memo1.Lines.Add(Format('DR1 : %x',[ctext.Dr1]));
93.   Memo1.Lines.Add(Format('DR2 : %x',[ctext.Dr2]));
94.   Memo1.Lines.Add(Format('DR3 : %x',[ctext.Dr3]));
95.   Memo1.Lines.Add(Format('EDI : %x',[ctext.Edi]));
96.   Memo1.Lines.Add(Format('Esi : %x',[ctext.Esi]));
97.   Memo1.Lines.Add(Format('Ebx : %x',[ctext.Ebx]));
98.   Memo1.Lines.Add(Format('Edx : %x',[ctext.Edx]));
99.   Memo1.Lines.Add(Format('Ecx : %x',[ctext.Ecx]));
100.   Memo1.Lines.Add(Format('Eax : %x',[ctext.Eax]));
101.   Memo1.Lines.Add(Format('Ebp : %x',[ctext.Ebp]));
102.   Memo1.Lines.Add(Format('Eip : %x',[ctext.Eip]));
103.   Memo1.Lines.Add(Format('Esp : %x',[ctext.Esp]));
104. end;
106. end.