チェックサムの実装方法について (ID:147173)

名前

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

本文 ＜vb6の掲示版へ誤って投稿していた為、移動しました＞ vb.net 2005 で下記の様な条件のチェックサムの実装方法について、 教えて下さい。 「チェックサム以外の送信データの和＋チェックサム＝下位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 ＞魔界の仮面弁士様 下記について、チェックサムの値が提示している条件と異なるっているのであろうと思われす。bytSendDataにセットする段階ではエラーは発生していません。（ちなみにFelicaの携帯のカードにデータを送信してブラウザの起動を行うという処理時のチェックサムの実装になります。） ＞（チェックサムの値が予想値と異なるのか、それとも、計算した値を ＞ bytSendData にセットする段階で問題が発生しているのか、など）