fqvarfort
Jul 13, 2006
- 
fqvarfort
An easy-to-use code sample for calculating the CRC-32 value of a string.
fqvarfort An easy-to-use code sample for calculating the CRC-32 value of a string.
Dim CRC32Table(256)
' Test suite answers
'CRC32(123456789) = CBF43926
'CRC32(hello world)=D4A1185
'CRC32(Hello world)=8BD69E52
'CRC32(a) = E8B7BE43
'CRC32( ) = E96CCF45
DecHex$(CRC32("123456789"))DecHex$(CRC32("123456789"))DecHex$(CRC32("hello world"))DecHex$(CRC32("hello world"))DecHex$(CRC32("Hello world"))DecHex$(CRC32("Hello world"))DecHex$(CRC32("a"))DecHex$(CRC32("a"))DecHex$(CRC32(" "))DecHex$(CRC32(" "))
Function CRC32(Msg$)
IF (CRC32Table(1) = 0) THEN
Call CRC32Setup
END IF
lCRC =HexDec("&HFFFFFFFF")HexDec("&HFFFFFFFF")
For a = 1 To Len(Msg$)
bChar = Asc(Mid$(Msg$, a, 1))
bTemp = (lCRC AndHexDec("&HFF"))HexDec("&HFF")) Xor bChar
lCRC = (Int(lCRC / 256) Xor CRC32Table(bTemp))
Next
CRC32 = (lCRC XorHexDec("&HFFFFFFFF"))HexDec("&HFFFFFFFF"))
End Function
Sub CRC32Setup
CRC32Table(0) =HexDec("&H0")HexDec("&H0")
CRC32Table(1) =HexDec("&H77073096")HexDec("&H77073096")
CRC32Table(2) =HexDec("&HEE0E612C")HexDec("&HEE0E612C")
CRC32Table(3) =HexDec("&H990951BA")HexDec("&H990951BA")
CRC32Table(4) =HexDec("&H76DC419")HexDec("&H76DC419")
CRC32Table(5) =HexDec("&H706AF48F")HexDec("&H706AF48F")
CRC32Table(6) =HexDec("&HE963A535")HexDec("&HE963A535")
CRC32Table(7) =HexDec("&H9E6495A3")HexDec("&H9E6495A3")
CRC32Table(8) =HexDec("&HEDB8832")HexDec("&HEDB8832")
CRC32Table(9) =HexDec("&H79DCB8A4")HexDec("&H79DCB8A4")
CRC32Table(10) =HexDec("&HE0D5E91E")HexDec("&HE0D5E91E")
CRC32Table(11) =HexDec("&H97D2D988")HexDec("&H97D2D988")
CRC32Table(12) =HexDec("&H9B64C2B")HexDec("&H9B64C2B")
CRC32Table(13) =HexDec("&H7EB17CBD")HexDec("&H7EB17CBD")
CRC32Table(14) =HexDec("&HE7B82D07")HexDec("&HE7B82D07")
CRC32Table(15) =HexDec("&H90BF1D91")HexDec("&H90BF1D91")
CRC32Table(16) =HexDec("&H1DB71064")HexDec("&H1DB71064")
CRC32Table(17) =HexDec("&H6AB020F2")HexDec("&H6AB020F2")
CRC32Table(18) =HexDec("&HF3B97148")HexDec("&HF3B97148")
CRC32Table(19) =HexDec("&H84BE41DE")HexDec("&H84BE41DE")
CRC32Table(20) =HexDec("&H1ADAD47D")HexDec("&H1ADAD47D")
CRC32Table(21) =HexDec("&H6DDDE4EB")HexDec("&H6DDDE4EB")
CRC32Table(22) =HexDec("&HF4D4B551")HexDec("&HF4D4B551")
CRC32Table(23) =HexDec("&H83D385C7")HexDec("&H83D385C7")
CRC32Table(24) =HexDec("&H136C9856")HexDec("&H136C9856")
CRC32Table(25) =HexDec("&H646BA8C0")HexDec("&H646BA8C0")
CRC32Table(26) =HexDec("&HFD62F97A")HexDec("&HFD62F97A")
CRC32Table(27) =HexDec("&H8A65C9EC")HexDec("&H8A65C9EC")
CRC32Table(28) =HexDec("&H14015C4F")HexDec("&H14015C4F")
CRC32Table(29) =HexDec("&H63066CD9")HexDec("&H63066CD9")
CRC32Table(30) =HexDec("&HFA0F3D63")HexDec("&HFA0F3D63")
CRC32Table(31) =HexDec("&H8D080DF5")HexDec("&H8D080DF5")
CRC32Table(32) =HexDec("&H3B6E20C8")HexDec("&H3B6E20C8")
CRC32Table(33) =HexDec("&H4C69105E")HexDec("&H4C69105E")
CRC32Table(34) =HexDec("&HD56041E4")HexDec("&HD56041E4")
CRC32Table(35) =HexDec("&HA2677172")HexDec("&HA2677172")
CRC32Table(36) =HexDec("&H3C03E4D1")HexDec("&H3C03E4D1")
CRC32Table(37) =HexDec("&H4B04D447")HexDec("&H4B04D447")
CRC32Table(38) =HexDec("&HD20D85FD")HexDec("&HD20D85FD")
CRC32Table(39) =HexDec("&HA50AB56B")HexDec("&HA50AB56B")
CRC32Table(40) =HexDec("&H35B5A8FA")HexDec("&H35B5A8FA")
CRC32Table(41) =HexDec("&H42B2986C")HexDec("&H42B2986C")
CRC32Table(42) =HexDec("&HDBBBC9D6")HexDec("&HDBBBC9D6")
CRC32Table(43) =HexDec("&HACBCF940")HexDec("&HACBCF940")
CRC32Table(44) =HexDec("&H32D86CE3")HexDec("&H32D86CE3")
CRC32Table(45) =HexDec("&H45DF5C75")HexDec("&H45DF5C75")
CRC32Table(46) =HexDec("&HDCD60DCF")HexDec("&HDCD60DCF")
CRC32Table(47) =HexDec("&HABD13D59")HexDec("&HABD13D59")
CRC32Table(48) =HexDec("&H26D930AC")HexDec("&H26D930AC")
CRC32Table(49) =HexDec("&H51DE003A")HexDec("&H51DE003A")
CRC32Table(50) =HexDec("&HC8D75180")HexDec("&HC8D75180")
CRC32Table(51) =HexDec("&HBFD06116")HexDec("&HBFD06116")
CRC32Table(52) =HexDec("&H21B4F4B5")HexDec("&H21B4F4B5")
CRC32Table(53) =HexDec("&H56B3C423")HexDec("&H56B3C423")
CRC32Table(54) =HexDec("&HCFBA9599")HexDec("&HCFBA9599")
CRC32Table(55) =HexDec("&HB8BDA50F")HexDec("&HB8BDA50F")
CRC32Table(56) =HexDec("&H2802B89E")HexDec("&H2802B89E")
CRC32Table(57) =HexDec("&H5F058808")HexDec("&H5F058808")
CRC32Table(58) =HexDec("&HC60CD9B2")HexDec("&HC60CD9B2")
CRC32Table(59) =HexDec("&HB10BE924")HexDec("&HB10BE924")
CRC32Table(60) =HexDec("&H2F6F7C87")HexDec("&H2F6F7C87")
CRC32Table(61) =HexDec("&H58684C11")HexDec("&H58684C11")
CRC32Table(62) =HexDec("&HC1611DAB")HexDec("&HC1611DAB")
CRC32Table(63) =HexDec("&HB6662D3D")HexDec("&HB6662D3D")
CRC32Table(64) =HexDec("&H76DC4190")HexDec("&H76DC4190")
CRC32Table(65) =HexDec("&H1DB7106")HexDec("&H1DB7106")
CRC32Table(66) =HexDec("&H98D220BC")HexDec("&H98D220BC")
CRC32Table(67) =HexDec("&HEFD5102A")HexDec("&HEFD5102A")
CRC32Table(68) =HexDec("&H71B18589")HexDec("&H71B18589")
CRC32Table(69) =HexDec("&H6B6B51F")HexDec("&H6B6B51F")
CRC32Table(70) =HexDec("&H9FBFE4A5")HexDec("&H9FBFE4A5")
CRC32Table(71) =HexDec("&HE8B8D433")HexDec("&HE8B8D433")
CRC32Table(72) =HexDec("&H7807C9A2")HexDec("&H7807C9A2")
CRC32Table(73) =HexDec("&HF00F934")HexDec("&HF00F934")
CRC32Table(74) =HexDec("&H9609A88E")HexDec("&H9609A88E")
CRC32Table(75) =HexDec("&HE10E9818")HexDec("&HE10E9818")
CRC32Table(76) =HexDec("&H7F6A0DBB")HexDec("&H7F6A0DBB")
CRC32Table(77) =HexDec("&H86D3D2D")HexDec("&H86D3D2D")
CRC32Table(78) =HexDec("&H91646C97")HexDec("&H91646C97")
CRC32Table(79) =HexDec("&HE6635C01")HexDec("&HE6635C01")
CRC32Table(80) =HexDec("&H6B6B51F4")HexDec("&H6B6B51F4")
CRC32Table(81) =HexDec("&H1C6C6162")HexDec("&H1C6C6162")
CRC32Table(82) =HexDec("&H856530D8")HexDec("&H856530D8")
CRC32Table(83) =HexDec("&HF262004E")HexDec("&HF262004E")
CRC32Table(84) =HexDec("&H6C0695ED")HexDec("&H6C0695ED")
CRC32Table(85) =HexDec("&H1B01A57B")HexDec("&H1B01A57B")
CRC32Table(86) =HexDec("&H8208F4C1")HexDec("&H8208F4C1")
CRC32Table(87) =HexDec("&HF50FC457")HexDec("&HF50FC457")
CRC32Table(88) =HexDec("&H65B0D9C6")HexDec("&H65B0D9C6")
CRC32Table(89) =HexDec("&H12B7E950")HexDec("&H12B7E950")
CRC32Table(90) =HexDec("&H8BBEB8EA")HexDec("&H8BBEB8EA")
CRC32Table(91) =HexDec("&HFCB9887C")HexDec("&HFCB9887C")
CRC32Table(92) =HexDec("&H62DD1DDF")HexDec("&H62DD1DDF")
CRC32Table(93) =HexDec("&H15DA2D49")HexDec("&H15DA2D49")
CRC32Table(94) =HexDec("&H8CD37CF3")HexDec("&H8CD37CF3")
CRC32Table(95) =HexDec("&HFBD44C65")HexDec("&HFBD44C65")
CRC32Table(96) =HexDec("&H4DB26158")HexDec("&H4DB26158")
CRC32Table(97) =HexDec("&H3AB551CE")HexDec("&H3AB551CE")
CRC32Table(98) =HexDec("&HA3BC0074")HexDec("&HA3BC0074")
CRC32Table(99) =HexDec("&HD4BB30E2")HexDec("&HD4BB30E2")
CRC32Table(100) =HexDec("&H4ADFA541")HexDec("&H4ADFA541")
CRC32Table(101) =HexDec("&H3DD895D7")HexDec("&H3DD895D7")
CRC32Table(102) =HexDec("&HA4D1C46D")HexDec("&HA4D1C46D")
CRC32Table(103) =HexDec("&HD3D6F4FB")HexDec("&HD3D6F4FB")
CRC32Table(104) =HexDec("&H4369E96A")HexDec("&H4369E96A")
CRC32Table(105) =HexDec("&H346ED9FC")HexDec("&H346ED9FC")
CRC32Table(106) =HexDec("&HAD678846")HexDec("&HAD678846")
CRC32Table(107) =HexDec("&HDA60B8D0")HexDec("&HDA60B8D0")
CRC32Table(108) =HexDec("&H44042D73")HexDec("&H44042D73")
CRC32Table(109) =HexDec("&H33031DE5")HexDec("&H33031DE5")
CRC32Table(110) =HexDec("&HAA0A4C5F")HexDec("&HAA0A4C5F")
CRC32Table(111) =HexDec("&HDD0D7CC9")HexDec("&HDD0D7CC9")
CRC32Table(112) =HexDec("&H5005713C")HexDec("&H5005713C")
CRC32Table(113) =HexDec("&H270241AA")HexDec("&H270241AA")
CRC32Table(114) =HexDec("&HBE0B1010")HexDec("&HBE0B1010")
CRC32Table(115) =HexDec("&HC90C2086")HexDec("&HC90C2086")
CRC32Table(116) =HexDec("&H5768B525")HexDec("&H5768B525")
CRC32Table(117) =HexDec("&H206F85B3")HexDec("&H206F85B3")
CRC32Table(118) =HexDec("&HB966D409")HexDec("&HB966D409")
CRC32Table(119) =HexDec("&HCE61E49F")HexDec("&HCE61E49F")
CRC32Table(120) =HexDec("&H5EDEF90E")HexDec("&H5EDEF90E")
CRC32Table(121) =HexDec("&H29D9C998")HexDec("&H29D9C998")
CRC32Table(122) =HexDec("&HB0D09822")HexDec("&HB0D09822")
CRC32Table(123) =HexDec("&HC7D7A8B4")HexDec("&HC7D7A8B4")
CRC32Table(124) =HexDec("&H59B33D17")HexDec("&H59B33D17")
CRC32Table(125) =HexDec("&H2EB40D81")HexDec("&H2EB40D81")
CRC32Table(126) =HexDec("&HB7BD5C3B")HexDec("&HB7BD5C3B")
CRC32Table(127) =HexDec("&HC0BA6CAD")HexDec("&HC0BA6CAD")
CRC32Table(128) =HexDec("&HEDB88320")HexDec("&HEDB88320")
CRC32Table(129) =HexDec("&H9ABFB3B6")HexDec("&H9ABFB3B6")
CRC32Table(130) =HexDec("&H3B6E20C")HexDec("&H3B6E20C")
CRC32Table(131) =HexDec("&H74B1D29A")HexDec("&H74B1D29A")
CRC32Table(132) =HexDec("&HEAD54739")HexDec("&HEAD54739")
CRC32Table(133) =HexDec("&H9DD277AF")HexDec("&H9DD277AF")
CRC32Table(134) =HexDec("&H4DB2615")HexDec("&H4DB2615")
CRC32Table(135) =HexDec("&H73DC1683")HexDec("&H73DC1683")
CRC32Table(136) =HexDec("&HE3630B12")HexDec("&HE3630B12")
CRC32Table(137) =HexDec("&H94643B84")HexDec("&H94643B84")
CRC32Table(138) =HexDec("&HD6D6A3E")HexDec("&HD6D6A3E")
CRC32Table(139) =HexDec("&H7A6A5AA8")HexDec("&H7A6A5AA8")
CRC32Table(140) =HexDec("&HE40ECF0B")HexDec("&HE40ECF0B")
CRC32Table(141) =HexDec("&H9309FF9D")HexDec("&H9309FF9D")
CRC32Table(142) =HexDec("&HA00AE27")HexDec("&HA00AE27")
CRC32Table(143) =HexDec("&H7D079EB1")HexDec("&H7D079EB1")
CRC32Table(144) =HexDec("&HF00F9344")HexDec("&HF00F9344")
CRC32Table(145) =HexDec("&H8708A3D2")HexDec("&H8708A3D2")
CRC32Table(146) =HexDec("&H1E01F268")HexDec("&H1E01F268")
CRC32Table(147) =HexDec("&H6906C2FE")HexDec("&H6906C2FE")
CRC32Table(148) =HexDec("&HF762575D")HexDec("&HF762575D")
CRC32Table(149) =HexDec("&H806567CB")HexDec("&H806567CB")
CRC32Table(150) =HexDec("&H196C3671")HexDec("&H196C3671")
CRC32Table(151) =HexDec("&H6E6B06E7")HexDec("&H6E6B06E7")
CRC32Table(152) =HexDec("&HFED41B76")HexDec("&HFED41B76")
CRC32Table(153) =HexDec("&H89D32BE0")HexDec("&H89D32BE0")
CRC32Table(154) =HexDec("&H10DA7A5A")HexDec("&H10DA7A5A")
CRC32Table(155) =HexDec("&H67DD4ACC")HexDec("&H67DD4ACC")
CRC32Table(156) =HexDec("&HF9B9DF6F")HexDec("&HF9B9DF6F")
CRC32Table(157) =HexDec("&H8EBEEFF9")HexDec("&H8EBEEFF9")
CRC32Table(158) =HexDec("&H17B7BE43")HexDec("&H17B7BE43")
CRC32Table(159) =HexDec("&H60B08ED5")HexDec("&H60B08ED5")
CRC32Table(160) =HexDec("&HD6D6A3E8")HexDec("&HD6D6A3E8")
CRC32Table(161) =HexDec("&HA1D1937E")HexDec("&HA1D1937E")
CRC32Table(162) =HexDec("&H38D8C2C4")HexDec("&H38D8C2C4")
CRC32Table(163) =HexDec("&H4FDFF252")HexDec("&H4FDFF252")
CRC32Table(164) =HexDec("&HD1BB67F1")HexDec("&HD1BB67F1")
CRC32Table(165) =HexDec("&HA6BC5767")HexDec("&HA6BC5767")
CRC32Table(166) =HexDec("&H3FB506DD")HexDec("&H3FB506DD")
CRC32Table(167) =HexDec("&H48B2364B")HexDec("&H48B2364B")
CRC32Table(168) =HexDec("&HD80D2BDA")HexDec("&HD80D2BDA")
CRC32Table(169) =HexDec("&HAF0A1B4C")HexDec("&HAF0A1B4C")
CRC32Table(170) =HexDec("&H36034AF6")HexDec("&H36034AF6")
CRC32Table(171) =HexDec("&H41047A60")HexDec("&H41047A60")
CRC32Table(172) =HexDec("&HDF60EFC3")HexDec("&HDF60EFC3")
CRC32Table(173) =HexDec("&HA867DF55")HexDec("&HA867DF55")
CRC32Table(174) =HexDec("&H316E8EEF")HexDec("&H316E8EEF")
CRC32Table(175) =HexDec("&H4669BE79")HexDec("&H4669BE79")
CRC32Table(176) =HexDec("&HCB61B38C")HexDec("&HCB61B38C")
CRC32Table(177) =HexDec("&HBC66831A")HexDec("&HBC66831A")
CRC32Table(178) =HexDec("&H256FD2A0")HexDec("&H256FD2A0")
CRC32Table(179) =HexDec("&H5268E236")HexDec("&H5268E236")
CRC32Table(180) =HexDec("&HCC0C7795")HexDec("&HCC0C7795")
CRC32Table(181) =HexDec("&HBB0B4703")HexDec("&HBB0B4703")
CRC32Table(182) =HexDec("&H220216B9")HexDec("&H220216B9")
CRC32Table(183) =HexDec("&H5505262F")HexDec("&H5505262F")
CRC32Table(184) =HexDec("&HC5BA3BBE")HexDec("&HC5BA3BBE")
CRC32Table(185) =HexDec("&HB2BD0B28")HexDec("&HB2BD0B28")
CRC32Table(186) =HexDec("&H2BB45A92")HexDec("&H2BB45A92")
CRC32Table(187) =HexDec("&H5CB36A04")HexDec("&H5CB36A04")
CRC32Table(188) =HexDec("&HC2D7FFA7")HexDec("&HC2D7FFA7")
CRC32Table(189) =HexDec("&HB5D0CF31")HexDec("&HB5D0CF31")
CRC32Table(190) =HexDec("&H2CD99E8B")HexDec("&H2CD99E8B")
CRC32Table(191) =HexDec("&H5BDEAE1D")HexDec("&H5BDEAE1D")
CRC32Table(192) =HexDec("&H9B64C2B0")HexDec("&H9B64C2B0")
CRC32Table(193) =HexDec("&HEC63F226")HexDec("&HEC63F226")
CRC32Table(194) =HexDec("&H756AA39C")HexDec("&H756AA39C")
CRC32Table(195) =HexDec("&H26D930A")HexDec("&H26D930A")
CRC32Table(196) =HexDec("&H9C0906A9")HexDec("&H9C0906A9")
CRC32Table(197) =HexDec("&HEB0E363F")HexDec("&HEB0E363F")
CRC32Table(198) =HexDec("&H72076785")HexDec("&H72076785")
CRC32Table(199) =HexDec("&H5005713")HexDec("&H5005713")
CRC32Table(200) =HexDec("&H95BF4A82")HexDec("&H95BF4A82")
CRC32Table(201) =HexDec("&HE2B87A14")HexDec("&HE2B87A14")
CRC32Table(202) =HexDec("&H7BB12BAE")HexDec("&H7BB12BAE")
CRC32Table(203) =HexDec("&HCB61B38")HexDec("&HCB61B38")
CRC32Table(204) =HexDec("&H92D28E9B")HexDec("&H92D28E9B")
CRC32Table(205) =HexDec("&HE5D5BE0D")HexDec("&HE5D5BE0D")
CRC32Table(206) =HexDec("&H7CDCEFB7")HexDec("&H7CDCEFB7")
CRC32Table(207) =HexDec("&HBDBDF21")HexDec("&HBDBDF21")
CRC32Table(208) =HexDec("&H86D3D2D4")HexDec("&H86D3D2D4")
CRC32Table(209) =HexDec("&HF1D4E242")HexDec("&HF1D4E242")
CRC32Table(210) =HexDec("&H68DDB3F8")HexDec("&H68DDB3F8")
CRC32Table(211) =HexDec("&H1FDA836E")HexDec("&H1FDA836E")
CRC32Table(212) =HexDec("&H81BE16CD")HexDec("&H81BE16CD")
CRC32Table(213) =HexDec("&HF6B9265B")HexDec("&HF6B9265B")
CRC32Table(214) =HexDec("&H6FB077E1")HexDec("&H6FB077E1")
CRC32Table(215) =HexDec("&H18B74777")HexDec("&H18B74777")
CRC32Table(216) =HexDec("&H88085AE6")HexDec("&H88085AE6")
CRC32Table(217) =HexDec("&HFF0F6A70")HexDec("&HFF0F6A70")
CRC32Table(218) =HexDec("&H66063BCA")HexDec("&H66063BCA")
CRC32Table(219) =HexDec("&H11010B5C")HexDec("&H11010B5C")
CRC32Table(220) =HexDec("&H8F659EFF")HexDec("&H8F659EFF")
CRC32Table(221) =HexDec("&HF862AE69")HexDec("&HF862AE69")
CRC32Table(222) =HexDec("&H616BFFD3")HexDec("&H616BFFD3")
CRC32Table(223) =HexDec("&H166CCF45")HexDec("&H166CCF45")
CRC32Table(224) =HexDec("&HA00AE278")HexDec("&HA00AE278")
CRC32Table(225) =HexDec("&HD70DD2EE")HexDec("&HD70DD2EE")
CRC32Table(226) =HexDec("&H4E048354")HexDec("&H4E048354")
CRC32Table(227) =HexDec("&H3903B3C2")HexDec("&H3903B3C2")
CRC32Table(228) =HexDec("&HA7672661")HexDec("&HA7672661")
CRC32Table(229) =HexDec("&HD06016F7")HexDec("&HD06016F7")
CRC32Table(230) =HexDec("&H4969474D")HexDec("&H4969474D")
CRC32Table(231) =HexDec("&H3E6E77DB")HexDec("&H3E6E77DB")
CRC32Table(232) =HexDec("&HAED16A4A")HexDec("&HAED16A4A")
CRC32Table(233) =HexDec("&HD9D65ADC")HexDec("&HD9D65ADC")
CRC32Table(234) =HexDec("&H40DF0B66")HexDec("&H40DF0B66")
CRC32Table(235) =HexDec("&H37D83BF0")HexDec("&H37D83BF0")
CRC32Table(236) =HexDec("&HA9BCAE53")HexDec("&HA9BCAE53")
CRC32Table(237) =HexDec("&HDEBB9EC5")HexDec("&HDEBB9EC5")
CRC32Table(238) =HexDec("&H47B2CF7F")HexDec("&H47B2CF7F")
CRC32Table(239) =HexDec("&H30B5FFE9")HexDec("&H30B5FFE9")
CRC32Table(240) =HexDec("&HBDBDF21C")HexDec("&HBDBDF21C")
CRC32Table(241) =HexDec("&HCABAC28A")HexDec("&HCABAC28A")
CRC32Table(242) =HexDec("&H53B39330")HexDec("&H53B39330")
CRC32Table(243) =HexDec("&H24B4A3A6")HexDec("&H24B4A3A6")
CRC32Table(244) =HexDec("&HBAD03605")HexDec("&HBAD03605")
CRC32Table(245) =HexDec("&HCDD70693")HexDec("&HCDD70693")
CRC32Table(246) =HexDec("&H54DE5729")HexDec("&H54DE5729")
CRC32Table(247) =HexDec("&H23D967BF")HexDec("&H23D967BF")
CRC32Table(248) =HexDec("&HB3667A2E")HexDec("&HB3667A2E")
CRC32Table(249) =HexDec("&HC4614AB8")HexDec("&HC4614AB8")
CRC32Table(250) =HexDec("&H5D681B02")HexDec("&H5D681B02")
CRC32Table(251) =HexDec("&H2A6F2B94")HexDec("&H2A6F2B94")
CRC32Table(252) =HexDec("&HB40BBE37")HexDec("&HB40BBE37")
CRC32Table(253) =HexDec("&HC30C8EA1")HexDec("&HC30C8EA1")
CRC32Table(254) =HexDec("&H5A05DF1B")HexDec("&H5A05DF1B")
CRC32Table(255) =HexDec("&H2D02EF8D")HexDec("&H2D02EF8D")
End Sub