[Iska]

blackeangel, можно. Выложите образец файла в архиве на DropMeFiles, напишите, что мы ищем, и на что меняем (и то, и другое — в Hex).

[blackeangel]

blackeangel, можно. Выложите образец файла в архиве на DropMeFiles, напишите, что мы ищем, и на что меняем (и то, и другое — в Hex).

К сожалению, файл выложить не могу из-за его физического на текущий момент отсутствия. Давайте на примере любой .dll винды попробуем.
Давайте откроем в winhex любую и найдём в текстовой части "This program ...." и заменим эти 16 значения на "20 00 20 00 20 00 20 00 20 00 ..." то есть на пробелы.
Мне по большей части надо понять суть как это делать, как это реализовывать.

Я начал читать вот это https://www.experts-exchange.com/que...X-to-File.html , но тк у меня проблемы с иностранным языками, то почти ничего не понял.

[yurfed]

blackeangel, патч сделать не пробовали?

[Iska]

Давайте на примере любой .dll винды попробуем. Давайте откроем в winhex любую и найдём в текстовой части "This program ...." и заменим эти 16 значения на "20 00 20 00 20 00 20 00 20 00 ..." то есть на пробелы. Мне по большей части надо понять суть как это делать, как это реализовывать. »

Пробуйте:

Скрытый текст

Код:

Option Explicit

Sub Sample()
    Const adTypeBinary = 1
    Const adSaveCreateOverWrite = 2
    
    
    Dim strFindString As String
    Dim strReplaceString As String
    
    Dim arrHex() As String
    Dim arrFind() As Byte
    Dim arrReplace() As Byte
    
    Dim i As Long, j As Long
    
    Dim arrContent() As Byte
    
    Dim bFound As Boolean
    
    Dim lngOffset As Long
    
    ' «This program cannot be run in DOS mode.»
    strFindString = "54 68 69 73 20 70 72 6F 67 72 61 6D 20 63 61 6E 6E 6F 74 20 62 65 20 72 75 6E 20 69 6E 20 44 4F 53 20 6D 6F 64 65 2E"
    strReplaceString = "FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF"
    
    ' Convert hex values from find string to Byte Array
    arrHex = Split(strFindString)
    ReDim arrFind(UBound(arrHex))
    
    For i = 0 To UBound(arrHex)
        arrFind(i) = CByte("&H" & arrHex(i))
    Next i
    
    ' Convert hex values from replace string to Byte Array
    arrHex = Split(strReplaceString)
    ReDim arrReplace(UBound(arrHex))
    
    For i = 0 To UBound(arrHex)
        arrReplace(i) = CByte("&H" & arrHex(i))
    Next i
    
    ' Read content from file to Byte Array
    With CreateObject("ADODB.Stream")
        .Type = adTypeBinary
        .Open
        .LoadFromFile "C:\Мои проекты\0262\accessibilitycpl.dll"
        arrContent = .Read()
        
        ' Search find Byte Array in content of file
        For i = 0 To UBound(arrContent)
            bFound = True
            
            For j = 0 To UBound(arrFind)
                If arrContent(i + j) <> arrFind(j) Then
                    bFound = False
                    Exit For
                End If
            Next j
            
            If bFound Then
                lngOffset = i
                Exit For
            End If
        Next i
        
        ' If found — replace part by replace Byte Array
        If bFound Then
            .Position = lngOffset
            .Write arrReplace
            .SaveToFile "C:\Мои проекты\0262\accessibilitycpl3.dll", adSaveCreateOverWrite
        Else
            MsgBox "Can't find source string", vbExclamation + vbOKOnly, "Not found"
        End If
    End With
End Sub

[blackeangel]

blackeangel, патч сделать не пробовали?

Патч обычно делается по фиксированному offset, а тут он плавающий.

Iska, что то как то длинно. На Питоне писал, 14 строк(https://dropmefiles.com/Us2l8). Всё равно спасибо, буду пробовать.

[Iska]

На Питоне писал, 14 строк »

Вы не могли бы их привести здесь?

blackeangel, когда вставляете ссылки, не полагайтесь на движок, лучше делайте вручную.

[blackeangel]

На Питоне писал, 14 строк » Вы не могли бы их привести здесь? blackeangel, когда вставляете ссылки, не полагайтесь на движок, лучше делайте вручную.

К сожалению я даже скопировать не могу, только сфоткать. А фотку я выложил постом выше (ссылку поправил)

[Iska]

blackeangel, в смысле? Не можете скопировать четырнадцать строк текста?!

[blackeangel]

blackeangel, в смысле? Не можете скопировать четырнадцать строк текста?!

да, не могу. Тк код находится на ПК, на котором нет usb разъмов и выхода в интернет. Могу только переписать его сюда, но не весь, тк hex значения больно длинные)))

На Питоне писал, 14 строк » Вы не могли бы их привести здесь? blackeangel, когда вставляете ссылки, не полагайтесь на движок, лучше делайте вручную.

Код:

import os, sys
fopen='C:\\Program Files\\,.......\\KDScanViewerDll.dll'
wfind=b'\x1e\x04\x31...…'
wrepl=b'\x20\x00\x20\x00.....'
if os.path.exists(fopen):
    with open(fopen, 'rb') as file:
        data=file.read()
    data=bytearray(data)
    data=data.replace(wfind, wrepl)
    with open(fopen, 'wb)as file:
        file.write(data)
else:
    print('File "KDScanViewerDll.dll" not found!')

Вот, единственное, там где много "...." значит я не стал переписывать длинное.