可以利用字符串的ASII码,利用一个加密函数 function TKey.decrypt(s:string):string; var i,j,k : integer; s1 : string; begin s1 :=''; j :=length(s); for i:=1 to j do begin k :=j*j-i*i+3; s1:=s1+chr(ord(s[i])-k); end; result :=s1; end;
她说的是运行期的一个对象啦 就像java一样 在运行期间把序列化的对象传给另外得机器使用
If the object is unable to serialize, so it is hard to be encrypted, or you can encrypt the fields inside object one by one.
将dcu文件代替pas文件!
function TKey.decrypt(s:string):string;
var
i,j,k : integer;
s1 : string;
begin
s1 :='';
j :=length(s);
for i:=1 to j do
begin
k :=j*j-i*i+3;
s1:=s1+chr(ord(s[i])-k);
end;
result :=s1;
end;