如何加密编译后的程序？(100分)

W

wmsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-28

• #1

DELPHI的一些文本语句或一些控件的内容，
如：edit1.text:='123456';或者直接在EDIT1的TEXT中填入内容：“123456”
程序编译后，我们用文本编辑工具来打开编译后的EXE文件，可以直接看到
“123456”这个内容，有什么办法使此文本内容查看不到？

 

Y

ysai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-28

• #2

ASPack压缩

 

淡

淡淡的笑

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-28

• #3

不要用
edit1.text:='123456'
而用变量生成，简单一点的用
var a:integer;
b:string;
begin
a:=654321;
b:=rtn(inttostr(a)); //rtn为我自己的写一个让123456变成654321的函数,也可不必用这样，只要扰乱一下就行了
edit1.text:=b;
end;

抱歉，没注意看到题目　是编译后的　：（

 

E

eachbuilder

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-28

• #4

用 Aspack 或 UPX 压缩

 

H

hq_pan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-28

• #5

淡淡的笑 的思路是对的，不要直接在程序里把变量写全。如果是数字的话，就用数字保存，
如果是字符串的话，你可以使用变量保存，字符的次序打乱，或者使用多个变量，然后自己
编写一个函数再把它（们）组合。如：
Edit1.Text := 'abcdefg';
a := 'bdf';
b: = 'aceg';
edit1.text := Merge(a,b);
函数Merge就是自己编写的。

 

飘

飘摇客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-28

• #6

左移一位或右移一位。

 

W

wmsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-29

• #7

谢谢各位的参与！