找个算异或校验和的代码

Question

  算个异或校验和，那位给帮个忙。
  $GPRMC,204700,A,3403.868,N,11709.432,W,001.9,336.9,170698,013.6,E  这一串算出来应该是 6E

Answer 1

原来是初始值不对。谁有其它的更好的算法。function   xortest(buffer:String):byte;
var
        i,len:integer;
begin
  result:=Ord(buffer[1]);
  len:=length(buffer);
  for   i:=1   to   len   do
    result:=result xor Ord(buffer[i]) ;
end;

Answer 2

一开始的时候初始值给的是 0,怎么都不对,然后才修改成现在这个样子.
原来第一次是要和自己XOR.发了贴子后,问题解决了.看在有其它办法没.

Answer 3

初始值给是 0,也对啊
因为 0 xor buffer[1] == buffer[1]

Answer 4

 
ShowMessage(IntToHex( xortest(s),2));