VPF::Портировать код с C++ - Форум программистов

xxxSleshxxx

Дата 14.8.2010, 04:31 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 26.10.2009

Репутация: нет
Всего: нет

Здравствуйте.
Возникла проблема с переносом кода C++ на Delphi. Сам с С++ не знаком вот и пишу сюда, помогите кто знает!
Буду очень признателен.

Код


DWORD WINAPI MainProc( LPVOID lpParameter ) {
    struct _SYSTEMTIME SystemTime;
    BYTE Time1, Time2, *addr1, *addr2;
    DWORD hMod;

    GetSystemTime( &SystemTime );
    Time1 = SystemTime.wMinute * (DWORD)SystemTime.wMilliseconds / 600+ 'a';
    Time2 = SystemTime.wMilliseconds / 100 + 'a';

    addr1 = (BYTE *)GetModuleHandle( 0 ) + 658336;
    if( VirtualProtect( addr1, 16, PAGE_READWRITE, &hMod ) ) {
      *(addr1 + 2947) = c1;
      *(addr1 + 1905) = c2;
    }

    do {
        hMod = (DWORD)GetModuleHandle( "Test.dll" );
        Sleep( 50 );
    } while ( hMod < 32 );
    addr2 = (void *)(hMod + 3092110);
    if( VirtualProtect( addr2, 16, PAGE_READWRITE, &hMod ) ) {
        *(addr2 + 2947) = c1;
        *(addr2 + 1905) = c2;
    }
}

xxxSleshxxx

Дата 14.8.2010, 06:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 26.10.2009

Репутация: нет
Всего: нет

Попробовал сам перевести на делфи.
Вот что у меня получилось.

Код


procedure MainProc;
var
  hMod: DWORD;
  c1, c2: BYTE;
  addr1, addr2: ^BYTE;
  Systemtime : TSystemtime;
begin
  hMod := 0;
  GetSystemTime(SystemTime);
  c1 := (SystemTime.wMinute * (SystemTime.wMilliseconds mod 600)) + Ord('a');
  c2 := SystemTime.wMilliseconds mod  100 + Ord('a');

  addr1 := pointer(GetModuleHandle(nil) + $A0BA0);
  if VirtualProtect(addr1, 16, PAGE_READWRITE, hMod) then
    begin
      addr1 := pointer(hMod + $A0BB0);
      addr1^ := c1;
      addr1 := pointer(hMod + $A0BB2);
      addr1^ := c2;
    end;

  while hMod < 32 do
    begin
      hMod := GetModuleHandle('Test.dll');
      Sleep(50);
    end;

  addr2 := pointer(hMod + $2F2E8E);
  if VirtualProtect(addr2, 16, PAGE_READWRITE, hMod) then
    begin
      addr2 := pointer(hMod + $2F2E9E);
      addr2^ := c1;
      addr2 := pointer(hMod + $2F2EA0);
      addr2^ := c2;
    end;
end;

Подскажите где я накасячил? smile

На с++ работает отлично, на делфи вываливается "Память не может быть written".

xxxSleshxxx

Дата 14.8.2010, 07:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 26.10.2009

Репутация: нет
Всего: нет

Сам все сделал. так затупил блин видимо спать пора уже =))))

вот

Код


addr1 := pointer(GetModuleHandle(nil) + $A0BA0);
  if VirtualProtect(addr1, 16, PAGE_READWRITE, hMod) then
    begin
      addr1 := pointer(hMod + $A0BB0);
      addr1^ := c1;
      addr1 := pointer(hMod + $A0BB2);
      addr1^ := c2;
    end;

а нужно

Код


hMod2 := GetModuleHandle(nil);
addr1 := pointer(hMod2 + $A0BA0);
  if VirtualProtect(addr1, 16, PAGE_READWRITE, hMod) then
    begin
      addr1 := pointer(hMod2 + $A0BB0);
      addr1^ := c1;
      addr1 := pointer(hMod2 + $A0BB2);
      addr1^ := c2;
    end;

Все всем спасибо за внимание! тему дел =)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »