数据加密

以下是delphi中的一个加密算法，请那位高手指点一下，切磋技艺，共同进步。
function EncodePassWord(s:String):String;
var
  Res:String;
  cp,i:Integer;
  b:Byte;
begin
  Res:='';
  cp:=(Length(s) mod 30)+1;
  for i:=1 to Length(s) do
    Res:=Res+IntToHex($FF and (((Ord(s[i]))-(i*3*CypherTable[31-cp]*Length(s)) and $FF) xor CypherTable[cp]),2);
  EncodePassWord:=Res;
end;