RAZRAB.RU

Код: Выделить всё

Public Class Form1
    Public Function CRC8(ByVal Bytes As Byte) As Byte
        Dim crc As Byte = &H0
        Dim Poly As Byte = &H69
        Dim  j As Integer
        Dim Data, fb As Byte
        Data = Bytes
        fb = crc
        For j = 0 To 7
            fb = Data Xor crc
            fb = fb >> 7
            crc = crc << 1
            Data = Data << 1
            If fb = 1 Then
                crc = crc Xor Poly
            End If
        Next
        Return crc
    End Function

    Private Sub CalcCRCButton_Click(sender As Object, e As EventArgs) Handles CalcCRCButton.Click
        Dim SummCRC As Byte = &H0
        If TextBoxCRC1.Text <> "" Then
            SummCRC = CRC8(Convert.ToByte(TextBoxCRC1.Text, 16))
            If TextBoxCRC2.Text <> "" Then
                SummCRC = CRC8(SummCRC Xor Convert.ToByte(TextBoxCRC2.Text, 16))
                If TextBoxCRC3.Text <> "" Then
                    SummCRC = CRC8(SummCRC Xor Convert.ToByte(TextBoxCRC3.Text, 16))
                    If TextBoxCRC4.Text <> "" Then
                        SummCRC = CRC8(SummCRC Xor Convert.ToByte(TextBoxCRC4.Text, 16))
                        If TextBoxCRC5.Text <> "" Then
                            SummCRC = CRC8(SummCRC Xor Convert.ToByte(TextBoxCRC5.Text, 16))
                        End If
                    End If
                End If
            End If
        End If
        CRC.Text = Hex(SummCRC)
    End Sub