Защита приложения...

@demon89 · Регистрация: 13.10.2010

Студворк — интернет-сервис помощи студентам

Нужно написать программку ,защита приложения с использованием установочного компакт диска..
Не знаю как и с чего начать...Запуск приложения должно осуществляться только при наличии установочного диска в приводе

@Sergiuz · 13.10.2010, 17:44

Проверить наличие файла на диске:

Delphi
1
2
3
4
Procedure Form1.Form1Create ();
begin
If not Filexists (Filename) then Close;
end;

@demon89 · 13.10.2010, 22:54 **[ТС]**

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

@Sergiuz · 13.10.2010, 23:12

Сообщение от demon89

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

куда прописывать

FileName:=%CDRom%\Secret\thiisSecureDisk .txt

запиши на диск какой нить уникальный файл и проверяй есть ли он на месте или нет

@STRATEG · 13.10.2010, 23:25

Sergiuz Идея более менее нормальная для быстрого ответа. Как вариант можно. Но если demon89 вы собираетесь делать это с расчетом, что все будет как хотите, без диска все будут "просто гулять" , то ошибаетесь. Тут придется потрудиться, обходя стандартные методы решения задачи. Т.к. проверка файла для взломщика (или просто халявщика с мозгами) не устрашит. Файл найдут,заберут и прикрутят к обычной болванке которая станет "установочным диском". Более сложные последовательности проверок позволят хоть как то от обычных халявщиков спастись. Последовательная проверка пары, тройки файлов на наличие + определенные атрибуты + дата создания (имеется ввиду что 1файл создан раньше второго, 3 раньше 2 например). Все достаточно просто изменить и опять же получить доступ к программе. Но не для "простых смертных".

@Sergiuz · 14.10.2010, 10:47

STRATEG, Ога нужно потом еще сделать защиту на копирование диска, к примеру какой нить StarForce.

@Xander Bass · 14.10.2010, 11:23

Сообщение от demon89

Запуск приложения должно осуществляться только при наличии установочного диска в приводе

Ну и прекрасно! Сделайте, чтобы приложение запускалось только с CD-ROM'а. Тот же алгоритм, что описывал Sergiuz, только проверять путь к самому приложению. Например так:

Delphi
1
2
3
4
5
if Application.Exename <> %CDRom%\AppName.exe then
begin
  MessageBox(Handle,'Пшёл нафиг, слонеГ!','АшиПкО',MB_ICONERROR+MB_OK);
  Application.Terminate
end

Самый брутальный способ

Добавлено через 57 секунд
Правда с учётом современных виртуалок это не поможет.

@Sergiuz · 14.10.2010, 12:08

И еще я как то встречал CD диск со встроенным серийным номером, который не может с эмулировать большинство виртуалок, поищи этот способ в инете.

@STRATEG · 14.10.2010, 14:52

Xander_Bass не поможет в любом случае. Во первых не обязательно на компах одинаковые названия дисков будут, во-вторых проверив Disk:\File.exe вы тем самым ничего не проверили. Файл можно копировать в корень любого диска, флэхи. (проверка на тип носителя тоже не сделает погоды)

@Xander Bass · 14.10.2010, 16:35

STRATEG, необязательно... Можно даже так.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
function VerifyDrive: boolean;
var
  cd, vd: string;
  ld, c : dword;
  res   : boolean;
begin
  res:=FALSE;
  cd:=ExtractFileDrive(Application.ExeName);
  cd:=cd+'\';
  ld:= GetLogicalDrives;
  for c:=0 to 25 do
  begin
    if (ld and ($0001 shl c)) > 0 then
    begin
      vd:=Chr(Ord('A')+c)+':\';
      if (cd = vd) and ((GetDriveType(PChar(vd)) = DRIVE_CDROM) then res:=TRUE
    end
  end
end;
 
procedure TForm1.Form1Create(Sender: TObject);
begin
  if VerifyDrive then
  begin
    MessageBox(Handle,'ПшОл нафиг, слонеГ!','АшиПкО',MB_ICONERROR+MB_OK);
    Application.Terminate
  end
end;

Таким образом мы проверим тип текущего привода. Если он окажется не CDRom'ом, тогда приложение вырубится.

@STRATEG · 14.10.2010, 21:54

Xander_Bass Ты читал что я писал?

во-вторых проверив Disk:\File.exe вы тем самым ничего не проверили. Файл можно копировать в корень любого диска, флэхи. (проверка на тип носителя тоже не сделает погоды)

Я же вам написал, проверка типа не имеет смысла, что вы тем самым хотите получить? Защиту? А не думали о том, что все можно записать на другой диск, как не странно который будет иметь тип Cd-Rom.

function VerifyDrive: boolean;
var
cd, vd: string;
ld, c : dword;
res : boolean;
begin
res:=FALSE;
cd:=ExtractFileDrive(Application.ExeName );
cd:=cd+'\';
ld:= GetLogicalDrives;
for c:=0 to 25 do
begin
if (ld and ($0001 shl c)) > 0 then
begin
vd:=Chr(Ord('A')+c)+':\';
if (cd = vd) and ((GetDriveType(PChar(vd)) = DRIVE_CDROM) then res:=TRUE
end
end
end;

Эта самая непонятна зачем созданная и не имеющая смысла функция. Зачем бежать по 26 девайсам и проверять (наш ли девайс) и (Cd-Rom ли это). Нельзя взять и проверить сразу тип ExtractFileDrive(Application.ExeName)??? Подумай что тебе даст твой код.

@Sergiuz · 14.10.2010, 23:52

STRATEG, есть идея получше выполнить изначально поставленную задачу?

@STRATEG · 15.10.2010, 08:11

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

P.S. Это не есть полное решение задачи, а небольшое предложение набросанное за пару минут.

@Xander Bass · 15.10.2010, 09:18

Сообщение от STRATEG

Я же вам написал, проверка типа не имеет смысла, что вы тем самым хотите получить? Защиту? А не думали о том, что все можно записать на другой диск, как не странно который будет иметь тип Cd-Rom.

Идеальной защиты не существует вообще. А пугнуть обычного пользователя может и вышеприведённый метод. Есть куча алгоритмов. Но у ВСЕХ этих алгоритмов есть один существенный недостаток - их всегда можно обойти.

Новые блоги и статьи Все статьи Все блоги /
Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это дополнительная запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .

@demon89 0 / 0 / 0 Регистрация: 13.10.2010 Сообщений: 3

	Защита приложения... 13.10.2010, 17:14. Показов 1918. Ответов 13 Метки нет (Все метки) Нужно написать программку ,защита приложения с использованием установочного компакт диска.. Не знаю как и с чего начать...Запуск приложения должно осуществляться только при наличии установочного диска в приводе 0

@demon89 0 / 0 / 0 Регистрация: 13.10.2010 Сообщений: 3
	13.10.2010, 22:54 [ТС]
	Такой вариант не подойдет.....это надо каждый раз прописывать имя файла.. 0

@STRATEG 1174 / 480 / 83 Регистрация: 04.03.2010 Сообщений: 1,019
	13.10.2010, 23:25
	Sergiuz Идея более менее нормальная для быстрого ответа. Как вариант можно. Но если demon89 вы собираетесь делать это с расчетом, что все будет как хотите, без диска все будут "просто гулять" , то ошибаетесь. Тут придется потрудиться, обходя стандартные методы решения задачи. Т.к. проверка файла для взломщика (или просто халявщика с мозгами) не устрашит. Файл найдут,заберут и прикрутят к обычной болванке которая станет "установочным диском". Более сложные последовательности проверок позволят хоть как то от обычных халявщиков спастись. Последовательная проверка пары, тройки файлов на наличие + определенные атрибуты + дата создания (имеется ввиду что 1файл создан раньше второго, 3 раньше 2 например). Все достаточно просто изменить и опять же получить доступ к программе. Но не для "простых смертных". 0

@Sergiuz 161 / 159 / 39 Регистрация: 10.10.2010 Сообщений: 461
	14.10.2010, 10:47
	STRATEG, Ога нужно потом еще сделать защиту на копирование диска, к примеру какой нить StarForce. 0

@Sergiuz 161 / 159 / 39 Регистрация: 10.10.2010 Сообщений: 461
	14.10.2010, 12:08
	И еще я как то встречал CD диск со встроенным серийным номером, который не может с эмулировать большинство виртуалок, поищи этот способ в инете. 0

@STRATEG 1174 / 480 / 83 Регистрация: 04.03.2010 Сообщений: 1,019
	14.10.2010, 14:52
	Xander_Bass не поможет в любом случае. Во первых не обязательно на компах одинаковые названия дисков будут, во-вторых проверив Disk:\File.exe вы тем самым ничего не проверили. Файл можно копировать в корень любого диска, флэхи. (проверка на тип носителя тоже не сделает погоды) 0

@Sergiuz 161 / 159 / 39 Регистрация: 10.10.2010 Сообщений: 461
	14.10.2010, 23:52
	STRATEG, есть идея получше выполнить изначально поставленную задачу? 0

@STRATEG 1174 / 480 / 83 Регистрация: 04.03.2010 Сообщений: 1,019
	15.10.2010, 08:11
	Некогда заморачиваться с неоплачиваемыми вопросами. Вообще в начале темы я писал как можно сделать. Несколько файлов, определенные атрибуты, дата создания каждого файла по коэффициенту связанна с датой другого, и прочие таких хирости. Этого хватит спастись хотябы от простого юзера. P.S. Это не есть полное решение задачи, а небольшое предложение набросанное за пару минут. 0