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;
全站熱搜
留言列表