function Tfrmfunc.CheckSum(s: String): String;
var
  i, xorValue: Integer;
begin
  xorValue := 0;
  for i := 1 to Length(s) do
    xorValue := xorValue + Byte(s[i]);
    xorValue := xorValue + 2; ////why
//    xorValue := xorValue xor Byte(s[i]);

  if Length(IntToHex(xorValue, 2)) > 2 then
    Result := Copy(IntToHex(xorValue, 2), Length(IntToHex(xorValue, 2)) - 1, 2)
  else
    Result := IntToHex(xorValue, 2);
end;

創作者介紹
創作者 graciasnana 的頭像
graciasnana

graciasnana的部落格

graciasnana 發表在 痞客邦 留言(0) 人氣()