Решили мы тогда в Аллодах организовать такую схему. Сделать клиентскую прогу-авторизатор, для проверки на размера exe-шника Аллодов(на случай его пропатчивания читерскими патчами) и наличия запущеного ArtMoney на компе с Хуком на его перехват. Все вроде ок, но происходит совершенно бредовая ситуация, которую я ну ни как не могу понять. Вот код:

Код

function NewRecv(s: TSocket; var Buf; len, flags: Integer): Integer;stdcall; var cds:TCopyDataStruct; pb:PByte; OldProtect:DWord; begin pb:=nil; pb:=PByte(DWORD(@Buf)+6500);  //Client IP Offset //Сдесь мы тестировали на проверкук IP Клиента и попытку изменить первый байт буфера if (pb^=212) and   (PByte(DWORD(pb)+1)^=23) and   (PByte(DWORD(pb)+2)^=76) and   (PByte(DWORD(pb)+3)^=39) then begin  PByte(DWORD(@Buf))^:=0;  Result:=OldRecv(s,Buf,Len,flags); end else Result:=OldRecv(s,Buf,Len,flags); cds.dwData:=SpecificID; cds.cbData:=len; cds.lpData:=@buf; SendMessage(FindWindow('TfAllodsMonitor',nil),WM_COPYDATA,hHat,Integer(@cds)); end;

Дело в том, что при попытке первому байту массива присвоить 0, в конечном итоге это значение остается прежним. Как такое может быть!!!! Если я его изменил(PByte(DWORD(@Buf))^:=0). В проге просмотра пакетов(которой посылается WM_COPYDATA) показывается, что байт не был изменен!!!!

Это сообщение отредактировал(а) <Spawn> - 27.9.2003, 18:36

А ты уверен, что у тебя прога приходит в нужную строку, где меняется Buf ?
И посмотри в отладчике, как там этот буфер меняется... А ошибки чото не видно...

Я уверен. Ну сам смотри. Посылаю этот пакет внешней проге при помощи WM_COPYDATA. И там его смотрю - изменений нет. Ну бывает, что в одном пакете измененные значения, а в других нет. Я сначало было подумал, что IP Offset клиентов не постоянный, но все оказалось нормальным(я поставил после проверки на IP обычный ShowMessage и он был столько раз сколько пакетов от клиента было зафиксировано).

Это сообщение отредактировал(а) <Spawn> - 28.9.2003, 11:18

Ну тогда не знаю... В памяти, по-крайней мере, таким образом 100% должно всё изменяться...
Навсякий случай выложи код oldrecv - может там что-нить зарылось...

OldRecv - это прототип функции Recv, при подмене которой, я приcваиваю старый адрес этой самой OldRecv, т.е. OldRecv:=GetProcAddress(GetModuleHandle('WSOCK32.dll'),'recv') до самого перехвата.

Цитата

OldRecv - это прототип функции Recv, при подмене которой, я приcваиваю старый адрес этой самой OldRecv

Торможу!...

Ладненько. Перетащи (именно перетащи) SendMessage в строку после PByte(DWORD(@Buf))^:=0 (перед Result := oldrecv...)

Что тогда тебе будет выдавать твой монитор ?