我想加密源码里的一些字符串,编译出来别人找不到字符串。比如我想加密:'d:\讯雷'这个路径。怎么加密,不要太复杂了,只要搜索不到这个字符串就行了。
解决方案 »
- 急!一个关于SQL的简单问题
- Defphi 7 安装?
- 通过NewXMLDocument创建IXMLDocument,有的计算机上出错。
- 如何查询ACCESS表中的信息:字段名称,数据类型,说明.
- 为什么我的SQL 2K中一个表中有Text字段时,Query返回的RecordCount是-1,但数据可以读出来?
- duolaa,接分
- 求一个比较好用的支持中文的图形引擎.
- 如何在网业上发布activeX控件?
- 我用ADO连接access,access不支持临时表吗
- Listview 在report视图的时候怎样读写第a行第b列的内容?
- fastreport一疑问
- 过滤网址的BHO插件 帮忙编译下!
long:=length(Name);
for I:=1 to Long do
begin
temp:=pchar(copy(Name,I,1));
c:=temp^;
Pass:=Pass+ord(c); //将用户名每个字符转换为ASCII码后相加.
end;
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;
获得二进制缓冲区后,对bit进行not,xor操作