SMP协议校验码生成

yearn4fd

从养生的角度来讲，难得糊涂；
从实践的层面来说，事怕认真。
托您吉言，解决了。其实令人困惑的地方是别人给的《协议文档》
中的有关描述，那三言两语、晴蜓点水式的解说让人易上弯路。
这玩艺，无非就是几个协议头的”字符串“连接为一体，然后4位一组，
按发送顺序上一分组与下分组按位异或，
得到的结果又与下下分组异或，依次类推，，最终将异或结果取反。
从技术实现上一点都不难。难的是对协议的解读。
做通信接口的人迟早肯定遇上这个问题，附上代码，也许能帮上别人。
因为是测试代码，写得不好看。呵呵。。。

$message='1.00IN123456    SRVM00000001DLGLGNFFFF00000001TXBEG 00FFLOGIN:USER=admin,PSWD=adminjjyy ';#协议几头及事件部分。
$m=int(length($message)/4); #计算应有多少分组。。。
$n=length($message)%4;
$m++ if($n>0);
my @my_array;
for ($i=0;$i<$m;$i++)
{ $my_array[$i]=substr($message,4*$i,4);}
foreach (@my_array)
{ $_=$_. ' ' x (4-length($_)) if (length($_)<4); } #如果分组不满4位，在后面加空格。
my $ret;
foreach( @my_array)
{ $ret=$ret^$_; } #依次异或
$ret= ~ $ret; #取反
$ret=unpack("H*",$ret); #转换
$ret =~ tr/[a-z]/[A-Z]/; #16进制小写变大写
print $ret."\n";

D:\>perl 3.pl
BCDE8AFF

回复 10# jason680