Dim useragents() as String
Dim referers() as String
Dim randheaders() as String
Dim randURLs() as String
randURLs.Append "http://www.dot.gov.in/objective.htm" 
randURLs.Append "http://www.dot.gov.in/message.htm" 
randURLs.Append "http://www.dot.gov.in/profile.htm" 
randURLs.Append "http://www.dot.gov.in/RFD/rfd.htm" 
randURLs.Append "http://www.dot.gov.in/miscellaneous/CitizenCharter.doc" 
randURLs.Append "http://www.dot.gov.in/rti/teldir.htm" 
randURLs.Append "dotunits.htm" 
randURLs.Append "http://www.dot.gov.in/pg/pgcell.htm" 
randURLs.Append "http://www.dot.gov.in/Acts/acts.htm" 
randURLs.Append "http://www.dot.gov.in/regulation.htm" 
randURLs.Append "http://www.dot.gov.in/plans/planindex.htm" 
randURLs.Append "http://www.dot.gov.in/ntp/ntpindex.htm" 
randURLs.Append "http://www.dot.gov.in/bharatnirman.htm" 
randURLs.Append "http://www.dot.gov.in/networkstatus.htm" 
randURLs.Append "http://www.dot.gov.in/finstatus/finstatus.htm" 
randURLs.Append "http://www.dot.gov.in/annualreport/annualreport.htm" 
randURLs.Append "http://www.dot.gov.in/irelation.htm" 
randURLs.Append "http://www.dot.gov.in/IR/Training%20IR.htm" 
randURLs.Append "http://www.dot.gov.in/tender/tender_archive.htm" 
randURLs.Append "http://www.dot.gov.in/numbering_plan/numberplanindex.htm" 
randURLs.Append "http://www.dot.gov.in/Vigilance/Vigilance.htm" 
randURLs.Append "http://www.dot.gov.in/archive.htm" 
randURLs.Append "http://www.dot.gov.in/faq.htm" 
randURLs.Append "http://www.dot.gov.in/rti/rti.htm" 
randURLs.Append "http://www.dot.gov.in/option/optionarchive.htm" 
randURLs.Append "http://www.dot.gov.in/usefullinks.htm" 
randURLs.Append "http://www.dot.gov.in/osp/Brochure/Brochure.htm" 
randURLs.Append "http://www.dot.gov.in/tender/tender_new.htm" 
randURLs.Append "http://www.dot.gov.in/new-index.htm" 
randURLs.Append "http://www.dot.gov.in/parliament/index.html" 
randURLs.Append "http://www.dot.gov.in/Parliamnet/Parliamnet-quietions.htm" 
randURLs.Append "http://www.dot.gov.in/vacancies/vacancies.htm" 
randURLs.Append "http://www.dot.gov.in/NTP-2011/NTP2011.htm" 
randURLs.Append "http://www.dot.gov.in/Bharat%20Nirman%20-%20Rural%20Telephone%20Connections_files/Table-II_DMU_Report_BBcovrge_VPs_30062011.xls" 
randURLs.Append "http://www.dot.gov.in/Bharat%20Nirman%20-%20Rural%20Telephone%20Connections_files/Table%20I_DMU_Report_%20Rural%20teledensity%2031.05.2011.xls" 
randURLs.Append "http://www.dot.gov.in/uso/2011/Table-II_DMU_Report_BBcovrge_VPs_31032011.xls" 
randURLs.Append "http://www.dot.gov.in/legal.htm" 
randURLs.Append "http://www.dot.gov.in/hindi/hindex.htm" 
randURLs.Append "http://www.dot.gov.in/as/asindex.htm" 
randURLs.Append "http://www.dot.gov.in/internet%20services/internetservices.htm" 
randURLs.Append "http://www.dot.gov.in/vsat/vsatindex.htm" 
randURLs.Append "http://www.dot.gov.in/as/MNP/MNPindex.htm" 
randURLs.Append "http://www.dot.gov.in/as/Auction%20of%20Spectrum%20for3G%20&%20BWA/new/index.htm" 
randURLs.Append "http://www.dot.gov.in/ip/ipindex.htm" 
randURLs.Append "http://www.dot.gov.in/inmarsat/inmarsatindex.htm" 
randURLs.Append "http://www.dot.gov.in/inmarsat/Satellite%20phone.htm" 
randURLs.Append "http://www.dot.gov.in/nld/nldindex.htm" 
randURLs.Append "http://www.dot.gov.in/ild/ildindex.htm" 
randURLs.Append "http://www.dot.gov.in/Resale%20of%20IPLC/Resale%20of%20IPLC-index.htm" 
randURLs.Append "http://www.dot.gov.in/international-roaming/internation-roaming-sindex.htm" 
randURLs.Append "http://www.dot.gov.in/pmrts/pmrtsindex.htm" 
randURLs.Append "http://www.dot.gov.in/gmpcs/gmpcsindex.htm" 
randURLs.Append "http://www.dot.gov.in/mss/mssindex.htm" 
randURLs.Append "http://www.dot.gov.in/paging/pagingindex.htm" 
randURLs.Append "http://www.dot.gov.in/ums/umsindex.htm" 
randURLs.Append "http://www.dot.gov.in/osp/osp.htm" 
randURLs.Append "http://www.dot.gov.in/telemarket/telemarketindex.htm" 
randURLs.Append "http://www.dot.gov.in/wpc/wpcindex.htm" 
randURLs.Append "http://www.usof.dot.in/" 
randURLs.Append "http://www.dot.gov.in/cca/cca.htm" 
randURLs.Append "http://www.dot.gov.in/ipv6/ipv6activities.html" 
randURLs.Append "http://www.dot.gov.in/vtm/vtm.htm" 
randURLs.Append "http://www.dot.gov.in/Electrical/Electrical%20wing.htm" 
randURLs.Append "http://dotosp.gov.in/" 
randURLs.Append "http://www.dot.gov.in/circulars.htm" 
randURLs.Append "http://www.dot.gov.in/ITCell/Upload_Form.doc" 
randURLs.Append "http://www.dot.gov.in/unicode.htm" 

  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))