Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
3 / 3 / 4
Регистрация: 16.11.2013
Сообщений: 102
1

Замена hex значений

09.01.2015, 13:03. Показов 1111. Ответов 1
Метки нет (Все метки)

Читаю файл вот так:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
procedure ReadFileAsHex(const AFileName: string; ADestination: TStrings);
var fs: TFileStream;
    buff: Byte;
    linecount: Byte;
    line: string;
begin
  linecount := 0;
  line := '';
  fs := TFileStream.Create(AFileName, fmOpenRead);
  try
    while fs.Position < fs.Size do begin
      fs.Read(buff, 1);
      line := line + IntToHex(buff, 2) + ' ';
      Inc(linecount);
      if linecount = 16 then begin
        ADestination.Add(line);
        line := '';
        linecount := 0;
      end;
    end;
    if Length(line) <> 0 then
      ADestination.Add(line);  
  finally
    fs.Free;
  end;
end;
Нужно заменить байты 0D0A на 20
Вот что должно получится:
До:
CFE5 F0E2 E0FF 20F1 F2F0 EEEA E00D 0AC2 F2EE F0E0 FF20 F1F2 F0EE EAE0 0D0A D2F0 E5F2 FCFF 20F1 F2F0 EEEA E0
После:
CFE5 F0E2 E0FF 20F1 F2F0 EEEA E00D 2020 F2EE F0E0 FF20 F1F2 F0EE EAE0 2020 D2F0 E5F2 FCFF 20F1 F2F0 EEEA E0
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.01.2015, 13:03
Ответы с готовыми решениями:

Замена символов в 16-ричном HEX коде программы
Всем привет! Ребята Хелп подскажите пожалуйста как заменить какой командой вот эти три позиции ...

Редактор hex-значений нетипизированного файла через Memo
Хочу написать редактор такого вида: Открываем нетипизированный файл (20 мб) в Memo (или что-то...

Поиск и замена hex значения в dll файле
Как мне найти и заменить несколько hex значений в dll файле?

Замена hex по адресу
Здравствуйте. Есть такая задача: Имеем некий файл (скажем bin), необходимо внести изменения...

__________________
1
2646 / 2269 / 278
Регистрация: 24.12.2010
Сообщений: 13,725
09.01.2015, 16:21 2
перед finally выполни

Delphi
1
2
ADestination.Text := StringReplace(ADestination.Text, '0D', '', [rfReplaceAll]);
ADestination.Text := StringReplace(ADestination.Text, '0A', '20', [rfReplaceAll]);
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.01.2015, 16:21

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Поиск и замена числа в HEX
Доброго времени суток, прошу прощения, если возникший вопрос задаю не в тот раздел форума....

Hex редактирование - замена строк в файле
Есть файл (вернее 3d модель) в котором нужно сменить имя текстуры, при помощи Free Hex Editor Neo...

Поиск и замена hex значения в RAM
Подскажите, как написать скрипт для WinHex, чтобы открыть определенный процесс в оперативной...

Поиск и замена hex значения в dll файле
Как мне найти и заменить несколько hex значений в dll файле?

Парсинг hex значений
Здравствуйте. В ASM файле есть такая строка к примеру dc.w 0, $8CE, $6AC, $48A, $268, $46,...

Редактирование hex значений в файле
Всем привет. Не знаю как сделать то что на 2 скриншотах. На 1 до, на втором - после. В какую...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.