VPF::хекс и дельфи - Форум программистов

NeoN2k

Дата 24.5.2005, 18:27 (ссылка)

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

Загрузка ...

Новичок

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

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

Зрдов, народ... кароче.... ща перехожу на работу с Хексом ну... если кто знает то напишите плз какие-нить команды в Delphi... вплоть от того, как перевести текст Memo1 в поле Memo2 уже в хексе, до замены или удаления определенного куска хекса левого exe'шника..... заранее благодарен....

Snowy

Дата 25.5.2005, 09:30 (ссылка)

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

Загрузка ...

Эксперт

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

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

http://forum.vingrad.ru/index.php?showtopic=37490
http://forum.vingrad.ru/index.php?showtopic=41308
Добавлено @ 09:33
IntToHex(ord[str[1]]); переводит одну буковку стоки в Hex
Немного усложнив, можно перегнать весь текст.

SoWa

Дата 25.5.2005, 18:21 (ссылка)

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

Загрузка ...

Харекришна

Профиль
Группа: Комодератор
Сообщений: 2422
Регистрация: 18.10.2004

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

В разделе "Арсенал форумистов" есть моя функция для перевода в другие системы счислени. Или чтобы перегнать весь текст циклически перебирай буквы и используй IntToHex

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

Всем добра smile

NeoN2k

Дата 25.5.2005, 19:12 (ссылка)

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

Загрузка ...

Новичок

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

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

ага..... сенкс всем, понял.

NeoN2k

Дата 26.5.2005, 11:44 (ссылка)

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

Загрузка ...

Новичок

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

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

ёёёёё....... ето конечно круть, но мне-бы надо открыть хекс одного файла, найти тама кусочек кода и, до или после него вставить текст из Edit1, переведенный в hex... мож кто подскажет???

Snowy

Дата 26.5.2005, 17:25 (ссылка)

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

Загрузка ...

Эксперт

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

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

А зачем тебе вообще в таком случае HEX???
Бери просто файл, бери текст и едита.
Создаешь новый файл, пишешь туда первую часть исходного файла (до того места куда вставлять), потом пишешь текст из едита, а на хвост лепишь вторую часть исходного файла.
И никакой хекс тут не нужен.
Файлы не в хексах, а в байтах.
Хекс нужен только, чтобы удобно было эти байтики глазками посмотреть.

NeoN2k

Дата 27.5.2005, 14:51 (ссылка)

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

Загрузка ...

Новичок

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

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

мазаа!!!!но я тута, по сравнению с вами лапоухий ламер.... так что я не совсем понимаю, как можно "Взять 1-ю часть файла, потом вставить после нее Edit1.text а потом 2-ю часть, и это всё сохранить в новый файл"... ты, это... smile

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

rsm

Дата 27.5.2005, 15:06 (ссылка)

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

Загрузка ...

Опытный

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

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

NeoN2k
НЕХ-редактор файлов надо написать что ли? Просто у тебя каждый пост - новая загадка. Так мы долго гадать будем... smile

Snowy

Дата 27.5.2005, 15:57 (ссылка)

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

Загрузка ...

Эксперт

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

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

Допустим тебе нужно открыть файл file.exe и, начиная с позиции $OA7B прописать в него текст из Edit1:

Код


var
  fs: TFileStream;
begin
  fs:=TFileStream.Create('file.exe',fmOpenReadWrite);
  fs.Seek($0A7B,soFromBeginning);
  fs.WriteBuffer(Edit1.Text[1],Length(Edit1.Text));
  fs.Free;
end;

NeoN2k

Дата 28.5.2005, 11:01 (ссылка)

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

Загрузка ...

Новичок

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

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

Snowy thx!!!

Это сообщение отредактировал(а) Girder - 28.5.2005, 13:02

NeoN2k

Дата 29.5.2005, 11:52 (ссылка)

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

Загрузка ...

Новичок

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

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

круть, а как тогда прочесть из определенного места определенное кол-во символов???
у меня так, но чота при компиляции ругается:

Код


var
  fs: TFileStream;
  a:integer;
begin
  fs:=TFileStream.Create('C:\server.exe',fmOpenRead);
  fs.Seek($4bd9c,soFromBeginning);
  fs.ReadBuffer(a,8);
  Edit1.Text:=IntToHex(a,8);
  fs.Free;
end;

подправите? smile

Snowy

Дата 30.5.2005, 10:31 (ссылка)

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

Загрузка ...

Эксперт

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

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

Код


var    
  fs: TFileStream;    
  s: string;
begin    
  fs:=TFileStream.Create('C:\server.exe',fmOpenRead);    
  fs.Seek($4bd9c,soFromBeginning);
  SetLength(s,12);
  fs.ReadBuffer(s[1],12);  
  fs.Free;    
end;

После этого кода у тебя в s будет 12 прочитанных из файла символов (если они там конечно есть). После этого, уже конверть в HEX посимвольно, если оно тебе надо.

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