有关字符的加密与解密

   本人在日常的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[i]) 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[i]) xor i xor fkey);

   end;
end;