塑料排水板-植草格-土工膜厂家-泰安东诺工程材料有限公司

以文本方式查看主題

-  曙海教育集團(tuán)論壇  (http://m.rfoamep.cn/bbs/index.asp)
--  Delphi程序設(shè)計(jì)  (http://m.rfoamep.cn/bbs/list.asp?boardid=76)
----  Delphi程序Anti-XXX的一個(gè)小技巧  (http://m.rfoamep.cn/bbs/dispbbs.asp?boardid=76&id=2575)

--  作者：wangxinxin
--  發(fā)布時(shí)間：2010-12-14 11:29:49
--  Delphi程序Anti-XXX的一個(gè)小技巧
對(duì)于Delphi程序，通常我們可以通過(guò)DeDe來(lái)查找關(guān)鍵點(diǎn)。即使使用了Anti-DeDe技術(shù)（例如使用黑夜彩虹的Anti_DeDe v0.1，
  見(jiàn)http://www.unpack.cn/viewthread.php?tid=14650&highlight=%2B%BA%DA%D2%B9%B2%CA%BA%E7 處理過(guò)程序），還是可以
  通過(guò)資源編輯工具+16進(jìn)制編輯工具來(lái)查找關(guān)鍵點(diǎn)（詳見(jiàn)《加密與解密》Ⅱ第7章）
  那么假若我們不在Delphi生成的事件過(guò)程中寫(xiě)代碼，而是自己處理消息呢？
  我做了一個(gè)實(shí)驗(yàn)，在Delphi中新建一個(gè)工程
  代碼如下：
  unit Unit1;

  interface

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

  type
    TForm1 = class(TForm)
      Button1: TButton;
      Button2: TButton;
    private
      { Private declarations }
        procedure OwnProcess(var Msg:TMessage);Message WM_COMMAND;

    public
      { Public declarations }
    end;

  var
    Form1: TForm1;

  implementation

  {$R *.dfm}
  procedure TForm1.OwnProcess(var Msg:TMessage);

  begin
      if (Msg.LParam=Button1.Handle)
          then
              MessageBox(Form1.Handle,\'O,ye!\',\'Test\',MB_OK);
  end;

  end.
我在窗體上放了兩個(gè)Button,但是只響應(yīng)一個(gè)Button被點(diǎn)擊
編譯出程序之后，用資源編輯工具查看，沒(méi)有OnClick事件了（這個(gè)當(dāng)然拉�。�
再用DeDe反編譯查看，同樣找不到任何關(guān)鍵信息，如下圖
shot.JPG下載此附件需要消耗2Kx，下載中會(huì)自動(dòng)扣除。
當(dāng)然，要找到這個(gè)程序的關(guān)鍵點(diǎn)很容易，因?yàn)橛凶址麉⒖己蛯?duì)話框，若沒(méi)有這些呢？
希望大家能想出Anti這一小技巧的技巧(^_^)

這個(gè)程序見(jiàn)這里
Project1.rar下載此附件需要消耗2Kx，下載中會(huì)自動(dòng)扣除。