首页
社区
课程
招聘
[原创]ANTI-DEDE的几个方法
发表于: 2004-11-29 17:48 11859

[原创]ANTI-DEDE的几个方法

2004-11-29 17:48
11859

DEDE对于DELPHI程序的威胁是很大的,怎样ANTI-DEDE呢?

方法一:在FORM上使用一个FRAME,防止通过DEDE的DFM EDITOR直接跳到函数或过程里。

  目前DEDE并不能很好地支持FRAME,所以加上一个FRAME,他就无法生成FORM的图形界面,现在可以利用DEDE的这个缺陷。

  类似的缺陷,如果感兴趣可以自己找,比如:
  在FORM里的某个控件里使用中文字,好像有的DEDE就无法正常显示这个FORM,诸如此类。

方法二:隐藏你的过程或函数:
  有些人在分析DELPHI写的程序时,有时会发现在反编译后FORM的事件列表里竟然是空的,这是怎么实现的呢?

  DEDE使用DELPHI的RTTL原理,所以可以轻易地列出所有PUBLISHED下面的函数及过程名--注意是过程名,所以通过DEDE可以轻松地找到函数或过程的入口。

  如果你真的想阻止DEDE简单准确地跳到函数或过程里,可以尝试下面的方法:
  不要用DELPHI自动生成事件,或者是最后自己手工删除在属性框里对这些事件引用,改为动态生成事件。
     但 注意:这比较累,要写些动态代码。是不是要真的这样做,你自己考虑好。
  把PRIVATE上面的函数或过程移动到PRIVATE里面定义。

  这样作的好处是:
   DEDE无法直接列出实名的过程或函数;但某些版本仍可以列出全部随机命名的事件,但这时DEDE可以提供的帮助就有限了;
   由于事件是动态生成,所以想通过查找FORM里的类似OnClick事件就找到入口地址的努力化为泡影,或者说增加了难度。
   如果你的一个FORM都是利用上面的方法生成的--比如连FORMCREATE你都自定义,那DEDE在显示事件栏里会显示空。

   缺点:
     手工多;必须删除属性框里生成的事件代码,比较累,偶尔玩玩还可以。

简单的例子:
//=========================================================
unit Unit1;  
interface   
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
  private
    { Private declarations }
    //!!!
    procedure yourFormCreate;
    procedure yourFormClose(Sender: TObject; var Action: TCloseAction);
    procedure yourFormDestroy(Sender: TObject);

    procedure yourButton1Click(Sender: TObject);

  public
    { Public declarations }

    constructor Create(AOwner: TComponent); override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

constructor TForm1.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

  yourFormCreate;

end;

procedure TForm1.yourFormCreate;
begin      
//!!!!!!!
    OnClose                         := yourFormClose;
    OnDestroy                       := yourFormDestroy;
    Button1.OnClick                 := yourButton1Click;

end;

procedure TForm1.yourFormClose(Sender: TObject; var Action: TCloseAction);
begin
  showmessage('yourFormClose');
  close;
end;

procedure TForm1.yourFormDestroy(Sender: TObject);
begin
  showmessage('yourFormDestroy');
end;
procedure TForm1.yourButton1Click(Sender: TObject);
begin
  showmessage('yourButton1Click');
end;

end.
//=========================================================

以上是我试出来的,欢迎大家抨击不当之处,谢谢!

新建工程,只添加一个Button1,大家把以上代码复制到UNIT1.pas里,接着就编译,然后用DEDE载入,看看可以看到什么??呵呵,在DEDE里查看FORM1的事件列表是“空”的!

  注意:与方法一结合起来,会更有效地阻止他人取得事件入口点。方法一自己去试吧,就不贴代码了。


[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入!

收藏
免费 7
支持
分享
最新回复 (6)
雪    币: 271
活跃值: (90)
能力值: ( LV4,RANK:50 )
在线值:
发帖
回帖
粉丝
2
哇,好激动,版主给加精了,谢谢谢谢,我马上把代码写完全,也好对得起这第一个“精”!!!!!!!
2004-11-29 18:13
0
雪    币: 16
能力值: (RANK:10 )
在线值:
发帖
回帖
粉丝
3
寒~~~~跟我的ID很相似!

偶以前才csdn混的时候叫great123....................
2004-11-29 18:18
0
雪    币: 271
活跃值: (90)
能力值: ( LV4,RANK:50 )
在线值:
发帖
回帖
粉丝
4
呵呵,润色润色,让他看起来像篇文章。
2004-11-29 18:35
0
雪    币: 98745
活跃值: (201039)
能力值: (RANK:10 )
在线值:
发帖
回帖
粉丝
5
支持!!!
2004-11-29 23:02
0
雪    币: 61
活跃值: (160)
能力值: ( LV9,RANK:170 )
在线值:
发帖
回帖
粉丝
6
支持先!!!
2004-11-30 08:44
0
雪    币: 258
活跃值: (230)
能力值: ( LV12,RANK:770 )
在线值:
发帖
回帖
粉丝
7
楼主
把它编译成 ANTI-DEDE CREAKER ME,供大家Ke,Ke!
2004-11-30 09:26
0
游客
登录 | 注册 方可回帖
返回
//