proc checksum {msg} {
  binary scan $msg c* msgCharList
  set pre_checksum 0
  foreach charcode $msgCharList {
    set pre_checksum [expr $charcode ^ $pre_checksum]
  }
  return [GetHex $pre_checksum 8]
}