Option Strict Compliant

[JuggaloBrotha]

What do I change to make this compliant with Option Strict?

    Private crc32Table() As Integer
    Public Sub New()

        ' This is the official polynomial used by CRC32 in PKZip.
        ' Often the polynomial is shown reversed (04C11DB7).
        Dim dwPolynomial As Integer = &HEDB88320
        Dim i As Integer, j As Integer

        ReDim crc32Table(256)
        Dim dwCrc As Integer

        For i = 0 To 255
            dwCrc = i
            For j = 8 To 1 Step -1
                If (dwCrc And 1) Then
                    dwCrc = ((dwCrc And &HFFFFFFFE) \ 2&) And &H7FFFFFFF
                    dwCrc = dwCrc Xor dwPolynomial
                Else
                    dwCrc = ((dwCrc And &HFFFFFFFE) \ 2&) And &H7FFFFFFF
                End If
            Next j
            crc32Table(i) = dwCrc
        Next i
    End Sub

I've attached the entire class as well, it's for getting file's CRC-32 information

The error messages are:
Dissallows convert from Integer to Boolean
If (dwCrc And 1) Then

Dissallows convert from Long to Integer
dwCrc = ((dwCrc And &HFFFFFFFE) \ 2&) And &H7FFFFFFF

I've never worked with Integers like this before, this is not my original code either

 

[JuggaloBrotha]

Is this the correct fix?

    Public Sub New()

        ' This is the official polynomial used by CRC32 in PKZip.
        ' Often the polynomial is shown reversed (04C11DB7).
        Dim dwPolynomial As Integer = &HEDB88320
        Dim i As Integer, j As Integer

        ReDim crc32Table(256)
        Dim dwCrc As Integer

        For i = 0 To 255
            dwCrc = i
            For j = 8 To 1 Step -1
                If CBool(dwCrc And 1) = True Then
                    dwCrc = CInt(((dwCrc And &HFFFFFFFE) \ 2&) And &H7FFFFFFF)
                    dwCrc = dwCrc Xor dwPolynomial
                Else
                    dwCrc = CInt(((dwCrc And &HFFFFFFFE) \ 2&) And &H7FFFFFFF)
                End If
            Next j
            crc32Table(i) = dwCrc
        Next i
    End Sub

 

[giadich]

looks like it... you don't get any warning any more right?

 

[JuggaloBrotha]

looks like it... you don't get any warning any more right?

I don't, but I may also may not be getting the correct value anymore either

Bit shifting has always been confusing for me