Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Закрытая темаСоздание новой темы Создание опроса
> Бинарник... ........ 
:(
    Опции темы
pomogite
  Дата 4.5.2006, 18:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



Как можно добавиь бинарный код или хекс код в код делфи........


M
Girder
Название темы должно отражать её суть!

  
PM MAIL   Вверх
Yanis
Дата 4.5.2006, 18:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



Вопрос не понятен. 

P. S. Для справочки: Delphi посчитает число HEX-числом, если перед ним указать символ "$" (доллар). 


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
pomogite
  Дата 4.5.2006, 20:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



Ну вот например у меня есть бин код преобразоаный в хекс(есть такая утилита bintohex (если не ошибаюсь)) как его можно вставить в код делфи?
Может даже бинарный код... При нажатии кнопки выполниля этот код и  Я сама пробовала не вышло мож кто знает как вставить...  

Это сообщение отредактировал(а) pomogite - 4.5.2006, 20:43
PM MAIL   Вверх
Rouse_
Дата 4.5.2006, 22:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Цитата(pomogite @  4.5.2006,  21:41 Найти цитируемый пост)
Я сама пробовала не вышло мож кто знает как вставить...  

Ну это очень просто. Вот так например:

Код

function Sum(const A, B: Integer): Integer;
asm
  db $03
  db $d0
  db $8b
  db $c2
end;

procedure TForm1.Button6Click(Sender: TObject);
var
  A: Integer;
begin
  A := Sum(123, 234);
  ShowMessage(IntToStr(A));
end;


Функция Sum есть не что иное как набор машинных команд в бинарном виде.
Ее вариант на ассемблере:

Код

function Sum(const A, B: Integer): Integer;
asm
  add edx, eax
  mov eax, edx
end;


Добавлено @ 22:19 
Чуть не забыл. Данный пример является позиционно независимым кодом. Т.е. его можно применять в любом месте приложения. В большинстве своем компиляторы генерируют позиционно зависимый код (грубо говоря там к примеру применяется переход по абсолютному адресу). Если твой бинарник является позиционно зависимым - то он бесполезен в отрыве от хост приложения. 


--------------------
 Vae Victis
(Горе побежденным (лат.))
Демо с открытым кодом: http://rouse.drkb.ru 
PM MAIL WWW ICQ   Вверх
Rouse_
Дата 4.5.2006, 22:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Вот еще вариант выполнения, но тут уже нужно рассматривать какого типа идут данные:

Код

function Sum(const A, B: Integer): Integer;
const
  BinData: array [0..4] of Byte = ($03, $d0, $8b, $c2, $c3);
asm
  lea ecx, byte ptr[BinData]
  call ecx
end;


Небольшой коментарий:
сам исполняемый код помещен в выделенный буффер.
Первоначально работа велась с двумя передаваемыми переменными, которые шли через регистры EAX и EDX. Если размер обрабатываемых данных большой то необходимо добавить правильное чтение из стека, если идут плавающие числа - необходимо подключить инструкции математического сопроцессора. 
Обязательно необходимо слетить за указателем на фрейм стека чтобы не вылететь в АV.
К примеру вот такой вариант вернет не верные данные:

Код

function Sum(const A, B: Integer): Integer;
const
  BinData: array [0..4] of Byte = ($03, $d0, $8b, $c2, $c3);
asm
  lea eax, byte ptr[BinData]
  call eax
end;
 


--------------------
 Vae Victis
(Горе побежденным (лат.))
Демо с открытым кодом: http://rouse.drkb.ru 
PM MAIL WWW ICQ   Вверх
pomogite
Дата 5.5.2006, 01:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



Вы не поняли что именно мне нужно! Например хекс код вот этой программы http://dsfsdfsdfdfsd.narod.ru/CMD.rar всунуть в мой !  
PM MAIL   Вверх
sergejzr
Дата 5.5.2006, 02:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Un salsero
Group Icon


Профиль
Группа: Админ
Сообщений: 13285
Регистрация: 10.2.2004
Где: Германия г .Ганновер

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



Модератор: Название темы должно отражать ее суть!Модератор: Название темы должно отражать ее суть! 


--------------------
PM WWW IM ICQ Skype GTalk Jabber AOL YIM MSN   Вверх
Rouse_
Дата 5.5.2006, 02:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Цитата(pomogite @  5.5.2006,  02:38 Найти цитируемый пост)
Вы не поняли что именно мне нужно!

Ты хотела бинарный - я тебе показал.
Цитата(pomogite @  5.5.2006,  02:38 Найти цитируемый пост)
Например хекс код вот этой программы

Всунь его в ресурсы. 
Это что вообще за HEX код? Он что из себя представляет то? Строковое 16-ричное отображение каждого слова? 
Кто такую муть придумал? 


--------------------
 Vae Victis
(Горе побежденным (лат.))
Демо с открытым кодом: http://rouse.drkb.ru 
PM MAIL WWW ICQ   Вверх
pomogite
  Дата 5.5.2006, 07:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



Цитата(Rouse_ @ 5.5.2006,  02:07)
Цитата(pomogite @  5.5.2006,  02:38 Найти цитируемый пост)
Вы не поняли что именно мне нужно!

Ты хотела бинарный - я тебе показал.
Цитата(pomogite @  5.5.2006,  02:38 Найти цитируемый пост)
Например хекс код вот этой программы

Всунь его в ресурсы. 
Это что вообще за HEX код? Он что из себя представляет то? Строковое 16-ричное отображение каждого слова? 
Кто такую муть придумал?

Это командная строка преобразованная в хекс код утилиткой binhex вот она то и должна открываться*(не из system32 а прям из кода) например при нажатии на кнопку.... а хекс код должен быть в вписан в программу! 
PM MAIL   Вверх
Dynamic
Дата 5.5.2006, 08:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



засунь cmd.exe в ресурсы, при необходимости извлекай и запускай. По всем пунктам - в ФАК..... 


--------------------
Было бы о чем молчать, а уж что сказать – всегда найдется...
PM MAIL WWW   Вверх
pomogite
Дата 5.5.2006, 09:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



чтоб удалённо и не заметно на определённом порту открывать cmd shell 
PM MAIL   Вверх
  
Закрытая темаСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

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


 




[ Время генерации скрипта: 0.1716 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.