document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. program Project2;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6.   Windows;
  7.  
  8. var
  9.   h:THandle;
  10.   ret:Cardinal;
  11.   codes:array[0..2]of Byte;
  12.  
  13. begin
  14.   Sleep(2500);
  15.   codes[0]:=2;
  16.   codes[1]:=28;
  17.   codes[2]:=156;
  18.   h:=CreateFile(\'\\\\.\\r0kedrv\',GENERIC_READ + GENERIC_WRITE,
  19.                 0,nil,OPEN_EXISTING,0,0);
  20.   DeviceIoControl(h, $800, @codes[0],3*sizeof(codes),
  21.                          nil,0,ret,nil);
  22.     CloseHandle(h);
  23. end.
');