Здравствуйте, уважаемые пользователи. Помогите мне решить невнятную проблему.
Объясню суть, имеется программа, написанная на c#, мне необходимо изменить всего лишь один байт в памяти этой программы при её работе. Для изменения памяти я использую функцию, которую использовал очень часто:



Всё работает, байт меняется. НО есть одно НО, через время работы программы на ПК возникает ошибка "На компьютере не достаточно памяти", следом идут всяческие ошибки с закрытием этой программы.
Но суть в том, что если эту программу перезапустить и сделать тоже самое, эта ошибка появится уже очень скоро, через минут 5 работы. Складывается такое ощущение, что память забивается непонятно где и не освобождается при закрытии этой программы.
Однако, если не менять этот байт, программа успешно может работать и 48 часов без перебоев.
Также я заметил, что если изменить этот байт через CheatEngine - всё также хорошо работает.
Вопрос, в чем проблема возникает? Проверяется на х64 системе. Прошу мне помочь.

| Сообщение посчитали полезным:

wladimir55 пишет:
Прошу мне помочь.
ну так может твой патч кривой, тут же не форум гадалок.
начни с того, что выложи ссылку на программу, и адреса с байтами которые ты патчишь, чтобы воспроизвести твою проблему

| Сообщение посчитали полезным:

Что значит патч кривой? Я же указал функцию, которая и делает "патч". Адрес и байт соответствует с тем, что я делаю и через CheatEngine. Через CheatEngine всё работает хорошо, через ту функцию - как то не так.

| Сообщение посчитали полезным:

а что с твоей функции, откуда кто знает что ты в неё передаешь? память в таргете смотрел после ее вызова, патчится то что нужно и ничего больше?

| Сообщение посчитали полезным:

Есть вариант VirtualProtectEx убрать на всякий случай, ибо

Аргумент 4 это NewAccessProtection, и 40 это:

И раз с читенжин проблем нет, может быть имеет смысл посмотреть как он это делает.

-----
2 оттенка серого

| Сообщение посчитали полезным:

Могу написать полностью, как происходит "патч".


В ProcessID находит ID нужного процесса.

Именно такой же адрес и на такой же байт и делается замена в CheatEngine. Повторюсь, там это проходит правильно.

| Сообщение посчитали полезным:

а где imagebase? или у тебя aslr отключен?

| Сообщение посчитали полезным:

Хорошо, напишу всю функцию и с поиском этого адреса, но думаю дело не в этом, потому что имеется и другой способ, с установкой хука, где происходит немного иначе, но проблема остаётся та же, но сначала хотел работаться с этой проблемой.


HexBytes - массив байт для поиска.
Адрес находит правильно, тот же самый что находит и CheatEngine.

Добавлено спустя 12 минут
Напишу функции из Windows.pas:
function VirtualProtectEx(hProcess: THandle; lpAddress: Pointer;
dwSize, flNewProtect: DWORD; lpflOldProtect: Pointer): BOOL;
external kernel32 name 'VirtualProtectEx';
function VirtualProtectEx(hProcess: THandle; lpAddress: Pointer;
dwSize, flNewProtect: DWORD; var OldProtect: DWORD): BOOL; stdcall; overload;


function WriteProcessMemory; external kernel32 name 'WriteProcessMemory';
function WriteProcessMemory(hProcess: THandle; const lpBaseAddress: Pointer; lpBuffer: Pointer;
nSize: DWORD; var lpNumberOfBytesWritten: DWORD): BOOL; stdcall;


Быть может в них что-то поменялось? Всё-таки Delphi 7

| Сообщение посчитали полезным:

а что у тебя в @oldProtect?
там же должно VirtualAlloc вызываться перед VirtualProtect.

на асме помню вставку писал:


-----
Array[Login..Logout] of Life

| Сообщение посчитали полезным:

Kindly VirtualAlloc там не нужен, там проблема в гавнокоде

| Сообщение посчитали полезным:

@oldProtect указатель на переменную для получения предыдущей защиты доступа. Не понимаю для чего там VirtualAlloc.

| Сообщение посчитали полезным:

wladimir55 пишет:
Не понимаю для чего там VirtualAlloc.
в моем инлайне надо было так oldProtect получить для VirtualProtect, но я после записи не устанавливал атрибуты обратно и присваивал им сразу ERW, а у тебя чтоли античит атрибуты проверяет, раз ты обратно после записи пытаешься чето присвоить? oldProtect должен быть PDWORD, как-то так:
PDword(@oldProtect)^
В отладчике уверен что все правильно исполняется?

wladimir55 пишет:
и всё работало отлично, правда это было на Windows 7.
Сейчас же программа другая, не игра даже, и Windows 10...

SReg пишет:
тут же не форум гадалок.

-----
Array[Login..Logout] of Life

| Сообщение посчитали полезным:

MemWrite как раз таки давно использовался для читов, и всё работало отлично, правда это было на Windows 7.
Сейчас же программа другая, не игра даже, и Windows 10...

| Сообщение посчитали полезным:

Kindly
да там как раз таки все правильно

PDword(@oldProtect)^
ребят, вы чего? я еще от этого '$' + IntToHex(Integer(Cardinal(Mbi.BaseAddress) + i) и этого #$61 не отошел

| Сообщение посчитали полезным: Kindly, DenCoder

А вы впервые видите Delphi 7? Что Вас смутило в #$61?

| Сообщение посчитали полезным:

wladimir55в MemWrite указатели на строку вообще не нужны

| Сообщение посчитали полезным:

wladimir55
Совершенно очевидно что твой кривой гавнокод не освобождает память которую усиленно выделяет в твоем кривом гавно цикле где ты успешно продемонстрировал непонимание работы try/finally, а заодно отсутствие базовых знаний языка ибо только идиот будет использовать для boolean переменной string.

| Сообщение посчитали полезным: d745150

Проблема в том, что проблема в не том, как я ищу... Если я использую поиск на CheatEngine, а в программе указываю адрес, а она делает MemWrite - происходит тоже самое. Поэтому я и скинул изначально именно его, потому что ошибка где-то там

Добавлено спустя 2 минуты
Я прошу помощи. А меня обвиняют только в гавнокоде, по сути, который не имеет значения к проблеме. Но вы успешно пытаетесь выставить меня идиотом.

| Сообщение посчитали полезным:

wladimir55
GetMem

-----
Чтобы правильно задать вопрос, нужно знать большую часть ответа. Р.Шекли.

| Сообщение посчитали полезным:

как тут уже советовали посмотрите что реально записывается вашей прогой - наверняка чтото ещё портится.
ещё как вариант - нужно вначале прочитать dword по этому адресу $007CCE18 затем изменить младший байт и записать 4 байта - не уверен что именно в этом проблема но попробовать стОит.

| Сообщение посчитали полезным:

wladimir55
В качестве помощи готов кинуть тебе ссылку на LetMeGoogleThatForYou, где будет учебник по паскалю. Начни с него. Когда освоишь азы работы с памятью, перейдем к более сложной тематике - программированию под виндоус.

| Сообщение посчитали полезным:

wladimir55 пишет:
Что Вас смутило в #$61?


| Сообщение посчитали полезным:

UniSoft в первом посте же.

| Сообщение посчитали полезным:

UniSoft
Да там надо весь код переписывать человек не умеет объявлять переменные и работать с указателями, а ошибка 100% и за GetMem....

-----
Чтобы правильно задать вопрос, нужно знать большую часть ответа. Р.Шекли.

| Сообщение посчитали полезным:

ClockMan пишет:
а ошибка 100% и за GetMem....
Сомневаюсь...
Я не спец в Delphi, но если бы столкнулся с проблемой, то просто бы посмотрел в отладчике.

Но в данном коде вот какие косяки я вижу:
FreeAndNil(); для строк, зачем? Delphi сама их удалит корректно. RAD 10.3 вообще падает при вызове FreeAndNil(); со строкой.
FreeMem(Buf); Оператор "exit" не значит просто покинуть функцию, код же обернут в try..finally,
и что получаем, двойной вызов: FreeMem(Buf); FreeAndNil(HexBytes); CloseHandle(ProcessHandle);
Весь код, что лежит в finally будет выполнен, не смотря на Exit

| Сообщение посчитали полезным:

Что вы докопались до этого #$61? Выглядит убого, но работает, причем работает даже правильно. А вот весь остальной код реально прекрасен, в том числе никто не отметил строчку:
for i := 0 to BytesRead do
которая тоже может вносить свою лепту в общую работу программы.

| Сообщение посчитали полезным:

у тебя как и сказали:


не высвобождается, потому что если условие не выполняется:

то у тебя

которое не выполнится, тебе нужно впихнуть в exception для выгрузки.
у тебя два try, что позволяет использовать костыль exception и finally одновременно.
дело вкуса, но лучше юзать AllocMem, вместо GetMem, которая выделяет память с мусором. возврат делай булевым, либо на крайний случай числовым, если необходимо больше разных типов состояний и далее в case обертуй со своими строками там.
и вообще кодес кривой, ошибки остаются.

-----
Array[Login..Logout] of Life

| Сообщение посчитали полезным:

Да там сплошное UB в его кодесе, можно прикопаться практически к любой строке, лютый мемори лик, цикл который отрабатывает неопределенно большое количество раз, в котором идиот сначала переводит число в строку, и в следующей же строчке переводит его обратно из строки в число, некорректные сравния с ляпами от незнания языка итд. Это настолько аутично что этой теме место на помойке, либо можно дальше глумится над ленивым ТС и его потугами получить что-то ничего не делая.

| Сообщение посчитали полезным:

Alchemistry
Тема Вопросы новичков вам не стыдно?)

-----
Чтобы правильно задать вопрос, нужно знать большую часть ответа. Р.Шекли.

| Сообщение посчитали полезным:

ClockMan
Мне нет, а вот ТС должен гореть от ушей до пят от стыда.

| Сообщение посчитали полезным: