Visual Basic

Public Function CRC_calc_crc_bernstein(frame As String, len As Integer)

    Dim crc As UInt16 = 5831
    Dim tmp As UInt16 = 0
    Dim t As UInt16 = 0

    For i = 1 To len

        tmp = Mid(frame, i, 1)

        ' t = (crc << 5) + crc + tmp
        t = (crc * 33) + 1  'this is another variant
        t = t + crc
        t = t + tmp

    Next

    CRC_calc_crc_bernstein = crc

End Function

Public Function Hash_calc(frame As String)

    Dim hash As UInteger = 5831
    Dim nextChar As Char
    Dim temp As UInt32
    
    For i = 0 To frame.Length() - 1
    
        nextChar = frame.Substring(i, 1)
        temp = Convert.ToUInt32(nextChar)
        hash = hash * 33 + temp
    Next

    Hash_calc = hash
    
End Function

Where t.art = CInt(Article.SelectedValue) And t.prc = CInt(price.SelectedValue)

Dim a as integer=Article.SelectedValue

...Where t.art = Article.SelectedValue