Vlad2

Проблема актуальна

В твоей задаче это так принципиально?)

function ReadFloat(Address: Cardinal): Single;varReaden: Cardinal;Data: Double;begin  ReadProcessMemory(PidHandle, Pointer(Address), @Data, SizeOf(Data), Readen);  result:=Data;end;

Вывод : Edit1.Text := FloatToStr(readFloat(Adress));

Сигнатура у меня уникальная. Но этой функцией я могу сканировать только статическую память. А когда сканирую сигнатуру из динамической, то она ничего не находит!

unction ScanSignature(base: Cardinal; size: Cardinal; sign: PByte; mask: PAnsiChar): integer;var  mbi: MEMORY_BASIC_INFORMATION;  offset: Cardinal;  buffer: PByte;  BytesRead: Cardinal;  i: integer;begin  offset := 0;  while (offset < size) do  begin    VirtualQueryEx(m_hProc, Pointer(base + offset), mbi, sizeof(MEMORY_BASIC_INFORMATION));    if (mbi.State <> MEM_FREE) then    begin      GetMem(buffer, mbi.RegionSize);      ReadProcessMemory(m_hProc, mbi.BaseAddress, buffer, mbi.RegionSize, BytesRead);      for i := 0 to mbi.RegionSize do      begin        if (DataCompare(PByte(Integer(buffer) + i), sign, mask)) then        begin          FreeMem(buffer);          result := integer(mbi.BaseAddress) + i;          exit;        end;      end;      FreeMem(buffer);    end;    offset := offset + mbi.RegionSize;  end;  result := 0;                          end;

Вот функция сканирования, которая ток статические сканирует.

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

SigScanner.zip

Всем привет!)
Столкнулся с нуждой сделать произвольную форму в Delphi 7 с максимально четкой границей.
Полез в гугл и нашел такое видео:

Здесь показано, как сделать форму по заготовленной маске. И конечный результат вроде неплохой.
Но моя Дельфи отказывается устанавливать компонент shapedform, пишет: Could not create output file ...'FormsChanging.bpl'

Ну так вот, подскажите, как сделать сложную произвольную форму, чтоб ее окантовка не казалась пиксельной? Повторяю, форма сложная и сделать ее через такие программы типа "Регионы 7.0" не получится.

lamalamaz, .С наступающим!
У меня была похожая проблема в одной игре. Долго мучился, искал, ничего не помогало. Потом психонул и в СЕ сделал такой поиск:
Допустим адрес здоровья 805E6840. Искал диапазон 4 байта в  Hex, от 805E0000 до 805EFFFF (можно диапазон сделать побольше).

Среди найденных адресов был один статический. Я его определил, как указатель, а смещение до жизней подвел вручную.
Попробуй, может получится

Отладчик -> Инструменты -> Автоассемблер.
Туда вставляешь это:

[ENABLE]{$LUA}writeInteger('[08B60780]+4', 1)[DISABLE]{$LUA}writeInteger('[08B60780]+4', 257)

[08B60780]+4 - это указатель. Вместо его вставь свой адрес.
Далее, Файл -> Добавить скрипт в таблицу.
Потом просто делаешь HotKey на переключения скрипта нужной кнопкой.

Ок, а то я уже удалил что делал. Скину позже.

Вроде что то нашел. http://cheaton.ru/f30/poisk-signatur-bazovyh-adresov-dlya-dayz-8343/
Помогите оптимизировать под Delphi 7!

Так он на С++ пишет.

Самое главное чтоб адрес возвращал и искал массивом) а где такие видео? не нашел...

Привет, форумчане!
Помогите, нужно в дельфи сделать AOBScan, который бы умел искать байты такого типа "00 01 ?? 03 04", и возвращал адреса по которым он находил такие байты.

Спасибо, Все работает, код чуть-чуть подправил только)

procedure TForm1.Timer1Timer(Sender: TObject);begin if (GetAsyncKeyState(VK_UP) <> 0) then  begin  // Тут код end;end;

Всем привет!

Объясните пожалуйста, как работать с компонентом HotKey в Delphi.
И как с помощью этого компонента сделать горячие клавиши для трейнера, чтоб можно было не сворачивая игру пользоваться функционалом трейнера?

Нашел пример, но он не подходит, потому что если в программе зарегистрировать клавишу, то она кроме программы нигде не сработает.

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs;type  TForm1 = class(TForm)  procedure FormCreate(Sender: TObject);  private   procedure WMHOTKEY(var Msg: TMessage); message WM_HOTKEY;    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);begin  RegisterHotKey(Handle, 1, 0, VK_DOWN);  RegisterHotKey(Handle, 2, 0, VK_UP);end;procedure TForm1.WMHOTKEY(var Msg: TMessage);begin  case Msg.WParam of    1: MessageBox(Handle, 'Down', 'WMHOTKEY', MB_OK or MB_SYSTEMMODAL);    2: MessageBox(Handle, 'Up', 'WMHOTKEY', MB_OK or MB_SYSTEMMODAL);  end;end;end.

Вопрос: как за этими адресами наблюдать?
можно примерчик?

Привет форумчане!
Стоит задача обезопасить трейнер написаный на Delphi.
А конкретно, предотвратить перехват читаемых и записываемых параметров и 
не дать сканером памяти подключатся к процессу трейнера.
Как можно это реализовать?

Насколько я помню, это должно было выглядеть бы так:
1. Выделяешь Edit1 (поле для ввода текста).
2. Переходишь в Events.
3. Тыкаешь на OnChange.
4. Создастся процедура, туда вставишь этот код:

double Q, E, S;Q = Edit1->Text.ToDouble;E = Edit2->Text.ToDouble;S = Q*E + 320;Edit3->Text = FloatToStr(S);

5. Выделишь Edit2 и перейдешь в Events.
6. В OnChange выберешь Edit1Change.

Если что ни так, камнями не кидайтесь, Последний раз в Borland С++ 6 работал, пишу по памяти.

A1t0r, вот.
Что-то нашел, но пока нет времени разбираться.

delphi_extras.zip

crystal_lua.zip

Ах жаль((
Мнеб серийник жесткого диска запрашивать, да пару методов шифрования использовать.

Во! Работает на 64-битной версии CE, а на 32 - нет.
Нужен способ реализации такой dllки на Delphi, исходник в студию))

Текст неопределённой ошибки можно увидеть?

 

Тык

Coder, A1t0r, Спасибо. С функцией вызова dllки разобрался, но вот возникла проблемма с написанием dllлок на Delphi.

library Project2; uses  SysUtils,  Classes; {$R *.res} function Symma(a,b:integer):Integer;stdcall;begin  Result :=a+b;end; exports Symma; beginend.

Вот код dllки, функция вычисляет сумму 2 чисел, передаваемых ей и возвращает результат.

 

Использование в СЕ.

Symma = package.loadlib("D:\\Program Files (x86)\\Cheat Engine 6.4\\Project2.dll", "Symma")res = Symma(1, 2)print(res)

Программа сообщает о неопределенной ошибке.

 

Поясните, что нетак!

Проблемма актуальна!