々
々飞翔鸟々
Unregistered / Unconfirmed
GUEST, unregistred user!
var const M = 94; 这里M的取值比如为90的话加密出来就不对了，用memo显示出来发现少了很多，还有M取很多其他的整数都不对，取94在数字和字母方面目前没发现问题，那位高手指点一下function encode(s:string):string;var n,i:integer; str:string;begin n:=length(s); str:=''; for i:=1 to n do begin str:=str+char(ord(s)-M); end; encode:=str;end;function decode(s:string):string;var n,i:integer; str:string;begin n:=length(s); str:=''; for i:=1 to n do begin str:=str+char(ord(s)+M); end; decode:=str;end;