VPF::HexTobyte???? - Форум программистов

ne0n

Дата 21.11.2007, 10:42 (ссылка)

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

Загрузка ...

PlayBoy

Профиль
Группа: Участник
Сообщений: 733
Регистрация: 5.8.2005
Где: Н.Новгород

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

всем доюрого времени суток, проблема такая....сзначет вообще изначально мне нужно пропатчить файл, нужное значение я получаю, в виде целочисленного, потом перевожу в hex получаю например: 0006114D, теперь мне надо как то файл пропатчить этим значением, но перед этим чтоли как то получиь массив из байт??? схема которой я это вижу переходим на 1 адресс патчим на $00, второй $06, третий $11, четвертый на 4D....ну вообщем я что то ни как не пойму как это сделать...

--------------------

http://sa-sec.org
как я вам? smile

Snowy

Дата 21.11.2007, 11:24 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

А зачем в хекс переводишь?
И в чём, собственно, проблема?

ama_kid

Дата 21.11.2007, 11:34 (ссылка)

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

Загрузка ...

АСУТП-кодер

Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

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

Цитата(ne0n @ 21.11.2007, 10:42

)

как то получиь массив из байт???

А что мешает?

Код

var
  Value:integer;
  ArVal:array [1..4] of byte absolute Value;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
 ArVal[1]:=0;
 ArVal[2]:=0;
 ArVal[3]:=0;
 ArVal[4]:=0;
 Value:=StrToInt(Edit1.Text);    //  Edit1.Text содержит строку '$0006114D'
 ShowMessage(IntToHex(ArVal[4],2)+'-'+IntToHex(ArVal[3],2)+'-'+
             IntToHex(ArVal[2],2)+'-'+IntToHex(ArVal[1],2));
end;

--------------------

самурай без меча подобен самураю с мечом, но только без меча

ne0n

Дата 22.11.2007, 22:37 (ссылка)

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

Загрузка ...

PlayBoy

Профиль
Группа: Участник
Сообщений: 733
Регистрация: 5.8.2005
Где: Н.Новгород

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

Цитата(Snowy @ 21.11.2007, 11:24

)

А зачем в хекс переводишь?

да просто когда я патчил в 16-ричном формате типа $8c итп то программа которую я использовал для сравнения файлов(пропатченного и оригинального) работала корректно, в 10-ом выдавла еще левый байт smile

оказалось это просто глючная прога smile

попробовал использовать другие все ок, выдает разницу именно в 4 байта.всем спасибо!

--------------------

http://sa-sec.org
как я вам? smile

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