帮忙解释两句话!多谢 小弟我是初学者

帮忙解释两句话!谢谢 我是菜鸟!
function Decrypt(const s:string):string; //加密
var
  I:Integer;
begin
  Result:='';
  for i:=1 to length(s) do
result:=result+chr(ord(s[i]) xor i xor 69);
  result:=result + char(69);

------解决方案--------------------
取字符串中每个字符的asc码与这个字符在字符串中的位置取异或~~
再把此ACS码还原为字符

最后返回运算后的字符串


是一个按位取异或的字符串加密函数