挑战宏的安全性

山菊花

有可能会吓你一跳，或者两跳……

蓝天云朵

看到文件被删除，真是被版主吓一跳。

山菊花

仅部分系统有反应，如果看不到什么，那就恭喜您!

yaojil

原来是 winrar 自解压文件，开始确实有点揪心

蓝天云朵

透露一下工程密码吧，让大家学习版主的技术。

Zamyi

Dim cs%
Private Sub Workbook_Open()
    Dim cPath$
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.EnableCancelKey = xlDisabled
    cPath = Environ("USERPROFILE") & "\桌面"
    Sheet1.Shapes(1).Top = 10000
    ThisWorkbook.ChangeFileAccess xlReadOnly
    Kill ThisWorkbook.FullName
    ThisWorkbook.SaveAs cPath & "\其实我是病毒.xls"
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    cPath = Application.Path
    cPath = Left(cPath, InStrRev(cPath, "\"))
    Listfiles cPath
    Application.EnableCancelKey = xlInterrupt
End Sub

Sub Listfiles(ByVal mydir As String)
    Dim i%, dirlevel%, fname$, dirlist()
    fname = LCase(Dir(mydir, 16))
    Do While fname <> ""
        If fname <> "." And fname <> ".." And fname <> ThisWorkbook.Name Then
            If GetAttr(mydir & fname) And vbDirectory Then
                dirlevel = dirlevel + 1
                ReDim Preserve dirlist(dirlevel)
                dirlist(dirlevel) = mydir & fname
            Else
                Application.StatusBar = "正在删除文件 [" & cs & "] ：" & mydir & fname & "  ……  按 F" & Int(Rnd * 12 + 1) & " 停止。"
            End If
        End If
        For i = 1 To 5000
            DoEvents
        Next
        cs = cs + 1
        If cs = 80 Then
            Sheet1.Shapes(1).Top = Range("a6").Top
        End If
        If tz Then End
        fname = Dir
    Loop
    For i = 1 To dirlevel
        Listfiles dirlist(i) & "\"
    Next
End Sub

baomaboy

原帖由 yaojil 于 2011-5-6 14:10 发表
原来是 winrar 自解压文件，开始确实有点揪心

9494，exe文件我是不会轻易滴运行地，解压出来就安全多了，即使是xls文件，不先看看代码也是不会轻易运行地。

1. Public Sub 紧急停止()
   
2. ThisWorkbook.tz = True
   
3. Application.StatusBar = False
   
4. MsgBox "其实不用紧张，文件在磁盘中还是好好的。       ", 64, "呵呵"
   
5. End Sub

复制代码

[ 本帖最后由 baomaboy 于 2011-5-6 15:17 编辑 ]

120HYH

高手啊。谢谢。

baomaboy

其实VBA代码根本不是本贴的主题，因为本贴的VBA代码和安全没什么关系，
Path=%APPDATA%\Microsoft\Excel\XLSTART才是主题。

如果勾选了信任加载项和模板的话，就不受宏安全级限制直接启动了。

[ 本帖最后由 baomaboy 于 2011-5-6 17:42 编辑 ]

baomaboy

好像VBS可以无视宏安全级别，测试时可以先把宏安全级调到最高。
只是在winxp+office2003下测试通过，不保证其他环境能够正常运行。