delphi 2010 下的一个字符串加密函数，可对中文进行加/解密

function Crypt(s: String; const bEncrypt: boolean = True): String; //加、解密
const
mm=7;
key:array[0..mm] of word=($A2,$F9,$AA,$55,$E3,$6D,$8A,$47);
//这里的常量是加密异或码（作为加密密钥用的），可自行修改。

var
i, L : DWord;
b, k : word;
begin
Result := '';
L:=Length(S);
if L<1 then exit;
k:=0;
if bEncrypt then
//加密
for i := 1 to L do begin
b := word(S[i]) xor key[k];
Result := Result + IntToHex(b,4);
inc(k);
if k>mm then k:=0;
end
else begin
//还原
k:=0;
i:=0;
while i<L div 4 do begin
Result := Result + chr( StrToInt('$'+copy(s,i*4+1,4)) xor key[k]);
inc(i);
inc(k);
if k>mm then k:=0;
end;
end;
end;

//说明:1个字符转为4个16进制数字.因为会出现不可见字符,如果不使用16进制数字表示,会出现还原问题.另外,因delphi2010将汉字认作是一个字符,所以用4个16进制数字表示加密后的字符.如果仅仅是加密英文用2个16进制数字就可以了.不提供bEncrypt参数则为加密.