以前加入BCG时写的几篇破文2

标 题:Crack之亲历手迹3--Delphi程序中是如何获得一个Edit的Text内容的 (1千字)
发信人:y97523  [ 发短消息]
时 间:2002-03-09 19:58:37
阅读次数:284
详细信息:

Crack之亲历手迹3--Delphi程序中是如何获得一个Edit的Text内容的
----------Crack之亲历手迹2--我的第一个注册机----之续集
//--------------------------------------------------------------
实验工具：IDA Pro、Delphi 6、SoftICE4.05
实验目的：发现Delphi编的程序如何获得文本框（Edit）的数据(Text)而不用API函数
//--------------------------------------------------------------
1.用Delphi编个简单的试验程序
一个Form包含一个Edit、一个Button、代码如下
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(Edit1.Text);
end;
-------^~
而Edit.text好像是调用下面的类似函数（从IDA的反汇编可以看出，不过那叫TControl::GetText）
//摘录自Delphi6的source/vcl/controls.pas目录
function TControl.GetTextBuf(Buffer: PChar; BufSize: Integer): Integer;
begin
Result := Perform(WM_GETTEXT, BufSize, Longint(Buffer));
//Perform(Msg: Cardinal; WParam, LParam: Longint): Longint;
//Responds as if the control received a specified Windows message.
end;
从中我们可以看出Delphi时通过Perform函数直接模拟向Edit发送WM_GETTEXT消息来获得Text的内容的！
注意这个WM_GETTEXT消息发送是模拟的，你用BPX MSGFUN时栏不到的，其实是通过Call WndProc的方式！
2。用IDA反汇编1中的exe同样可见到
call @TControl@GetText ;
//--------------------------
@TControl@GetText proc near
...
call unknown_libname_169
...
//--------------------------
unknown_libname_169 proc near
...
call @Controls@TControl@Perform$qqruiii ; Controls::TControl::Perform(uint,int,int)
...
3.结论：Delphi通过向Edit发送WM_GETTEXT（直接调用WNDProc,而没有使用消息函数）消息来获得Text的内容的！
GetText(){
Call WndProc(WM_GETTEXT)；
}
|
WndProc(Msg){
DefWndProc(Msg);
}
Text的自值由DefWndProc系统函数给出！
附：看来Borload的那些家伙写出的东西的确与众不同