| | | |
|
| DRKB online - Как повесить винду |
|
|
|
|
Как повесить винду
delphi | uses TLHelp32;
const
PROCESS_TERMINATE = $0001;
var
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
ContinueLoop: BOOL;
begin
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
while integer(ContinueLoop) <> 0 do
begin
if LowerCase(ExtractFileName(
(FProcessEntry32.szExeFile))) = 'kernel32.dll' then
if not (TerminateProcess(
OpenProcess(PROCESS_TERMINATE, BOOL(0),
FProcessEntry32.th32ProcessID), 0)) then
MessageBoxEx(Application.Handle,
'Can`t kill windows kernel...',
'Warning', MB_ICONWarning + MB_OK, $0419);
ContinueLoop := Process32(FSnapshotHandle, FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end; |
Автор: Nomadic
@Drkb::04646
Взято с http://delphiworld.narod.ru
Этот код можно использовать в языках высокого уровня (Delphi, C, ...), для этого воспользуйтесь правилами. Исходники примера можно взять здесь: Dos (Pascal 7.0), Win (Delphi 5).
WIN:
cli ;отключение внешних прерываний
@A: ;метка
jmp @A ;зацикливание
DOS:
cli ;отключение внешних прерываний
hlt ;выход из программы
@Drkb::04647 |
|
| Количество статей: 4366 |
|
|
|
|
Статистика |
| Сегодня | Всего |
Посетителей | 2387 | 4244937 |
Запросов | 39883 | 396674230 |
Online |
Пользователей | 0 |
Гостей | 211 |
|
|
|