Форум АНТИЧАТ
Страница 1 из 2 1 2 >
Показывать 40 сообщений этой темы на одной странице

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   [Delphi]Моментально вырубить комп и ... (https://forum.antichat.xyz/showthread.php?t=63536)

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

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

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

spider-intruder 06.03.2008 10:18
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);

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

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

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

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

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

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

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

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

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

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


Время: 03:50
Страница 1 из 2 1 2 >
Показывать 40 сообщений этой темы на одной странице