vb6 - 使用VB尝试计算二进制输入后的校验和

Question

我不知道如何在 text1 中输入数据后计算校验和，输入 text1 作为二进制字节的除数。我试过 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