На это меня натолкнула одна статья по защите программ http://www.delphikingdom.com/mastering/safe/add.htm

О защите: я пытался затирать адреса из готовой программы .... тем самым программа умирала .... и переименовывать тоже нельзя! .... Единственно что я добился, это то что DeDe (Дельфи Декомпилер), не может "разковырять" программу из памяти ....... а тут хорошая идея ..... с шифровкой проблем нет, фантазия богата, но вот как загрузить расшифрованную форму? Вот это задача

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

Да нет, мне всего лишь надо запустить форму из DFM ...... я знаю что так можно .... а ты понял что я хочу все зашифровать
Шифруются _только_ формы и их надо загружать самому (как-то), но уже расшифрованые!

Есть ли в природе функция похожия на CreateFormFromStream ?

Monty DFM - это результат сохранения TForm. TForm - наследник TComponent. TComponent умел сохраняться и восстанавливаться в поток еще в Delphi1.

Код

TStream = class(TObject) ...    function ReadComponent(Instance: TComponent): TComponent;    function ReadComponentRes(Instance: TComponent): TComponent;    procedure WriteComponent(Instance: TComponent);    procedure WriteComponentRes(const ResName: string; Instance: TComponent);    procedure WriteDescendent(Instance, Ancestor: TComponent); virtual;    procedure WriteDescendentRes(const ResName: string; Instance, Ancestor: TComponent); ...  end;

Примеры есть в самом TForm.pas или в Classes.pas в классах TWriter/TReader.

Dmitry V.Abramov тогда я могу обойтись этими функциями? т.е. этой ReadComponentRes

Не выходит ..... можно скромный пример?

Monty Так ведь привел бы свой "не выходимый"... - стало бы понятно, куда у тебя мысли думают. И писать, опять же, меньше бы пришлось...

Dmitry V.Abramov

Код

....... FS := TFileStream.Create('c:\test.dfm', fmOpenRead); FS.ReadComponent(Form2); .........

Как то так

Ааа ...... точно! Не правильно!

Monty Правильно что неправильно Для DFM надо ReadComponentRes().

Dmitry V.Abramov Проблема была в том что у новых версий дельфей новый формат DFM, а для ReadComponentRes() нужен старый ......... и вот так работает:

Код

FS := TFileStream.Create('d:\Unit2.dfm', fmCreate);  FS.WriteComponent(Form2);  FS.Free;  FS := TFileStream.Create('d:\Unit2.dfm', fmOpenRead);  FS.ReadComponent(Form2); /// ReadComponentRes вызывает ошибку :-|  FS.Free;

Это сообщение отредактировал(а) Monty - 26.10.2003, 18:13

А такой вопрос .... Когда происходит чтении DFM файла? А то я думаю если прочтется зашифрованый DFM то вызовет ошибку ..... случайно не в момент создании формы Application.CreateForm(TForm1, Form1) ? :-\ ......

Цитата(Monty @ 26.10.2003, 17:11)

Dmitry V.Abramov Проблема была в том что у новых версий дельфей новый формат DFM, а для ReadComponentRes() нужен старый ......... и вот так работает: Код  FS := TFileStream.Create('d:\Unit2.dfm', fmCreate);  FS.WriteComponent(Form2);  FS.Free;  FS := TFileStream.Create('d:\Unit2.dfm', fmOpenRead);  FS.ReadComponent(Form2); /// ReadComponentRes вызывает ошибку :-|  FS.Free;

Я опять ошибся ...... вот так надо:

Код

FS := TFileStream.Create('d:\Unit2.dfm', fmCreate);  FS.WriteComponentRes('TForm2', Form2); //  FS.WriteComponent(Form2);  FS.Free; //  Exit;  FS := TFileStream.Create('d:\Unit2.dfm', fmOpenRead);  FS.ReadComponentRes(Form2);  FS.Free;

Monty Да. В CreateForm. Там же видно, что конкретно загрузкой из ресурса заведует InternalReadComponentRes. Зашифрованные dfm'ы он не загрузит. А зачем? Пусть грузит обычные, но НЕ ТЕ, что ты будешь использовать в дальнейшем. Ты же, прежде чем начать работу, прибьешь изначально груженные формы и переоткроешь на их месте свои (зашифрованные). На 80% нынешних мега-кул-ксацкепов этого должно хватить.

Dmitry V.Abramov понятно ..... вот столкнулся еще с проблемой ......

Код

FS := TFileStream.Create('Unit2a.dfm', fmOpenRead);  FS.ReadComponentRes(Form2);  FS.Free;

Unit2a.dfm это форма с Edit'om ...... если на Form2 нет этого компонента, то программа ругается что "Class TEdit not found" ....... как это можно решить? Так как я хочу в _пустую_ форму загрузить зашифрованую с кучей компонентов

Многие кулхацкеры так и ломают, грузят ДеДе смотрят адрес Кнопки REGISTER и меняют джамп )
Интересно будет увидеть лицо того кто в ДеДе не увидет ни одной формы .....примитивную CRC уже давно сделал .... думаю поставить вторую НЕ явно ;)