江湖救急,什么是模2和 ,在线等,完成就结帐.

[liu9527]

问题:对一段内容进行传送,在最后一个字节为前边内容的模2和,请问最后一个字节的内容是如何得到的,也就是模2和的算法.

[constantine]

前面每个字节求模，然后全部加起来？？

[cuteant]

校验和？

[柯本]

可能就是按位加吧:
0+0=0
0+1=1
1+1=0

其中+就为模2和

[liu9527]

对于keity()
你所说的就是xor运算,
例如有以下数据:EB,90,84 最后的校验码为01 ,均为十六进制,
又如:EB,90,83,06,05,ff,38 最后的校验码为c0
请大家看看算法

[柯本]

可能是将字节相加的结果再取反+1
(以下都是对字节计算)
1.EB+90+84 = ff 取反 +1 = 01
2.EB+90+83+06+05+ff+38=40 取反+1 = c0

[lfpyh]

liu9527(小刀)说的是正确的，“模二和”就是对数据进行异或运算，这是一种最简单的数据校验方式，很常见的。

[liu9527]

ifPyh:

但是我不能得到正确的结果,也就是说根据我上面写的得到校验码不符合结果

如:EB,90,83,06,05,ff,38 我计算的值是(3c 而后3c取反+1, )和 最后的校验码(c0)不相同,怎么回事?
也就是不知道
keiy() ( ) 的
2.EB+90+83+06+05+ff+38=40 取反+1 = c0 是怎么得来的

[zhangshihua11]

好像计算机组成原理上有
自己去找找看
不记得怎么回事了

[liu9527]

对于Keiy()
可能是将字节相加的结果再取反+1
(以下都是对字节计算)
1.EB+90+84 = ff 取反 +1 = 01
2.EB+90+83+06+05+ff+38=40 取反+1 = c0

你说的+是不是xor(异和),还是什么
如是xor,如下写,
var
b:array of byte;
br:byte;
i:integer;
r:integer;
begin
setlength(b,7);
b[0]:=$eb;
b[1]:=$90;
b[2]:=$83;
b[3]:=$06;
b[4]:=$05;
b[5]:=$ff;
b[6]:=$38;
br:=b[0];
for i:=low(b)+1 to high(b) do
br:=br xor b[i];
//br最后得到为3c ,不是40
// br:=Lo(i);
//br:=$40;
br:=not br;
br:=br+1;
edit1.text:=format('%X',
);

[柯本]

我是用按位+(而非xor)而得的结果(以字节计算)

[柯本]

程序如下:
procedure TForm1.Button1Click(Sender: TObject);
var
b:array of byte;
br:byte;
i:integer;
r:integer;
begin
setlength(b,7);
b[0]:=$eb;
b[1]:=$90;
b[2]:=$83;
b[3]:=$06;
b[4]:=$05;
b[5]:=$ff;
b[6]:=$38;
br:=b[0];
for i:=1 to 6 do
br:=br+b[i];
br:=not br;
br:=br+1;
Edit1.Text:=inttohex(br,2);
end;
结果为c0

[liu9527]

谢谢 keiy()
马上结贴

[liu9527]

请大家再看一下