VPF::Склеивание и расклеивание .exe файлов

ShadowDancer

Дата 23.6.2006, 09:36 (ссылка)

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

Загрузка ...

Шустрый

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

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

Читал про Joiner'ы. Вот в этой: http://senselogic.jino-net.ru/coding/delph...=joiner.php.htm статье описывается как склеить файл.
А как тому файлу который приклеивают (stub), узнать и отделить от себя прикрёплённый файл ?
Сразу говорю: не троян, просто интерес.

Snowy

Дата 23.6.2006, 09:52 (ссылка)

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

Загрузка ...

Эксперт

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

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

А ему и не нужно знать.
Всю работу выполняет третий файл, который и обеспечивает расклеивание, приклеенных к нему двух других.
Задача и состоит в том, чтобы написать этот третий (точнее первый) файл.

ShadowDancer

Дата 23.6.2006, 10:01 (ссылка)

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

Загрузка ...

Шустрый

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

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

А как будет выглядеть тот файл, что отклеивает ? Что он должен делать ?

Snowy

Дата 23.6.2006, 10:09 (ссылка)

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

Загрузка ...

Эксперт

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

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

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

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

ShadowDancer

Дата 23.6.2006, 10:33 (ссылка)

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

Загрузка ...

Шустрый

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

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

Цитата(Snowy @ 23.6.2006, 10:09

)

создавать склеенный файл и записывать в него эти размеры и местонахождение

Вот, вот. А где про это почитать.
Или пример, если не сложно.

Snowy

Дата 23.6.2006, 10:39 (ссылка)

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

Загрузка ...

Эксперт

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

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

Справка по TFileStream тебе в руки.
Склеить 3 файла в один - самое простое.
Основную работу выполняет лаунчер. Вот тут всё гораздо сложнее...

ShadowDancer

Дата 23.6.2006, 10:50 (ссылка)

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

Загрузка ...

Шустрый

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

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

Цитата(Snowy @ 23.6.2006, 10:09

)

Он должен знать количество файлов, их размеры и где именно они находятся.

С пощью TFileStream вроде бы нельзя этого сделать. Или я ошибаюсь ?
Если нет, то как это сделать ?

ShadowDancer

Дата 23.6.2006, 11:06 (ссылка)

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

Загрузка ...

Шустрый

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

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

Цитата(ShadowDancerNew @ 23.6.2006, 10:50

)

Цитата(Snowy @ 23.6.2006, 10:09 )
Он должен знать количество файлов, их размеры и где именно они находятся.

С пощью TFileStream вроде бы нельзя этого сделать. Или я ошибаюсь ?
Если нет, то как это сделать ?

Я имел ввиду ни как узнать, а как установить кол-во файлов и их размеры.

Alexeis

Дата 23.6.2006, 13:58 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

ShadowDancerNew, Очевидо, что эти данные должна записать программа "склеиватель" первыми в результирующий файл, затем программа "расклеиватель" прочетает все указанные поля в том же порядке. Ведь структуру "гибрида" содаешь сам, так ни что не мешает менять ее по своему вкусу.

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

ShadowDancer

Дата 25.6.2006, 01:00 (ссылка)

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

Загрузка ...

Шустрый

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

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

Как пользуясь этим кодом прочитать из test_IN.exe первые 10000 байт и записать в tert_OUT.exe ? :

Код


var
  FromF, ToF: file;
  NumRead, NumWritten,Size: LongInt;
  Buf: array[1..2048] of Byte;
            //f: textfile;
begin
try
          //AssignFile(F,'size.txt');
          //Rewrite(f);
    AssignFile(FromF,'test_IN.exe');
    Reset(FromF, 1);
    AssignFile(ToF,'test_OUT.exe');
    Reset(ToF, 1);
    Size:=filesize(FromF);
          //Writeln(F, Size);
          //Close(f);
    //filesize(ToF)
    Seek(ToF,filesize(ToF));
          repeat
        BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
        BlockWrite(ToF, Buf, NumRead, NumWritten);
      until (NumRead = 0) or (NumWritten <> NumRead);
    blockwrite(ToF,Size,sizeof(longint));
  finally
    CloseFile(FromF);
    CloseFile(ToF);
  end;

Это сообщение отредактировал(а) ShadowDancerNew - 25.6.2006, 12:20

Yanis

Дата 25.6.2006, 22:15 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(ShadowDancerNew @ 25.6.2006, 02:00

)

Как пользуясь этим кодом прочитать из test_IN.exe первые 10000 байт и записать в tert_OUT.exe ?

Изменить размер массива на 10000 и стереть repeat...until.

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

*щёлк*

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