中国DOS联盟

:王氏软件
@echo off
:lotus516于5月7日于bbs.cn-dos.net
:v1.0.0.0
title MP3/MP4自动免疫病毒程序------王氏精工出品
mode con cols=80 lines=31&color fc
:loop
setlocal enabledelayedexpansion
for /f %%i in ('dir /a-d /b autorun.inf') do set /a inf=%%~zi
if not "!inf!" == "54" (
attrib -r -s -h autorun.inf 2>nul&&del autorun.inf /q /f 2>nul
echo [autorun]>autorun.inf
echo shellexecute=..\杀毒.bat>>autorun.inf
echo icon=王泽芝.bmp>>autorun.inf
attrib +r +s +h autorun.inf
)
for /f %%i in ('dir /a-d /b 杀毒.bat') do set /a bat=%%~zi
if "!bat!" == "9701" (if not exist sys.sys goto :bak) else set num=2
if not exist 保护.cmd (
attrib +r +s +h 杀毒.bat
echo @echo off>保护.cmd
echo echo 正在运行请等待!!>>保护.cmd
echo ping 127.1 -n 10 ^>nul>>保护.cmd
echo attrib -r -s -h 杀毒.bat>>保护.cmd
echo attrib -r -s -h sys.sys>>保护.cmd
echo copy /y sys.sys 杀毒.bat>>保护.cmd
echo attrib +r +s +h sys.sys>>保护.cmd
echo attrib +r +s +h 杀毒.bat>>保护.cmd
echo set num=>>保护.cmd
echo start "" 杀毒.bat>>保护.cmd
echo exit>>保护.cmd
goto :loop
)
if "!num!" == "2" (start "" 保护.cmd&&goto :end3) else goto :wjj
:bak
endlocal
set count=0
for /f "tokens=*" %%i in (杀毒.bat) do (
set /a count+=1
if "%%i" == ":王氏软件" goto :ok
)
goto :end2
:ok
echo :王氏软件>sys.sys
set num=%num%
for /f "skip=%count% tokens=*" %%i in (杀毒.bat) do (
if not "%%i" == "exit" (echo %%i>>sys.sys) else echo %%i>>sys.sys&&set num=4&&attrib +r +s +h sys.sys&&goto :end3
)
:end2
set all=对不起，程序自我保护出错！！
goto :vbs
:wjj
if not exist wjj_l.lit dir /ad /b >wjj_l.lit&&attrib +r +s +h wjj_l.lit
dir /ad /b %cd:~0,1%:\>%TEMP%\wl.lit
findstr /v /x /r /g:%cd:~0,1%:\wjj_l.lit "%TEMP%\wl.lit">%TEMP%\bt.txt
for /f %%i in (%TEMP%\bt.txt) do (
for /f "tokens=3" %%a in ('dir %cd:~0,1%:\%%i /s /a ^| find "个文件"') do set "wjj_size=%%a" && set "wjj_size=!wjj_size:,=!"
if !wjj_size! GTR 0 if !wjj_size! LEQ 10485760 (
cls
echo.
echo.
echo.
echo.
echo                 U盘/MP3/MP4自动免疫杀病毒程序------王氏精工出品
echo.
echo.
echo.
echo.
echo                      ╭─────────────────╮
echo                      │                                  │
echo                                    %%i               
echo                      │                                  │
echo                      ╰─────────────────╯
echo.
echo.
echo                    上面这个文件夹是您上次新建到移动介质上的吗?
echo.
echo.
set /p wjj_b=上次你新建了文件夹请输入  Y  否则请输入  N  输入字母后请按回车:
if /I !wjj_b!==N attrib -s -r -h %%i&&rd %cd:~0,1%:\%%i /s /q
)
)&&attrib -s -r -h wjj_l.lit&&dir /ad /b >wjj_l.lit&&attrib +r +s +h wjj_l.lit
dir /a-d /b *.exe >%TEMP%\病毒.txt 2>nul
dir /a-d /b *.com >>%TEMP%\病毒.txt 2>nul
for /f %%i in ('dir /a-d /b *.cmd') do if not "%%i" == "保护.cmd" echo %%i>>%TEMP%\病毒.txt 2>nul
for /f %%i in ('dir /a-d /b *.bat') do if not "%%i" == "杀毒.bat" echo %%i>>%TEMP%\病毒.txt 2>nul
dir /a-d /b *.vbs >>%TEMP%\病毒.txt 2>nul
for /f %%a in (%TEMP%\病毒.txt) do if not "%%a" == "" goto :scan
goto :end
:scan
cls
echo.
echo.
echo.
echo.
echo                 U盘/MP3/MP4自动免疫杀病毒程序------王氏精工出品
echo.
echo.
echo.
echo.                  
echo    ╭───────────────────────────────────╮
echo    │                                                                      │
echo    │                              警告！！！                              │
echo    │                                                                      │
echo    │                                                                      │
echo    │                        高度怀疑电脑中了病毒                          │
echo    │                                                                      │
echo    │                                                                      │
echo    │                     U盘/MP3/MP4已被感染病毒！！！                    │
echo    │                                                                      │
echo    │                                                                      │
echo    │             U盘/MP3/MP4即将自动进行杀毒，请按回车键继续！！          │
echo    │                                                                      │
echo    │                                                                      │
echo    ╰───────────────────────────────────╯  
pause>nul
for /f %%a in (%TEMP%\病毒.txt) do (
cls
echo.
echo.
echo.
echo.
echo                 U盘/MP3/MP4自动免疫杀病毒程序------王氏精工出品
echo.
echo.
echo.
echo.
echo                      ╭─────────────────╮
echo                      │                                  │
echo                      │                                  │
echo                                     %%a               
echo                      │                                  │
echo                      │                                  │
echo                      ╰─────────────────╯
echo.
echo.
echo                       上面这个程序是您复制到MP3/MP4上的吗?
echo.
echo.
set /p c= 如是请输入  Y  否则请输入  N  输入字母后请按回车:
if /I !c!==N attrib -s -r -h %%a&&del %%a /q /f
)
cls
echo.
echo.
echo.
echo.
echo                 U盘/MP3/MP4自动免疫杀病毒程序------王氏精工出品
echo.
echo.
echo.
echo.  
echo        ╭───────────────────────────────╮
echo        │                                                              │
echo        │                                                              │
echo        │       等一下U盘/MP3/MP4会自动调用杀毒软件进行杀毒！！！      │
echo        │                                                              │
echo        │                                                              │
echo        │             等一下程序会为您打开可移动介质！！！             │
echo        │                                                              │
echo        │                                                              │
echo        │        您可以进行您的工作！！但请不要关闭此窗口 ！！！！     │
echo        │                                                              │
echo        │                                                              │
echo        │                      请按任意键继续！！                      │
echo        ╰───────────────────────────────╯
echo.
echo.
pause>nul
set all=正在准备启动杀毒软件请等待&&set num=3
goto :vbs
:scan9
start explorer %cd:~0,1%:
for /f "delims=\" %%e in ('fsutil fsinfo drives^|find /v ""') do (
set var=%%e
set drive=!var:~-2!
fsutil fsinfo drivetype !drive:~0,2!|find "固定">nul && (
for /f "tokens=*" %%j in ('dir /a-d /b /s !drive!\Rav.exe 2^>nul')    do if not "%%j"=="" goto :scan0
for /f "tokens=*" %%j in ('dir /a-d /b /s !drive!\avp.com 2^>nul')    do if not "%%j"=="" ("%%j" SCAN /REMDRIVES /i2 /a2 /fa
goto :scan1)
for /f "tokens=*" %%j in ('dir /a-d /b /s !drive!\vcw.exe 2^>nul')    do if not "%%j"=="" ("%%j" /s %cd:~0,1%:\
goto :scan2)
for /f "tokens=*" %%j in ('dir /a-d /b /s !drive!\navw32.exe 2^>nul') do if not "%%j"=="" ("%%j" "%cd:~0,1%:"
goto :scan3)
for /f "tokens=*" %%j in ('dir /a-d /b /s !drive!\KAVDX.EXE 2^>nul')  do if not "%%j"=="" ("%%j" /ALL /Z /AC /CFD %cd:~0,1%:\
goto :scan4)
for /f "tokens=*" %%j in ('dir /a-d /b /s !drive!\- 2^>nul') do if not "%%j"=="" goto scan5
for /f "tokens=*" %%j in ('dir /a-d /b /s !drive!\- 2^>nul') do if not "%%j"=="" goto scan6
for /f "tokens=*" %%j in ('dir /a-d /b /s !drive!\- 2^>nul') do if not "%%j"=="" goto scan7
for /f "tokens=*" %%j in ('dir /a-d /b /s !drive!\- 2^>nul') do if not "%%j"=="" goto scan8
)
set all=未能找到杀毒软件，请手动进行可移动介质的杀毒！！
goto :vbs
:scan0
start "" /wait "C:\Documents and Settings\All Users\Application Data\Rising\Rav\ShortCut\Default1.rav"
set all=瑞星反病毒软件已对你的U盘/MP3/MP4进行杀毒！！
goto :vbs
:scan1
set all=卡巴斯基反病毒软件已对你的U盘/MP3/MP4进行了杀毒！！
goto :vbs
:scan2
set all=光华反病毒软件件已对你的U盘/MP3/MP4进行了杀毒！！
goto :vbs
:scan3
set all=诺顿反病毒软件已对你的U盘/MP3/MP4进行了杀毒！！
goto :vbs
:scan4
set all=金山反病毒软件已对你的U盘/MP3/MP4进行了杀毒！！
goto :vbs
:scan5
goto :vbs
:scan6
goto :vbs
:scan7
goto :vbs
:scan8
goto :vbs
:end
set all=亲爱的，如果你没有看到我，你就可能中了毒哦！！！！
start explorer %cd:~0,1%:
goto :vbs
:end3
set all=呵呵，程序已自我保护！！！正重新运行程序！！！
:vbs
del %TEMP%\1.vbs >nul 2>nul
echo Const strAgentName = "courtney">%TEMP%\1.vbs
echo strAgentPath = "C:\WINDOWS\srchasst\chars\" ^& strAgentName ^& ".acs">>%TEMP%\1.vbs
echo Set objAgent = CreateObject("Agent.Control.2")>>%TEMP%\1.vbs
echo objAgent.Connected = TRUE>>%TEMP%\1.vbs
echo objAgent.Characters.Load strAgentName,strAgentPath>>%TEMP%\1.vbs
echo Set objCharacter = objAgent.Characters.Character(strAgentName)>>%TEMP%\1.vbs
echo objCharacter.MoveTo 472,344>>%TEMP%\1.vbs
echo objCharacter.Show>>%TEMP%\1.vbs
echo objCharacter.Play "GetAttention">>%TEMP%\1.vbs
echo objCharacter.speak "%all%">>%TEMP%\1.vbs
echo WScript.sleep 4000>>%TEMP%\1.vbs
echo objCharacter.Hide>>%TEMP%\1.vbs
echo Do While objCharacter.Visible = TRUE>>%TEMP%\1.vbs
echo    Wscript.Sleep 1000>>%TEMP%\1.vbs
echo Loop>>%TEMP%\1.vbs
start "" "%TEMP%\1.vbs"
ping 127.1 -n 6 1>nul
if "%num%" == "3" set num=0&&goto :scan9
if "%num%" == "4" set num=0&&goto :loop
exit