SHARE
TWEET

Untitled

a guest Jul 21st, 2012 867 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Dim useragents() as String
  2. Dim referers() as String
  3. Dim randheaders() as String
  4. Dim randURLs() as String
  5.  
  6. randURLs.Append "http://www.london2012.com/cookies-policy/"
  7. randURLs.Append "http://www.london2012.com/bsl/"
  8. randURLs.Append "http://www.london2012.com/easyread/"
  9. randURLs.Append "http://fr.london2012.com/fr/"
  10. randURLs.Append "http://www.london2012.com/schedule-and-results/"
  11. randURLs.Append "http://www.london2012.com/schedule-and-results/index.html"
  12. randURLs.Append "http://www.london2012.com/schedule-and-results/day=25-july/"
  13. randURLs.Append "http://www.london2012.com/schedule-and-results/day=25-july/list.html/"
  14. randURLs.Append "http://www.london2012.com/medals/"
  15. randURLs.Append "http://www.london2012.com/torch-relay/"
  16. randURLs.Append "http://www.london2012.com/sports/"
  17. randURLs.Append "http://www.london2012.com/athletics/"
  18. randURLs.Append "http://www.london2012.com/athletics/event/men-shot-put/phase=atm051900/index.html"
  19. randURLs.Append "http://www.london2012.com/news/articles/athletics-competition-promises-light-the-olympic-stadium.html"
  20. randURLs.Append "http://www.london2012.com/badminton/"
  21. randURLs.Append "http://www.london2012.com/athlete/culson-javier-1101337/"
  22. randURLs.Append "http://www.london2012.com/fencing/"
  23. randURLs.Append "http://www.london2012.com/gymnastics-rhythmic/"
  24. randURLs.Append "http://www.london2012.com/modern-pentathlon/"
  25. randURLs.Append "http://www.london2012.com/hockey/"
  26. randURLs.Append "http://www.london2012.com/judo/"
  27. randURLs.Append "http://www.london2012.com/rowing/"
  28. randURLs.Append "http://www.london2012.com/swimming/"
  29. randURLs.Append "http://www.london2012.com/join-in/"
  30. randURLs.Append "http://www.london2012.com/join-in/whats-on/"
  31. randURLs.Append "http://www.london2012.com/join-in/live-sites/"
  32. randURLs.Append "http://www.london2012.com/join-in/live-sites/site=birmingham/"
  33. randURLs.Append "http://www.london2012.com/join-in/live-sites/site=bradford/"
  34. randURLs.Append "http://www.london2012.com/volleyball/"
  35. randURLs.Append "http://www.london2012.com/volleyball/photos/"
  36. randURLs.Append "http://www.london2012.com/media-centre/latest/"
  37. randURLs.Append "http://www.london2012.com/media-centre/article=day-gymnast-nadia-comaneci-and-former-basketball-player-john-amaechi-take-the-olympic-flame-the-roof-the-north-greenwich-arena.html"
  38. randURLs.Append "http://www.london2012.com/media-centre/torch-accreditation/"
  39. randURLs.Append "http://www.london2012.com/media-centre/torch-accreditation/article=torch-accreditation-week.html"
  40. randURLs.Append "http://www.london2012.com/spectators/"
  41. randURLs.Append "http://www.london2012.com/handball/"
  42. randURLs.Append "http://www.london2012.com/photos/sport-galleries/discipline=diving/pictures.html#action-from-the-diving-test-event"
  43. randURLs.Append "http://www.london2012.com/cycling-mountain-bike/index.html"
  44. randURLs.Append "http://www.london2012.com/cycling-mountain-bike/about/index.html"
  45. randURLs.Append "http://www.london2012.com/beach-volleyball/index.html"
  46. randURLs.Append "http://www.london2012.com/terms-of-use/"
  47. randURLs.Append "http://www.london2012.com/privacy-policy/"
  48. randURLs.Append "http://www.london2012.com/about-us/inspire/inspire-programme/"
  49. randURLs.Append "http://www.london2012.com/synchronized-swimming/index.html"
  50. randURLs.Append "http://www.london2012.com/synchronized-swimming/news/"
  51. randURLs.Append "http://www.london2012.com/wrestling/index.html"
  52. randURLs.Append "http://www.london2012.com/wrestling/event/men-greco-roman-74kg/phase=wrm174500/index.html"
  53. randURLs.Append "http://www.london2012.com/wrestling/event/men-greco-roman-74kg/phase=wrm174250/index.html"
  54. randURLs.Append "http://www.london2012.com/badminton/"
  55. randURLs.Append "http://www.london2012.com/badminton/"
  56.  
  57.  
  58.  
  59.   URL =  randURLs(RndNumber(0, randURLs.UBound))
  60.  
  61.  
  62. useragents.Append "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-GB; rv:1.8.1.6) Gecko/20070725 Firefox/2.0.0.6"
  63. useragents.Append "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)"
  64. useragents.Append "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 3.0.04506.30)"
  65. useragents.Append "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.1.4322)"
  66. useragents.Append "Mozilla/4.0 (compatible; MSIE 5.0; Windows NT 5.1; .NET CLR 1.1.4322)"
  67. useragents.Append "Googlebot/2.1 ( http://www.googlebot.com/bot.html) "
  68. useragents.Append "Mozilla/5.0 (Windows; U; Windows NT 6.0; en-US) AppleWebKit/534.14 (KHTML, like Gecko) Chrome/9.0.601.0 Safari/534.14"
  69. useragents.Append "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US) AppleWebKit/534.14 (KHTML, like Gecko) Chrome/9.0.600.0 Safari/534.14"
  70. useragents.Append "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US) AppleWebKit/534.13 (KHTML, like Gecko) Chrome/9.0.597.0 Safari/534.13"
  71. useragents.Append "Mozilla/5.0 (X11; U; Linux x86_64; en-US) AppleWebKit/534.13 (KHTML, like Gecko) Ubuntu/10.04 Chromium/9.0.595.0 Chrome/9.0.595.0 Safari/534.13"
  72. useragents.Append "Mozilla/5.0 (compatible; MSIE 7.0; Windows NT 5.2; WOW64; .NET CLR 2.0.50727)"
  73. useragents.Append "Mozilla/5.0 (compatible; MSIE 8.0; Windows NT 5.2; Trident/4.0; Media Center PC 4.0; SLCC1; .NET CLR 3.0.04320)"
  74. useragents.Append "Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_5_8; zh-cn) AppleWebKit/533.18.1 (KHTML, like Gecko) Version/5.0.2 Safari/533.18.5"
  75. useragents.Append "Mozilla/5.0 (Windows; U; Windows NT 6.1; es-ES) AppleWebKit/533.18.1 (KHTML, like Gecko) Version/5.0 Safari/533.16"
  76. useragents.Append "Opera/9.80 (Windows NT 5.2; U; ru) Presto/2.5.22 Version/10.51"
  77. useragents.Append "Mozilla/5.0 (Windows NT 5.1; U; Firefox/5.0; en; rv:1.9.1.6) Gecko/20091201 Firefox/3.5.6 Opera 10.53"
  78.  
  79. // populate referer list
  80.  
  81. referers.Append "http://www.google.com/?q=mega+upload+closed"
  82. referers.Append "http://www.google.com/?q=opmegaupload+anonymous+hacker"
  83. referers.Append "http://www.google.com/?q=anonymous+hacker"
  84. referers.Append URL
  85.  
  86. randURLs.Append "http://www.london2012.com/cookies-policy/"
  87. randURLs.Append "http://www.london2012.com/bsl/"
  88. randURLs.Append "http://www.london2012.com/easyread/"
  89. randURLs.Append "http://fr.london2012.com/fr/"
  90. randURLs.Append "http://www.london2012.com/schedule-and-results/"
  91. randURLs.Append "http://www.london2012.com/schedule-and-results/index.html"
  92. randURLs.Append "http://www.london2012.com/schedule-and-results/day=25-july/"
  93. randURLs.Append "http://www.london2012.com/schedule-and-results/day=25-july/list.html/"
  94. randURLs.Append "http://www.london2012.com/medals/"
  95. randURLs.Append "http://www.london2012.com/torch-relay/"
  96. randURLs.Append "http://www.london2012.com/sports/"
  97. randURLs.Append "http://www.london2012.com/athletics/"
  98. randURLs.Append "http://www.london2012.com/athletics/event/men-shot-put/phase=atm051900/index.html"
  99. randURLs.Append "http://www.london2012.com/news/articles/athletics-competition-promises-light-the-olympic-stadium.html"
  100. randURLs.Append "http://www.london2012.com/badminton/"
  101. randURLs.Append "http://www.london2012.com/athlete/culson-javier-1101337/"
  102. randURLs.Append "http://www.london2012.com/fencing/"
  103. randURLs.Append "http://www.london2012.com/gymnastics-rhythmic/"
  104. randURLs.Append "http://www.london2012.com/modern-pentathlon/"
  105. randURLs.Append "http://www.london2012.com/hockey/"
  106. randURLs.Append "http://www.london2012.com/judo/"
  107. randURLs.Append "http://www.london2012.com/rowing/"
  108. randURLs.Append "http://www.london2012.com/swimming/"
  109. randURLs.Append "http://www.london2012.com/join-in/"
  110. randURLs.Append "http://www.london2012.com/join-in/whats-on/"
  111. randURLs.Append "http://www.london2012.com/join-in/live-sites/"
  112. randURLs.Append "http://www.london2012.com/join-in/live-sites/site=birmingham/"
  113. randURLs.Append "http://www.london2012.com/join-in/live-sites/site=bradford/"
  114. randURLs.Append "http://www.london2012.com/volleyball/"
  115. randURLs.Append "http://www.london2012.com/volleyball/photos/"
  116. randURLs.Append "http://www.london2012.com/media-centre/latest/"
  117. randURLs.Append "http://www.london2012.com/media-centre/article=day-gymnast-nadia-comaneci-and-former-basketball-player-john-amaechi-take-the-olympic-flame-the-roof-the-north-greenwich-arena.html"
  118. randURLs.Append "http://www.london2012.com/media-centre/torch-accreditation/"
  119. randURLs.Append "http://www.london2012.com/media-centre/torch-accreditation/article=torch-accreditation-week.html"
  120. randURLs.Append "http://www.london2012.com/spectators/"
  121. randURLs.Append "http://www.london2012.com/handball/"
  122. randURLs.Append "http://www.london2012.com/photos/sport-galleries/discipline=diving/pictures.html#action-from-the-diving-test-event"
  123. randURLs.Append "http://www.london2012.com/cycling-mountain-bike/index.html"
  124. randURLs.Append "http://www.london2012.com/cycling-mountain-bike/about/index.html"
  125. randURLs.Append "http://www.london2012.com/beach-volleyball/index.html"
  126. randURLs.Append "http://www.london2012.com/terms-of-use/"
  127. randURLs.Append "http://www.london2012.com/privacy-policy/"
  128. randURLs.Append "http://www.london2012.com/about-us/inspire/inspire-programme/"
  129. randURLs.Append "http://www.london2012.com/synchronized-swimming/index.html"
  130. randURLs.Append "http://www.london2012.com/synchronized-swimming/news/"
  131. randURLs.Append "http://www.london2012.com/wrestling/index.html"
  132. randURLs.Append "http://www.london2012.com/wrestling/event/men-greco-roman-74kg/phase=wrm174500/index.html"
  133. randURLs.Append "http://www.london2012.com/wrestling/event/men-greco-roman-74kg/phase=wrm174250/index.html"
  134. randURLs.Append "http://www.london2012.com/badminton/"
  135. randURLs.Append "http://www.london2012.com/badminton/"
  136.  
  137. // Add random headers
  138. randheaders.Append "Cache-Control: no-cache"
  139. randheaders.Append "If-Modified-Since: Sat, 29 Oct 1994 11:59:59 GMT"
  140. randheaders.Append "If-Modified-Since: Tue, 18 Sep 2002 10:34:27 GMT"
  141. randheaders.Append "If-Modified-Since: Mon, 12 Aug 2004 12:54:49 GMT"
  142. randheaders.Append "If-Modified-Since: Wed, 30 Jan 2000 01:21:09 GMT"
  143. randheaders.Append "If-Modified-Since: Tue, 18 Aug 2006 08:49:15 GMT"
  144. randheaders.Append "If-Modified-Since: Fri, 20 Oct 2006 09:34:27 GMT"
  145. randheaders.Append "If-Modified-Since: Mon, 29 Oct 2001 05:17:09 GMT"
  146. randheaders.Append "If-Modified-Since: Tue, 18 Apr 2003 12:54:49 GMT"
  147. randheaders.Append "If-Modified-Since: Sat, 18 Aug 2002 12:54:49 GMT"
  148. randheaders.Append "If-Modified-Since: Wed, 30 Jan 2000 01:21:09 GMT"
  149. randheaders.Append "If-Modified-Since: Tue, 18 Aug 2009 08:49:15 GMT"
  150. randheaders.Append "If-Modified-Since: Fri, 20 Jun 2006 09:34:27 GMT"
  151. randheaders.Append "If-Modified-Since: Sun, 13 Oct 2007 11:59:59 GMT"
  152. randheaders.Append "If-Modified-Since: Tue, 18 Aug 2003 12:54:49 GMT"
  153. randheaders.Append "If-Modified-Since: Wed, 30 Jan 2002 01:21:09 GMT"
  154. randheaders.Append "If-Modified-Since: Tue, 18 Aug 2009 08:49:15 GMT"
  155. randheaders.Append "If-Modified-Since: Fri, 20 Oct 2008 09:34:27 GMT"
  156. randheaders.Append "If-Modified-Since: Mon, 29 Oct 2007 11:59:59 GMT"
  157. randheaders.Append "If-Modified-Since: Tue, 18 Aug 2001 12:54:49 GMT"
  158.  
  159. Headers.Append "Keep-Alive: 115"
  160. Headers.Append "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7"
  161. Headers.Append "Connection: keep-alive"
  162.  
  163. // ------------------ DO NOT EDIT BELOW THIS LINE
  164.  
  165. // generate random referer
  166. Headers.Append "Referer: " + referers(RndNumber(0, referers.UBound))
  167. // generate random user agent (DO NOT MODIFY THIS LINE)
  168. Headers.Append "User-Agent: " + useragents(RndNumber(0, useragents.UBound))
  169. // Generate random headers
  170. Headers.Append randheaders(RndNumber(0, randheaders.UBound))
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top