Перезагрузка проводника

[АлександрDelphi]

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

Да что за полумеры, лучше уж сразу шифруй файлы на компе и вымогай деньги за расшифровку. Или ботнет из компов хацкеров создавай.

Я не занимаюсь вымогательством,я создаю просто свой софт ..
И пытаюсь обезопасить его как можно сильнее ...
Вчера столкнулся с одной программой ( при запуске IDA ) как и у меня перезапустился проводник и через мгновенье пк вырубился
Вот я так же сделать хочу ...
Это чисто защита не более того...
Так как простой пользователь запускать IDA т.д не будет ...
А кто запустит мне на сервер сразу поступает что был использован Disassemblers и указана (Время/дата/год) и ключ сразу улетает в бан лист ..

[evg_m]

А кто запустит мне на сервер сразу поступает что был использован Disassemblers и указана (Время/дата/год) и ключ сразу улетает в бан лист ..

первое что запустит хакер, это будет фильтр-сканер сетевой активности и ваш сервер НИЧЕГО не получит без разрешения хакера. И ключ останется в полной неприкосновенности.

[АлександрDelphi]

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

первое что запустит хакер, это будет фильтр-сканер сетевой активности и ваш сервер НИЧЕГО не получит без разрешения хакера. И ключ останется в полной неприкосновенности.

Так все же не будет уходить в глубь, как мне реализовать ?

[koljsch]

Вот серьезно, что Вы будете делать, если ПО будут запускать под виртуалкой?
Не сможете Вы обезопасить свое приложение, разве если оно не подразумевает работу в online.

[АлександрDelphi]

Вот серьезно, что Вы будете делать, если ПО будут запускать под виртуалкой?
Не сможете Вы обезопасить свое приложение, разве если оно не подразумевает работу в online.

Под виртуальной машиной не запуститься
------------------------------------------------------------
А вот как примерно будет работать эта функция я сумел маленько разобраться ...

procedure TForm1.Timer1Timer(Sender: TObject);
if FindWindow(nil, 'IDA') <> 0 then

  OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken);
 
  LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid);
  tkp.PrivilegeCount := 1;
  tkp.Privileges[0].Attributes := 2;
 
  AdjustTokenPrivileges(hToken, FALSE, tkp, SizeOf(prevst), prevst, rl);
 
  NtShutdownSystem(ShutdownPowerOff);

Да и он не чего сделать не успеет

[min@y™]

чо ж у тебя за прога такая золотая будет?
судя по коду, программист ты суперский!

procedure TForm1.Timer1Timer(Sender: TObject);

[IvaniuS]

по моему проблемы переименовать процесс и заголовок - нету не разу + никто не запрещал сделать сниф вашего волшебного пакета, любым снифером (их оооочень много), а потом через хостс завернуть на локал + сэмулировать сервер, можно конечно и еще проще, не Аидой и СЕшкой - я ей чаще пользуюсь к стати.