vb6 - バイナリでの入力後にVBを使用してチェックサムを計算しようとしています

Question

データのテキスト1に入力した後、チェックサムを計算する方法がわかりません。除数のテキスト1をバイナリバイトで入力します。私は checksum.text = Text1.Text Xor Text2.Text を試しましたが、うまくいきませんでした。すでにインターネットで検索しましたが、C++ と Java にのみ適用されます。VB で可能ですか?

Answer 1

文字列ではできませんXOR。文字列ではなく、2 つの数値に対して行う必要があります。

試す：

checksum.text = CStr(Clng(Text1.Text) Xor CLng(Text2.Text))

Answer 2

@ジョージ

Private Sub Command1_Click()

    If Len(Text1.Text) & (Text2.Text) = 0 Or Text1.Text & Text2.Text) Like "[!0-1]" Then
        Text3 = "Wrong Input, Please Correct it!!"
    Else
        checksum.Text = CStr(CLng(Text1.Text) Xor CLng(Text2.Text))
        Trans(2).Text = (Text1.Text) + (checksum.Text) 
        Text3 = "Congratulation CRC is generated"
    End If 

End Sub