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;

arrow
arrow
    全站熱搜

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