请相助解释一下语句含义

请帮助解释一下语句含义
从百度中搜到如下一函数，但没有看明白，尤其是红色代码，请各位帮忙解释一下，谢谢了！
function setpassword(PassStr: string): string;
var
  I: Integer;
begin
  PassStr := PassStr;
  if Length(PassStr) > 0 then
    for I := 1 to Length(PassStr) do
 PassStr[I] := Char(Integer(PassStr[I]) xor I);
  Result := PassStr;
end;
[解决办法]
将字符串PassStr的第 I 个字符和 I 做异或操作
[解决办法]
Integer(PassStr[I]) 是强制转化成整型数据与L里的数据进行异或后，再强制转化成字符型数据，赋给 PassStr[I] 数组。
[解决办法]
异或加密，对要求不高用用户来说简单实用，也可以转换成其它进制后加密或加密后再转换。