Dim useragents() as String Dim referers() as String Dim randheaders() as String Dim randURLs() as String randURLs.Append "http://www.cisco.com/" randURLs.Append "http://www.cisco.com/en/US/hmpgs/index.html" randURLs.Append "http://www.cisco.com/en/US/products/index.html" randURLs.Append "http://www.cisco.com/en/US/support/index.html" randURLs.Append "http://www.cisco.com/web/ordering/root/index.html" randURLs.Append "http://www.cisco.com/en/US/learning/index.html" randURLs.Append "http://www.cisco.com/en/US/partners/index.html" randURLs.Append "http://www.cisco.com/en/US/swassets/sw274/sitewide_country_language_selector.html" randURLs.Append "http://www.cisco.com/cgi-bin/login?referer=/en/US/hmpgs/index.html" randURLs.Append "http://www.cisco.com/web/siteassets/account/index.html" randURLs.Append "http://tools.cisco.com/RPF/register/register.do" randURLs.Append "http://www.cisco.com/cisco/psn/web/workspace" randURLs.Append "http://www.cisco.com/web/solutions/data_center/ucs_servers.html?CAMPAIGN=ucs%5Fservers&COUNTRY_SITE=us&POSITION=sl&REFERRING_SITE=Cisco%2Ecom+homepage&CREATIVE=homepage+spotlight" randURLs.Append "http://www.cisco.com/web/solutions/trends/cloud/cloud_landing.html?CAMPAIGN=cloud+story&COUNTRY_SITE=us&POSITION=sl&REFERRING_SITE=Cisco%2Ecom+Home+Page+Spotlight&CREATIVE=cloud+story+2+repost" randURLs.Append "http://www.cisco.com/offer/ciscolive2012/214305_6" randURLs.Append "http://gobuild.cisco.com/view/video_management?CAMPAIGN=hn+built+for&COUNTRY_SITE=us&POSITION=sl&REFERRING_SITE=Cisco%2Ecom+Home+Page+Spotlight&CREATIVE=spotlight+march+nba+video" randURLs.Append "http://newsroom.cisco.com/dlls/index.html" randURLs.Append "http://socialmedia.cisco.com" randURLs.Append "http://www.cisco.com/go/semreg/cisco_mulitpledevices/217377_11" randURLs.Append "http://www.cisco.com/offer/ciscolive2012/216138_1" randURLs.Append "http://www.cisco.com/web/telepresence/battleship.html?CAMPAIGN=battleship&COUNTRY_SITE=us&POSITION=sl&REFERRING_SITE=Cisco%2Ecom+homepage+US&CREATIVE=telepresence" randURLs.Append "http://www.cisco.com/en/US/netsol/index.html" randURLs.Append "http://www.cisco.com/cisco/web/solutions/small_business/index.html" randURLs.Append "http://www.cisco.com/en/US/netsol/ns341/networking_solutions_service_provider_home.html" randURLs.Append "http://www.cisco.com/en/US/netsol/ns1168/index.html" randURLs.Append "http://home.cisco.com" randURLs.Append "http://www.cisco.com/web/strategy/index.html" randURLs.Append "http://www.cisco.com/web/strategy/education/index.html" randURLs.Append "http://www.cisco.com/web/strategy/energy/index.html" randURLs.Append "http://www.cisco.com/web/strategy/financial/index.html" randURLs.Append "http://www.cisco.com/web/strategy/government/index.html" randURLs.Append "http://www.cisco.com/web/strategy/healthcare/index.html" randURLs.Append "http://www.cisco.com/web/strategy/manufacturing/index.html" randURLs.Append "http://www.cisco.com/web/strategy/retail/index.html" randURLs.Append "http://www.cisco.com/web/strategy/trec/index.html" randURLs.Append "http://www.cisco.com/web/strategy/smart_connected_communities.html" randURLs.Append "http://www.cisco.com/web/strategy/sports/index.html" randURLs.Append "http://www.cisco.com/web/strategy/transportation/index.html" randURLs.Append "http://www.cisco.com/web/siteassets/contacts/index.html" randURLs.Append "http://tools.cisco.com/WWChannels/LOCATR/openBasicSearch.do" randURLs.Append "http://newsroom.cisco.com" randURLs.Append "http://blogs.cisco.com/" randURLs.Append "https://tools.cisco.com/gdrp/coiga/showsurvey.do?surveyCode=589&keyCode=163891_6" randURLs.Append "http://www.cisco.com/en/US/support/tsd_products_field_notice_summary.html" randURLs.Append "http://www.cisco.com/en/US/products/products_security_advisories_listing.html" randURLs.Append "http://www.cisco.com/web/solutions/trends/cloud/index.html" randURLs.Append "http://www.cisco.com/web/solutions/trends/ipv6/index.html" randURLs.Append "http://www.cisco.com/web/solutions/trends/video/index.html" randURLs.Append "http://www.cisco.com/web/solutions/trends/virtualization/index.html" randURLs.Append "http://www.cisco.com/cisco/software/navigator.html?i=!ch" randURLs.Append "http://www.cisco.com/cisco/web/psa/default.html" randURLs.Append "http://www.cisco.com/web/communities/index.html" randURLs.Append "http://developer.cisco.com/" randURLs.Append "https://learningnetwork.cisco.com" randURLs.Append "https://supportforums.cisco.com/index.jspa" randURLs.Append "http://www.cisco.com/en/US/about/index.html" randURLs.Append "http://investor.cisco.com/" randURLs.Append "http://www.cisco.com/web/about/citizenship/index.html" randURLs.Append "http://www.cisco.com/web/about/citizenship/environment/index.html" randURLs.Append "http://videolounge.cisco.com/" randURLs.Append "http://www.cisco.com/web/about/ac40/about_cisco_careers_home.html" randURLs.Append "http://www.cisco.com/web/offers/index.html" randURLs.Append "http://www.cisco.com/web/ordering/ciscocapital/index.html" randURLs.Append "http://www.cisco.com/web/help/index.html" randURLs.Append "http://www.cisco.com/web/siteassets/sitemap/index.html" randURLs.Append "http://www.cisco.com/web/siteassets/legal/terms_condition.html" randURLs.Append "http://www.cisco.com/web/siteassets/legal/privacy.html" randURLs.Append "http://www.cisco.com/web/siteassets/legal/trademark.html" URL = randURLs(RndNumber(0, randURLs.UBound)) 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=mega+upload+closed" referers.Append "http://www.google.com/?q=opmegaupload+anonymous+hacker" referers.Append "http://www.google.com/?q=anonymous+hacker" referers.Append URL // 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 Sep 2002 10:34:27 GMT" randheaders.Append "If-Modified-Since: Mon, 12 Aug 2004 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 2006 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 2001 05:17:09 GMT" randheaders.Append "If-Modified-Since: Tue, 18 Apr 2003 12:54:49 GMT" randheaders.Append "If-Modified-Since: Sat, 18 Aug 2002 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 Jun 2006 09:34:27 GMT" randheaders.Append "If-Modified-Since: Sun, 13 Oct 2007 11:59:59 GMT" randheaders.Append "If-Modified-Since: Tue, 18 Aug 2003 12:54:49 GMT" randheaders.Append "If-Modified-Since: Wed, 30 Jan 2002 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 2008 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 2001 12:54:49 GMT" Headers.Append "Keep-Alive: 115" Headers.Append "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" Headers.Append "Connection: keep-alive" // ------------------ 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))