ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование_OLD > С/С++, C#, Delphi, .NET, Asm
   
 
 
Опции темы Поиск в этой теме Опции просмотра

[Delphi]Моментально вырубить комп и ...
  #1  
Старый 06.03.2008, 08:56
Mob-X
Новичок
Регистрация: 05.03.2008
Сообщений: 8
Провел на форуме:
114155

Репутация: 0
Question [Delphi]Моментально вырубить комп и ...

Итак нужно в Delphi сделать так так чтоб по нажатию кнопки комп вырубался мгновенно (как при нажатии reset на системном блоке, тока без последующей перезагрузки), а не как через пуск - выключить, так шо shutdown и ewx_force не годятся.

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

Знаю мож такие темы были но нет времени читать, ответьте, плиз!
 

  #2  
Старый 06.03.2008, 10:18
spider-intruder
Постоянный
Регистрация: 10.12.2005
Сообщений: 939
Провел на форуме:
3886281

Репутация: 929


Отправить сообщение для spider-intruder с помощью ICQ
По умолчанию

1)
Напиши драйвер Я тебя уверяю что если по кнопке ты будешь его стартовать и при этом никогда их не писал - система упадет мгновенно :-) Добиться резета а не бсода тоже не так сложно...

2)
Приатачься к системному процесу и убей свой процес убив этим же и системный процесс.
3)
Код:
HANDLE hToken;
TOKEN_PRIVILEGES* NewState;
OpenProcessToken (GetCurrentProcess (), TOKEN_ADJUST_PRIVILEGES, &hToken);
 
 
 
 NewState = (TOKEN_PRIVILEGES*) malloc (sizeof (TOKEN_PRIVILEGES) + sizeof (LUID_AND_ATTRIBUTES));
 
 
 
 NewState->PrivilegeCount = 1;
 
 
 
 LookupPrivilegeValue (NULL, SE_SHUTDOWN_NAME, &NewState->Privileges[0].Luid);
 
 
 
 NewState->Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;
 
 
 
 AdjustTokenPrivileges (hToken, FALSE, NewState, NULL, NULL, NULL);
 
 
 
 free (NewState);
 
 
 
 CloseHandle (hToken);
 
 
 
 ExitWindowsEx (EWX_REBOOT, 0);

Последний раз редактировалось spider-intruder; 06.03.2008 в 10:35..
 

  #3  
Старый 06.03.2008, 11:16
krypt3r
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186

Репутация: 905


По умолчанию

Позаумней будет разработать внешний девайс для нажатия кнопки RESET, подключаемый, например, к усб компа, и драйвер, активно его юзающий. Ну и компонент или класс в делфи соорудить для доступа к сему девайсу. Вот тогда и можно будет обрабатывать событие OnClick класса TButton
 

  #4  
Старый 06.03.2008, 11:17
Xserg
Участник форума
Регистрация: 09.12.2006
Сообщений: 135
Провел на форуме:
426226

Репутация: 726
По умолчанию

Чтобы нажать кнопку ресет нужно выполнить в ring0:
mov al, $FE
out $64, al
а чтобы не перезагрузился предворительно запортить системные файлы.

все на Delphi:
http://forum.antichat.ru/thread42447.html

Последний раз редактировалось Xserg; 07.03.2008 в 10:35.. Причина: модератор контекст испортил
 

  #5  
Старый 06.03.2008, 11:23
x0man
Познающий
Регистрация: 24.02.2006
Сообщений: 34
Провел на форуме:
136883

Репутация: 50
По умолчанию

у меня ресетом является тупо...
Код:
xor eax, eax
mov [eax], eax
хотя говорят по идее BSOD Должен быть... хз...
 

  #6  
Старый 06.03.2008, 11:26
sandalwood
Banned
Регистрация: 13.01.2008
Сообщений: 22
Провел на форуме:
240245

Репутация: 37
По умолчанию

http://bugtraq.ru/library/internals/shut.html
переделай на делфи [s]если ума хватит[/s]
 

  #7  
Старый 06.03.2008, 11:43
x0man
Познающий
Регистрация: 24.02.2006
Сообщений: 34
Провел на форуме:
136883

Репутация: 50
По умолчанию

Цитата:
Сообщение от sandalwood  
http://bugtraq.ru/library/internals/shut.html
переделай на делфи [s]если ума хватит[/s]
а у тя хватит? ))
 

  #8  
Старый 06.03.2008, 11:55
nerezus
Pagan Heart
Регистрация: 12.08.2004
Сообщений: 3,791
Провел на форуме:
6490435

Репутация: 2290


Отправить сообщение для nerezus с помощью ICQ
По умолчанию

Через Lpt-порт цепляешь реле на отключение.
 

  #9  
Старый 06.03.2008, 18:58
nc.STRIEM
Members of Antichat - Level 5
Регистрация: 05.04.2006
Сообщений: 1,066
Провел на форуме:
3493315

Репутация: 1228


Отправить сообщение для nc.STRIEM с помощью ICQ
По умолчанию

Цитата:
Сообщение от x0man  
у меня ресетом является тупо...
Код:
xor eax, eax
mov [eax], eax
хотя говорят по идее BSOD Должен быть... хз...
есле на ring0 то будет BSOD, есле просто, то ошибка выскачит.
Reset ты никак не имитируеш, разве что как нерезус сказал
 

  #10  
Старый 06.03.2008, 20:21
x0man
Познающий
Регистрация: 24.02.2006
Сообщений: 34
Провел на форуме:
136883

Репутация: 50
По умолчанию

Цитата:
Сообщение от nc.STRIEM  
есле на ring0 то будет BSOD, есле просто, то ошибка выскачит.
Reset ты никак не имитируеш, разве что как нерезус сказал
читаете вы между строк скажу я вам...
походу не достаточно дохотчиво объяснил...

я имел ввиду, что, у меня в ринг0 при
Код:
xor eax, eax
mov dword ptr [eax], eax
и других ошибках доступа, и т.д.
ресетится кампег, как после нажатия кнопочки ресет... никакого BSOD... =\\\
вам это понятно? или снять всё на камеру и выложить чтоб вы поняли окончательно... =\\\
 
 





Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ