Public message_size_Upload (42) Jako Bajt
Jawny crc_value = (0)
Jawny bitvalue Jako Bajt ()
Jawny bitcrc Jako Bajt ()
Jawny Const POLI- Jako Integer = &H8005
Jawny len_upload Sznurek = 80
Jawny msg_size_Upload Jako Bajt = len_upload
Funkcja CRC_Check_Table_Upload (ByVal msg_size_Upload Jako Integer) Jako Integer
Ćmić i Jako Integer
Ćmić j Jako Integer
Ćmić msg Jako Integer
crc_value = (0)
message_size_Upload ((0)) = 97
message_size_Upload (1) = 140
message_size_Upload (2) = 105
message_size_Upload (3) = 188
message_size_Upload (4) = 51
message_size_Upload (5) = 79
message_size_Upload (6) = 99
message_size_Upload (7) = 92
message_size_Upload (8) = 64
message_size_Upload (9) = 162
message_size_Upload (10) = 19
message_size_Upload (11) = 109
message_size_Upload (12) = 76
message_size_Upload (12) = 48
message_size_Upload (14) = 48
message_size_Upload (15) = 49
message_size_Upload (16) = 55
message_size_Upload (17) = 57
message_size_Upload (18) = 6
message_size_Upload (19) = 76
message_size_Upload (20) = 48
message_size_Upload (21) = 48
message_size_Upload (22) = 49
message_size_Upload (23) = 55
message_size_Upload (24) = 57
message_size_Upload (25) = 56
message_size_Upload (26) = 49
message_size_Upload (27) = 51
message_size_Upload (28) = 69
message_size_Upload (29) = 69
message_size_Upload (30) = 54
message_size_Upload (31) = 129
message_size_Upload (32) = 16
message_size_Upload (33) = 89
message_size_Upload (34) = 62
message_size_Upload (35) = 230
message_size_Upload (36) = (1)
message_size_Upload (37) = 213
message_size_Upload (38) = 107
message_size_Upload (39) = 21
message_size_Upload (40) = 82
'pętla przez wiadomość bajt
Dla i = (0) Msg_size_Upload - (1)
msg = (message_size_Upload (40))
msg = (msg << 8) I &HFFFF
'pętla przez the wiadomość kawałek
Dla j = (0) 7
Jeżeli ((msg Xor crc_value) >> 15) > (0) Wtedy
'przesuwać the CRC kawałek wartość i porównywać z POLI-
crc_value = ((crc_value << 1) Xor POLI-) I &HFFFF
Inny
crc_value <<= (1)
'przesuwać the CRC kawałek wartość
crc_value = (crc_value) I &HFFFF
Kończyć Jeżeli
msg <<= (1)
msg = (msg) I &HFFFF
Następny j
Następnie i
'wracać the CRC wartość w dziesiątkowy (numerowy) format
bitcrc = BitConverter.GetBytes (crc_value)
Powrót (crc_value Xor (0))
Końcówka Funkcja
|