CRC32: Дополнить файл для получения контрольной суммы FFFFFFFF - VB

Узнай цену своей работы

Формулировка задачи:

Привет! Имеется произвольный бинарный файл. Цель: дополнить его как можно меньшим кол-вом байт, чтобы его КС по CRC32 стала = FFFFFFFF. Можете для меня такое сочинить? P.S. Долгое время пользуюсь модулем подсчета CRC32 от Catstail, который меня не подводил. Настало время чего то более сложного. Т.к. не математик, сам такого боюсь не сделаю.
Листинг программы 
  1. ''
  2. '' by CatsTail
  3. ''
  4.  
  5. Option Explicit
  6.  
  7. '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  8. '::::::::::::::::              Расчет CRC-32               ::::::::::::::::
  9. '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  10.  
  11. Private CRC_32_Tab(0 To 255) As Long
  12.  
  13. Private Sub Class_Initialize()
  14.     CRCinit
  15. End Sub
  16.  
  17. ':::::::::::::::: Проинициализировать массив коэффициентов ::::::::::::::::
  18.  
  19. Private Sub CRCinit()
  20.  
  21.        CRC_32_Tab(0) = &H0
  22.        CRC_32_Tab(1) = &H77073096
  23.        CRC_32_Tab(2) = &HEE0E612C
  24.        CRC_32_Tab(3) = &H990951BA
  25.        CRC_32_Tab(4) = &H76DC419
  26.        CRC_32_Tab(5) = &H706AF48F
  27.        CRC_32_Tab(6) = &HE963A535
  28.        CRC_32_Tab(7) = &H9E6495A3
  29.        CRC_32_Tab(8) = &HEDB8832
  30.        CRC_32_Tab(9) = &H79DCB8A4
  31.        CRC_32_Tab(10) = &HE0D5E91E
  32.        CRC_32_Tab(11) = &H97D2D988
  33.        CRC_32_Tab(12) = &H9B64C2B
  34.        CRC_32_Tab(13) = &H7EB17CBD
  35.        CRC_32_Tab(14) = &HE7B82D07
  36.        CRC_32_Tab(15) = &H90BF1D91
  37.        CRC_32_Tab(16) = &H1DB71064
  38.        CRC_32_Tab(17) = &H6AB020F2
  39.        CRC_32_Tab(18) = &HF3B97148
  40.        CRC_32_Tab(19) = &H84BE41DE
  41.        CRC_32_Tab(20) = &H1ADAD47D
  42.        CRC_32_Tab(21) = &H6DDDE4EB
  43.        CRC_32_Tab(22) = &HF4D4B551
  44.        CRC_32_Tab(23) = &H83D385C7
  45.        CRC_32_Tab(24) = &H136C9856
  46.        CRC_32_Tab(25) = &H646BA8C0
  47.        CRC_32_Tab(26) = &HFD62F97A
  48.        CRC_32_Tab(27) = &H8A65C9EC
  49.        CRC_32_Tab(28) = &H14015C4F
  50.        CRC_32_Tab(29) = &H63066CD9
  51.        CRC_32_Tab(30) = &HFA0F3D63
  52.        CRC_32_Tab(31) = &H8D080DF5
  53.        CRC_32_Tab(32) = &H3B6E20C8
  54.        CRC_32_Tab(33) = &H4C69105E
  55.        CRC_32_Tab(34) = &HD56041E4
  56.        CRC_32_Tab(35) = &HA2677172
  57.        CRC_32_Tab(36) = &H3C03E4D1
  58.        CRC_32_Tab(37) = &H4B04D447
  59.        CRC_32_Tab(38) = &HD20D85FD
  60.        CRC_32_Tab(39) = &HA50AB56B
  61.        CRC_32_Tab(40) = &H35B5A8FA
  62.        CRC_32_Tab(41) = &H42B2986C
  63.        CRC_32_Tab(42) = &HDBBBC9D6
  64.        CRC_32_Tab(43) = &HACBCF940
  65.        CRC_32_Tab(44) = &H32D86CE3
  66.        CRC_32_Tab(45) = &H45DF5C75
  67.        CRC_32_Tab(46) = &HDCD60DCF
  68.        CRC_32_Tab(47) = &HABD13D59
  69.        CRC_32_Tab(48) = &H26D930AC
  70.        CRC_32_Tab(49) = &H51DE003A
  71.        CRC_32_Tab(50) = &HC8D75180
  72.        CRC_32_Tab(51) = &HBFD06116
  73.        CRC_32_Tab(52) = &H21B4F4B5
  74.        CRC_32_Tab(53) = &H56B3C423
  75.        CRC_32_Tab(54) = &HCFBA9599
  76.        CRC_32_Tab(55) = &HB8BDA50F
  77.        CRC_32_Tab(56) = &H2802B89E
  78.        CRC_32_Tab(57) = &H5F058808
  79.        CRC_32_Tab(58) = &HC60CD9B2
  80.        CRC_32_Tab(59) = &HB10BE924
  81.        CRC_32_Tab(60) = &H2F6F7C87
  82.        CRC_32_Tab(61) = &H58684C11
  83.        CRC_32_Tab(62) = &HC1611DAB
  84.        CRC_32_Tab(63) = &HB6662D3D
  85.        CRC_32_Tab(64) = &H76DC4190
  86.        CRC_32_Tab(65) = &H1DB7106
  87.        CRC_32_Tab(66) = &H98D220BC
  88.        CRC_32_Tab(67) = &HEFD5102A
  89.        CRC_32_Tab(68) = &H71B18589
  90.        CRC_32_Tab(69) = &H6B6B51F
  91.        CRC_32_Tab(70) = &H9FBFE4A5
  92.        CRC_32_Tab(71) = &HE8B8D433
  93.        CRC_32_Tab(72) = &H7807C9A2
  94.        CRC_32_Tab(73) = &HF00F934
  95.        CRC_32_Tab(74) = &H9609A88E
  96.        CRC_32_Tab(75) = &HE10E9818
  97.        CRC_32_Tab(76) = &H7F6A0DBB
  98.        CRC_32_Tab(77) = &H86D3D2D
  99.        CRC_32_Tab(78) = &H91646C97
  100.        CRC_32_Tab(79) = &HE6635C01
  101.        CRC_32_Tab(80) = &H6B6B51F4
  102.        CRC_32_Tab(81) = &H1C6C6162
  103.        CRC_32_Tab(82) = &H856530D8
  104.        CRC_32_Tab(83) = &HF262004E
  105.        CRC_32_Tab(84) = &H6C0695ED
  106.        CRC_32_Tab(85) = &H1B01A57B
  107.        CRC_32_Tab(86) = &H8208F4C1
  108.        CRC_32_Tab(87) = &HF50FC457
  109.        CRC_32_Tab(88) = &H65B0D9C6
  110.        CRC_32_Tab(89) = &H12B7E950
  111.        CRC_32_Tab(90) = &H8BBEB8EA
  112.        CRC_32_Tab(91) = &HFCB9887C
  113.        CRC_32_Tab(92) = &H62DD1DDF
  114.        CRC_32_Tab(93) = &H15DA2D49
  115.        CRC_32_Tab(94) = &H8CD37CF3
  116.        CRC_32_Tab(95) = &HFBD44C65
  117.        CRC_32_Tab(96) = &H4DB26158
  118.        CRC_32_Tab(97) = &H3AB551CE
  119.        CRC_32_Tab(98) = &HA3BC0074
  120.        CRC_32_Tab(99) = &HD4BB30E2
  121.        CRC_32_Tab(100) = &H4ADFA541
  122.        CRC_32_Tab(101) = &H3DD895D7
  123.        CRC_32_Tab(102) = &HA4D1C46D
  124.        CRC_32_Tab(103) = &HD3D6F4FB
  125.        CRC_32_Tab(104) = &H4369E96A
  126.        CRC_32_Tab(105) = &H346ED9FC
  127.        CRC_32_Tab(106) = &HAD678846
  128.        CRC_32_Tab(107) = &HDA60B8D0
  129.        CRC_32_Tab(108) = &H44042D73
  130.        CRC_32_Tab(109) = &H33031DE5
  131.        CRC_32_Tab(110) = &HAA0A4C5F
  132.        CRC_32_Tab(111) = &HDD0D7CC9
  133.        CRC_32_Tab(112) = &H5005713C
  134.        CRC_32_Tab(113) = &H270241AA
  135.        CRC_32_Tab(114) = &HBE0B1010
  136.        CRC_32_Tab(115) = &HC90C2086
  137.        CRC_32_Tab(116) = &H5768B525
  138.        CRC_32_Tab(117) = &H206F85B3
  139.        CRC_32_Tab(118) = &HB966D409
  140.        CRC_32_Tab(119) = &HCE61E49F
  141.        CRC_32_Tab(120) = &H5EDEF90E
  142.        CRC_32_Tab(121) = &H29D9C998
  143.        CRC_32_Tab(122) = &HB0D09822
  144.        CRC_32_Tab(123) = &HC7D7A8B4
  145.        CRC_32_Tab(124) = &H59B33D17
  146.        CRC_32_Tab(125) = &H2EB40D81
  147.        CRC_32_Tab(126) = &HB7BD5C3B
  148.        CRC_32_Tab(127) = &HC0BA6CAD
  149.        CRC_32_Tab(128) = &HEDB88320
  150.        CRC_32_Tab(129) = &H9ABFB3B6
  151.        CRC_32_Tab(130) = &H3B6E20C
  152.        CRC_32_Tab(131) = &H74B1D29A
  153.        CRC_32_Tab(132) = &HEAD54739
  154.        CRC_32_Tab(133) = &H9DD277AF
  155.        CRC_32_Tab(134) = &H4DB2615
  156.        CRC_32_Tab(135) = &H73DC1683
  157.        CRC_32_Tab(136) = &HE3630B12
  158.        CRC_32_Tab(137) = &H94643B84
  159.        CRC_32_Tab(138) = &HD6D6A3E
  160.        CRC_32_Tab(139) = &H7A6A5AA8
  161.        CRC_32_Tab(140) = &HE40ECF0B
  162.        CRC_32_Tab(141) = &H9309FF9D
  163.        CRC_32_Tab(142) = &HA00AE27
  164.        CRC_32_Tab(143) = &H7D079EB1
  165.        CRC_32_Tab(144) = &HF00F9344
  166.        CRC_32_Tab(145) = &H8708A3D2
  167.        CRC_32_Tab(146) = &H1E01F268
  168.        CRC_32_Tab(147) = &H6906C2FE
  169.        CRC_32_Tab(148) = &HF762575D
  170.        CRC_32_Tab(149) = &H806567CB
  171.        CRC_32_Tab(150) = &H196C3671
  172.        CRC_32_Tab(151) = &H6E6B06E7
  173.        CRC_32_Tab(152) = &HFED41B76
  174.        CRC_32_Tab(153) = &H89D32BE0
  175.        CRC_32_Tab(154) = &H10DA7A5A
  176.        CRC_32_Tab(155) = &H67DD4ACC
  177.        CRC_32_Tab(156) = &HF9B9DF6F
  178.        CRC_32_Tab(157) = &H8EBEEFF9
  179.        CRC_32_Tab(158) = &H17B7BE43
  180.        CRC_32_Tab(159) = &H60B08ED5
  181.        CRC_32_Tab(160) = &HD6D6A3E8
  182.        CRC_32_Tab(161) = &HA1D1937E
  183.        CRC_32_Tab(162) = &H38D8C2C4
  184.        CRC_32_Tab(163) = &H4FDFF252
  185.        CRC_32_Tab(164) = &HD1BB67F1
  186.        CRC_32_Tab(165) = &HA6BC5767
  187.        CRC_32_Tab(166) = &H3FB506DD
  188.        CRC_32_Tab(167) = &H48B2364B
  189.        CRC_32_Tab(168) = &HD80D2BDA
  190.        CRC_32_Tab(169) = &HAF0A1B4C
  191.        CRC_32_Tab(170) = &H36034AF6
  192.        CRC_32_Tab(171) = &H41047A60
  193.        CRC_32_Tab(172) = &HDF60EFC3
  194.        CRC_32_Tab(173) = &HA867DF55
  195.        CRC_32_Tab(174) = &H316E8EEF
  196.        CRC_32_Tab(175) = &H4669BE79
  197.        CRC_32_Tab(176) = &HCB61B38C
  198.        CRC_32_Tab(177) = &HBC66831A
  199.        CRC_32_Tab(178) = &H256FD2A0
  200.        CRC_32_Tab(179) = &H5268E236
  201.        CRC_32_Tab(180) = &HCC0C7795
  202.        CRC_32_Tab(181) = &HBB0B4703
  203.        CRC_32_Tab(182) = &H220216B9
  204.        CRC_32_Tab(183) = &H5505262F
  205.        CRC_32_Tab(184) = &HC5BA3BBE
  206.        CRC_32_Tab(185) = &HB2BD0B28
  207.        CRC_32_Tab(186) = &H2BB45A92
  208.        CRC_32_Tab(187) = &H5CB36A04
  209.        CRC_32_Tab(188) = &HC2D7FFA7
  210.        CRC_32_Tab(189) = &HB5D0CF31
  211.        CRC_32_Tab(190) = &H2CD99E8B
  212.        CRC_32_Tab(191) = &H5BDEAE1D
  213.        CRC_32_Tab(192) = &H9B64C2B0
  214.        CRC_32_Tab(193) = &HEC63F226
  215.        CRC_32_Tab(194) = &H756AA39C
  216.        CRC_32_Tab(195) = &H26D930A
  217.        CRC_32_Tab(196) = &H9C0906A9
  218.        CRC_32_Tab(197) = &HEB0E363F
  219.        CRC_32_Tab(198) = &H72076785
  220.        CRC_32_Tab(199) = &H5005713
  221.        CRC_32_Tab(200) = &H95BF4A82
  222.        CRC_32_Tab(201) = &HE2B87A14
  223.        CRC_32_Tab(202) = &H7BB12BAE
  224.        CRC_32_Tab(203) = &HCB61B38
  225.        CRC_32_Tab(204) = &H92D28E9B
  226.        CRC_32_Tab(205) = &HE5D5BE0D
  227.        CRC_32_Tab(206) = &H7CDCEFB7
  228.        CRC_32_Tab(207) = &HBDBDF21
  229.        CRC_32_Tab(208) = &H86D3D2D4
  230.        CRC_32_Tab(209) = &HF1D4E242
  231.        CRC_32_Tab(210) = &H68DDB3F8
  232.        CRC_32_Tab(211) = &H1FDA836E
  233.        CRC_32_Tab(212) = &H81BE16CD
  234.        CRC_32_Tab(213) = &HF6B9265B
  235.        CRC_32_Tab(214) = &H6FB077E1
  236.        CRC_32_Tab(215) = &H18B74777
  237.        CRC_32_Tab(216) = &H88085AE6
  238.        CRC_32_Tab(217) = &HFF0F6A70
  239.        CRC_32_Tab(218) = &H66063BCA
  240.        CRC_32_Tab(219) = &H11010B5C
  241.        CRC_32_Tab(220) = &H8F659EFF
  242.        CRC_32_Tab(221) = &HF862AE69
  243.        CRC_32_Tab(222) = &H616BFFD3
  244.        CRC_32_Tab(223) = &H166CCF45
  245.        CRC_32_Tab(224) = &HA00AE278
  246.        CRC_32_Tab(225) = &HD70DD2EE
  247.        CRC_32_Tab(226) = &H4E048354
  248.        CRC_32_Tab(227) = &H3903B3C2
  249.        CRC_32_Tab(228) = &HA7672661
  250.        CRC_32_Tab(229) = &HD06016F7
  251.        CRC_32_Tab(230) = &H4969474D
  252.        CRC_32_Tab(231) = &H3E6E77DB
  253.        CRC_32_Tab(232) = &HAED16A4A
  254.        CRC_32_Tab(233) = &HD9D65ADC
  255.        CRC_32_Tab(234) = &H40DF0B66
  256.        CRC_32_Tab(235) = &H37D83BF0
  257.        CRC_32_Tab(236) = &HA9BCAE53
  258.        CRC_32_Tab(237) = &HDEBB9EC5
  259.        CRC_32_Tab(238) = &H47B2CF7F
  260.        CRC_32_Tab(239) = &H30B5FFE9
  261.        CRC_32_Tab(240) = &HBDBDF21C
  262.        CRC_32_Tab(241) = &HCABAC28A
  263.        CRC_32_Tab(242) = &H53B39330
  264.        CRC_32_Tab(243) = &H24B4A3A6
  265.        CRC_32_Tab(244) = &HBAD03605
  266.        CRC_32_Tab(245) = &HCDD70693
  267.        CRC_32_Tab(246) = &H54DE5729
  268.        CRC_32_Tab(247) = &H23D967BF
  269.        CRC_32_Tab(248) = &HB3667A2E
  270.        CRC_32_Tab(249) = &HC4614AB8
  271.        CRC_32_Tab(250) = &H5D681B02
  272.        CRC_32_Tab(251) = &H2A6F2B94
  273.        CRC_32_Tab(252) = &HB40BBE37
  274.        CRC_32_Tab(253) = &HC30C8EA1
  275.        CRC_32_Tab(254) = &H5A05DF1B
  276.        CRC_32_Tab(255) = &H2D02EF8D
  277.  
  278. End Sub
  279.  
  280. '::::::::::: Правый логический сдвиг длинного целого :::::::::::::
  281.  
  282. Function Shr(n As Long, m As Long) As Long
  283.  
  284.     Dim Q As Long
  285.  
  286.          If (m > 31&) Then
  287.             
  288.             Shr = 0
  289.             
  290.             Exit Function
  291.          
  292.          End If
  293.  
  294.          If (n >= 0) Then
  295.          
  296.             Shr = n \ (2& ^ m)
  297.  
  298.          Else
  299.          
  300.            Q = n And &H7FFFFFFF
  301.            
  302.            Q = Q \ (2& ^ m)
  303.            
  304.            Shr = Q Or (2& ^ (31& - m))
  305.  
  306.          End If
  307.  
  308. End Function
  309.  
  310. '::::::::::::::: Вычислить CRC-код строки ::::::::::::::::::::
  311.  
  312. Public Function CalcCRC(Stri As String) As String '// Dragokas - добавил перевод в Hex
  313.  
  314.     Dim CRC As Long
  315.     Dim i   As Long
  316.     Dim m   As Long
  317.     Dim n   As Long
  318.  
  319.     CRC = &HFFFFFFFF
  320.  
  321.     For i = 1& To Len(Stri)
  322.        
  323.         m = Asc(Mid$(Stri, i&, 1&))
  324.            
  325.         n = (CRC Xor m&) And &HFF&
  326.        
  327.         CRC = CRC_32_Tab(n&) Xor (Shr(CRC, 8&) And &HFFFFFF)
  328.  
  329.     Next i
  330.  
  331.     CalcCRC = CStr(Hex(-(CRC + 1&)))
  332.     
  333.     If Len(CalcCRC) < 8& Then
  334.         CalcCRC = Right$("0000000" & CalcCRC, 8&)
  335.     End If
  336.  
  337. End Function
  338.  
  339. '::::::::::::::: Вычислить CRC-код файла ::::::::::::::::::::
  340.  
  341. Public Function CalcFileCRC(FileName As String) As String '// Added by Dragokas
  342.     On Error Resume Next
  343.     
  344.     Dim ff      As Integer
  345.     Dim Str     As String
  346.     
  347.     ff = FreeFile()
  348.     
  349.     Open FileName For Binary Access Read As #ff
  350.         Str = Space(LOF(ff))
  351.         Get #ff, , Str
  352.     Close #ff
  353.     
  354.     CalcFileCRC = CalcCRC(Str)
  355.     
  356. End Function

Решение задачи: «CRC32: Дополнить файл для получения контрольной суммы FFFFFFFF»

textual
Листинг программы 
  1. Option Explicit
  2.  
  3. Const poly As Long = &HEDB88320
  4.  
  5. Public Declare Function Mul Lib "msvbvm60.dll" Alias "_allmul" (ByVal dw1 As Long, ByVal Reserved As Long, ByVal dw3 As Long, ByVal Reserved As Long) As Long
  6.  
  7. Dim Tab_CRC(255)    As Long
  8. Dim pTable(255)     As Long
  9.  
  10. Sub Make_CRC_32_Table()
  11.     Dim bx&, cx&, eax&
  12.     
  13.     For bx = 0& To 255&
  14.         eax = bx
  15.         For cx = 0& To 7&
  16.             If (eax And 1) Then
  17.                 eax = ((eax And &HFFFFFFFE) \ 2&) And &H7FFFFFFF    'eax >> 1
  18.                 eax = eax Xor poly
  19.             Else
  20.                 eax = ((eax And &HFFFFFFFE) \ 2&) And &H7FFFFFFF
  21.             End If
  22.         Next
  23.         Tab_CRC(bx) = eax
  24.         pTable(((eax And &HFF000000) \ &H1000000) And &HFF) = bx
  25.     Next
  26. End Sub
  27.  
  28. Sub SplitInto4bytes(Src As Long, bit3 As Byte, bit2 As Byte, bit1 As Byte, bit0 As Byte)
  29.     bit3 = ((Src And &HFF000000) \ &H1000000) And &HFF
  30.     bit2 = ((Src And &HFF0000) \ &H10000) And &HFF
  31.     bit1 = ((Src And &HFF00) \ &H100) And &HFF
  32.     bit0 = Src And &HFF
  33. End Sub
  34.  
  35. Public Sub RecoverCRC()
  36.     
  37.     Dim oldCRC&, newCRC&, ChkCRC&, a(3) As Byte, b(3) As Byte, c(3) As Byte, d(3) As Byte, e(3) As Byte, f(3) As Byte, r(3) As Byte, i&
  38.     Dim InitStri$, NewStri$, PatchAddr&, ForwardCRC&, BackwardCRC&, AddBytes$
  39.     
  40.     ' Исходные данные
  41.     InitStri = "Some Data"
  42.     
  43.     ' Указать адрес для добавочных (или заменяемых) байтов (считаем с нуля).
  44.     PatchAddr = Len(InitStri) 'Len(InitStri) - пишем в конец
  45.     
  46.     If PatchAddr > Len(InitStri) Then Err.Raise 14
  47.     
  48.     Make_CRC_32_Table
  49.     
  50.     ' Какую КС нужно получить
  51.     newCRC = &H12345678
  52.     oldCRC = CalcCRC(InitStri)
  53.     
  54.     Debug.Print "Initial CRC: " & Hex(oldCRC)
  55.     Debug.Print "New CRC:     " & Hex(newCRC)
  56.     
  57.     ForwardCRC = CalcCRC(Left$(InitStri, PatchAddr)) Xor -1
  58.     BackwardCRC = newCRC Xor -1
  59.     
  60.     If (PatchAddr + 4) < Len(InitStri) Then BackwardCRC = CalcCRCReverse(Right$(InitStri, Len(InitStri) - (PatchAddr + 4)), BackwardCRC)
  61.     
  62.     SplitInto4bytes ForwardCRC, a(3), a(2), a(1), a(0)
  63.     SplitInto4bytes BackwardCRC, f(3), f(2), f(1), f(0)
  64.     
  65.     e(3) = f(3):                            SplitInto4bytes Tab_CRC(pTable(e(3))), e(3), e(2), e(1), e(0)
  66.     d(3) = f(2) Xor e(2):                   SplitInto4bytes Tab_CRC(pTable(d(3))), d(3), d(2), d(1), d(0)
  67.     c(3) = f(1) Xor e(1) Xor d(2):          SplitInto4bytes Tab_CRC(pTable(c(3))), c(3), c(2), c(1), c(0)
  68.     b(3) = f(0) Xor e(0) Xor d(1) Xor c(2): SplitInto4bytes Tab_CRC(pTable(b(3))), b(3), b(2), b(1), b(0)
  69.     
  70.     r(3) = pTable(b(3)) Xor a(0)
  71.     r(2) = pTable(c(3)) Xor b(0) Xor a(1)
  72.     r(1) = pTable(d(3)) Xor c(0) Xor b(1) Xor a(2)
  73.     r(0) = pTable(e(3)) Xor d(0) Xor c(1) Xor b(2) Xor a(3)
  74.     
  75.     AddBytes = Chr$(r(3)) & Chr$(r(2)) & Chr$(r(1)) & Chr$(r(0))
  76.     
  77.     ' Вставляем корректирующие байты в исходную строку
  78.     NewStri = InitStri
  79.     If PatchAddr - Len(InitStri) + 4 > 0 Then NewStri = NewStri & Space$(PatchAddr - Len(InitStri) + 4)
  80.     Mid(NewStri, PatchAddr + 1) = Chr$(r(3)) & Chr$(r(2)) & Chr$(r(1)) & Chr$(r(0))
  81.     
  82.     ' Контрольная проверка КС
  83.     ChkCRC = CalcCRC(NewStri)
  84.     
  85.     ' Если КС не совпадает
  86.     If ChkCRC <> newCRC Then Err.Raise 17
  87.     
  88.     Debug.Print "Check CRC:   " & Hex(ChkCRC)
  89.     Debug.Print "Исходная строка: " & InitStri
  90.     Debug.Print "Новая строка:    " & NewStri
  91.     Debug.Print "Адрес для вставки: " & PatchAddr
  92.     Debug.Print "Корректирующие байты: " & Hex(Mul(r(3), 0, &H1000000, 0) Or Mul(r(2), 0, &H10000, 0) Or Mul(r(1), 0, &H100, 0) Or r(0))
  93.     End
  94. End Sub
  95.  
  96. Public Function CalcCRC(Stri As String) As Long
  97.     Dim CRC&, i&, m&, n&
  98.  
  99.     If Tab_CRC(1) = 0 Then Make_CRC_32_Table
  100.  
  101.     CRC = -1
  102.  
  103.     For i = 1& To Len(Stri)
  104.         m = Asc(Mid$(Stri, i, 1&))
  105.         n = (CRC Xor m) And &HFF&
  106.         CRC = (Tab_CRC(n) Xor (((CRC And &HFFFFFF00) \ &H100) And &HFFFFFF)) And -1  ' Tab ^ (crc >> 8)
  107.     Next
  108.  
  109.     CalcCRC = -(CRC + 1&)
  110. End Function
  111.  
  112. Public Function CalcCRCReverse(Stri As String, Optional nextValue As Long = -1) As Long
  113.     Dim CRC&, i&, m&, n&, prevValueL&, prevValueH&, b3 As Byte
  114.  
  115.     If Tab_CRC(1) = 0 Then Make_CRC_32_Table
  116.  
  117.     CRC = nextValue
  118.  
  119.     For i = Len(Stri) To 1 Step -1
  120.         m = Asc(Mid$(Stri, i, 1&))
  121.         b3 = ((CRC And &HFF000000) \ &H1000000) And &HFF
  122.         prevValueL = (pTable(b3) Xor m) And &HFF
  123.         prevValueH = Mul(CRC Xor Tab_CRC(pTable(b3)), 0, &H100, 0)  ' << 8
  124.         CRC = prevValueH Or prevValueL
  125.     Next
  126.     
  127.     CalcCRCReverse = CRC
  128. End Function

ИИ поможет Вам:

  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 3.933 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы