Вот услашал про енту штуковину, что мол надо защищаться от этой напасти. Так ли это? И какой способ лучше для этого подходит?

Вот честно не слышал про дизассемблер дле делфи. А где ты слышал дай ссылку!

Слышал это на улице (сзади меня какие-то програмёры, видимо, шли)

Вот, накопал защиту, написанную на Pascal:

Код

procedure TrassBlock; Assembler; {В случае трассировки идёт перезагрузка DOS :)} ASM mov byte ptr @, 90h @: ret    {Засекли!!!}    mov ax, $F000    push ax    mov ax, $FFF0    push ax    retf END; { end of TrassBlock } BEGIN TrassBlock END.

Код

uses Dos; {:)} var Flags: Word; BEGIN Flags:=0; asm  pushf  pop ax  mov Flags, ax end; if (Flags and $100) <> 0  then   {Трассировка обнаружена!} END.

Код

var t1, t2: longint; BEGIN t2:=0; t1:=MemL[0:$046C]; while MemL[0:$046C] = t1 do  while MemL[0:$046C] < t1+2 do   inc(t2); if t2 < 500 {Что-то здесь мне на нравится...}  then   {Трассировка обнаружена} END.

Код

uses Dos; {:)} var OldInt9: pointer; procedure Int9; Assembler; ASM mov ax, $F000 push ax mov ax, $FFF0 push ax retf END; { end of Int9 } var k, n: longint; BEGIN SwapVectors; GetIntVec($9, OldInt9); SetIntVec($9, @Int9); for k:=1 to 20000 do  inc(n); {WOW! интересный ход} SetIntVec($9, OldInt9); writeln('Нет трассировки'); {:) а когда будет?!} END.

А как это в Delphi применить?!

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

на первый взгляд сложно....
А надо ли эту защиту ставить?! Нужно ли это?

SoftIce'у эта защита по барабану =)
Против дизасмов и дебагов луше все работает разного рода Pe-шифровщики

Лучше всего работает Xtreme-Protector, описание:

Цитата

Пакер представляет собой драйвер. Т.е. кольцо-0. Человек, его писавший, маленько поехал на антиотладке, поэтому, если хотите экспериментировать, быть может, имеет смысл завести виртуальную машину для таких экспериментов, т.к. чуть что не так - и ребут. Сайт программы: http://www.xprotector.com/

Добавлено @ 13:48
Вот что он умеет http://www.xprotector.com/whatsnew.htm

Pakshin A. S. меня большинство защит от дизассемблирования останавливают неболе чем на несколько минут.
Так что не грузись. Другие защиты надо применять(к примеру местное шифрование). А еще лудше скрытая защита плюс местное шифрование, плюс массивы указателей из которых адресс перехода выбирается по чтению со смещением в массиве (Call (edx+ecx*4)). Реализация скрытой защиты к примеру: после взлома и отключения проверки лицензии программа перестает надоедать пользователя о том что программа не зарегистрированна, но продолжает знать это(как следствие можно очень хорошо проучить пользователя). Кстати самая надежная защита это: Hasp с математикой (взломать можно но очень гемморойно)

Добавлено @ 13:53
Monty дай прогу зашищенную Xtreme-Protector по упражнятся

Спасибо. Буду разбираться потихоньку...

Monty
Где ты про эту хрень на русском нашел?

Girder, хорошо ..... щас будет вам крякми
Добавлено @ 22:16

Цитата(Borland_Delphi_6 @ 20.7.2004, 19:22)

Monty Где ты про эту хрень на русском нашел?

Все тот же WASM.ru
Добавлено @ 22:20
Girder распакуй сам протектор
http://www.xprotector.com/files/XprotDemoSetup.exe

Girder, что-то ты долго возишься

Monty шутиш? . Я же тебе в привате все написал . Ты мне ответ даже написал . У тебя там что, искуственный интелект отвечает?

От Disassm'а помогает exe32pak.

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

Хотя не уверен, что нет таких, что способны сначала распаковать, а потом disassmbler'ить.

Это сообщение отредактировал(а) dvamaster - 21.7.2004, 16:06

dvamaster если человек может дизассамблировать, значит он сможет и распаковать