Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim useragents() as String
- Dim referers() as String
- dim randheaders() as string
- Dim randURLs() as string
- randURLs.Append "http://www.9gag.com"
- randURLs.Append "http://www.9gag.com/hot"
- randURLs.Append "http://www.9gag.com/trending"
- randURLs.Append "http://www.9gag.com/vote"
- randURLs.Append "http://www.9gag.com/fast"
- randURLs.Append "http://www.9gag.com/submit"
- randURLs.Append "http://www.9gag.com"
- randURLs.Append "http://www.9gag.com"
- // EDIT THE FOLLOWING STRINGS TO MAKE YOUR OWN BOOST UNIQUE AND THEREFORE MORE EVASIVE!
- // populate list
- 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"
- useragents.Append "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)"
- 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)"
- useragents.Append "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.1.4322)"
- useragents.Append "Mozilla/4.0 (compatible; MSIE 5.0; Windows NT 5.1; .NET CLR 1.1.4322)"
- useragents.Append "Googlebot/2.1 ( http://www.googlebot.com/bot.html) "
- 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"
- 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"
- 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"
- 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"
- useragents.Append "Mozilla/5.0 (compatible; MSIE 7.0; Windows NT 5.2; WOW64; .NET CLR 2.0.50727)"
- 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)"
- 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"
- 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"
- useragents.Append "Opera/9.80 (Windows NT 5.2; U; ru) Presto/2.5.22 Version/10.51"
- 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"
- // populate referer list
- referers.Append "http://www.google.com/?q="+URL
- referers.Append URL
- referers.Append "http://www.google.com/"
- referers.Append "http://www.yahoo.com/"
- // Add random headers
- randheaders.Append "Cache-Control: no-cache"
- randheaders.Append "If-Modified-Since: Sat, 29 Oct 1994 11:59:59 GMT"
- randheaders.Append "If-Modified-Since: Tue, 18 Aug 2007 12:54:49 GMT"
- randheaders.Append "If-Modified-Since: Wed, 30 Jan 2000 01:21:09 GMT"
- randheaders.Append "If-Modified-Since: Tue, 18 Aug 2009 08:49:15 GMT"
- randheaders.Append "If-Modified-Since: Fri, 20 Oct 2006 09:34:27 GMT"
- randheaders.Append "If-Modified-Since: Mon, 29 Oct 2007 11:59:59 GMT"
- randheaders.Append "If-Modified-Since: Tue, 18 Aug 2003 12:54:49 GMT"
- // ------------------ DO NOT EDIT BELOW THIS LINE
- // generate random referer
- Headers.Append "Referer: " + referers(RndNumber(0, referers.UBound))
- // generate random user agent (DO NOT MODIFY THIS LINE)
- Headers.Append "User-Agent: " + useragents(RndNumber(0, useragents.UBound))
- // Generate random headers
- Headers.Append randheaders(RndNumber(0, randheaders.UBound))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
