""""""""""""""密码保存问题"""""""""""" 利用ASCII码的转换,就是先将密码转成ASCII码,经过一定的运算后再转成字符,再通过逆运算进行还原 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 转换后保存在注册表中,把自己的算法写到DLL中 可以使用以下两个函数实现加密和解密:function EncStr(const s: string): string;const C1 = 52845; C2 = 22719;var i: integer; Key: word;begin Key := 12345; SetLength(Result, length(s)); for i := 1 to length(s) do begin Result[i] := char(byte(s[i]) xor (Key shr 8)); Key := (byte(Result[i]) + Key) * C1 + C2; end;end;function DecStr(const s: string): string;const C1 = 52845; C2 = 22719;var i: integer; Key: word;begin Key := 12345; SetLength(Result, length(s)); for i := 1 to length(s) do begin Result[i] := char(byte(s[i]) xor (Key shr 8)); Key := (byte(s[i]) + Key) * C1 + C2; end;end;在很多地方都可以找到这些函数的 cxGrid使用的几个问题。 散分!为最爱的MLMM践行 socket 受不到数据 大家现在都在用那个版本的delphi啊? ado 灾难性故障 。。。。分不多!谢了! 讨论:把一个表写成一个类,把表的字段设为类的属性 的优缺点和必要性 控件数组? 写入文本的问题1! master/detail取消保存时出现hrow hard- soft delete 的例外 ~~~求 <刘艺的delphi面向对象编程> 这本书~~~ delphi的一个小问是 如何用sql语句在dbf数据表中插入日期型数据
const
C1 = 52845;
C2 = 22719;
var
i: integer;
Key: word;
begin
Key := 12345;
SetLength(Result, length(s));
for i := 1 to length(s) do
begin
Result[i] := char(byte(s[i]) xor (Key shr 8));
Key := (byte(Result[i]) + Key) * C1 + C2;
end;
end;function DecStr(const s: string): string;
const
C1 = 52845;
C2 = 22719;
var
i: integer;
Key: word;
begin
Key := 12345;
SetLength(Result, length(s));
for i := 1 to length(s) do
begin
Result[i] := char(byte(s[i]) xor (Key shr 8));
Key := (byte(s[i]) + Key) * C1 + C2;
end;
end;
在很多地方都可以找到这些函数的