チェックサムの実装方法 (ID:102657)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 vb.netで下記の様な条件のチェックサムの実装方法について、 教えて下さい。 「チェックサム以外の送信データの和＋チェックサム＝下位2バイトが0x0000となる値」 ※チェックサム以外の送信データの和は、該当する各送信データの1バイト単位の和 下記が現在うまくいかないソースになります。 ''Check Sum ----------------------------------- ''bytSendDataが送信データ Dim srtChk As Integer = 0 'チェックサムを除いた送信データの和 For intCnt As Integer = 0 To bytSendData.Length - 3 srtChk = srtChk + bytSendData(intCnt) Next '送信データの和よりチェックサムを計算 srtChk = &H10000 - srtChk Dim srtSumH As Short = &HFF And (srtChk >> 8) Dim srtSuml As Short = &HFF And (srtChk) 'チェックサムの設定 bytSendData(37) = srtSumH bytSendData(38) = srtSuml