有关 DELPHI 的转码函数(20分)

请问各位大虾，在 DELPHI 中，有什么转码函数，可以对字符串进行转码，
例如将一中文字符串转换成 ?3-·μ^ˉá¤f?|3U
可能是转换内码，或者是加密，
请问有什么这方面的函数？

没有

可以自己去写一个。

转：

本人在日常的MIS的开发中常用到的些口令处理中常用的个字符处理过程

现在帖在这里请大家多提意见！

function CryptStr(const S:String; sType: DWord):String;
var
i: Integer;
FKey: Integer;
begin
result:='';
case sType of
0: SetPass;
begin
Randomize;
FKey := Random($FF);
for i:=1 to Length(s) do
Result := Result+Chr( Ord(s) xor i xor FKey);
Result := Result + Char(FKey);
end;
1: GetPass
Begin
FKey := Ord(S[Length(s)]);
for i:=1 to Length(s) - 1 do
Result := Result+Chr( Ord(s) xor i xor FKey);

end;
end;

其实你可以设计一对互逆的函数。
用一个函数对字符的 ASCII 码进行编码，解密的时候再用另一个函数进行解码。
简单的可以用 XOR 函数： (A XOR B) XOR B = A