delphi怎么加密字符串？

Question

我想加密源码里的一些字符串，编译出来别人找不到字符串。比如我想加密：'d:\讯雷'这个路径。怎么加密，不要太复杂了，只要搜索不到这个字符串就行了。

Answer 1

Name:='d:\讯雷';
long:=length(Name);
for I:=1 to Long do
begin
temp:=pchar(copy(Name,I,1));
c:=temp^;
Pass:=Pass+ord(c); //将用户名每个字符转换为ASCII码后相加.
end;

Answer 2

var
Temp:pchar;
Name:string;
c:char;
I,Long,Pass:integer;
begin
Name:='d:\讯雷'; 
long:=length(Name); 
for I:=1 to Long do 
begin 
temp:=pchar(copy(Name,I,1)); 
c:=temp^; 
Pass:=Pass+ord(c); //将用户名每个字符转换为ASCII码后相加. 
end; 
end;

Answer 3

简单的进行二进制加密吧，一般情况可以凑合使用了。
获得二进制缓冲区后，对bit进行not,xor操作