小氓男№部落

摘要： function Enc(Str:String):String;//字符加密函数 这是用的一个异或加密vari,j:Integer;beginResult:='';j:=0;for i:=1 to Length(Str) dobeginResult:=Result+IntToHex(Byte(Str[i]) xor XorKey[j],2);j:=(j+1) mod 8;end;end;funct... 阅读全文